0005 ; DISASSEMBLY OF TED 0010 0015 ; NOTE THAT THIS IS NOT A STAND ALONE 0020 ; PROGRAM. IT MUST BE USED WITH THE 0025 ; FODS DISK OPERATING SYSTEM. 0030 0035 ZA0 .DE $A0 0040 ZA1 .DE $A1 0045 ZA2 .DE $A2 0050 ZA3 .DE $A3 0055 ZA4 .DE $A4 0060 ZA5 .DE $A5 0065 ZA6 .DE $A6 0070 ZA7 .DE $A7 0075 ZA8 .DE $A8 0080 ZA9 .DE $A9 0085 ZAE .DE $AE 0090 ZAF .DE $AF 0095 ZFF .DE $FF 0100 0105 ; KNOWN FODS LOCATIONS 0110 0115 ENT .DE $76EE 0120 LOD .DE $78ED 0125 RUN .DE $7971 0130 0135 A720A .DE $720A 0140 A720D .DE $720D 0145 A720E .DE $720E 0150 A720F .DE $720F 0155 A7220 .DE $7220 0160 A7222 .DE $7222 0165 A7223 .DE $7223 0170 A7224 .DE $7224 0175 A7225 .DE $7225 0180 A7228 .DE $7228 0185 A7256 .DE $7256 0190 A7257 .DE $7257 0195 A725B .DE $725B 0200 A7264 .DE $7264 0205 A7268 .DE $7268 0210 A7269 .DE $7269 0215 A726A .DE $726A 0220 A726B .DE $726B 0225 A726C .DE $726C 0230 A726D .DE $726D 0235 A726E .DE $726E 0240 A726F .DE $726F 0245 A7270 .DE $7270 0250 A7271 .DE $7271 0255 A7272 .DE $7272 0260 A7275 .DE $7275 0265 A7278 .DE $7278 0270 A7279 .DE $7279 0275 A727A .DE $727A 0280 A727B .DE $727B 0285 A727C .DE $727C 0290 A7280 .DE $7280 0295 A7281 .DE $7281 0300 A7282 .DE $7282 0305 A7283 .DE $7283 0310 A7284 .DE $7284 0315 A7285 .DE $7285 0320 A7286 .DE $7286 0325 A7300 .DE $7300 0330 S73BC .DE $73BC 0335 S73BE .DE $73BE 0340 J73DF .DE $73DF 0345 S73E6 .DE $73E6 0350 J7417 .DE $7417 0355 J7433 .DE $7433 0360 J7437 .DE $7437 0365 S7486 .DE $7486 0370 S749B .DE $749B 0375 S74B2 .DE $74B2 0380 S74B5 .DE $74B5 0385 J74BB .DE $74BB 0390 S74CE .DE $74CE 0395 S74D5 .DE $74D5 0400 S74E1 .DE $74E1 0405 S74E3 .DE $74E3 0410 S74EC .DE $74EC 0415 S74F5 .DE $74F5 0420 S74FC .DE $74FC 0425 S7511 .DE $7511 0430 S7522 .DE $7522 0435 S7547 .DE $7547 0440 S754A .DE $754A 0445 S754D .DE $754D 0450 S754F .DE $754F 0455 J7555 .DE $7555 0460 S756F .DE $756F 0465 S7578 .DE $7578 0470 J758A .DE $758A 0475 S7631 .DE $7631 0480 S7634 .DE $7634 0485 S765D .DE $765D 0490 S76E3 .DE $76E3 0495 S7724 .DE $7724 0500 S781C .DE $781C 0505 S7897 .DE $7897 0510 S7904 .DE $7904 0515 J7954 .DE $7954 0520 S7999 .DE $7999 0525 J79A7 .DE $79A7 0530 J79B3 .DE $79B3 0535 J7AF0 .DE $7AF0 0540 J7B04 .DE $7B04 0545 S7B90 .DE $7B90 0550 NEWLOC .DE $8517 0555 UBRKVC .DE $A676 0560 ; 0565 .BA $6000 0570 .OS 0575 6000- D8 0580 CLD 6001- A2 FF 0585 LDX #$FF ;. 6003- 9A 0590 TXS 6004- E8 0595 INX 6005- 8E 6F 72 0600 STX A726F 6008- A2 3A 0605 LDX #$3A ;: 600A- 8E 75 72 0610 STX A7275 600D- 20 56 68 0615 JSR S6856 6010- A9 20 0620 XXX LDA #$20 ; 6012- 20 5D 76 0625 JSR S765D 6015- AD 75 72 0630 B6015 LDA A7275 6018- 20 4F 75 0635 JSR S754F 601B- 20 2F 65 0640 JSR S652F 601E- BD 80 72 0645 B601E LDA A7280,X 6021- 9D 00 73 0650 STA A7300,X 6024- CA 0655 DEX 6025- 10 F7 0660 BPL B601E 0665 ; 6027- A2 FF 0670 J6027 LDX #$FF ;. 6029- 9A 0675 TXS 602A- 20 34 76 0680 JSR S7634 602D- AD 80 72 0685 LDA A7280 6030- C9 2B 0690 CMP #$2B ;+ 6032- F0 E1 0695 BEQ B6015 0700 ; 6034- C9 23 0705 CMP #$23 ;# 6036- D0 10 0710 BNE B6048 0715 ; 6038- 20 65 6B 0720 JSR S6B65 603B- A2 FF 0725 LDX #$FF ;. 603D- E8 0730 B603D INX 603E- BD 81 72 0735 LDA A7281,X 6041- 9D 80 72 0740 STA A7280,X 6044- C9 0D 0745 CMP #$0D ;^M 6046- D0 F5 0750 BNE B603D 0755 ; 6048- C9 30 0760 B6048 CMP #$30 ;0 604A- 30 04 0765 BMI B6050 0770 ; 604C- C9 3A 0775 CMP #$3A ;: 604E- 30 04 0780 BMI B6054 0785 ; 6050- 20 FC 68 0790 B6050 JSR S68FC 6053- 00 0795 BRK 0800 ; 6054- A5 A9 0805 B6054 LDA *ZA9 6056- F0 04 0810 BEQ B605C 0815 ; 6058- 20 02 62 0820 JSR S6202 605B- 00 0825 BRK 0830 ; 605C- 4C DF 73 0835 B605C JMP J73DF 0840 ; 605F- A2 05 0845 FIL LDX #$05 ;^E 6061- 8E 6D 72 0850 STX A726D 6064- 20 B2 74 0855 B6064 JSR S74B2 6067- E0 09 0860 CPX #$09 ;^I 6069- D0 F9 0865 BNE B6064 0870 ; 606B- 20 E6 73 0875 JSR S73E6 606E- 20 EC 74 0880 JSR S74EC 6071- AD 84 72 0885 LDA A7284 6074- C9 4E 0890 CMP #$4E ;N 6076- F0 12 0895 BEQ B608A 0900 ; 6078- C9 6E 0905 CMP #$6E ;n 607A- F0 0E 0910 BEQ B608A 0915 ; 607C- C9 41 0920 CMP #$41 ;A 607E- F0 04 0925 BEQ B6084 0930 ; 6080- C9 61 0935 CMP #$61 ;a 6082- D0 03 0940 BNE B6087 0945 ; 6084- 4C 54 79 0950 B6084 JMP J7954 0955 ; 6087- 4C FB 64 0960 B6087 JMP J64FB 0965 ; 608A- A0 00 0970 B608A LDY #$00 ;^@ 608C- 8C 6E 72 0975 STY A726E 608F- F0 03 0980 BEQ B6094 0985 ; 6091- 20 FC 74 0990 B6091 JSR S74FC 6094- A9 1F 0995 B6094 LDA #$1F ;^_ 6096- 91 A4 1000 STA (ZA4),Y 6098- 4C 17 74 1005 JMP J7417 1010 ; 609B- EE 70 72 1015 END INC A7270 609E- 20 35 69 1020 ADR JSR S6935 60A1- D0 E4 1025 BNE B6087 1030 ; 60A3- AD 70 72 1035 LDA A7270 60A6- F0 E9 1040 BEQ B6091 1045 ; 60A8- 20 72 6A 1050 JSR S6A72 60AB- 4C 8A 75 1055 JMP J758A 1060 ; 60AE- 20 B1 6A 1065 B60AE JSR S6AB1 60B1- CE 22 72 1070 DEC A7222 60B4- 4C F6 60 1075 JMP J60F6 1080 ; 60B7- 20 9D 6A 1085 B60B7 JSR S6A9D 60BA- 9D 80 72 1090 STA A7280,X 60BD- E8 1095 INX 60BE- AC 22 72 1100 LDY A7222 60C1- CC 7C 72 1105 CPY A727C 60C4- 30 0F 1110 BMI B60D5 1115 ; 60C6- 20 4D 75 1120 JSR S754D 60C9- CC 7B 72 1125 CPY A727B 60CC- 30 07 1130 BMI B60D5 1135 ; 60CE- CA 1140 B60CE DEX 60CF- 20 B1 6A 1145 JSR S6AB1 60D2- CE 22 72 1150 DEC A7222 60D5- 20 6F 75 1155 B60D5 JSR S756F 60D8- C9 5E 1160 CMP #$5E ;^ 60DA- F0 1A 1165 BEQ J60F6 1170 ; 60DC- C9 08 1175 CMP #$08 ;^H 60DE- F0 EE 1180 BEQ B60CE 1185 ; 60E0- C9 20 1190 CMP #$20 ; 60E2- 30 F1 1195 BMI B60D5 1200 ; 60E4- C9 5F 1205 CMP #$5F ;_ 60E6- D0 CF 1210 BNE B60B7 1215 ; 60E8- F0 EB 1220 BEQ B60D5 1225 ; 60EA- 20 92 61 1230 EDT JSR S6192 60ED- 8E 22 72 1235 STX A7222 60F0- 20 27 64 1240 JSR S6427 60F3- A2 01 1245 B60F3 LDX #$01 ;^A 60F5- CA 1250 B60F5 DEX 60F6- CA 1255 J60F6 DEX 60F7- E8 1260 B60F7 INX 60F8- EC 7B 72 1265 CPX A727B 60FB- 10 F8 1270 BPL B60F5 1275 ; 60FD- EC 7C 72 1280 CPX A727C 6100- 30 03 1285 BMI B6105 1290 ; 6102- 20 4D 75 1295 JSR S754D 6105- 20 6F 75 1300 B6105 JSR S756F 6108- C9 40 1305 CMP #$40 ;@ 610A- F0 EB 1310 BEQ B60F7 1315 ; 610C- C9 0C 1320 CMP #$0C ;^L 610E- F0 E7 1325 BEQ B60F7 1330 ; 6110- C9 1C 1335 CMP #$1C ;^\ 6112- F0 E3 1340 BEQ B60F7 1345 ; 6114- C9 5E 1350 CMP #$5E ;^ 6116- F0 BD 1355 BEQ B60D5 1360 ; 6118- C9 5F 1365 CMP #$5F ;_ 611A- F0 92 1370 BEQ B60AE 1375 ; 611C- C9 08 1380 CMP #$08 ;^H 611E- F0 D5 1385 BEQ B60F5 1390 ; 6120- C9 0A 1395 CMP #$0A ;^J 6122- F0 0E 1400 BEQ B6132 1405 ; 6124- 9D 80 72 1410 STA A7280,X 6127- C9 0D 1415 CMP #$0D ;^M 6129- D0 CC 1420 BNE B60F7 1425 ; 612B- E0 04 1430 CPX #$04 ;^D 612D- 10 0B 1435 BPL B613A 1440 ; 612F- 4C F8 64 1445 JMP J64F8 1450 ; 6132- A9 0D 1455 B6132 LDA #$0D ;^M 6134- AE 7A 72 1460 LDX A727A 6137- 9D 80 72 1465 STA A7280,X 613A- 20 8A 75 1470 B613A JSR J758A 613D- A2 00 1475 LDX #$00 ;^@ 613F- F0 03 1480 BEQ B6144 1485 ; 6141- 20 4F 75 1490 B6141 JSR S754F 6144- BD 80 72 1495 B6144 LDA A7280,X 6147- E8 1500 INX 6148- C9 0D 1505 CMP #$0D ;^M 614A- D0 F5 1510 BNE B6141 1515 ; 614C- A9 3F 1520 B614C LDA #$3F ;? 614E- 20 4F 75 1525 JSR S754F 6151- 20 6F 75 1530 JSR S756F 6154- 20 8A 75 1535 JSR J758A 6157- C9 18 1540 CMP #$18 ;^X 6159- F0 36 1545 BEQ B6191 1550 ; 615B- C9 52 1555 CMP #$52 ;R 615D- F0 94 1560 BEQ B60F3 1565 ; 615F- C9 72 1570 CMP #$72 ;r 6161- F0 90 1575 BEQ B60F3 1580 ; 6163- C9 0D 1585 CMP #$0D ;^M 6165- D0 E5 1590 BNE B614C 1595 ; 6167- AD 80 72 1600 LDA A7280 616A- C9 3A 1605 CMP #$3A ;: 616C- 20 BC 64 1610 JSR S64BC 616F- 4C 54 60 1615 JMP B6054 1620 ; 6172- 20 FC 74 1625 S6172 JSR S74FC 6175- A0 00 1630 S6175 LDY #$00 ;^@ 6177- 20 BE 73 1635 S6177 JSR S73BE 617A- C9 1F 1640 CMP #$1F ;^_ 617C- 60 1645 RTS 1650 ; 617D- 20 35 69 1655 APP JSR S6935 6180- 20 EA 66 1660 B6180 JSR S66EA 6183- 20 CE 66 1665 JSR S66CE 6186- 20 9D 65 1670 JSR S659D 6189- 20 A3 62 1675 JSR S62A3 618C- 20 72 61 1680 JSR S6172 618F- D0 EF 1685 BNE B6180 1690 ; 6191- 00 1695 B6191 BRK 1700 ; 6192- 20 35 69 1705 S6192 JSR S6935 6195- 20 75 61 1710 JSR S6175 6198- F0 3F 1715 BEQ B61D9 1720 ; 619A- 4C EA 66 1725 B619A JMP S66EA 1730 ; 619D- 20 27 64 1735 B619D JSR S6427 61A0- 20 FC 74 1740 B61A0 JSR S74FC 61A3- 20 75 61 1745 B61A3 JSR S6175 61A6- F0 E9 1750 BEQ B6191 1755 ; 61A8- C8 1760 INY 61A9- 8C 23 72 1765 STY A7223 61AC- A2 04 1770 B61AC LDX #$04 ;^D 61AE- EE 23 72 1775 INC A7223 61B1- AC 23 72 1780 LDY A7223 61B4- 20 BE 73 1785 B61B4 JSR S73BE 61B7- F0 E7 1790 BEQ B61A0 1795 ; 61B9- C8 1800 INY 61BA- DD 80 72 1805 CMP A7280,X 61BD- D0 ED 1810 BNE B61AC 1815 ; 61BF- E8 1820 INX 61C0- EC 22 72 1825 CPX A7222 61C3- D0 EF 1830 BNE B61B4 1835 ; 61C5- AD 70 72 1840 LDA A7270 61C8- F0 D0 1845 BEQ B619A 1850 ; 61CA- D0 D1 1855 BNE B619D 1860 ; 61CC- 20 EC 74 1865 LOC JSR S74EC 61CF- 20 85 66 1870 JSR S6685 61D2- 8E 22 72 1875 S61D2 STX A7222 61D5- E0 05 1880 CPX #$05 ;^E 61D7- 10 CA 1885 BPL B61A3 1890 ; 61D9- 4C FB 64 1895 B61D9 JMP J64FB 1900 ; 61DC- 20 22 75 1905 S61DC JSR S7522 61DF- A6 A8 1910 LDX *ZA8 61E1- A4 A9 1915 LDY *ZA9 61E3- E8 1920 INX 61E4- D0 01 1925 BNE B61E7 1930 ; 61E6- C8 1935 INY 61E7- 38 1940 B61E7 SEC 61E8- 8A 1945 TXA 61E9- E5 A6 1950 SBC *ZA6 61EB- AA 1955 TAX 61EC- 98 1960 TYA 61ED- E5 A7 1965 SBC *ZA7 61EF- 20 78 75 1970 JSR S7578 61F2- 8A 1975 TXA 61F3- 20 47 75 1980 JSR S7547 61F6- AD 69 72 1985 LDA A7269 61F9- AC 6A 72 1990 LDY A726A 61FC- 20 76 6A 1995 JSR S6A76 61FF- 4C 8A 75 2000 JMP J758A 2005 ; 6202- A2 FF 2010 S6202 LDX #$FF ;. 6204- 8E 6C 72 2015 STX A726C 6207- E8 2020 B6207 INX 6208- E0 0A 2025 CPX #$0A ;^J 620A- 30 03 2030 BMI B620F 2035 ; 620C- 4C A3 62 2040 B620C JMP S62A3 2045 ; 620F- BD 80 72 2050 B620F LDA A7280,X 6212- 9D 25 72 2055 STA A7225,X 6215- C9 0D 2060 CMP #$0D ;^M 6217- F0 09 2065 BEQ B6222 2070 ; 6219- C9 2C 2075 CMP #$2C ;, 621B- D0 EA 2080 BNE B6207 2085 ; 621D- EE 6C 72 2090 INC A726C 6220- 10 E5 2095 BPL B6207 2100 ; 6222- AD 6C 72 2105 B6222 LDA A726C 6225- 30 E5 2110 BMI B620C 2115 ; 6227- A2 FF 2120 LDX #$FF ;. 6229- E8 2125 B6229 INX 622A- E0 0A 2130 CPX #$0A ;^J 622C- 10 75 2135 BPL S62A3 2140 ; 622E- BD 80 72 2145 LDA A7280,X 6231- C9 30 2150 CMP #$30 ;0 6233- 30 04 2155 BMI B6239 2160 ; 6235- C9 3A 2165 CMP #$3A ;: 6237- 30 F0 2170 BMI B6229 2175 ; 6239- C9 2C 2180 B6239 CMP #$2C ;, 623B- F0 EC 2185 BEQ B6229 2190 ; 623D- C9 0D 2195 CMP #$0D ;^M 623F- D0 62 2200 BNE S62A3 2205 ; 6241- A2 FF 2210 LDX #$FF ;. 6243- E8 2215 B6243 INX 6244- BD 25 72 2220 LDA A7225,X 6247- 9D 84 72 2225 STA A7284,X 624A- C9 2C 2230 CMP #$2C ;, 624C- D0 F5 2235 BNE B6243 2240 ; 624E- 8E 57 72 2245 STX A7257 6251- A9 20 2250 LDA #$20 ; 6253- 8D 83 72 2255 STA A7283 6256- 20 35 69 2260 JSR S6935 6259- D0 45 2265 BNE B62A0 2270 ; 625B- C9 1F 2275 CMP #$1F ;^_ 625D- F0 41 2280 BEQ B62A0 2285 ; 625F- 20 69 6A 2290 JSR S6A69 6262- AE 57 72 2295 LDX A7257 6265- A0 FF 2300 LDY #$FF ;. 6267- E8 2305 B6267 INX 6268- C8 2310 INY 6269- BD 25 72 2315 LDA A7225,X 626C- 99 84 72 2320 STA A7284,Y 626F- C9 0D 2325 CMP #$0D ;^M 6271- D0 F4 2330 BNE B6267 2335 ; 6273- 20 35 69 2340 JSR S6935 6276- D0 28 2345 BNE B62A0 2350 ; 6278- C9 1F 2355 CMP #$1F ;^_ 627A- F0 24 2360 BEQ B62A0 2365 ; 627C- 20 FC 74 2370 JSR S74FC 627F- 38 2375 SEC 6280- A5 A4 2380 LDA *ZA4 6282- E5 A2 2385 SBC *ZA2 6284- A5 A5 2390 LDA *ZA5 6286- E5 A3 2395 SBC *ZA3 6288- 90 16 2400 BCC B62A0 2405 ; 628A- A0 00 2410 LDY #$00 ;^@ 628C- B1 A4 2415 B628C LDA (ZA4),Y 628E- 91 A2 2420 STA (ZA2),Y 6290- C9 1F 2425 CMP #$1F ;^_ 6292- F0 0B 2430 BEQ B629F 2435 ; 6294- 20 F5 74 2440 JSR S74F5 6297- E6 A2 2445 INC *ZA2 6299- D0 F1 2450 BNE B628C 2455 ; 629B- E6 A3 2460 INC *ZA3 629D- D0 ED 2465 BNE B628C 2470 ; 629F- 60 2475 B629F RTS 2480 ; 62A0- 4C FB 64 2485 B62A0 JMP J64FB 2490 ; 62A3- 20 60 67 2495 S62A3 JSR S6760 62A6- A2 00 2500 LDX #$00 ;^@ 62A8- 20 B2 74 2505 B62A8 JSR S74B2 62AB- E0 04 2510 CPX #$04 ;^D 62AD- 30 F9 2515 BMI B62A8 2520 ; 62AF- 20 EC 74 2525 JSR S74EC 62B2- AD 6E 72 2530 LDA A726E 62B5- F0 29 2535 BEQ B62E0 2540 ; 62B7- 20 47 67 2545 B62B7 JSR S6747 62BA- F0 4D 2550 BEQ B6309 2555 ; 62BC- B0 1D 2560 BCS B62DB 2565 ; 62BE- AD 22 72 2570 LDA A7222 62C1- C9 05 2575 CMP #$05 ;^E 62C3- F0 DA 2580 BEQ B629F 2585 ; 62C5- 38 2590 SEC 62C6- E9 02 2595 SBC #$02 ;^B 62C8- 8D 68 72 2600 STA A7268 62CB- 20 75 61 2605 JSR S6175 62CE- 48 2610 PHA 62CF- 20 B1 67 2615 JSR S67B1 62D2- 68 2620 PLA 62D3- 91 A4 2625 STA (ZA4),Y 62D5- 20 B8 66 2630 JSR S66B8 62D8- 4C 5A 63 2635 JMP J635A 2640 ; 62DB- 20 72 61 2645 B62DB JSR S6172 62DE- D0 D7 2650 BNE B62B7 2655 ; 62E0- AD 22 72 2660 B62E0 LDA A7222 62E3- C9 05 2665 CMP #$05 ;^E 62E5- F0 B8 2670 BEQ B629F 2675 ; 62E7- AD 6E 72 2680 LDA A726E 62EA- D0 03 2685 BNE B62EF 2690 ; 62EC- EE 6E 72 2695 INC A726E 62EF- 20 B8 66 2700 B62EF JSR S66B8 62F2- C8 2705 INY 62F3- A9 1F 2710 LDA #$1F ;^_ 62F5- 91 A4 2715 STA (ZA4),Y 62F7- 20 FC 74 2720 JSR S74FC 62FA- 4C 33 74 2725 JMP J7433 2730 ; 62FD- C8 2735 B62FD INY 62FE- 8C 68 72 2740 STY A7268 6301- 20 69 6A 2745 JSR S6A69 6304- 20 9C 67 2750 JSR S679C 6307- F0 3F 2755 BEQ B6348 2760 ; 6309- A0 FF 2765 B6309 LDY #$FF ;. 630B- C8 2770 B630B INY 630C- 20 BE 73 2775 JSR S73BE 630F- D0 FA 2780 BNE B630B 2785 ; 6311- AD 22 72 2790 LDA A7222 6314- C9 05 2795 CMP #$05 ;^E 6316- F0 E5 2800 BEQ B62FD 2805 ; 6318- 88 2810 DEY 6319- 8C 68 72 2815 STY A7268 631C- AD 22 72 2820 LDA A7222 631F- 38 2825 SEC 6320- E9 04 2830 SBC #$04 ;^D 6322- 8D 23 72 2835 STA A7223 6325- ED 68 72 2840 SBC A7268 6328- B0 25 2845 BCS B634F 2850 ; 632A- 38 2855 SEC 632B- AD 68 72 2860 LDA A7268 632E- ED 23 72 2865 SBC A7223 6331- 8D 68 72 2870 STA A7268 6334- 18 2875 CLC 6335- AD 23 72 2880 LDA A7223 6338- 65 A4 2885 ADC *ZA4 633A- 85 A2 2890 STA *ZA2 633C- A5 A5 2895 LDA *ZA5 633E- 69 00 2900 ADC #$00 ;^@ 6340- 85 A3 2905 STA *ZA3 6342- 20 9C 67 2910 JSR S679C 6345- 20 B8 66 2915 JSR S66B8 6348- A5 A2 2920 B6348 LDA *ZA2 634A- A4 A3 2925 LDY *ZA3 634C- 4C 37 74 2930 JMP J7437 2935 ; 634F- 8D 68 72 2940 B634F STA A7268 6352- A0 02 2945 LDY #$02 ;^B 6354- 20 B1 67 2950 JSR S67B1 6357- 20 B8 66 2955 JSR S66B8 635A- 18 2960 J635A CLC 635B- AD 68 72 2965 LDA A7268 635E- 65 A8 2970 ADC *ZA8 6360- 85 A8 2975 STA *ZA8 6362- 90 02 2980 BCC B6366 2985 ; 6364- E6 A9 2990 INC *ZA9 6366- 60 2995 B6366 RTS 3000 ; 6367- 20 EC 74 3005 B6367 JSR S74EC 636A- 4C 30 64 3010 JMP J6430 3015 ; 636D- EE 78 72 3020 PRI INC A7278 6370- AD 85 72 3025 LIS LDA A7285 6373- C9 2F 3030 CMP #$2F ;/ 6375- D0 03 3035 BNE B637A 3040 ; 6377- 20 1C 78 3045 JSR S781C 637A- AD 83 72 3050 B637A LDA A7283 637D- C9 2E 3055 CMP #$2E ;. 637F- D0 05 3060 BNE B6386 3065 ; 6381- EE 71 72 3070 INC A7271 6384- 10 1D 3075 BPL B63A3 3080 ; 6386- C9 2C 3085 B6386 CMP #$2C ;, 6388- D0 0E 3090 BNE B6398 3115 DEX 6393- 10 F7 3120 BPL B638C 3125 ; 6395- E8 3130 INX 6396- F0 40 3135 BEQ B63D8 3140 ; 6398- C9 20 3145 B6398 CMP #$20 ; 639A- F0 07 3150 BEQ B63A3 3155 ; 639C- C9 0D 3160 CMP #$0D ;^M 639E- F0 C7 3165 BEQ B6367 3170 ; 63A0- 4C FB 64 3175 B63A0 JMP J64FB 3180 ; 63A3- A2 00 3185 B63A3 LDX #$00 ;^@ 63A5- BD 84 72 3190 LDA A7284,X 63A8- C9 0D 3195 CMP #$0D ;^M 63AA- F0 BB 3200 BEQ B6367 3205 ; 63AC- C9 2C 3210 CMP #$2C ;, 63AE- F0 28 3215 BEQ B63D8 3220 ; 63B0- C9 30 3225 CMP #$30 ;0 63B2- 30 04 3230 BMI B63B8 3235 ; 63B4- C9 3A 3240 CMP #$3A ;: 63B6- 30 14 3245 BMI B63CC 3250 ; 63B8- AD 84 72 3255 B63B8 LDA A7284 63BB- C9 25 3260 CMP #$25 ;% 63BD- F0 E1 3265 BEQ B63A0 3270 ; 63BF- C9 40 3275 CMP #$40 ;@ 63C1- F0 DD 3280 BEQ B63A0 3285 ; 63C3- 20 04 79 3290 JSR S7904 63C6- 20 EC 74 3295 JSR S74EC 63C9- 4C 30 64 3300 JMP J6430 3305 ; 63CC- E8 3310 B63CC INX 63CD- BD 84 72 3315 LDA A7284,X 63D0- C9 0D 3320 CMP #$0D ;^M 63D2- F0 4B 3325 BEQ B641F 3330 ; 63D4- C9 2C 3335 CMP #$2C ;, 63D6- D0 F4 3340 BNE B63CC 3345 ; 63D8- E8 3350 B63D8 INX 63D9- BD 84 72 3355 LDA A7284,X 63DC- C9 0D 3360 CMP #$0D ;^M 63DE- F0 4D 3365 BEQ B642D 3370 ; 63E0- C9 50 3375 CMP #$50 ;P 63E2- F0 5D 3380 BEQ B6441 3385 ; 63E4- C9 70 3390 CMP #$70 ;p 63E6- F0 59 3395 BEQ B6441 3400 ; 63E8- C9 4C 3405 CMP #$4C ;L 63EA- F0 51 3410 BEQ B643D 3415 ; 63EC- C9 6C 3420 CMP #$6C ;l 63EE- F0 4D 3425 BEQ B643D 3430 ; 63F0- A9 0D 3435 LDA #$0D ;^M 63F2- 20 87 64 3440 JSR S6487 63F5- A5 AF 3445 LDA *ZAF 63F7- 48 3450 PHA 63F8- A5 AE 3455 LDA *ZAE 63FA- 48 3460 PHA 63FB- A2 FF 3465 LDX #$FF ;. 63FD- E8 3470 INX 63FE- A9 2C 3475 LDA #$2C ;, 6400- 20 87 64 3480 JSR S6487 6403- 20 A2 64 3485 JSR S64A2 6406- 68 3490 PLA 6407- 85 AE 3495 STA *ZAE 6409- 68 3500 PLA 640A- 85 AF 3505 STA *ZAF 640C- 20 27 64 3510 B640C JSR S6427 640F- 20 47 67 3515 JSR S6747 6412- F0 0A 3520 BEQ B641E 3525 ; 6414- 90 08 3530 BCC B641E 3535 ; 6416- 20 FC 74 3540 JSR S74FC 6419- 20 75 61 3545 JSR S6175 641C- D0 EE 3550 BNE B640C 3555 ; 641E- 60 3560 B641E RTS 3565 ; 641F- A9 0D 3570 B641F LDA #$0D ;^M 6421- 20 85 64 3575 JSR S6485 6424- 20 A2 64 3580 JSR S64A2 6427- 20 CE 66 3585 S6427 JSR S66CE 642A- 4C 8A 75 3590 JMP J758A 3595 ; 642D- 20 9B 64 3600 B642D JSR S649B 6430- 20 75 61 3605 J6430 JSR S6175 6433- F0 E9 3610 BEQ B641E 3615 ; 6435- 20 27 64 3620 JSR S6427 6438- 20 FC 74 3625 JSR S74FC 643B- D0 F3 3630 BNE J6430 3635 ; 643D- A9 01 3640 B643D LDA #$01 ;^A 643F- D0 03 3645 BNE B6444 3650 ; 6441- AD 79 72 3655 B6441 LDA A7279 6444- 8D 5B 72 3660 B6444 STA A725B 6447- 20 9B 64 3665 JSR S649B 644A- 20 8A 75 3670 B644A JSR J758A 644D- AE 5B 72 3675 J644D LDX A725B 6450- 20 75 61 3680 B6450 JSR S6175 6453- F0 C9 3685 BEQ B641E 3690 ; 6455- 20 27 64 3695 JSR S6427 6458- 20 FC 74 3700 JSR S74FC 645B- CA 3705 DEX 645C- D0 F2 3710 BNE B6450 3715 ; 645E- A2 04 3720 LDX #$04 ;^D 6460- 20 6F 75 3725 JSR S756F 6463- C9 0D 3730 CMP #$0D ;^M 6465- F0 B7 3735 BEQ B641E 3740 ; 6467- C9 18 3745 CMP #$18 ;^X 6469- F0 B3 3750 BEQ B641E 3755 ; 646B- C9 30 3760 CMP #$30 ;0 646D- 30 DB 3765 BMI B644A 3770 ; 646F- C9 3A 3775 CMP #$3A ;: 6471- 10 D7 3780 BPL B644A 3785 ; 6473- 9D 80 72 3790 STA A7280,X 6476- E8 3795 INX 6477- 20 DB 65 3800 JSR S65DB 647A- 20 85 64 3805 JSR S6485 647D- 20 A2 64 3810 JSR S64A2 6480- 4C 4D 64 3815 JMP J644D 3820 ; 6483- A9 0D 3825 S6483 LDA #$0D ;^M 6485- A2 00 3830 S6485 LDX #$00 ;^@ 6487- 8D 56 72 3835 S6487 STA A7256 648A- 20 62 6A 3840 JSR S6A62 648D- BD 84 72 3845 B648D LDA A7284,X 6490- CD 56 72 3850 CMP A7256 6493- F0 05 3855 BEQ B649A 3860 ; 6495- 20 B5 74 3865 JSR S74B5 6498- 10 F3 3870 BPL B648D 3875 ; 649A- 60 3880 B649A RTS 3885 ; 649B- A2 00 3890 S649B LDX #$00 ;^@ 649D- A9 2C 3895 LDA #$2C ;, 649F- 20 87 64 3900 JSR S6487 64A2- 20 EC 74 3905 S64A2 JSR S74EC 64A5- A0 00 3910 J64A5 LDY #$00 ;^@ 64A7- B1 A4 3915 LDA (ZA4),Y 64A9- C9 1F 3920 CMP #$1F ;^_ 64AB- F0 4E 3925 BEQ J64FB 3930 ; 64AD- 20 47 67 3935 JSR S6747 64B0- F0 E8 3940 BEQ B649A 3945 ; 64B2- 90 E6 3950 BCC B649A 3955 ; 64B4- 20 FC 74 3960 JSR S74FC 64B7- 4C A5 64 3965 JMP J64A5 3970 ; 64BA- C9 33 3975 CMP #$33 ;3 64BC- 10 3D 3980 S64BC BPL J64FB 3985 ; 64BE- C9 30 3990 CMP #$30 ;0 64C0- 30 39 3995 BMI J64FB 4000 ; 64C2- 29 0F 4005 AND #$0F ;^O 64C4- 60 4010 RTS 4015 ; 64C5- A2 FF 4020 LDX #$FF ;. 64C7- 20 94 6A 4025 JSR S6A94 64CA- 20 D0 64 4030 JSR S64D0 64CD- 20 97 6A 4035 JSR S6A97 64D0- E8 4040 S64D0 INX 64D1- BD 84 72 4045 LDA A7284,X 64D4- CD 56 72 4050 CMP A7256 64D7- F0 06 4055 BEQ B64DF 4060 ; 64D9- C9 0D 4065 CMP #$0D ;^M 64DB- F0 1E 4070 BEQ J64FB 4075 ; 64DD- D0 F1 4080 BNE S64D0 4085 ; 64DF- 60 4090 B64DF RTS 4095 ; 64E0- A2 FF 4100 B64E0 LDX #$FF ;. 64E2- E8 4105 B64E2 INX 64E3- BD 00 73 4110 LDA A7300,X 64E6- 9D 80 72 4115 STA A7280,X 64E9- C9 0D 4120 CMP #$0D ;^M 64EB- F0 05 4125 BEQ B64F2 4130 ; 64ED- 20 4F 75 4135 JSR S754F 64F0- D0 F0 4140 BNE B64E2 4145 ; 64F2- 20 9D 65 4150 B64F2 JSR S659D 64F5- 4C 27 60 4155 JMP J6027 4160 ; 64F8- 20 8A 75 4165 J64F8 JSR J758A 64FB- 4C BB 74 4170 J64FB JMP J74BB 4175 ; 64FE- 20 EC 74 4180 B64FE JSR S74EC 6501- 4C 15 65 4185 JMP J6515 4190 ; 6504- 20 72 61 4195 B6504 JSR S6172 6507- F0 F5 4200 BEQ B64FE 4205 ; 6509- 20 10 67 4210 JSR S6710 650C- 20 88 6A 4215 JSR S6A88 650F- 20 88 6A 4220 JSR S6A88 6512- 20 80 6A 4225 JSR S6A80 6515- B1 A4 4230 J6515 LDA (ZA4),Y 6517- 8D 69 72 4235 STA A7269 651A- C8 4240 INY 651B- B1 A4 4245 LDA (ZA4),Y 651D- 4C 74 65 4250 JMP J6574 4255 ; 6520- 20 4A 75 4260 B6520 JSR S754A 6523- 20 DC 61 4265 JSR S61DC 6526- 00 4270 BRK 4275 ; 6527- 20 F7 65 4280 B6527 JSR S65F7 652A- A9 30 4285 LDA #$30 ;0 652C- 4C 5D 76 4290 JMP S765D 4295 ; 652F- A2 00 4300 S652F LDX #$00 ;^@ 6531- AD 6F 72 4305 LDA A726F 6534- D0 2E 4310 BNE B6564 4315 ; 6536- 20 6F 75 4320 B6536 JSR S756F 6539- C9 20 4325 CMP #$20 ; 653B- F0 F9 4330 BEQ B6536 4335 ; 653D- C9 2B 4340 CMP #$2B ;+ 653F- F0 E6 4345 BEQ B6527 4350 ; 6541- C9 03 4355 CMP #$03 ;^C 6543- F0 9B 4360 BEQ B64E0 4365 ; 6545- C9 3F 4370 CMP #$3F ;? 6547- F0 D7 4375 BEQ B6520 4380 ; 6549- C9 3C 4385 CMP #$3C ;< 654B- D0 0C 4390 BNE B6559 4395 ; 654D- 20 6F 75 4400 B654D JSR S756F 6550- C9 0D 4405 CMP #$0D ;^M 6552- F0 79 4410 BEQ B65CD 4415 ; 6554- 8D 75 72 4420 STA A7275 6557- 10 F4 4425 BPL B654D 4430 ; 6559- C9 2E 4435 B6559 CMP #$2E ;. 655B- F0 07 4440 BEQ B6564 4445 ; 655D- C9 01 4450 CMP #$01 ;^A 655F- D0 7D 4455 BNE B65DE 4460 ; 6561- EE 6F 72 4465 INC A726F 6564- A4 A9 4470 B6564 LDY *ZA9 6566- F0 69 4475 BEQ B65D1 4480 ; 6568- 20 EC 74 4485 JSR S74EC 656B- 20 75 61 4490 JSR S6175 656E- D0 94 4495 BNE B6504 4500 ; 6570- 8C 69 72 4505 STY A7269 6573- 98 4510 TYA 6574- 8D 6A 72 4515 J6574 STA A726A 6577- AD 6D 72 4520 LDA A726D 657A- 8D 56 72 4525 STA A7256 657D- 20 86 74 4530 JSR S7486 6580- 20 CE 74 4535 B6580 JSR S74CE 6583- 20 7E 66 4540 JSR S667E 6586- AD 6C 72 4545 LDA A726C 6589- 20 D5 74 4550 JSR S74D5 658C- 20 7E 66 4555 JSR S667E 658F- AD 6A 72 4560 LDA A726A 6592- E0 04 4565 CPX #$04 ;^D 6594- D0 EA 4570 BNE B6580 4575 ; 6596- 20 4A 75 4580 JSR S754A 6599- 9D 80 72 4585 B6599 STA A7280,X 659C- E8 4590 INX 659D- EC 7C 72 4595 S659D CPX A727C 65A0- 30 39 4600 BMI S65DB 4605 ; 65A2- 20 4D 75 4610 JSR S754D 65A5- EC 7A 72 4615 CPX A727A 65A8- 30 31 4620 BMI S65DB 4625 ; 65AA- 20 6F 75 4630 B65AA JSR S756F 65AD- C9 0D 4635 CMP #$0D ;^M 65AF- D0 05 4640 BNE B65B6 4645 ; 65B1- AE 7A 72 4650 LDX A727A 65B4- D0 41 4655 BNE S65F7 4660 ; 65B6- C9 18 4665 B65B6 CMP #$18 ;^X 65B8- F0 13 4670 BEQ B65CD 4675 ; 65BA- C9 5F 4680 CMP #$5F ;_ 65BC- F0 04 4685 BEQ B65C2 4690 ; 65BE- C9 08 4695 CMP #$08 ;^H 65C0- D0 08 4700 BNE B65CA 4705 ; 65C2- CA 4710 B65C2 DEX 65C3- EC 7A 72 4715 CPX A727A 65C6- 10 E2 4720 BPL B65AA 4725 ; 65C8- D0 D3 4730 BNE S659D 4735 ; 65CA- E8 4740 B65CA INX 65CB- D0 DD 4745 BNE B65AA 4750 ; 65CD- 20 8A 75 4755 B65CD JSR J758A 65D0- 00 4760 BRK 4765 ; 65D1- CE 6F 72 4770 B65D1 DEC A726F 65D4- F0 F7 4775 BEQ B65CD 4780 ; 65D6- E0 00 4785 B65D6 CPX #$00 ;^@ 65D8- F0 01 4790 BEQ S65DB 4795 ; 65DA- CA 4800 DEX 65DB- 20 6F 75 4805 S65DB JSR S756F 65DE- C9 01 4810 B65DE CMP #$01 ;^A 65E0- D0 05 4815 BNE B65E7 4820 ; 65E2- 8D 6F 72 4825 STA A726F 65E5- F0 EA 4830 BEQ B65D1 4835 ; 65E7- C9 18 4840 B65E7 CMP #$18 ;^X 65E9- F0 E2 4845 BEQ B65CD 4850 ; 65EB- C9 5F 4855 CMP #$5F ;_ 65ED- F0 E7 4860 BEQ B65D6 4865 ; 65EF- C9 08 4870 CMP #$08 ;^H 65F1- F0 E3 4875 BEQ B65D6 4880 ; 65F3- C9 0D 4885 CMP #$0D ;^M 65F5- D0 A2 4890 BNE B6599 4895 ; 65F7- 9D 80 72 4900 S65F7 STA A7280,X 65FA- 4C 8A 75 4905 JMP J758A 4910 ; 65FD- 4C FB 64 4915 B65FD JMP J64FB 4920 ; 6600- A2 03 4925 MOV LDX #$03 ;^C 6602- A9 30 4930 LDA #$30 ;0 6604- 9D 64 72 4935 B6604 STA A7264,X 6607- CA 4940 DEX 6608- 10 FA 4945 BPL B6604 4950 ; 660A- 20 87 66 4955 JSR S6687 660D- E0 0E 4960 CPX #$0E ;^N 660F- 10 EC 4965 BPL B65FD 4970 ; 6611- A0 03 4975 LDY #$03 ;^C 6613- CA 4980 B6613 DEX 6614- E0 05 4985 CPX #$05 ;^E 6616- 30 E5 4990 BMI B65FD 4995 ; 6618- BD 80 72 5000 LDA A7280,X 661B- C9 2F 5005 CMP #$2F ;/ 661D- F0 0E 5010 BEQ B662D 5015 ; 661F- C9 3A 5020 CMP #$3A ;: 6621- 20 BC 64 5025 JSR S64BC 6624- BD 80 72 5030 LDA A7280,X 6627- 99 64 72 5035 STA A7264,Y 662A- 88 5040 DEY 662B- 10 E6 5045 BPL B6613 5050 ; 662D- A9 0D 5055 B662D LDA #$0D ;^M 662F- 9D 80 72 5060 STA A7280,X 6632- 20 92 61 5065 JSR S6192 6635- AD 84 72 5070 LDA A7284 6638- 48 5075 PHA 6639- A9 0D 5080 LDA #$0D ;^M 663B- 8D 84 72 5085 STA A7284 663E- 20 A3 62 5090 JSR S62A3 6641- 68 5095 PLA 6642- 8D 84 72 5100 STA A7284 6645- A2 03 5105 LDX #$03 ;^C 6647- BD 64 72 5110 B6647 LDA A7264,X 664A- 9D 80 72 5115 STA A7280,X 664D- CA 5120 DEX 664E- 10 F7 5125 BPL B6647 5130 ; 6650- 4C A3 62 5135 JMP S62A3 5140 ; 6653- A2 04 5145 JMP LDX #$04 ;^D 6655- 20 91 6A 5150 JSR S6A91 6658- A9 08 5155 LDA #$08 ;^H 665A- 8D 64 72 5160 STA A7264 665D- 20 9B 74 5165 JSR S749B 6660- E0 05 5170 CPX #$05 ;^E 6662- 30 51 5175 BMI B66B5 5180 ; 6664- 20 90 7B 5185 JSR S7B90 6667- 68 5190 PLA 6668- 68 5195 PLA 6669- AD 83 72 5200 LDA A7283 666C- C9 2E 5205 CMP #$2E ;. 666E- F0 0B 5210 BEQ B667B 5215 ; 6670- 68 5220 PLA 6671- 68 5225 PLA 6672- A9 80 5230 LDA #$80 ;.^@ 6674- 48 5235 PHA 6675- A9 03 5240 LDA #$03 ;^C 6677- 48 5245 PHA 6678- 4C 17 85 5250 JMP NEWLOC 5255 ; 667B- 6C AE 00 5260 B667B JMP (ZAE) 5265 ; 667E- 9D 80 72 5270 S667E STA A7280,X 6681- E8 5275 INX 6682- 4C 4F 75 5280 JMP S754F 5285 ; 6685- A2 FF 5290 S6685 LDX #$FF ;. 6687- A9 0D 5295 S6687 LDA #$0D ;^M 6689- E8 5300 B6689 INX 668A- EC 7B 72 5305 CPX A727B 668D- F0 26 5310 BEQ B66B5 5315 ; 668F- DD 80 72 5320 CMP A7280,X 6692- D0 F5 5325 BNE B6689 5330 ; 6694- 8E 22 72 5335 STX A7222 6697- EE 22 72 5340 INC A7222 669A- 60 5345 RTS 5350 ; 669B- AC 85 72 5355 B669B LDY A7285 669E- C0 30 5360 CPY #$30 ;0 66A0- D0 02 5365 BNE B66A4 5370 ; 66A2- A9 0A 5375 LDA #$0A ;^J 66A4- 29 0F 5380 B66A4 AND #$0F ;^O 66A6- 8D 6D 72 5385 STA A726D 66A9- 60 5390 RTS 5395 ; 66AA- AD 84 72 5400 S66AA LDA A7284 66AD- C9 31 5405 CMP #$31 ;1 66AF- 30 04 5410 BMI B66B5 5415 ; 66B1- C9 3A 5420 CMP #$3A ;: 66B3- 30 E6 5425 BMI B669B 5430 ; 66B5- 4C FB 64 5435 B66B5 JMP J64FB 5440 ; 66B8- A0 00 5445 S66B8 LDY #$00 ;^@ 66BA- A5 AF 5450 LDA *ZAF 66BC- 91 A4 5455 STA (ZA4),Y 66BE- C8 5460 INY 66BF- A5 AE 5465 LDA *ZAE 66C1- 91 A4 5470 STA (ZA4),Y 66C3- C8 5475 B66C3 INY 66C4- B9 82 72 5480 LDA A7282,Y 66C7- 91 A4 5485 STA (ZA4),Y 66C9- C9 0D 5490 CMP #$0D ;^M 66CB- D0 F6 5495 BNE B66C3 5500 ; 66CD- 60 5505 RTS 5510 ; 66CE- AC 78 72 5515 S66CE LDY A7278 66D1- C8 5520 INY 66D2- D0 05 5525 BNE B66D9 5530 ; 66D4- B1 A4 5535 B66D4 LDA (ZA4),Y 66D6- 20 78 75 5540 JSR S7578 66D9- C8 5545 B66D9 INY 66DA- C0 02 5550 CPY #$02 ;^B 66DC- 30 F6 5555 BMI B66D4 5560 ; 66DE- 20 BE 73 5565 JSR S73BE 66E1- F0 06 5570 BEQ B66E9 5575 ; 66E3- 20 4F 75 5580 JSR S754F 66E6- 4C D9 66 5585 JMP B66D9 5590 ; 66E9- 60 5595 B66E9 RTS 5600 ; 66EA- A0 00 5605 S66EA LDY #$00 ;^@ 66EC- A2 00 5610 LDX #$00 ;^@ 66EE- B1 A4 5615 B66EE LDA (ZA4),Y 66F0- 20 CE 74 5620 JSR S74CE 66F3- 9D 80 72 5625 STA A7280,X 66F6- E8 5630 INX 66F7- AD 6C 72 5635 LDA A726C 66FA- 20 D5 74 5640 JSR S74D5 66FD- 9D 80 72 5645 STA A7280,X 6700- C8 5650 B6700 INY 6701- E8 5655 INX 6702- E0 04 5660 CPX #$04 ;^D 6704- 30 E8 5665 BMI B66EE 5670 ; 6706- B1 A4 5675 LDA (ZA4),Y 6708- 9D 80 72 5680 STA A7280,X 670B- C9 0D 5685 CMP #$0D ;^M 670D- D0 F1 5690 BNE B6700 5695 ; 670F- 60 5700 RTS 5705 ; 6710- A5 A8 5710 S6710 LDA *ZA8 6712- A4 A9 5715 LDY *ZA9 6714- 85 A4 5720 S6714 STA *ZA4 6716- 84 A5 5725 STY *ZA5 6718- 60 5730 RTS 5735 ; 6719- 20 EC 74 5740 RES JSR S74EC 671C- A9 00 5745 LDA #$00 ;^@ 671E- 8D 69 72 5750 STA A7269 6721- 8D 6A 72 5755 STA A726A 6724- 20 AA 66 5760 JSR S66AA 6727- 8D 56 72 5765 STA A7256 672A- 20 75 61 5770 B672A JSR S6175 672D- F0 13 5775 BEQ B6742 5780 ; 672F- 20 86 74 5785 JSR S7486 6732- AD 69 72 5790 LDA A7269 6735- 91 A4 5795 STA (ZA4),Y 6737- C8 5800 INY 6738- AD 6A 72 5805 LDA A726A 673B- 91 A4 5810 STA (ZA4),Y 673D- 20 FC 74 5815 JSR S74FC 6740- D0 E8 5820 BNE B672A 5825 ; 6742- 60 5830 B6742 RTS 5835 ; 6743- A9 01 5840 B6743 LDA #$01 ;^A 6745- 38 5845 SEC 6746- 60 5850 RTS 5855 ; 6747- 38 5860 S6747 SEC 6748- A0 01 5865 LDY #$01 ;^A 674A- B1 A4 5870 LDA (ZA4),Y 674C- E5 AE 5875 SBC *ZAE 674E- 88 5880 DEY 674F- B1 A4 5885 LDA (ZA4),Y 6751- E5 AF 5890 SBC *ZAF 6753- 90 EE 5895 BCC B6743 5900 ; 6755- D0 07 5905 BNE B675E 5910 ; 6757- C8 5915 INY 6758- B1 A4 5920 LDA (ZA4),Y 675A- C5 AE 5925 CMP *ZAE 675C- F0 01 5930 BEQ B675F 5935 ; 675E- 18 5940 B675E CLC 675F- 60 5945 B675F RTS 5950 ; 6760- A2 00 5955 S6760 LDX #$00 ;^@ 6762- A9 04 5960 LDA #$04 ;^D 6764- 8E 6C 72 5965 S6764 STX A726C 6767- 8D 23 72 5970 STA A7223 676A- CA 5975 DEX 676B- E8 5980 B676B INX 676C- BD 80 72 5985 LDA A7280,X 676F- C9 30 5990 CMP #$30 ;0 6771- 30 04 5995 BMI B6777 6000 ; 6773- C9 3A 6005 CMP #$3A ;: 6775- 30 F4 6010 BMI B676B 6015 ; 6777- EC 23 72 6020 B6777 CPX A7223 677A- 10 1D 6025 BPL B6799 6030 ; 677C- 8E 22 72 6035 STX A7222 677F- 38 6040 SEC 6780- AD 23 72 6045 LDA A7223 6783- ED 22 72 6050 SBC A7222 6786- 8D 23 72 6055 STA A7223 6789- A9 30 6060 LDA #$30 ;0 678B- AE 6C 72 6065 B678B LDX A726C 678E- 20 9D 6A 6070 JSR S6A9D 6791- 9D 80 72 6075 STA A7280,X 6794- CE 23 72 6080 DEC A7223 6797- D0 F2 6085 BNE B678B 6090 ; 6799- 4C 85 66 6095 B6799 JMP S6685 6100 ; 679C- AC 68 72 6105 S679C LDY A7268 679F- B1 A2 6110 LDA (ZA2),Y 67A1- A0 00 6115 LDY #$00 ;^@ 67A3- 91 A2 6120 STA (ZA2),Y 67A5- C9 1F 6125 CMP #$1F ;^_ 67A7- F0 2D 6130 BEQ B67D6 6135 ; 67A9- E6 A2 6140 INC *ZA2 67AB- D0 EF 6145 BNE S679C 6150 ; 67AD- E6 A3 6155 INC *ZA3 67AF- D0 EB 6160 BNE S679C 6165 ; 67B1- 20 69 6A 6170 S67B1 JSR S6A69 67B4- 20 10 67 6175 JSR S6710 67B7- AC 68 72 6180 LDY A7268 67BA- 20 BE 73 6185 JSR S73BE 67BD- A0 00 6190 LDY #$00 ;^@ 67BF- A9 1E 6195 LDA #$1E ;^^ 67C1- 91 A2 6200 STA (ZA2),Y 67C3- A0 00 6205 J67C3 LDY #$00 ;^@ 67C5- B1 A4 6210 LDA (ZA4),Y 67C7- AC 68 72 6215 LDY A7268 67CA- 91 A4 6220 STA (ZA4),Y 67CC- C9 1E 6225 CMP #$1E ;^^ 67CE- F0 06 6230 BEQ B67D6 6235 ; 67D0- 20 88 6A 6240 JSR S6A88 67D3- 4C C3 67 6245 JMP J67C3 6250 ; 67D6- 60 6255 B67D6 RTS 6260 ; 6265 ; COMMAND TABLE 6270 67D7- 4A 4F 42 6275 TABLE .BY 'JOB' 67DA- 5D 68 6280 .SI JOB 67DC- 4C 49 53 6285 .BY 'LIS' 67DF- 70 63 6290 .SI LIS 67E1- 50 52 49 6295 .BY 'PRI' 67E4- 6D 63 6300 .SI PRI 67E6- 4A 4D 50 6305 .BY 'JMP' 67E9- 53 66 6310 .SI JMP 67EB- 4E 4F 50 6315 .BY 'NOP' 67EE- C2 6A 6320 .SI NOP 67F0- 45 4E 54 6325 .BY 'ENT' 67F3- EE 76 6330 .SI ENT 67F5- 58 58 58 6335 .BY 'XXX' 67F8- 10 60 6340 .SI XXX 67FA- 58 58 58 6345 .BY 'XXX' 67FD- 10 60 6350 .SI XXX 67FF- 58 58 58 6355 .BY 'XXX' 6802- 10 60 6360 .SI XXX 6804- 58 58 58 6365 .BY 'XXX' 6807- 10 60 6370 .SI XXX 6809- 1F 6375 .BY $1F 6380 680A- 41 50 50 6385 .BY 'APP' 680D- 7D 61 6390 .SI APP 680F- 4C 4F 43 6395 .BY 'LOC' 6812- CC 61 6400 .SI LOC 6814- 52 45 53 6405 .BY 'RES' 6817- 19 67 6410 .SI RES 6819- 41 44 52 6415 .BY 'ADR' 681C- 9E 60 6420 .SI ADR 681E- 45 44 54 6425 .BY 'EDT' 6821- EA 60 6430 .SI EDT 6823- 45 4E 44 6435 .BY 'END' 6826- 9B 60 6440 .SI END 6828- 4D 4F 56 6445 .BY 'MOV' 682B- 00 66 6450 .SI MOV 682D- 53 43 52 6455 .BY 'SCR' 6830- 59 69 6460 .SI SCR 6832- 53 45 54 6465 .BY 'SET' 6835- 96 69 6470 .SI SET 6837- 4F 55 54 6475 OUT1 .BY 'OUT' 683A- 55 6B 6480 .SI OUT 683C- 50 41 47 6485 .BY 'PAG' 683F- 83 69 6490 .SI PAG 6841- 4C 49 4E 6495 .BY 'LIN' 6844- 10 6B 6500 .SI LIN 6846- 46 49 4C 6505 .BY 'FIL' 6849- 5F 60 6510 .SI FIL 684B- 52 55 4E 6515 .BY 'RUN' 684E- 71 79 6520 .SI RUN 6850- 4C 4F 44 6525 .BY 'LOD' 6853- ED 78 6530 .SI LOD 6535 6855- 1F 6540 .BY $1F ; END OF FILE 6545 6856- A9 10 6550 S6856 LDA #L,XXX ;^P 6858- A0 60 6555 LDY #H,XXX ;` 685A- 4C F0 7A 6560 B685A JMP J7AF0 6565 ; 685D- 20 E3 76 6570 JOB JSR S76E3 6860- AD 83 72 6575 LDA A7283 6863- C9 23 6580 CMP #$23 ;# 6865- F0 1D 6585 BEQ B6884 6590 ; 6867- AD 84 72 6595 LDA A7284 686A- C9 30 6600 CMP #$30 ;0 686C- 30 0D 6605 BMI B687B 6610 ; 686E- C9 3A 6615 CMP #$3A ;: 6870- 10 09 6620 BPL B687B 6625 ; 6872- 20 83 64 6630 JSR S6483 6875- A5 AE 6635 LDA *ZAE 6877- A4 AF 6640 LDY *ZAF 6879- D0 1F 6645 BNE B689A 6650 ; 687B- 20 04 79 6655 B687B JSR S7904 687E- A5 A6 6660 LDA *ZA6 6880- A4 A7 6665 LDY *ZA7 6882- D0 16 6670 BNE B689A 6675 ; 6884- A2 04 6680 B6884 LDX #$04 ;^D 6886- BD 80 72 6685 B6886 LDA A7280,X 6889- 9D 00 73 6690 STA A7300,X 688C- E8 6695 INX 688D- C9 0D 6700 CMP #$0D ;^M 688F- D0 F5 6705 BNE B6886 6710 ; 6891- A9 1F 6715 LDA #$1F ;^_ 6893- 9D 00 73 6720 STA A7300,X 6896- A9 01 6725 LDA #$01 ;^A 6898- A0 73 6730 LDY #$73 ;s 689A- 18 6735 B689A CLC 689B- 69 03 6740 ADC #$03 ;^C 689D- 90 01 6745 BCC B68A0 6750 ; 689F- C8 6755 INY 68A0- 85 A0 6760 B68A0 STA *ZA0 68A2- 84 A1 6765 STY *ZA1 68A4- 20 24 77 6770 JSR S7724 68A7- A9 EC 6775 LDA #$EC ;.l 68A9- A0 75 6780 LDY #$75 ;u 68AB- 20 5A 68 6785 JSR B685A 68AE- 4C CD 65 6790 JMP B65CD 6795 ; 68B1- AD 6C 72 6800 B68B1 LDA A726C 68B4- 30 0A 6805 BMI B68C0 6810 ; 68B6- AD 83 72 6815 LDA A7283 68B9- C9 20 6820 CMP #$20 ; 68BB- F0 03 6825 BEQ B68C0 6830 ; 68BD- 4C FB 64 6835 JMP J64FB 6840 ; 68C0- 4C A7 79 6845 B68C0 JMP J79A7 6850 ; 68C3- A5 A9 6855 B68C3 LDA *ZA9 68C5- D0 EA 6860 BNE B68B1 6865 ; 68C7- A9 37 6870 LDA #L,OUT1 68C9- A0 68 6875 LDY #H,OUT1 68CB- 20 6D 6A 6880 JSR S6A6D 68CE- A0 FF 6885 B68CE LDY #$FF ;. 68D0- C8 6890 B68D0 INY 68D1- C0 03 6895 CPY #$03 ;^C 68D3- F0 DC 6900 BEQ B68B1 6905 ; 68D5- B1 A2 6910 LDA (ZA2),Y 68D7- C9 1F 6915 CMP #$1F ;^_ 68D9- D0 03 6920 BNE B68DE 6925 ; 68DB- 4C DF 73 6930 JMP J73DF 6935 ; 68DE- D1 A4 6940 B68DE CMP (ZA4),Y 68E0- F0 EE 6945 BEQ B68D0 6950 ; 68E2- 18 6955 CLC 68E3- A5 A2 6960 LDA *ZA2 68E5- 69 05 6965 ADC #$05 ;^E 68E7- 85 A2 6970 STA *ZA2 68E9- 90 E3 6975 BCC B68CE 6980 ; 68EB- E6 A3 6985 INC *ZA3 68ED- D0 DF 6990 BNE B68CE 6995 ; 68EF- EE 6C 72 7000 B68EF INC A726C 68F2- D0 05 7005 BNE B68F9 7010 ; 68F4- 20 F5 74 7015 JSR S74F5 68F7- D0 1B 7020 BNE B6914 7025 ; 68F9- 4C B3 79 7030 B68F9 JMP J79B3 7035 ; 68FC- A2 FF 7040 S68FC LDX #$FF ;. 68FE- 8E 6C 72 7045 STX A726C 6901- 8E 71 72 7050 STX A7271 6904- 8E 70 72 7055 STX A7270 6907- 8E 78 72 7060 STX A7278 690A- 8E 5B 72 7065 STX A725B 690D- A9 D7 7070 LDA #L,TABLE 690F- A0 67 7075 LDY #H,TABLE 6911- 20 14 67 7080 JSR S6714 6914- A0 FF 7085 B6914 LDY #$FF ;. 6916- A2 FF 7090 LDX #$FF ;. 6918- E8 7095 B6918 INX 6919- C8 7100 INY 691A- E0 03 7105 CPX #$03 ;^C 691C- F0 A5 7110 BEQ B68C3 7115 ; 691E- 20 77 61 7120 JSR S6177 6921- F0 CC 7125 BEQ B68EF 7130 ; 6923- DD 80 72 7135 CMP A7280,X 6926- F0 F0 7140 BEQ B6918 7145 ; 6928- 09 20 7150 ORA #$20 ; 692A- DD 80 72 7155 CMP A7280,X 692D- F0 E9 7160 BEQ B6918 7165 ; 692F- 20 97 78 7170 JSR S7897 6932- 4C 14 69 7175 JMP B6914 7180 ; 6935- 20 EC 74 7185 S6935 JSR S74EC 6938- A2 04 7190 LDX #$04 ;^D 693A- A9 08 7195 LDA #$08 ;^H 693C- 20 64 67 7200 JSR S6764 693F- A2 04 7205 LDX #$04 ;^D 6941- 20 B2 74 7210 B6941 JSR S74B2 6944- E0 08 7215 CPX #$08 ;^H 6946- 30 F9 7220 BMI B6941 7225 ; 6948- 20 75 61 7230 B6948 JSR S6175 694B- F0 45 7235 BEQ B6992 7240 ; 694D- 20 47 67 7245 JSR S6747 6950- F0 40 7250 BEQ B6992 7255 ; 6952- 90 3E 7260 BCC B6992 7265 ; 6954- 20 FC 74 7270 JSR S74FC 6957- D0 EF 7275 BNE B6948 7280 ; 6959- A2 00 7285 SCR LDX #$00 ;^@ 695B- EE 70 72 7290 INC A7270 695E- BD 84 72 7295 B695E LDA A7284,X 6961- 9D 25 72 7300 STA A7225,X 6964- E8 7305 INX 6965- C9 0D 7310 CMP #$0D ;^M 6967- D0 F5 7315 BNE B695E 7320 ; 6969- 20 CC 61 7325 B6969 JSR LOC 696C- A9 0D 7330 LDA #$0D ;^M 696E- 8D 84 72 7335 STA A7284 6971- 20 A3 62 7340 JSR S62A3 6974- A2 00 7345 LDX #$00 ;^@ 6976- BD 25 72 7350 B6976 LDA A7225,X 6979- 9D 84 72 7355 STA A7284,X 697C- E8 7360 INX 697D- C9 0D 7365 CMP #$0D ;^M 697F- D0 F5 7370 BNE B6976 7375 ; 6981- F0 E6 7380 BEQ B6969 7385 ; 6983- A9 0D 7390 PAG LDA #$0D ;^M 6985- 20 85 64 7395 JSR S6485 6988- A5 AE 7400 LDA *ZAE 698A- F0 06 7405 BEQ B6992 7410 ; 698C- 20 E1 74 7415 JSR S74E1 698F- 8E 79 72 7420 STX A7279 6992- 60 7425 B6992 RTS 7430 ; 6993- 4C FB 64 7435 B6993 JMP J64FB 7440 ; 6996- A2 04 7445 SET LDX #$04 ;^D 6998- A0 35 7450 LDY #$35 ;5 699A- EE 70 72 7455 INC A7270 699D- 84 FF 7460 B699D STY *ZFF 699F- BD 80 72 7465 B699F LDA A7280,X 69A2- 99 20 72 7470 STA A7220,Y 69A5- E8 7475 INX 69A6- 88 7480 DEY 69A7- 30 EA 7485 BMI B6993 7490 ; 69A9- C9 0A 7495 CMP #$0A ;^J 69AB- F0 F0 7500 BEQ B699D 7505 ; 69AD- C9 0D 7510 CMP #$0D ;^M 69AF- D0 EE 7515 BNE B699F 7520 ; 69B1- 20 EC 74 7525 JSR S74EC 69B4- A0 35 7530 B69B4 LDY #$35 ;5 69B6- A2 04 7535 LDX #$04 ;^D 69B8- A9 20 7540 LDA #$20 ; 69BA- 8D 83 72 7545 STA A7283 69BD- B9 20 72 7550 B69BD LDA A7220,Y 69C0- 9D 80 72 7555 STA A7280,X 69C3- E8 7560 INX 69C4- 88 7565 DEY 69C5- C4 FF 7570 CPY *ZFF 69C7- D0 F4 7575 BNE B69BD 7580 ; 69C9- CA 7585 DEX 69CA- A9 0D 7590 LDA #$0D ;^M 69CC- 9D 80 72 7595 STA A7280,X 69CF- 20 D2 61 7600 JSR S61D2 69D2- A2 03 7605 LDX #$03 ;^C 69D4- 8E 6B 72 7610 STX A726B 69D7- EE 6B 72 7615 B69D7 INC A726B 69DA- A0 35 7620 B69DA LDY #$35 ;5 69DC- B9 20 72 7625 B69DC LDA A7220,Y 69DF- E8 7630 INX 69E0- EC 7B 72 7635 CPX A727B 69E3- F0 0C 7640 BEQ B69F1 7645 ; 69E5- DD 80 72 7650 CMP A7280,X 69E8- F0 23 7655 BEQ B6A0D 7660 ; 69EA- A9 0D 7665 LDA #$0D ;^M 69EC- DD 80 72 7670 CMP A7280,X 69EF- D0 EB 7675 BNE B69DC 7680 ; 69F1- A5 A4 7685 B69F1 LDA *ZA4 69F3- 48 7690 PHA 69F4- A5 A5 7695 LDA *ZA5 69F6- 48 7700 PHA 69F7- 20 02 62 7705 JSR S6202 69FA- 68 7710 PLA 69FB- 85 A5 7715 STA *ZA5 69FD- 68 7720 PLA 69FE- 85 A4 7725 STA *ZA4 6A00- 20 FC 74 7730 J6A00 JSR S74FC 6A03- D0 AF 7735 BNE B69B4 7740 ; 6A05- 8E 6B 72 7745 B6A05 STX A726B 6A08- AE 24 72 7750 LDX A7224 6A0B- D0 22 7755 BNE B6A2F 7760 ; 6A0D- 8E 24 72 7765 B6A0D STX A7224 6A10- 88 7770 B6A10 DEY 6A11- B9 20 72 7775 LDA A7220,Y 6A14- C9 0A 7780 CMP #$0A ;^J 6A16- F0 ED 7785 BEQ B6A05 7790 ; 6A18- E8 7795 INX 6A19- DD 80 72 7800 CMP A7280,X 6A1C- F0 F2 7805 BEQ B6A10 7810 ; 6A1E- AE 6B 72 7815 LDX A726B 6A21- D0 B4 7820 BNE B69D7 7825 ; 6A23- 8E 6B 72 7830 B6A23 STX A726B 6A26- CA 7835 DEX 6A27- D0 B1 7840 BNE B69DA 7845 ; 6A29- 20 B1 6A 7850 B6A29 JSR S6AB1 6A2C- CE 6B 72 7855 DEC A726B 6A2F- EC 6B 72 7860 B6A2F CPX A726B 6A32- D0 F5 7865 BNE B6A29 7870 ; 6A34- 20 B1 6A 7875 JSR S6AB1 6A37- 20 85 66 7880 JSR S6685 6A3A- 8E 6B 72 7885 STX A726B 6A3D- AE 24 72 7890 LDX A7224 6A40- A4 FF 7895 LDY *ZFF 6A42- B9 20 72 7900 B6A42 LDA A7220,Y 6A45- C9 0D 7905 CMP #$0D ;^M 6A47- F0 DA 7910 BEQ B6A23 7915 ; 6A49- 20 9D 6A 7920 JSR S6A9D 6A4C- 9D 80 72 7925 STA A7280,X 6A4F- E8 7930 INX 6A50- 88 7935 DEY 6A51- EE 6B 72 7940 INC A726B 6A54- AD 6B 72 7945 LDA A726B 6A57- CD 7B 72 7950 CMP A727B 6A5A- 30 E6 7955 BMI B6A42 7960 ; 6A5C- 20 27 64 7965 JSR S6427 6A5F- 4C 00 6A 7970 JMP J6A00 7975 ; 6A62- A9 00 7980 S6A62 LDA #$00 ;^@ 6A64- 85 AE 7985 STA *ZAE 6A66- 85 AF 7990 STA *ZAF 6A68- 60 7995 RTS 8000 ; 6A69- A5 A4 8005 S6A69 LDA *ZA4 6A6B- A4 A5 8010 LDY *ZA5 6A6D- 85 A2 8015 S6A6D STA *ZA2 6A6F- 84 A3 8020 STY *ZA3 6A71- 60 8025 RTS 8030 ; 6A72- A5 A5 8035 S6A72 LDA *ZA5 6A74- A4 A4 8040 LDY *ZA4 6A76- 20 78 75 8045 S6A76 JSR S7578 6A79- 98 8050 TYA 6A7A- 4C 78 75 8055 JMP S7578 8060 ; 6A7D- 20 88 6A 8065 B6A7D JSR S6A88 6A80- 20 BC 73 8070 S6A80 JSR S73BC 6A83- D0 F8 8075 BNE B6A7D 8080 ; 6A85- 4C F5 74 8085 JMP S74F5 8090 ; 6A88- A5 A4 8095 S6A88 LDA *ZA4 6A8A- D0 02 8100 BNE B6A8E 8105 ; 6A8C- C6 A5 8110 DEC *ZA5 6A8E- C6 A4 8115 B6A8E DEC *ZA4 6A90- 60 8120 RTS 8125 ; 6A91- A9 0D 8130 S6A91 LDA #$0D ;^M 6A93- 2C 8135 .BY $2C 6A94- A9 2C 8140 S6A94 LDA #$2C 6A96- 2C 8145 .BY $2C 6A97- A9 2F 8150 S6A97 LDA #$2F 6A99- 8D 56 72 8155 STA A7256 6A9C- 60 8160 B6A9C RTS 8165 ; 6A9D- 20 11 75 8170 S6A9D JSR S7511 6AA0- 20 85 66 8175 JSR S6685 6AA3- 9D 81 72 8180 B6AA3 STA A7281,X 6AA6- CA 8185 DEX 6AA7- BD 80 72 8190 LDA A7280,X 6AAA- EC 20 72 8195 CPX A7220 6AAD- 10 F4 8200 BPL B6AA3 8205 ; 6AAF- 30 0E 8210 BMI B6ABF 8215 ; 6AB1- 20 11 75 8220 S6AB1 JSR S7511 6AB4- BD 81 72 8225 B6AB4 LDA A7281,X 6AB7- 9D 80 72 8230 STA A7280,X 6ABA- E8 8235 INX 6ABB- C9 0D 8240 CMP #$0D ;^M 6ABD- D0 F5 8245 BNE B6AB4 8250 ; 6ABF- 4C 55 75 8255 B6ABF JMP J7555 8260 ; 6AC2- 20 EC 74 8265 NOP JSR S74EC 6AC5- 20 75 61 8270 B6AC5 JSR S6175 6AC8- F0 D2 8275 BEQ B6A9C 8280 ; 6ACA- C8 8285 INY 6ACB- C8 8290 B6ACB INY 6ACC- 20 BE 73 8295 JSR S73BE 6ACF- D0 0D 8300 BNE B6ADE 8305 ; 6AD1- 18 8310 CLC 6AD2- C8 8315 INY 6AD3- 98 8320 TYA 6AD4- 65 A4 8325 ADC *ZA4 6AD6- 85 A4 8330 STA *ZA4 6AD8- 90 EB 8335 BCC B6AC5 8340 ; 6ADA- E6 A5 8345 INC *ZA5 6ADC- B0 E7 8350 BCS B6AC5 8355 ; 6ADE- C9 20 8360 B6ADE CMP #$20 ; 6AE0- 30 04 8365 BMI B6AE6 8370 ; 6AE2- C9 7F 8375 CMP #$7F ; 6AE4- 30 E5 8380 BMI B6ACB 8385 ; 6AE6- 8C 56 72 8390 B6AE6 STY A7256 6AE9- 20 27 64 8395 JSR S6427 6AEC- 20 72 6A 8400 JSR S6A72 6AEF- AC 56 72 8405 LDY A7256 6AF2- 88 8410 DEY 6AF3- 88 8415 DEY 6AF4- 88 8420 DEY 6AF5- 30 06 8425 B6AF5 BMI B6AFD 8430 ; 6AF7- 20 4A 75 8435 JSR S754A 6AFA- 88 8440 DEY 6AFB- D0 F8 8445 BNE B6AF5 8450 ; 6AFD- A9 5E 8455 B6AFD LDA #$5E ;^ 6AFF- 20 4F 75 8460 JSR S754F 6B02- AC 56 72 8465 LDY A7256 6B05- B1 A4 8470 LDA (ZA4),Y 6B07- 20 78 75 8475 JSR S7578 6B0A- 20 8A 75 8480 JSR J758A 6B0D- 4C CB 6A 8485 JMP B6ACB 8490 ; 6B10- A9 0D 8495 LIN LDA #$0D ;^M 6B12- CD 84 72 8500 CMP A7284 6B15- F0 3D 8505 BEQ B6B54 8510 ; 6B17- 8D 56 72 8515 STA A7256 6B1A- A2 08 8520 LDX #$08 ;^H 6B1C- 8E 64 72 8525 STX A7264 6B1F- A2 04 8530 LDX #$04 ;^D 6B21- 20 9B 74 8535 JSR S749B 6B24- A2 00 8540 LDX #$00 ;^@ 6B26- A0 FF 8545 LDY #$FF ;. 6B28- A5 AF 8550 LDA *ZAF 6B2A- F0 03 8555 BEQ B6B2F 8560 ; 6B2C- C8 8565 INY 6B2D- A2 64 8570 LDX #$64 ;d 6B2F- A5 AE 8575 B6B2F LDA *ZAE 6B31- D0 03 8580 BNE B6B36 8585 ; 6B33- C8 8590 INY 6B34- D0 1E 8595 BNE B6B54 8600 ; 6B36- 20 E3 74 8605 B6B36 JSR S74E3 6B39- 8E 7B 72 8610 STX A727B 6B3C- CA 8615 DEX 6B3D- 8E 7A 72 8620 STX A727A 6B40- 10 03 8625 BPL B6B45 8630 ; 6B42- 4C FB 64 8635 JMP J64FB 8640 ; 6B45- 38 8645 B6B45 SEC 6B46- 8A 8650 TXA 6B47- E9 04 8655 SBC #$04 ;^D 6B49- 8D 7C 72 8660 STA A727C 6B4C- C9 04 8665 CMP #$04 ;^D 6B4E- 10 04 8670 BPL B6B54 8675 ; 6B50- A9 72 8680 LDA #$72 ;r 6B52- D0 E2 8685 BNE B6B36 8690 ; 6B54- 60 8695 B6B54 RTS 8700 ; 6B55- A2 FF 8705 OUT LDX #$FF ;. 6B57- E8 8710 B6B57 INX 6B58- BD 84 72 8715 LDA A7284,X 6B5B- C9 0D 8720 CMP #$0D ;^M 6B5D- F0 05 8725 BEQ B6B64 8730 ; 6B5F- 9D 0A 72 8735 STA A720A,X 6B62- D0 F3 8740 BNE B6B57 8745 ; 6B64- 60 8750 B6B64 RTS 8755 ; 6B65- A2 0A 8760 S6B65 LDX #$0A ;^J 6B67- BD 83 72 8765 B6B67 LDA A7283,X 6B6A- 9D 28 72 8770 STA A7228,X 6B6D- CA 8775 DEX 6B6E- 10 F7 8780 BPL B6B67 8785 ; 6B70- AD 76 A6 8790 LDA UBRKVC 6B73- 8D 0D 72 8795 STA A720D 6B76- AD 77 A6 8800 LDA UBRKVC+1 6B79- 8D 0E 72 8805 STA A720E 6B7C- A9 A8 8810 LDA #L,TED_BRK 6B7E- 8D 76 A6 8815 STA UBRKVC 6B81- A9 6B 8820 LDA #H,TED_BRK 6B83- 8D 77 A6 8825 STA UBRKVC+1 6B86- AD 72 72 8830 LDA A7272 6B89- 8D 0F 72 8835 STA A720F 6B8C- E8 8840 B6B8C INX 6B8D- BD 0A 72 8845 LDA A720A,X 6B90- 9D 85 72 8850 STA A7285,X 6B93- E0 02 8855 CPX #$02 ;^B 6B95- D0 F5 8860 BNE B6B8C 8865 ; 6B97- A9 0D 8870 LDA #$0D ;^M 6B99- 9D 86 72 8875 STA A7286,X 6B9C- 20 31 76 8880 JSR S7631 6B9F- 20 99 79 8885 JSR S7999 6BA2- 20 34 76 8890 JSR S7634 6BA5- 4C 04 7B 8895 JMP J7B04 8900 ; 6BA8- AD 0F 72 8905 TED_BRK LDA A720F 6BAB- 8D 72 72 8910 STA A7272 6BAE- AD 0D 72 8915 LDA A720D 6BB1- 8D 76 A6 8920 STA UBRKVC 6BB4- AD 0E 72 8925 LDA A720E 6BB7- 8D 77 A6 8930 STA UBRKVC+1 6BBA- 00 8935 BRK 8940 8945 .EN 0000,6BBB,6BBB >