0005 ; DISASSEMBLY OF %BLM COMMAND (USED BY TED) 0010 0015 ZA4 .DE $A4 0020 ZA5 .DE $A5 0025 ZAE .DE $AE 0030 ZAF .DE $AF 0035 A7229 .DE $7229 0040 A722A .DE $722A 0045 A722B .DE $722B 0050 A722C .DE $722C 0055 A722D .DE $722D 0060 A722E .DE $722E 0065 A722F .DE $722F 0070 A7230 .DE $7230 0075 A7231 .DE $7231 0080 A7232 .DE $7232 0085 A7233 .DE $7233 0090 A7234 .DE $7234 0095 A7256 .DE $7256 0100 A7269 .DE $7269 0105 A726A .DE $726A 0110 A7284 .DE $7284 0115 S740F .DE $740F 0120 J7464 .DE $7464 0125 S7486 .DE $7486 0130 S74B5 .DE $74B5 0135 J74BB .DE $74BB 0140 S74EC .DE $74EC 0145 S74F5 .DE $74F5 0150 S74FC .DE $74FC 0155 S754F .DE $754F 0160 S765D .DE $765D 0165 S768D .DE $768D 0170 S7B04 .DE $7B04 0175 IRQVEC .DE $A67E 0180 ; 0185 .BA $6D00 0190 6D00- AD 7F A6 0195 LDA IRQVEC+1 6D03- C9 60 0200 CMP #$60 ;` 6D05- F0 10 0205 BEQ B6D17 0210 ; 6D07- A2 00 0215 LDX #$00 ;^@ 6D09- BD 91 6E 0220 ABORT LDA ABORT.MSG,X 6D0C- F0 06 0225 BEQ B6D14 0230 ; 6D0E- 20 4F 75 0235 JSR S754F 6D11- E8 0240 INX 6D12- D0 F5 0245 BNE ABORT 0250 ; 6D14- 4C 64 74 0255 B6D14 JMP J7464 0260 ; 6D17- 20 04 7B 0265 B6D17 JSR S7B04 6D1A- A9 10 0270 LDA #$10 ;^P 6D1C- 20 5D 76 0275 JSR S765D 6D1F- 20 6F 6E 0280 JSR S6E6F 6D22- 20 AC 6E 0285 JSR S6EAC 6D25- A5 A4 0290 LDA *ZA4 6D27- 8D 29 72 0295 STA A7229 6D2A- A5 A5 0300 LDA *ZA5 6D2C- 8D 2A 72 0305 STA A722A 6D2F- A5 AF 0310 LDA *ZAF 6D31- 8D 2F 72 0315 STA A722F 6D34- A5 AE 0320 LDA *ZAE 6D36- 8D 30 72 0325 STA A7230 6D39- E8 0330 INX 6D3A- A9 2F 0335 LDA #$2F ;/ 6D3C- 8D 56 72 0340 STA A7256 6D3F- 20 B0 6E 0345 JSR S6EB0 6D42- 20 FC 74 0350 JSR S74FC 6D45- 20 FF 6E 0355 JSR S6EFF 6D48- A5 A4 0360 LDA *ZA4 6D4A- 8D 2B 72 0365 STA A722B 6D4D- A5 A5 0370 LDA *ZA5 6D4F- 8D 2C 72 0375 STA A722C 6D52- F8 0380 SED 6D53- 38 0385 SEC 6D54- A5 AE 0390 LDA *ZAE 6D56- 8D 32 72 0395 STA A7232 6D59- ED 30 72 0400 SBC A7230 6D5C- A5 AF 0405 LDA *ZAF 6D5E- 8D 31 72 0410 STA A7231 6D61- ED 2F 72 0415 SBC A722F 6D64- D8 0420 CLD 6D65- 90 6C 0425 BCC B6DD3 0430 ; 6D67- E8 0435 INX 6D68- A9 0D 0440 LDA #$0D ;^M 6D6A- 8D 56 72 0445 STA A7256 6D6D- 20 B0 6E 0450 JSR S6EB0 6D70- 20 FC 74 0455 JSR S74FC 6D73- A5 A4 0460 LDA *ZA4 6D75- 8D 2D 72 0465 STA A722D 6D78- A5 A5 0470 LDA *ZA5 6D7A- 8D 2E 72 0475 STA A722E 6D7D- 38 0480 SEC 6D7E- F8 0485 SED 6D7F- A5 AE 0490 LDA *ZAE 6D81- 8D 34 72 0495 STA A7234 6D84- ED 30 72 0500 SBC A7230 6D87- A5 AF 0505 LDA *ZAF 6D89- 8D 33 72 0510 STA A7233 6D8C- ED 2F 72 0515 SBC A722F 6D8F- D8 0520 CLD 6D90- B0 44 0525 BCS B6DD6 0530 ; 6D92- AD 29 72 0535 B6D92 LDA A7229 6D95- AC 2A 72 0540 LDY A722A 6D98- 20 8D 76 0545 JSR S768D 6D9B- A0 00 0550 LDY #$00 ;^@ 6D9D- B1 A4 0555 LDA (ZA4),Y 6D9F- 48 0560 PHA 6DA0- 20 FF 6E 0565 B6DA0 JSR S6EFF 6DA3- B1 A4 0570 LDA (ZA4),Y 6DA5- C8 0575 INY 6DA6- 91 A4 0580 STA (ZA4),Y 6DA8- 88 0585 DEY 6DA9- 20 39 6E 0590 JSR S6E39 6DAC- D0 F2 0595 BNE B6DA0 0600 ; 6DAE- 68 0605 PLA 6DAF- 91 A4 0610 STA (ZA4),Y 6DB1- EE 2D 72 0615 INC A722D 6DB4- D0 03 0620 BNE B6DB9 0625 ; 6DB6- EE 2E 72 0630 INC A722E 6DB9- AD 29 72 0635 B6DB9 LDA A7229 6DBC- CD 2B 72 0640 CMP A722B 6DBF- D0 08 0645 BNE B6DC9 0650 ; 6DC1- AD 2A 72 0655 LDA A722A 6DC4- CD 2C 72 0660 CMP A722C 6DC7- F0 7D 0665 BEQ B6E46 0670 ; 6DC9- EE 29 72 0675 B6DC9 INC A7229 6DCC- D0 C4 0680 BNE B6D92 0685 ; 6DCE- EE 2A 72 0690 INC A722A 6DD1- D0 BF 0695 BNE B6D92 0700 ; 6DD3- 4C 8E 6E 0705 B6DD3 JMP J6E8E 0710 ; 6DD6- 38 0715 B6DD6 SEC 6DD7- F8 0720 SED 6DD8- A0 FE 0725 LDY #$FE ;.~ 6DDA- AD 34 72 0730 LDA A7234 6DDD- ED 32 72 0735 SBC A7232 6DE0- D0 01 0740 BNE B6DE3 0745 ; 6DE2- C8 0750 INY 6DE3- AD 33 72 0755 B6DE3 LDA A7233 6DE6- ED 31 72 0760 SBC A7231 6DE9- D8 0765 CLD 6DEA- 90 E7 0770 BCC B6DD3 0775 ; 6DEC- D0 03 0780 BNE B6DF1 0785 ; 6DEE- C8 0790 INY 6DEF- F0 E2 0795 BEQ B6DD3 0800 ; 6DF1- AD 2D 72 0805 B6DF1 LDA A722D 6DF4- D0 03 0810 BNE B6DF9 0815 ; 6DF6- CE 2E 72 0820 DEC A722E 6DF9- CE 2D 72 0825 B6DF9 DEC A722D 6DFC- AD 2B 72 0830 LDA A722B 6DFF- AC 2C 72 0835 LDY A722C 6E02- 20 8D 76 0840 JSR S768D 6E05- A0 00 0845 LDY #$00 ;^@ 6E07- B1 A4 0850 LDA (ZA4),Y 6E09- 48 0855 PHA 6E0A- C8 0860 B6E0A INY 6E0B- B1 A4 0865 LDA (ZA4),Y 6E0D- 88 0870 DEY 6E0E- 91 A4 0875 STA (ZA4),Y 6E10- 20 F5 74 0880 JSR S74F5 6E13- 20 39 6E 0885 JSR S6E39 6E16- D0 F2 0890 BNE B6E0A 0895 ; 6E18- 68 0900 PLA 6E19- 91 A4 0905 STA (ZA4),Y 6E1B- AD 2B 72 0910 LDA A722B 6E1E- CD 29 72 0915 CMP A7229 6E21- D0 08 0920 BNE B6E2B 0925 ; 6E23- AD 2C 72 0930 LDA A722C 6E26- CD 2A 72 0935 CMP A722A 6E29- F0 1B 0940 BEQ B6E46 0945 ; 6E2B- AD 2B 72 0950 B6E2B LDA A722B 6E2E- D0 03 0955 BNE B6E33 0960 ; 6E30- CE 2C 72 0965 DEC A722C 6E33- CE 2B 72 0970 B6E33 DEC A722B 6E36- 4C F1 6D 0975 JMP B6DF1 0980 ; 6E39- A5 A4 0985 S6E39 LDA *ZA4 6E3B- CD 2D 72 0990 CMP A722D 6E3E- D0 05 0995 BNE B6E45 1000 ; 6E40- A5 A5 1005 LDA *ZA5 6E42- CD 2E 72 1010 CMP A722E 6E45- 60 1015 B6E45 RTS 1020 ; 6E46- A9 05 1025 B6E46 LDA #$05 ;^E 6E48- 8D 56 72 1030 STA A7256 6E4B- 20 EC 74 1035 JSR S74EC 6E4E- A9 00 1040 LDA #$00 ;^@ 6E50- 8D 69 72 1045 STA A7269 6E53- 8D 6A 72 1050 STA A726A 6E56- 20 0F 74 1055 B6E56 JSR S740F 6E59- F0 13 1060 BEQ B6E6E 1065 ; 6E5B- 20 86 74 1070 JSR S7486 6E5E- AD 69 72 1075 LDA A7269 6E61- 91 A4 1080 STA (ZA4),Y 6E63- C8 1085 INY 6E64- AD 6A 72 1090 LDA A726A 6E67- 91 A4 1095 STA (ZA4),Y 6E69- 20 FC 74 1100 JSR S74FC 6E6C- D0 E8 1105 BNE B6E56 1110 ; 6E6E- 00 1115 B6E6E BRK 1120 ; 6E6F- A2 FF 1125 S6E6F LDX #$FF ;. 6E71- A9 2C 1130 LDA #$2C ;, 6E73- 8D 56 72 1135 STA A7256 6E76- 20 7E 6E 1140 JSR S6E7E 6E79- A9 2F 1145 LDA #$2F ;/ 6E7B- 8D 56 72 1150 STA A7256 6E7E- E8 1155 S6E7E INX 6E7F- BD 84 72 1160 LDA A7284,X 6E82- CD 56 72 1165 CMP A7256 6E85- F0 06 1170 BEQ B6E8D 1175 ; 6E87- C9 0D 1180 CMP #$0D ;^M 6E89- F0 03 1185 BEQ J6E8E 1190 ; 6E8B- D0 F1 1195 BNE S6E7E 1200 ; 6E8D- 60 1205 B6E8D RTS 1210 ; 6E8E- 4C BB 74 1215 J6E8E JMP J74BB 1220 ; 6E91- 41 42 4F 1225 ABORT.MSG .BY 'ABORT - MUST CALL FROM TED' $00 6E94- 52 54 20 6E97- 2D 20 4D 6E9A- 55 53 54 6E9D- 20 43 41 6EA0- 4C 4C 20 6EA3- 46 52 4F 6EA6- 4D 20 54 6EA9- 45 44 00 1230 6EAC- A2 00 1235 S6EAC LDX #$00 ;^@ 6EAE- A9 2C 1240 LDA #$2C ;, 6EB0- 20 CB 6E 1245 S6EB0 JSR S6ECB 6EB3- 20 EC 74 1250 JSR S74EC 6EB6- A0 00 1255 J6EB6 LDY #$00 ;^@ 6EB8- B1 A4 1260 LDA (ZA4),Y 6EBA- C9 1F 1265 CMP #$1F ;^_ 6EBC- F0 D0 1270 BEQ J6E8E 1275 ; 6EBE- 20 E2 6E 1280 JSR S6EE2 6EC1- F0 1E 1285 BEQ B6EE1 1290 ; 6EC3- 90 1C 1295 BCC B6EE1 1300 ; 6EC5- 20 FC 74 1305 JSR S74FC 6EC8- 4C B6 6E 1310 JMP J6EB6 1315 ; 6ECB- 8D 56 72 1320 S6ECB STA A7256 6ECE- A9 00 1325 LDA #$00 ;^@ 6ED0- 85 AE 1330 STA *ZAE 6ED2- 85 AF 1335 STA *ZAF 6ED4- BD 84 72 1340 B6ED4 LDA A7284,X 6ED7- CD 56 72 1345 CMP A7256 6EDA- F0 05 1350 BEQ B6EE1 1355 ; 6EDC- 20 B5 74 1360 JSR S74B5 6EDF- 10 F3 1365 BPL B6ED4 1370 ; 6EE1- 60 1375 B6EE1 RTS 1380 ; 6EE2- 38 1385 S6EE2 SEC 6EE3- A0 01 1390 LDY #$01 ;^A 6EE5- B1 A4 1395 LDA (ZA4),Y 6EE7- E5 AE 1400 SBC *ZAE 6EE9- 88 1405 DEY 6EEA- B1 A4 1410 LDA (ZA4),Y 6EEC- E5 AF 1415 SBC *ZAF 6EEE- 90 0B 1420 BCC B6EFB 1425 ; 6EF0- D0 07 1430 BNE B6EF9 1435 ; 6EF2- C8 1440 INY 6EF3- B1 A4 1445 LDA (ZA4),Y 6EF5- C5 AE 1450 CMP *ZAE 6EF7- F0 01 1455 BEQ B6EFA 1460 ; 6EF9- 18 1465 B6EF9 CLC 6EFA- 60 1470 B6EFA RTS 1475 ; 6EFB- A9 01 1480 B6EFB LDA #$01 ;^A 6EFD- 38 1485 SEC 6EFE- 60 1490 RTS 1495 ; 6EFF- A5 A4 1500 S6EFF LDA *ZA4 6F01- D0 02 1505 BNE B6F05 1510 ; 6F03- C6 A5 1515 DEC *ZA5 6F05- C6 A4 1520 B6F05 DEC *ZA4 6F07- 60 1525 RTS 1530 ; 1535 .EN 0000,6F08,6F08 >