0005 ; FODS DISASSEMBLED 0010 ; THIS SOURCE IS FOR A DUAL DRIVE SYSTEM 0015 ; DRIVE 1 IS CONSIDERED THE SYSTEM DRIVE. 0020 ; DRIVE 2 IS CONSIDERED THE APPLICATIONS DRIVE. 0025 ; ALL SAVES OR LOADS DEFAULT TO DRIVE 2 0030 ; UNLESS TOLD OTHERWISE. 0035 0040 ; FODS ZERO PAGE LOCATIONS 0045 0050 ZA0 .DE $A0 0055 ZA1 .DE $A1 0060 ZA2 .DE $A2 0065 ZA3 .DE $A3 0070 ZA4 .DE $A4 0075 ZA5 .DE $A5 0080 ZA6 .DE $A6 0085 ZA7 .DE $A7 0090 ZA8 .DE $A8 0095 ZA9 .DE $A9 0100 ZAE .DE $AE 0105 ZAF .DE $AF 0110 ZFE .DE $FE 0115 ZFF .DE $FF 0120 0125 ; FODS BUFFER LOCATIONS 0130 0135 AD000 .DE $7000 0140 AD00A .DE $700A 0145 AD00B .DE $700B 0150 AD00C .DE $700C 0155 AD210 .DE $7210 0160 AD211 .DE $7211 0165 AD212 .DE $7212 0170 AD213 .DE $7213 0175 AD214 .DE $7214 0180 AD215 .DE $7215 0185 AD216 .DE $7216 0190 AD217 .DE $7217 0195 AD218 .DE $7218 0200 AD219 .DE $7219 0205 AD21A .DE $721A 0210 AD21B .DE $721B 0215 AD21C .DE $721C 0220 AD21D .DE $721D 0225 AD220 .DE $7220 0230 AD221 .DE $7221 0235 AD223 .DE $7223 0240 AD224 .DE $7224 0245 AD228 .DE $7228 0250 AD256 .DE $7256 0255 AD257 .DE $7257 0260 AD258 .DE $7258 0265 AD259 .DE $7259 0270 AD25A .DE $725A 0275 AD25F .DE $725F 0280 AD260 .DE $7260 0285 AD261 .DE $7261 0290 AD262 .DE $7262 0295 AD264 .DE $7264 0300 AD265 .DE $7265 0305 AD269 .DE $7269 0310 AD26A .DE $726A 0315 AD26C .DE $726C 0320 AD26D .DE $726D 0325 AD26E .DE $726E 0330 AD26F .DE $726F 0335 AD270 .DE $7270 0340 AD271 .DE $7271 0345 AD272 .DE $7272 0350 AD273 .DE $7273 0355 AD274 .DE $7274 0360 AD276 .DE $7276 0365 AD277 .DE $7277 0370 AD278 .DE $7278 0375 AD279 .DE $7279 0380 AD27A .DE $727A 0385 AD27B .DE $727B 0390 AD27C .DE $727C 0395 AD27D .DE $727D 0400 AD27E .DE $727E 0405 AD27F .DE $727F 0410 TXBUF .DE $7280 ; FODS TEXT BUFFER 0415 AD283 .DE $7283 0420 AD284 .DE $7284 0425 AD285 .DE $7285 0430 AD286 .DE $7286 0435 AD28A .DE $728A 0440 0445 ; MONITOR LOCATIONS 0450 0455 USRENT .DE $8035 ; USER ENTRY 0460 CRLF .DE $834D ; SAVE "A" OUTPUT CARRIAGE RETURN - LINE FEED 0465 INSTAT .DE $8386 ; SEE IF A KEY IS DOWN 0470 INCHR .DE $8A1B ; INPUT A CHARACTER 0475 INRT2 .DE $8A3C ; LOOK FOR CARRIAGE RETURN 0480 OUTCHR .DE $8A47 ; LOOK AT CTRL O FLAG 0485 INTCHR .DE $8A58 ; IN TERMINAL CHARACTER 0490 TOUT .DE $8AA0 ; TERMINAL CHARACTER OUT 0495 ACCESS .DE $8B86 ; UN-WRITE PROTECT SYSTEM RAM 0500 0505 ; FODS CONTROLLER LOCATIONS 0510 0515 DSK.REGB .DE $A880 ; INPUT/OUTPUT REGISTER B 0520 DSK.REGA .DE $A881 ; INPUT/OUTPUT REGISTER A (CONTROLS HANDSHAKE) 0525 DSK.DDRB .DE $A882 ; DATA DIRECTION REGISTER B 0530 DSK.DDRA .DE $A883 ; DATA DIRECTION REGISTER A 0535 DSK.T1HIGH .DE $A885 ; TIMER 1 HIGH ORDER COUNTER 0540 DSK.T1LOW .DE $A886 ; TIMER 1 LOW ORDER LATCHES 0545 DSK.T2LOW .DE $A888 ; TIMER 2 LOW ORDER COUNTER/LATCHES 0550 DSK.T2HIGH .DE $A889 ; TIMER 2 HIGH ORDER COUNTER 0555 DSK.ACR .DE $A88B ; AUXILIARY CONTROL REGISTER 0560 DSK.PCR .DE $A88C ; PERIPHERAL CONTROL REGISTER 0565 DSK.IFR .DE $A88D ; INTERRUPT FLAG REGISTER 0570 DSK.IER .DE $A88E ; INTERRUPT ENABLE REGISTER 0575 0580 ; SYSTEM RAM LOCATIONS 0585 0590 TECHO .DE $A653 ; ECHO/NO ECHO BIT 7 - OUTPUT/NO OUTPUT BIT 6 0595 INVEC .DE $A660 ; INPUT VECTOR 0600 OUTVEC .DE $A663 ; OUTPUT VECTOR 0605 UBRKVC .DE $A676 ; USER BREAK VECTOR 0610 0615 ; MISCELLANEOUS LOCATIONS 0620 0625 TED.COLD .DE $A000 ; COLD START OF "TED" EDITOR 0630 TED.USE .DE $A02A ; 0635 0640 0645 0650 ; START OF ASSEMBLY 0655 0660 .BA $7300 0665 .OS 0670 7300- A9 00 0675 LDA #$00 ;^@ 7302- 85 A9 0680 STA *ZA9 7304- 4C 80 73 0685 JMP FODS.WARM 0690 7307- 58 0695 VEC.1 CLI 7308- 4C F5 73 0700 JMP SET.2 0705 730B- 58 0710 FDS.BRVEC CLI 730C- 4C AD 7A 0715 JMP JDAAD 0720 730F- AA 0725 TAX 7310- AA 0730 TAX 7311- AA 0735 TAX 7312- AA 0740 TAX 7313- AA 0745 TAX 7314- AA 0750 TAX 7315- AA 0755 TAX 7316- AA 0760 TAX 7317- AA 0765 TAX 7318- AA 0770 TAX 7319- AA 0775 TAX 731A- AA 0780 TAX 731B- AA 0785 TAX 731C- AA 0790 TAX 731D- AA 0795 TAX 731E- AA 0800 TAX 731F- AA 0805 TAX 7320- AA 0810 TAX 7321- AA 0815 TAX 7322- AA 0820 TAX 7323- AA 0825 TAX 7324- AA 0830 TAX 7325- AA 0835 TAX 7326- AA 0840 TAX 7327- AA 0845 TAX 7328- AA 0850 TAX 7329- AA 0855 TAX 732A- AA 0860 TAX 732B- AA 0865 TAX 732C- AA 0870 TAX 732D- AA 0875 TAX 732E- AA 0880 TAX 732F- AA 0885 TAX 7330- AA 0890 TAX 7331- AA 0895 TAX 7332- AA 0900 TAX 7333- AA 0905 TAX 7334- AA 0910 TAX 7335- AA 0915 TAX 7336- AA 0920 TAX 7337- AA 0925 TAX 7338- AA 0930 TAX 7339- AA 0935 TAX 733A- AA 0940 TAX 733B- AA 0945 TAX 733C- AA 0950 TAX 733D- AA 0955 TAX 733E- AA 0960 TAX 733F- AA 0965 TAX 7340- AA 0970 TAX 7341- AA 0975 TAX 7342- AA 0980 TAX 7343- AA 0985 TAX 7344- AA 0990 TAX 7345- AA 0995 TAX 7346- AA 1000 TAX 7347- AA 1005 TAX 7348- AA 1010 TAX 7349- AA 1015 TAX 734A- AA 1020 TAX 734B- AA 1025 TAX 734C- AA 1030 TAX 734D- AA 1035 TAX 734E- AA 1040 TAX 734F- AA 1045 TAX 7350- AA 1050 TAX 7351- AA 1055 TAX 7352- AA 1060 TAX 7353- AA 1065 TAX 7354- AA 1070 TAX 7355- AA 1075 TAX 7356- AA 1080 TAX 7357- AA 1085 TAX 7358- AA 1090 TAX 7359- AA 1095 TAX 735A- AA 1100 TAX 735B- AA 1105 TAX 735C- AA 1110 TAX 735D- AA 1115 TAX 735E- AA 1120 TAX 735F- AA 1125 TAX 7360- AA 1130 TAX 7361- AA 1135 TAX 7362- AA 1140 TAX 7363- AA 1145 TAX 7364- AA 1150 TAX 7365- AA 1155 TAX 7366- AA 1160 TAX 7367- AA 1165 TAX 7368- AA 1170 TAX 7369- AA 1175 TAX 736A- AA 1180 TAX 736B- AA 1185 TAX 736C- AA 1190 TAX 736D- AA 1195 TAX 736E- AA 1200 TAX 736F- AA 1205 TAX 7370- AA 1210 TAX 7371- AA 1215 TAX 7372- AA 1220 TAX 7373- AA 1225 TAX 7374- AA 1230 TAX 7375- AA 1235 TAX 7376- AA 1240 TAX 7377- AA 1245 TAX 7378- AA 1250 TAX 7379- AA 1255 TAX 737A- AA 1260 TAX 737B- AA 1265 TAX 737C- AA 1270 TAX 737D- AA 1275 TAX 737E- AA 1280 TAX 737F- AA 1285 TAX 7380- D8 1290 FODS.WARM CLD 7381- A2 FF 1295 LDX #$FF 7383- 9A 1300 TXS 7384- E8 1305 INX 7385- 8E 6F 72 1310 STX AD26F 7388- 8E 72 72 1315 STX AD272 738B- A2 05 1320 LDX #$05 ;^E 738D- 8E 6D 72 1325 STX AD26D 7390- A2 16 1330 LDX #$16 ;^V 7392- 8E 79 72 1335 STX AD279 7395- A2 23 1340 LDX #'# ; PROMPT 7397- 20 8A 75 1345 JSR SD58A 739A- 8E 76 72 1350 STX AD276 739D- 20 BD 74 1355 JSR SD4BD 73A0- A2 43 1360 LDX #$43 ;C 73A2- 8E 7C 72 1365 STX AD27C 73A5- A0 47 1370 LDY #$47 ;G 73A7- 8C 7A 72 1375 STY AD27A 73AA- C8 1380 INY 73AB- 8C 7B 72 1385 STY AD27B 73AE- A9 10 1390 LDA #$10 ;^P 73B0- 20 5D 76 1395 JSR DSKRW 73B3- D8 1400 JD3B3 CLD 73B4- A9 07 1405 LDA #L,VEC.1 73B6- A0 73 1410 LDY #H,VEC.1 73B8- 20 F0 7A 1415 JSR SDAF0 73BB- 00 1420 BRK 1425 ; 73BC- A0 00 1430 SD3BC LDY #$00 ;^@ 73BE- B1 A4 1435 SD3BE LDA (ZA4),Y 73C0- 48 1440 PHA 73C1- A5 A5 1445 LDA *ZA5 73C3- C9 A0 1450 CMP #$A0 ;. 73C5- B0 0A 1455 BCS BD3D1 1460 ; 73C7- A9 99 1465 LDA #$99 ;.^Y 73C9- 91 A4 1470 STA (ZA4),Y 73CB- B1 A4 1475 LDA (ZA4),Y 73CD- C9 99 1480 CMP #$99 ;.^Y 73CF- D0 06 1485 BNE BD3D7 1490 ; 73D1- 68 1495 BD3D1 PLA 73D2- 91 A4 1500 STA (ZA4),Y 73D4- C9 0D 1505 CMP #$0D ;^M 73D6- 60 1510 RTS 1515 ; 73D7- A9 00 1520 BD3D7 LDA #$00 ;^@ 73D9- 8D 6F 72 1525 STA AD26F 73DC- 20 8A 75 1530 JSR SD58A 73DF- A2 0C 1535 LDX #FILE.MSG-ERROR.MSG ; FILE? PROMPT 73E1- 20 BD 74 1540 JSR SD4BD 73E4- F0 7E 1545 BEQ BD464 1550 ; 73E6- A5 AE 1555 SD3E6 LDA *ZAE 73E8- A4 AF 1560 LDY *ZAF 73EA- 85 A6 1565 SD3EA STA *ZA6 73EC- 84 A7 1570 STY *ZA7 73EE- 60 1575 RTS 1580 ; 73EF- 20 8A 75 1585 BD3EF JSR SD58A 73F2- A9 30 1590 LDA #$30 ;0 73F4- 2C 1595 .BY $2C 73F5- A9 20 1600 SET.2 LDA #$20 73F7- 20 5D 76 1605 JSR DSKRW 73FA- AD 76 72 1610 LDA AD276 73FD- 20 4F 75 1615 JSR SD54F 7400- 20 3C 74 1620 JSR SD43C 7403- A2 FF 1625 LDX #$FF ;. 7405- 9A 1630 TXS 7406- 20 34 76 1635 JSR SET2 7409- 20 B3 79 1640 JSR CMDINT 740C- 4C 07 73 1645 JMP VEC.1 1650 ; 740F- A0 00 1655 SD40F LDY #$00 ;^@ 7411- 20 BE 73 1660 SD411 JSR SD3BE 7414- C9 1F 1665 CMP #$1F ;^_ 7416- 60 1670 RTS 1675 ; 7417- 20 EC 74 1680 SD417 JSR SD4EC 741A- A0 00 1685 LDY #$00 ;^@ 741C- 8C 69 72 1690 STY AD269 741F- 8C 6A 72 1695 STY AD26A 7422- C8 1700 INY 7423- 8C 56 72 1705 STY AD256 7426- 20 0F 74 1710 BD426 JSR SD40F 7429- F0 08 1715 BEQ BD433 1720 ; 742B- 20 86 74 1725 JSR SD486 742E- 20 FC 74 1730 JSR SD4FC 7431- D0 F3 1735 BNE BD426 1740 ; 7433- A5 A4 1745 BD433 LDA *ZA4 7435- A4 A5 1750 LDY *ZA5 7437- 85 A8 1755 SD437 STA *ZA8 7439- 84 A9 1760 STY *ZA9 743B- 60 1765 RTS 1770 ; 743C- A2 00 1775 SD43C LDX #$00 ;^@ 743E- 20 6F 75 1780 JSR SD56F 7441- C9 0D 1785 CMP #$0D ;^M 7443- F0 3B 1790 BEQ BD480 1795 ; 7445- C9 2B 1800 CMP #$2B ;+ 7447- F0 A6 1805 BEQ BD3EF 1810 ; 7449- C9 03 1815 CMP #$03 ;^C 744B- D0 03 1820 BNE BD450 1825 ; 744D- 4C A6 7B 1830 JMP JDBA6 1835 ; 7450- 9D 80 72 1840 BD450 STA TXBUF,X 7453- E8 1845 INX 7454- EC 7A 72 1850 CPX AD27A 7457- 30 14 1855 BMI BD46D 1860 ; 7459- 20 6F 75 1865 BD459 JSR SD56F 745C- C9 0D 1870 CMP #$0D ;^M 745E- F0 20 1875 BEQ BD480 1880 ; 7460- C9 18 1885 CMP #$18 ;^X 7462- D0 F5 1890 BNE BD459 1895 ; 7464- 20 8A 75 1900 BD464 JSR SD58A 7467- 00 1905 BRK 1910 ; 7468- E0 00 1915 BD468 CPX #$00 ;^@ 746A- F0 01 1920 BEQ BD46D 1925 ; 746C- CA 1930 DEX 746D- 20 6F 75 1935 BD46D JSR SD56F 7470- C9 18 1940 CMP #$18 ;^X 7472- F0 F0 1945 BEQ BD464 1950 ; 7474- C9 5F 1955 CMP #$5F ;_ 7476- F0 F0 1960 BEQ BD468 1965 ; 7478- C9 08 1970 CMP #$08 ;^H 747A- F0 EC 1975 BEQ BD468 1980 ; 747C- C9 0D 1985 CMP #$0D ;^M 747E- D0 D0 1990 BNE BD450 1995 ; 7480- 9D 80 72 2000 BD480 STA TXBUF,X 7483- 4C 8A 75 2005 BD483 JMP SD58A 2010 ; 7486- F8 2015 SD486 SED 7487- 18 2020 CLC 7488- AD 6A 72 2025 LDA AD26A 748B- 6D 56 72 2030 ADC AD256 748E- 8D 6A 72 2035 STA AD26A 7491- AD 69 72 2040 LDA AD269 7494- 69 00 2045 ADC #$00 ;^@ 7496- 8D 69 72 2050 STA AD269 7499- D8 2055 CLD 749A- 60 2060 RTS 2065 ; 749B- A9 00 2070 SD49B LDA #$00 ;^@ 749D- 85 AE 2075 STA *ZAE 749F- 85 AF 2080 STA *ZAF 74A1- BD 80 72 2085 BD4A1 LDA TXBUF,X 74A4- CD 56 72 2090 CMP AD256 74A7- F0 08 2095 BEQ BD4B1 2100 ; 74A9- 20 B5 74 2105 JSR SD4B5 74AC- EC 64 72 2110 CPX AD264 74AF- 30 F0 2115 BMI BD4A1 2120 ; 74B1- 60 2125 BD4B1 RTS 2130 ; 74B2- BD 80 72 2135 LDA TXBUF,X 74B5- E8 2140 SD4B5 INX 74B6- 20 66 75 2145 JSR SD566 74B9- F0 F6 2150 BEQ BD4B1 2155 ; 74BB- A2 00 2160 BD4BB LDX #00 74BD- BD 10 7B 2165 SD4BD LDA ERROR.MSG,X ; ERROR PROMPT 74C0- F0 C1 2170 BEQ BD483 2175 ; 74C2- 30 A0 2180 BMI BD464 2185 ; 74C4- C9 0D 2190 CMP #$0D ;^M 74C6- F0 E9 2195 BEQ BD4B1 2200 ; 74C8- 20 4F 75 2205 JSR SD54F 74CB- E8 2210 INX 74CC- D0 EF 2215 BNE SD4BD 2220 ; 74CE- 8D 6C 72 2225 SD4CE STA AD26C 74D1- 4A 2230 LSR A 74D2- 4A 2235 LSR A 74D3- 4A 2240 LSR A 74D4- 4A 2245 LSR A 74D5- 29 0F 2250 SD4D5 AND #$0F ;^O 74D7- C9 0A 2255 CMP #$0A ;^J 74D9- 18 2260 CLC 74DA- 30 02 2265 BMI BD4DE 2270 ; 74DC- 69 07 2275 ADC #$07 ;^G 74DE- 69 30 2280 BD4DE ADC #$30 ;0 74E0- 60 2285 RTS 2290 ; 74E1- A2 00 2295 LDX #$00 ;^@ 74E3- 38 2300 SEC 74E4- F8 2305 SED 74E5- E8 2310 BD4E5 INX 74E6- E9 01 2315 SBC #$01 ;^A 74E8- D0 FB 2320 BNE BD4E5 2325 ; 74EA- D8 2330 CLD 74EB- 60 2335 RTS 2340 ; 74EC- A5 A6 2345 SD4EC LDA *ZA6 74EE- 85 A4 2350 STA *ZA4 74F0- A5 A7 2355 LDA *ZA7 74F2- 85 A5 2360 STA *ZA5 74F4- 60 2365 RTS 2370 ; 74F5- E6 A4 2375 BD4F5 INC *ZA4 74F7- D0 02 2380 BNE BD4FB 2385 ; 74F9- E6 A5 2390 INC *ZA5 74FB- 60 2395 BD4FB RTS 2400 ; 74FC- 20 BC 73 2405 SD4FC JSR SD3BC 74FF- F0 F4 2410 BEQ BD4F5 2415 ; 7501- 20 F5 74 2420 JSR BD4F5 7504- D0 F6 2425 BNE SD4FC 2430 ; 7506- C9 33 2435 CMP #$33 ;3 7508- 10 B1 2440 BPL BD4BB 2445 ; 750A- C9 30 2450 CMP #$30 ;0 750C- 30 AD 2455 BMI BD4BB 2460 ; 750E- 29 0F 2465 AND #$0F ;^O 7510- 60 2470 RTS 2475 ; 7511- 48 2480 SD511 PHA 7512- 08 2485 PHP 7513- 68 2490 PLA 7514- 8D 74 72 2495 STA AD274 7517- 68 2500 PLA 7518- 8D 73 72 2505 STA AD273 751B- 8C 21 72 2510 SD51B STY AD221 751E- 8E 20 72 2515 STX AD220 7521- 60 2520 RTS 2525 ; 7522- 20 17 74 2530 JSR SD417 7525- A2 03 2535 LDX #$03 ;^C 7527- B5 A6 2540 BD527 LDA *ZA6,X 7529- 9D 57 72 2545 STA AD257,X 752C- CA 2550 DEX 752D- 10 F8 2555 BPL BD527 2560 ; 752F- AD 58 72 2565 LDA AD258 7532- 20 78 75 2570 JSR SD578 7535- AD 57 72 2575 LDA AD257 7538- 20 78 75 2580 JSR SD578 753B- 20 4A 75 2585 JSR SD54A 753E- AD 5A 72 2590 LDA AD25A 7541- 20 78 75 2595 JSR SD578 7544- AD 59 72 2600 LDA AD259 7547- 20 78 75 2605 JSR SD578 754A- A9 20 2610 SD54A LDA #$20 ; 754C- 2C 2615 .BY $2C 754D- A9 07 2620 LDA #$07 754F- 20 11 75 2625 SD54F JSR SD511 7552- 20 CB 75 2630 JD552 JSR SD5CB 7555- AD 74 72 2635 BD555 LDA AD274 7558- 48 2640 PHA 7559- AD 73 72 2645 LDA AD273 755C- 28 2650 PLP 755D- 08 2655 JD55D PHP 755E- AC 21 72 2660 LDY AD221 7561- AE 20 72 2665 LDX AD220 7564- 28 2670 PLP 7565- 60 2675 RTS 2680 ; 7566- 20 1B 75 2685 SD566 JSR SD51B 7569- 20 71 7B 2690 JSR SDB71 756C- 4C 5D 75 2695 JMP JD55D 2700 ; 756F- 20 1B 75 2705 SD56F JSR SD51B 7572- 20 B5 75 2710 JSR SD5B5 7575- 4C 5D 75 2715 JMP JD55D 2720 ; 7578- 20 11 75 2725 SD578 JSR SD511 757B- 20 CE 74 2730 JSR SD4CE 757E- 20 CB 75 2735 JSR SD5CB 7581- AD 6C 72 2740 LDA AD26C 7584- 20 D5 74 2745 JSR SD4D5 7587- 4C 52 75 2750 JMP JD552 2755 ; 758A- 20 11 75 2760 SD58A JSR SD511 758D- 20 DF 75 2765 JSR SD5DF 7590- AD 71 72 2770 LDA AD271 7593- D0 C0 2775 BNE BD555 2780 ; 7595- 20 DF 75 2785 JSR SD5DF 7598- 4C 55 75 2790 JMP BD555 2795 ; 759B- AD 72 72 2800 SD59B LDA AD272 759E- 18 2805 JD59E CLC 759F- 29 03 2810 AND #$03 ;^C 75A1- F0 03 2815 BEQ BD5A6 2820 ; 75A3- 38 2825 SEC 75A4- 29 02 2830 AND #$02 ;^B 75A6- 60 2835 BD5A6 RTS 2840 ; 75A7- AD 72 72 2845 SD5A7 LDA AD272 75AA- 4A 2850 LSR A 75AB- 4A 2855 LSR A 75AC- 4C 9E 75 2860 JMP JD59E 2865 ; 75AF- 20 1B 8A 2870 BD5AF JSR INCHR 75B2- 29 7F 2875 AND #$7F ; 75B4- 60 2880 RTS 2885 ; 75B5- 20 A7 75 2890 SD5B5 JSR SD5A7 75B8- 90 F5 2895 BCC BD5AF 2900 ; 75BA- 4C 99 7B 2905 JMP JDB99 2910 ; 75BD- 68 2915 BD5BD PLA 75BE- 48 2920 SD5BE PHA 75BF- 20 86 83 2925 JSR INSTAT 75C2- 90 03 2930 BCC BD5C7 2935 ; 75C4- 4C 64 74 2940 JMP BD464 2945 ; 75C7- 68 2950 BD5C7 PLA 75C8- 4C 63 A6 2955 JMP OUTVEC 2960 ; 75CB- 48 2965 SD5CB PHA 75CC- 20 9B 75 2970 JSR SD59B 75CF- 90 EC 2975 BCC BD5BD 2980 ; 75D1- F0 05 2985 BEQ BD5D8 2990 ; 75D3- 68 2995 PLA 75D4- 48 3000 PHA 75D5- 20 BE 75 3005 JSR SD5BE 75D8- 68 3010 BD5D8 PLA 75D9- 4C 9C 7B 3015 JMP JDB9C 3020 ; 75DC- 4C 4D 83 3025 BD5DC JMP CRLF 3030 ; 75DF- 20 9B 75 3035 SD5DF JSR SD59B 75E2- 90 F8 3040 BCC BD5DC 3045 ; 75E4- F0 03 3050 BEQ BD5E9 3055 ; 75E6- 20 DC 75 3060 JSR BD5DC 75E9- 4C 9F 7B 3065 BD5E9 JMP JDB9F 3070 ; 75EC- AD 7D 72 3075 LDA AD27D 75EF- 10 06 3080 BPL BD5F7 3085 ; 75F1- 20 DD 78 3090 JSR SD8DD 75F4- EE 7D 72 3095 INC AD27D 75F7- A2 FF 3100 BD5F7 LDX #$FF ;. 75F9- 9A 3105 TXS 75FA- E8 3110 INX 75FB- A0 FF 3115 LDY #$FF ;. 75FD- C8 3120 BD5FD INY 75FE- B1 A0 3125 LDA (ZA0),Y 7600- C9 3A 3130 CMP #$3A ;: 7602- F0 0A 3135 BEQ BD60E 3140 ; 7604- C9 0D 3145 CMP #$0D ;^M 7606- F0 1A 3150 BEQ BD622 3155 ; 7608- 9D 80 72 3160 STA TXBUF,X 760B- E8 3165 INX 760C- 10 EF 3170 BPL BD5FD 3175 ; 760E- A9 0D 3180 BD60E LDA #$0D ;^M 7610- 9D 80 72 3185 STA TXBUF,X 7613- C8 3190 INY 7614- 18 3195 CLC 7615- 98 3200 TYA 7616- 65 A0 3205 ADC *ZA0 7618- 85 A0 3210 STA *ZA0 761A- 90 02 3215 BCC BD61E 3220 ; 761C- E6 A1 3225 INC *ZA1 761E- 20 2A 60 3230 BD61E JSR TED.USE 7621- 00 3235 BRK 3240 ; 7622- C8 3245 BD622 INY 7623- B1 A0 3250 LDA (ZA0),Y 7625- C8 3255 INY 7626- C8 3260 INY 7627- C9 1F 3265 CMP #$1F ;^_ 7629- D0 D2 3270 BNE BD5FD 3275 ; 762B- 20 DD 78 3280 JSR SD8DD 762E- 4C 00 A0 3285 JMP TED.COLD 3290 ; 7631- A9 00 3295 SD631 LDA #$00 ;^@ 7633- 2C 3300 .BY $2C 7634- A9 02 3305 SET2 LDA #$02 7636- 8D 15 72 3310 STA AD215 7639- 60 3315 RTS 3320 ; 763A- A2 00 3325 SD63A LDX #$00 ;^@ 763C- 8E 16 72 3330 STX AD216 763F- 8E 69 72 3335 STX AD269 7642- E8 3340 INX 7643- 8E 17 72 3345 STX AD217 7646- A9 00 3350 LDA #$00 ;^@ 7648- A0 D0 3355 LDY #$D0 ;.P 764A- 20 87 76 3360 JSR SD687 764D- A9 FF 3365 LDA #$FF ;. 764F- A0 D1 3370 LDY #$D1 ;.Q 7651- 8D 12 72 3375 JD651 STA AD212 7654- 8C 13 72 3380 STY AD213 7657- 60 3385 RTS 3390 ; 7658- 20 3A 76 3395 SD658 JSR SD63A 765B- A9 00 3400 SD65B LDA #$00 ;^@ 765D- 8D 18 72 3405 DSKRW STA AD218 7660- A9 00 3410 LDA #$00 ;^@ 7662- 8D 14 72 3415 STA AD214 7665- 20 7C 7C 3420 JSR SDC7C 7668- AD 1B 72 3425 LDA AD21B 766B- 30 24 3430 BMI BD691 3435 ; 766D- 4C 92 77 3440 JMP JD792 3445 ; 7670- AD 61 72 3450 JD670 LDA AD261 7673- 8D 0A 70 3455 STA AD00A 7676- AD 60 72 3460 LDA AD260 7679- 8D 0B 70 3465 STA AD00B 767C- 20 3A 76 3470 JSR SD63A 767F- A9 01 3475 SD67F LDA #$01 ;^A 7681- D0 DA 3480 BNE DSKRW 3485 ; 7683- A9 0C 3490 SD683 LDA #$0C ;^L 7685- A0 D0 3495 LDY #$D0 ;.P 7687- 8D 10 72 3500 SD687 STA AD210 768A- 8C 11 72 3505 STY AD211 768D- 85 A4 3510 STA *ZA4 768F- 84 A5 3515 STY *ZA5 7691- 60 3520 BD691 RTS 3525 ; 7692- A9 1F 3530 SD692 LDA #$1F ;^_ 7694- 8D 0C 70 3535 STA AD00C 7697- A2 0B 3540 LDX #$0B ;^K 7699- A9 00 3545 LDA #$00 ;^@ 769B- 9D 00 70 3550 BD69B STA AD000,X 769E- 9D 58 72 3555 STA AD258,X 76A1- CA 3560 DEX 76A2- E0 05 3565 CPX #$05 ;^E 76A4- D0 F5 3570 BNE BD69B 3575 ; 76A6- EE 0B 70 3580 INC AD00B 76A9- EE 0A 70 3585 INC AD00A 76AC- A9 0D 3590 LDA #$0D ;^M 76AE- 9D 00 70 3595 BD6AE STA AD000,X 76B1- CA 3600 DEX 76B2- 10 FA 3605 BPL BD6AE 3610 ; 76B4- 60 3615 RTS 3620 ; 76B5- 20 83 76 3625 SD6B5 JSR SD683 76B8- A2 00 3630 LDX #$00 ;^@ 76BA- 20 0F 74 3635 BD6BA JSR SD40F 76BD- F0 0C 3640 BEQ BD6CB 3645 ; 76BF- 20 9A 78 3650 JSR SD89A 76C2- E8 3655 INX 76C3- E0 28 3660 CPX #$28 ;( 76C5- 30 F3 3665 BMI BD6BA 3670 ; 76C7- 8A 3675 TXA 76C8- 4C 92 77 3680 JMP JD792 3685 ; 76CB- B9 84 72 3690 BD6CB LDA AD284,Y 76CE- 91 A4 3695 STA (ZA4),Y 76D0- C8 3700 INY 76D1- C0 06 3705 CPY #$06 ;^F 76D3- D0 F6 3710 BNE BD6CB 3715 ; 76D5- B9 A0 00 3720 BD6D5 LDA ZA0,Y 76D8- 91 A4 3725 STA (ZA4),Y 76DA- C8 3730 INY 76DB- C0 0A 3735 CPY #$0A ;^J 76DD- D0 F6 3740 BNE BD6D5 3745 ; 76DF- 60 3750 RTS 3755 ; 76E0- 4C BB 78 3760 BD6E0 JMP JD8BB 3765 ; 76E3- A2 03 3770 SD6E3 LDX #$03 ;^C 76E5- B5 A6 3775 BD6E5 LDA *ZA6,X 76E7- 9D 24 72 3780 STA AD224,X 76EA- CA 3785 DEX 76EB- 10 F8 3790 BPL BD6E5 3795 ; 76ED- 60 3800 RTS 3805 76EE- 20 02 78 3810 ENTER JSR SD802 76F1- A9 24 3815 LDA #$24 ;$ 76F3- CD 84 72 3820 CMP AD284 76F6- D0 E8 3825 BNE BD6E0 3830 ; 76F8- 8D 56 72 3835 STA AD256 76FB- A9 09 3840 LDA #$09 ;^I 76FD- 8D 64 72 3845 STA AD264 7700- 20 E3 76 3850 JSR SD6E3 7703- A2 05 3855 LDX #$05 ;^E 7705- 20 9B 74 3860 JSR SD49B 7708- E0 06 3865 CPX #$06 ;^F 770A- 10 06 3870 BPL BD712 3875 ; 770C- 20 24 77 3880 BD70C JSR SD724 770F- 4C BB 74 3885 JMP BD4BB 3890 ; 7712- 20 E6 73 3895 BD712 JSR SD3E6 7715- E8 3900 INX 7716- A9 0E 3905 LDA #$0E ;^N 7718- 20 2F 77 3910 JSR SD72F 771B- 20 37 74 3915 JSR SD437 771E- 20 4A 77 3920 JSR SD74A 7721- 20 BB 78 3925 JSR JD8BB 7724- A2 03 3930 SD724 LDX #$03 ;^C 7726- BD 24 72 3935 BD726 LDA AD224,X 7729- 95 A6 3940 STA *ZA6,X 772B- CA 3945 DEX 772C- 10 F8 3950 BPL BD726 3955 ; 772E- 60 3960 RTS 3965 ; 772F- 8D 64 72 3970 SD72F STA AD264 7732- 8D 65 72 3975 STA AD265 7735- EE 65 72 3980 INC AD265 7738- A9 3D 3985 LDA #$3D ;= 773A- 8D 56 72 3990 STA AD256 773D- 20 9B 74 3995 JSR SD49B 7740- EC 65 72 4000 CPX AD265 7743- 10 C7 4005 BPL BD70C 4010 ; 7745- A5 AE 4015 LDA *ZAE 7747- A4 AF 4020 LDY *ZAF 7749- 60 4025 RTS 4030 ; 774A- EE 70 72 4035 SD74A INC AD270 774D- A0 03 4040 JD74D LDY #$03 ;^C 774F- C8 4045 BD74F INY 7750- E8 4050 INX 7751- BD 80 72 4055 LDA TXBUF,X 7754- 99 80 72 4060 STA TXBUF,Y 7757- C9 0D 4065 CMP #$0D ;^M 7759- D0 F4 4070 BNE BD74F 4075 ; 775B- 60 4080 RTS 4085 ; 775C- 38 4090 SD75C SEC 775D- A5 A8 4095 LDA *ZA8 775F- E5 A6 4100 SBC *ZA6 7761- 8D 7E 72 4105 STA AD27E 7764- AA 4110 TAX 7765- A5 A9 4115 LDA *ZA9 7767- F0 1B 4120 BEQ BD784 4125 ; 7769- E5 A7 4130 SBC *ZA7 776B- 8D 7F 72 4135 STA AD27F 776E- 48 4140 PHA 776F- 8A 4145 TXA 7770- 0A 4150 ASL A 7771- 68 4155 PLA 7772- 2A 4160 ROL A 7773- B0 18 4165 BCS BD78D 4170 ; 7775- 8D 6A 72 4175 STA AD26A 7778- 8A 4180 TXA 7779- EE 6A 72 4185 INC AD26A 777C- 29 7F 4190 AND #$7F ; 777E- 49 FF 4195 EOR #$FF ;. 7780- 8D 69 72 4200 STA AD269 7783- 60 4205 RTS 4210 7784- A9 60 4215 BD784 LDA #$60 ;` 7786- 2C 4220 .BY $2C 7787- A9 50 4225 BD787 LDA #$50 7789- 2C 4230 .BY $2C 778A- A9 FF 4235 BD78A LDA #$FF 778C- 2C 4240 .BY $2C 778D- A9 30 4245 BD78D LDA #$30 778F- 2C 4250 .BY $2C 7790- A9 99 4255 BD790 LDA #$99 4260 7792- 20 78 75 4265 JD792 JSR SD578 7795- A2 49 4270 LDX #STAT.MSG-ERROR.MSG ; STAT ERROR PROMPT 7797- 4C BD 74 4275 JMP SD4BD 4280 ; 779A- AD 5F 72 4285 BD79A LDA AD25F 779D- 6D 6A 72 4290 ADC AD26A 77A0- 8D 60 72 4295 JD7A0 STA AD260 77A3- F0 E5 4300 BEQ BD78A 4305 ; 77A5- C9 11 4310 CMP #$11 ;^Q 77A7- 10 E1 4315 BPL BD78A 4320 ; 77A9- AD 61 72 4325 LDA AD261 77AC- C9 50 4330 CMP #$50 ; 80 TRACKS - 28 FOR 40 TRACKS 77AE- 10 D7 4335 BPL BD787 4340 ; 77B0- 60 4345 RTS 4350 ; 77B1- 20 B5 76 4355 SD7B1 JSR SD6B5 77B4- AD 0A 70 4360 LDA AD00A 77B7- 8D 16 72 4365 STA AD216 77BA- 8D 61 72 4370 STA AD261 77BD- 91 A4 4375 STA (ZA4),Y 77BF- C8 4380 INY 77C0- AD 0B 70 4385 LDA AD00B 77C3- 8D 17 72 4390 STA AD217 77C6- 8D 5F 72 4395 STA AD25F 77C9- 91 A4 4400 STA (ZA4),Y 77CB- F0 C3 4405 BEQ BD790 4410 ; 77CD- C9 11 4415 CMP #$11 ;^Q 77CF- 10 BF 4420 BPL BD790 4425 ; 77D1- C8 4430 INY 77D2- A9 1F 4435 LDA #$1F ;^_ 77D4- 91 A4 4440 STA (ZA4),Y 77D6- 20 5C 77 4445 JSR SD75C 77D9- 38 4450 SEC 77DA- A9 11 4455 LDA #$11 ;^Q 77DC- ED 5F 72 4460 SBC AD25F 77DF- 8D 62 72 4465 STA AD262 77E2- AD 6A 72 4470 LDA AD26A 77E5- ED 62 72 4475 SBC AD262 77E8- 90 B0 4480 BCC BD79A 4485 ; 77EA- 8D 62 72 4490 STA AD262 77ED- EE 61 72 4495 BD7ED INC AD261 77F0- E9 10 4500 SBC #$10 ;^P 77F2- 90 05 4505 BCC BD7F9 4510 ; 77F4- 8D 62 72 4515 STA AD262 77F7- B0 F4 4520 BCS BD7ED 4525 ; 77F9- EE 62 72 4530 BD7F9 INC AD262 77FC- AD 62 72 4535 LDA AD262 77FF- 4C A0 77 4540 JMP JD7A0 4545 ; 7802- AD 85 72 4550 SD802 LDA AD285 7805- C9 2F 4555 CMP #$2F ;/ 7807- D0 36 4560 BNE BD83F 4565 ; 7809- AD 84 72 4570 LDA AD284 780C- C9 32 4575 CMP #$32 ;2 780E- F0 07 4580 BEQ BD817 4585 ; 7810- C9 31 4590 CMP #$31 ;1 7812- D0 19 4595 BNE BD82D 4600 ; 7814- 20 31 76 4605 JSR SD631 7817- A2 05 4610 BD817 LDX #$05 ;^E 7819- 4C 4D 77 4615 JMP JD74D 4620 ; 781C- 20 02 78 4625 SD81C JSR SD802 781F- A2 FF 4630 LDX #$FF ;. 7821- A9 0D 4635 LDA #$0D ;^M 7823- E8 4640 BD823 INX 7824- DD 80 72 4645 CMP TXBUF,X 7827- D0 FA 4650 BNE BD823 4655 ; 7829- E0 05 4660 CPX #$05 ;^E 782B- 10 09 4665 BPL BD836 4670 ; 782D- 4C BB 74 4675 BD82D JMP BD4BB 4680 ; 7830- A9 20 4685 BD830 LDA #$20 ; 7832- 9D 80 72 4690 STA TXBUF,X 7835- E8 4695 INX 7836- E0 0A 4700 BD836 CPX #$0A ;^J 7838- 30 F6 4705 BMI BD830 4710 ; 783A- A9 0D 4715 LDA #$0D ;^M 783C- 8D 8A 72 4720 STA AD28A 783F- 60 4725 BD83F RTS 4730 ; 7840- 20 83 76 4735 SD840 JSR SD683 7843- A0 FF 4740 BD843 LDY #$FF ;. 7845- C8 4745 BD845 INY 7846- C0 06 4750 CPY #$06 ;^F 7848- F0 1F 4755 BEQ BD869 4760 ; 784A- 20 11 74 4765 JSR SD411 784D- F0 56 4770 BEQ BD8A5 4775 ; 784F- D9 84 72 4780 CMP AD284,Y 7852- F0 F1 4785 BEQ BD845 4790 ; 7854- 09 20 4795 ORA #$20 ; 7856- D9 84 72 4800 CMP AD284,Y 7859- F0 EA 4805 BEQ BD845 4810 ; 785B- 20 9A 78 4815 JSR SD89A 785E- D0 E3 4820 BNE BD843 4825 ; 7860- A0 05 4830 BD860 LDY #$05 ;^E 7862- A9 7F 4835 LDA #$7F ; 7864- 91 A4 4840 BD864 STA (ZA4),Y 7866- 88 4845 DEY 7867- 10 FB 4850 BPL BD864 4855 ; 7869- 18 4860 BD869 CLC 786A- 60 4865 RTS 4870 ; 786B- 20 40 78 4875 SD86B JSR SD840 786E- B0 36 4880 BCS BD8A6 4885 ; 7870- AD 83 72 4890 LDA AD283 7873- C9 21 4895 CMP #$21 ;! 7875- F0 E9 4900 BEQ BD860 4905 ; 7877- A2 06 4910 BD877 LDX #ERASE.MSG-ERROR.MSG ; ERASE FILE? PROMPT 7879- 20 BD 74 4915 JSR SD4BD 787C- 20 6F 75 4920 JSR SD56F 787F- 20 8A 75 4925 JSR SD58A 7882- C9 59 4930 CMP #$59 ;Y 7884- F0 DA 4935 BEQ BD860 4940 ; 7886- C9 4E 4945 CMP #$4E ;N 7888- F0 08 4950 BEQ BD892 4955 ; 788A- C9 79 4960 CMP #$79 ;y 788C- F0 D2 4965 BEQ BD860 4970 ; 788E- C9 6E 4975 CMP #$6E ;n 7890- D0 E5 4980 BNE BD877 4985 ; 7892- A2 43 4990 BD892 LDX #ABORT.MSG-ERROR.MSG ; ABORT PROMPT 7894- 4C BD 74 4995 JMP SD4BD 5000 ; 7897- A9 05 5005 SD897 LDA #$05 ;^E 7899- 2C 5010 .BY $2C 789A- A9 0C 5015 SD89A LDA #$0C 789C- 18 5020 CLC 789D- 65 A4 5025 ADC *ZA4 789F- 85 A4 5030 STA *ZA4 78A1- 90 03 5035 BCC BD8A6 5040 ; 78A3- E6 A5 5045 INC *ZA5 78A5- 38 5050 BD8A5 SEC 78A6- 60 5055 BD8A6 RTS 5060 ; 78A7- 20 1C 78 5065 SD8A7 JSR SD81C 78AA- 20 58 76 5070 SD8AA JSR SD658 78AD- A2 05 5075 LDX #$05 ;^E 78AF- BD 00 70 5080 BD8AF LDA AD000,X 78B2- C9 0D 5085 CMP #$0D ;^M 78B4- D0 EF 5090 BNE BD8A5 5095 ; 78B6- CA 5100 DEX 78B7- 10 F6 5105 BPL BD8AF 5110 ; 78B9- 18 5115 CLC 78BA- 60 5120 RTS 5125 ; 78BB- 20 A7 78 5130 JD8BB JSR SD8A7 78BE- 90 03 5135 BCC BD8C3 5140 ; 78C0- 20 92 76 5145 JSR SD692 78C3- 20 6B 78 5150 BD8C3 JSR SD86B 78C6- AD 70 72 5155 LDA AD270 78C9- F0 03 5160 BEQ BD8CE 5165 ; 78CB- 20 17 74 5170 JSR SD417 78CE- 20 B1 77 5175 BD8CE JSR SD7B1 78D1- 20 EC 74 5180 JSR SD4EC 78D4- 20 63 79 5185 JSR SD963 78D7- 20 7F 76 5190 JSR SD67F 78DA- 4C 70 76 5195 JMP JD670 5200 ; 78DD- A2 05 5205 SD8DD LDX #$05 ;^E 78DF- BD 6B 7B 5210 BD8DF LDA TED.MSG,X 78E2- 9D 83 72 5215 STA AD283,X 78E5- CA 5220 DEX 78E6- 10 F7 5225 BPL BD8DF 5230 ; 78E8- 20 31 76 5235 JSR SD631 78EB- F0 17 5240 BEQ BD904 5245 78ED- 20 02 78 5250 LOAD JSR SD802 78F0- AD 84 72 5255 LDA AD284 78F3- C9 24 5260 CMP #$24 ;$ 78F5- D0 0D 5265 BNE BD904 5270 ; 78F7- A9 09 5275 LDA #$09 ;^I 78F9- A2 05 5280 LDX #$05 ;^E 78FB- 20 2F 77 5285 JSR SD72F 78FE- 20 EA 73 5290 JSR SD3EA 7901- 20 4A 77 5295 JSR SD74A 7904- 20 E3 76 5300 BD904 JSR SD6E3 7907- 20 A7 78 5305 JSR SD8A7 790A- 90 05 5310 BCC BD911 5315 ; 790C- A2 13 5320 LDX #INDEX.MSG-ERROR.MSG ; INDEX UNDEFINED PROMPT 790E- 4C BD 74 5325 BD90E JMP SD4BD 5330 ; 7911- 20 40 78 5335 BD911 JSR SD840 7914- A2 19 5340 JD914 LDX #UNDEF.MSG-ERROR.MSG ; UNDEFINED PROMPT 7916- B0 F6 5345 BCS BD90E 5350 ; 7918- 20 DF 7A 5355 JSR SDADF 791B- 20 5C 77 5360 SD91B JSR SD75C 791E- B1 A4 5365 LDA (ZA4),Y 7920- 8D 16 72 5370 STA AD216 7923- C8 5375 INY 7924- B1 A4 5380 LDA (ZA4),Y 7926- 8D 17 72 5385 STA AD217 7929- AD 70 72 5390 LDA AD270 792C- 30 0F 5395 BMI BD93D 5400 ; 792E- 20 E6 73 5405 JSR SD3E6 7931- 18 5410 CLC 7932- 6D 7E 72 5415 ADC AD27E 7935- 85 A8 5420 STA *ZA8 7937- 98 5425 TYA 7938- 6D 7F 72 5430 ADC AD27F 793B- 85 A9 5435 STA *ZA9 793D- 20 63 79 5440 BD93D JSR SD963 7940- 20 5B 76 5445 JSR SD65B 7943- AD 84 72 5450 LDA AD284 7946- C9 25 5455 CMP #$25 ;% 7948- F0 16 5460 BEQ BD960 5465 ; 794A- C9 7F 5470 CMP #$7F ; 794C- F0 11 5475 BEQ BD95F 5480 ; 794E- C9 40 5485 CMP #$40 ;@ 7950- F0 0D 5490 BEQ BD95F 5495 ; 7952- 90 0B 5500 BCC BD95F 5505 ; 7954- 20 17 74 5510 JSR SD417 7957- AD 6E 72 5515 LDA AD26E 795A- D0 03 5520 BNE BD95F 5525 ; 795C- EE 6E 72 5530 INC AD26E 795F- 60 5535 BD95F RTS 5540 ; 7960- 4C 24 77 5545 BD960 JMP SD724 5550 ; 7963- A5 A6 5555 SD963 LDA *ZA6 7965- A4 A7 5560 LDY *ZA7 7967- 20 87 76 5565 JSR SD687 796A- A5 A8 5570 LDA *ZA8 796C- A4 A9 5575 LDY *ZA9 796E- 4C 51 76 5580 JMP JD651 5585 ; 7971- 20 02 78 5590 JSR SD802 7974- 4C 97 79 5595 JMP RUN 5600 ; 7977- 20 31 76 5605 BD977 JSR SD631 797A- A2 0A 5610 LDX #$0A ;^J 797C- BD 83 72 5615 BD97C LDA AD283,X 797F- 9D 28 72 5620 STA AD228,X 7982- CA 5625 DEX 7983- 10 F7 5630 BPL BD97C 5635 ; 7985- 8E 7D 72 5640 STX AD27D 7988- A9 0D 5645 LDA #$0D ;^M 798A- A0 04 5650 LDY #$04 ;^D 798C- 99 7F 72 5655 STA AD27F,Y 798F- 20 4F 77 5660 JSR BD74F 7992- A9 20 5665 LDA #$20 ; 7994- 8D 83 72 5670 STA AD283 5675 7997- 68 5680 RUN PLA 7998- 68 5685 PLA 7999- A9 25 5690 LDA #$25 ;% 799B- 8D 84 72 5695 STA AD284 799E- 20 04 79 5700 JSR BD904 79A1- 20 40 78 5705 JSR SD840 79A4- 20 34 76 5710 JSR SET2 79A7- B1 A4 5715 BD9A7 LDA (ZA4),Y 79A9- 85 A2 5720 STA *ZA2 79AB- C8 5725 INY 79AC- B1 A4 5730 LDA (ZA4),Y 79AE- 85 A3 5735 STA *ZA3 79B0- 6C A2 00 5740 JMP (ZA2) 5745 ; 79B3- A9 E7 5750 CMDINT LDA #L,CMDS 79B5- A0 79 5755 LDY #H,CMDS 79B7- 20 87 76 5760 JSR SD687 79BA- A0 FF 5765 JD9BA LDY #$FF ;. 79BC- A2 FF 5770 LDX #$FF ;. 79BE- 8E 6C 72 5775 STX AD26C 79C1- 8E 71 72 5780 STX AD271 79C4- 8E 70 72 5785 STX AD270 79C7- 8E 78 72 5790 STX AD278 79CA- E8 5795 BD9CA INX 79CB- C8 5800 INY 79CC- E0 03 5805 CPX #$03 ;^C 79CE- F0 D7 5810 BEQ BD9A7 5815 ; 79D0- 20 11 74 5820 JSR SD411 79D3- F0 A2 5825 BEQ BD977 5830 ; 79D5- DD 80 72 5835 CMP TXBUF,X 79D8- F0 F0 5840 BEQ BD9CA 5845 ; 79DA- 09 20 5850 ORA #$20 ; 79DC- DD 80 72 5855 CMP TXBUF,X 79DF- F0 E9 5860 BEQ BD9CA 5865 ; 79E1- 20 97 78 5870 JSR SD897 79E4- 4C BA 79 5875 JMP JD9BA 5880 ; 79E7- 45 4E 54 5885 CMDS .BY 'ENT' 79EA- EE 76 5890 .SI ENTER 79EC- 4C 4F 44 5895 .BY 'LOD' 79EF- ED 78 5900 .SI LOAD 79F1- 52 55 4E 5905 .BY 'RUN' 79F4- 97 79 5910 .SI RUN 79F6- 4C 43 50 5915 .BY 'LCP' 79F9- D1 7F 5920 .SI LCP.CMD 79FB- 58 58 58 5925 .BY 'XXX' 79FE- B3 73 5930 .SI JD3B3 7A00- 1F 5935 .BY $1F ; END OF FILE MARKER 5940 ; 7A01- A0 00 5945 LDY #$00 ;^@ 7A03- 8C 6C 72 5950 STY AD26C 7A06- 8C 77 72 5955 STY AD277 7A09- 20 EC 7A 5960 JSR SET.VEC 7A0C- 20 04 7B 5965 BDA0C JSR SDB04 7A0F- AC 77 72 5970 BDA0F LDY AD277 7A12- B9 86 72 5975 LDA AD286,Y 7A15- C9 2C 5980 CMP #$2C ;, 7A17- F0 12 5985 BEQ BDA2B 5990 ; 7A19- C9 0D 5995 CMP #$0D ;^M 7A1B- D0 05 6000 BNE BDA22 6005 ; 7A1D- EE 6C 72 6010 INC AD26C 7A20- D0 0B 6015 BDA20 BNE BDA2D 6020 ; 7A22- 9D 84 72 6025 BDA22 STA AD284,X 7A25- EE 77 72 6030 INC AD277 7A28- E8 6035 INX 7A29- D0 E4 6040 BNE BDA0F 6045 ; 7A2B- A9 0D 6050 BDA2B LDA #$0D ;^M 7A2D- 9D 84 72 6055 BDA2D STA AD284,X 7A30- EE 77 72 6060 INC AD277 7A33- AD 57 72 6065 LDA AD257 7A36- 8D 15 72 6070 STA AD215 7A39- A9 FF 6075 LDA #$FF ;. 7A3B- 8D 70 72 6080 STA AD270 7A3E- 20 A7 78 6085 JSR SD8A7 7A41- 20 40 78 6090 JSR SD840 7A44- 90 03 6095 BCC BDA49 6100 ; 7A46- 4C 14 79 6105 JMP JD914 6110 ; 7A49- 20 C5 7A 6115 BDA49 JSR SDAC5 7A4C- AD 6C 72 6120 JDA4C LDA AD26C 7A4F- F0 BB 6125 BEQ BDA0C 6130 ; 7A51- A9 00 6135 BDA51 LDA #$00 ;^@ 7A53- 85 A9 6140 STA *ZA9 7A55- 4C B3 73 6145 JMP JD3B3 6150 ; 7A58- 20 EC 7A 6155 JSR SET.VEC 7A5B- A9 00 6160 LDA #$00 ;^@ 7A5D- A0 D0 6165 LDY #$D0 ;.P 7A5F- 8D 59 72 6170 STA AD259 7A62- 8C 5A 72 6175 STY AD25A 7A65- AD 57 72 6180 JDA65 LDA AD257 7A68- 8D 15 72 6185 STA AD215 7A6B- 20 AA 78 6190 JSR SD8AA 7A6E- 20 A4 7A 6195 JSR SDAA4 7A71- 20 9A 78 6200 BDA71 JSR SD89A 7A74- A0 05 6205 LDY #$05 ;^E 7A76- B1 A4 6210 BDA76 LDA (ZA4),Y 7A78- C9 1F 6215 CMP #$1F ;^_ 7A7A- F0 D5 6220 BEQ BDA51 6225 ; 7A7C- C9 7F 6230 CMP #$7F ; 7A7E- D0 05 6235 BNE BDA85 6240 ; 7A80- AE 6C 72 6245 LDX AD26C 7A83- F0 EC 6250 BEQ BDA71 6255 ; 7A85- 99 84 72 6260 BDA85 STA AD284,Y 7A88- 88 6265 DEY 7A89- 10 EB 6270 BPL BDA76 6275 ; 7A8B- A5 A4 6280 LDA *ZA4 7A8D- 8D 59 72 6285 STA AD259 7A90- A5 A5 6290 LDA *ZA5 7A92- 8D 5A 72 6295 STA AD25A 7A95- 8C 70 72 6300 STY AD270 7A98- 20 AA 78 6305 JSR SD8AA 7A9B- 20 A4 7A 6310 JSR SDAA4 7A9E- 20 C5 7A 6315 JSR SDAC5 7AA1- 4C 65 7A 6320 JMP JDA65 6325 ; 7AA4- AD 59 72 6330 SDAA4 LDA AD259 7AA7- AC 5A 72 6335 LDY AD25A 7AAA- 4C 87 76 6340 JMP SD687 6345 ; 7AAD- A2 00 6350 JDAAD LDX #$00 ;^@ 7AAF- 20 4A 75 6355 JSR SD54A 7AB2- BD 84 72 6360 BDAB2 LDA AD284,X 7AB5- C9 0D 6365 CMP #$0D ;^M 7AB7- F0 06 6370 BEQ BDABF 6375 ; 7AB9- 20 4F 75 6380 JSR SD54F 7ABC- E8 6385 INX 7ABD- D0 F3 6390 BNE BDAB2 6395 ; 7ABF- 20 8A 75 6400 BDABF JSR SD58A 7AC2- 4C 4C 7A 6405 JMP JDA4C 6410 ; 7AC5- 20 DF 7A 6415 SDAC5 JSR SDADF 7AC8- 20 E3 76 6420 JSR SD6E3 7ACB- 20 1B 79 6425 JSR SD91B 7ACE- AD 58 72 6430 LDA AD258 7AD1- 8D 15 72 6435 STA AD215 7AD4- A9 21 6440 LDA #$21 ;! 7AD6- 8D 83 72 6445 STA AD283 7AD9- EE 70 72 6450 INC AD270 7ADC- 4C BB 78 6455 JMP JD8BB 6460 ; 7ADF- A0 06 6465 SDADF LDY #$06 ;^F 7AE1- B1 A4 6470 BDAE1 LDA (ZA4),Y 7AE3- 99 A0 00 6475 STA ZA0,Y 7AE6- C8 6480 INY 7AE7- C0 0A 6485 CPY #$0A ;^J 7AE9- 30 F6 6490 BMI BDAE1 6495 ; 7AEB- 60 6500 RTS 6505 ; 7AEC- A9 0B 6510 SET.VEC LDA #L,FDS.BRVEC 7AEE- A0 73 6515 LDY #H,FDS.BRVEC 7AF0- 20 86 8B 6520 SDAF0 JSR ACCESS 7AF3- 8D 76 A6 6525 STA UBRKVC 7AF6- 8C 77 A6 6530 STY UBRKVC+1 7AF9- 48 6535 PHA 7AFA- AD 53 A6 6540 LDA TECHO 7AFD- 09 80 6545 ORA #$80 ;.^@ 7AFF- 8D 53 A6 6550 STA TECHO 7B02- 68 6555 PLA 7B03- 60 6560 RTS 6565 ; 7B04- A2 09 6570 SDB04 LDX #$09 ;^I 7B06- BD 28 72 6575 BDB06 LDA AD228,X 7B09- 9D 83 72 6580 STA AD283,X 7B0C- CA 6585 DEX 7B0D- D0 F7 6590 BNE BDB06 6595 ; 7B0F- 60 6600 RTS 6605 ; 7B10- 45 72 72 6610 ERROR.MSG .BY 'Error' $FF 7B13- 6F 72 FF 7B16- 45 72 61 6615 ERASE.MSG .BY 'Erase ' 7B19- 73 65 20 7B1C- 66 69 6C 6620 FILE.MSG .BY 'file? ' $D 7B1F- 65 3F 20 7B22- 0D 7B23- 49 4E 44 6625 INDEX.MSG .BY 'INDEX ' 7B26- 45 58 20 7B29- 55 4E 44 6630 UNDEF.MSG .BY 'UNDEFINED' $FF 7B2C- 45 46 49 7B2F- 4E 45 44 7B32- FF 7B33- 46 4F 44 6635 BOOT.MSG .BY 'FODS Copyright (@) 1981 HDE inc' $00 7B36- 53 20 43 7B39- 6F 70 79 7B3C- 72 69 67 7B3F- 68 74 20 7B42- 28 40 29 7B45- 20 31 39 7B48- 38 31 20 7B4B- 48 44 45 7B4E- 20 69 6E 7B51- 63 00 7B53- 41 42 4F 6640 ABORT.MSG .BY 'ABORT' $FF 7B56- 52 54 FF 7B59- 20 53 54 6645 STAT.MSG .BY ' STAT ERR' $FF 7B5C- 41 54 20 7B5F- 45 52 52 7B62- FF 7B63- 4E 45 58 6650 NEXTT.MSG .BY 'NEXT: T' $D 7B66- 54 3A 20 7B69- 54 0D 7B6B- 20 25 54 6655 TED.MSG .BY ' %TED' $D 7B6E- 45 44 0D 6660 7B71- C9 30 6665 SDB71 CMP #$30 7B73- 30 1A 6670 BMI BDB8F 7B75- C9 47 6675 CMP #$47 ;G 7B77- 10 16 6680 BPL BDB8F 6685 ; 7B79- C9 40 6690 CMP #$40 ;@ 7B7B- 30 03 6695 BMI BDB80 6700 ; 7B7D- 18 6705 CLC 7B7E- 69 09 6710 ADC #$09 ;^I 7B80- 2A 6715 BDB80 ROL A 7B81- 2A 6720 ROL A 7B82- 2A 6725 ROL A 7B83- 2A 6730 ROL A 7B84- A0 04 6735 LDY #$04 ;^D 7B86- 2A 6740 BDB86 ROL A 7B87- 26 AE 6745 ROL *ZAE 7B89- 26 AF 6750 ROL *ZAF 7B8B- 88 6755 DEY 7B8C- D0 F8 6760 BNE BDB86 6765 ; 7B8E- 98 6770 TYA 7B8F- 60 6775 BDB8F RTS 6780 ; 7B90- A5 AE 6785 BDB90 LDA *ZAE 7B92- 85 FE 6790 STA *ZFE 7B94- A5 AF 6795 LDA *ZAF 7B96- 85 FF 6800 STA *ZFF 7B98- 60 6805 RTS 6810 ; 7B99- 4C 60 A6 6815 JDB99 JMP INVEC 6820 ; 7B9C- 4C 63 A6 6825 JDB9C JMP OUTVEC 6830 ; 7B9F- 4C 4D 83 6835 JDB9F JMP CRLF 6840 ; 7BA2- 60 6845 RTS 6850 ; 7BA3- EA 6855 NOP 7BA4- EA 6860 NOP 7BA5- EA 6865 NOP 7BA6- 20 35 80 6870 JDBA6 JSR USRENT 7BA9- 4C 80 73 6875 JMP FODS.WARM 6880 ; 7BAC- 20 63 7C 6885 SDBAC JSR SDC63 7BAF- A9 E0 6890 LDA #$E0 ;.` 7BB1- 9D 8B A8 6895 STA DSK.ACR,X 7BB4- A9 FB 6900 LDA #$FB ;.{ 7BB6- 9D 8C A8 6905 STA DSK.PCR,X 7BB9- A9 C2 6910 LDA #$C2 ;.B 7BBB- 9D 86 A8 6915 STA DSK.T1LOW,X 7BBE- A9 00 6920 LDA #$00 ;^@ 7BC0- 9D 85 A8 6925 STA DSK.T1HIGH,X 7BC3- 9D 88 A8 6930 STA DSK.T2LOW,X 7BC6- 9D 89 A8 6935 STA DSK.T2HIGH,X 7BC9- A9 00 6940 LDA #$00 ;^@ 7BCB- 9D 83 A8 6945 STA DSK.DDRA,X 7BCE- A9 BF 6950 LDA #$BF ;.? 7BD0- 9D 82 A8 6955 STA DSK.DDRB,X 7BD3- A9 26 6960 LDA #$26 ;& 7BD5- 9D 80 A8 6965 STA DSK.REGB,X 7BD8- BD 81 A8 6970 LDA DSK.REGA,X 7BDB- BD 8D A8 6975 LDA DSK.IFR,X 7BDE- 9D 8D A8 6980 STA DSK.IFR,X 7BE1- A9 2F 6985 LDA #$2F ;/ 7BE3- 8D 19 72 6990 STA AD219 7BE6- 20 41 7C 6995 JSR SDC41 7BE9- 60 7000 RTS 7005 ; 7BEA- AD 14 72 7010 SDBEA LDA AD214 7BED- 0A 7015 ASL A 7BEE- 0A 7020 ASL A 7BEF- 0A 7025 ASL A 7BF0- 0A 7030 ASL A 7BF1- AA 7035 TAX 7BF2- 60 7040 RTS 7045 ; 7BF3- BD 8C A8 7050 SDBF3 LDA DSK.PCR,X 7BF6- 29 DF 7055 AND #$DF ;._ 7BF8- 9D 8C A8 7060 STA DSK.PCR,X 7BFB- 09 20 7065 ORA #$20 ; 7BFD- 9D 8C A8 7070 STA DSK.PCR,X 7C00- 60 7075 RTS 7080 ; 7C01- BD 80 A8 7085 SDC01 LDA DSK.REGB,X 7C04- 29 F8 7090 AND #$F8 ;.x 7C06- 0D 15 72 7095 ORA AD215 7C09- 4C 3D 7C 7100 JMP JDC3D 7105 ; 7C0C- A9 FF 7110 SDC0C LDA #$FF ;. 7C0E- 9D 83 A8 7115 STA DSK.DDRA,X 7C11- BD 80 A8 7120 LDA DSK.REGB,X 7C14- 29 DF 7125 AND #$DF ;._ 7C16- 4C 3D 7C 7130 JMP JDC3D 7135 ; 7C19- A9 00 7140 SDC19 LDA #$00 ;^@ 7C1B- 9D 83 A8 7145 STA DSK.DDRA,X 7C1E- BD 80 A8 7150 LDA DSK.REGB,X 7C21- 09 20 7155 ORA #$20 ; 7C23- 4C 3D 7C 7160 JMP JDC3D 7165 ; 7C26- BD 80 A8 7170 SDC26 LDA DSK.REGB,X 7C29- 29 E7 7175 AND #$E7 ;.g 7C2B- 4C 3D 7C 7180 JMP JDC3D 7185 ; 7C2E- BD 80 A8 7190 SDC2E LDA DSK.REGB,X 7C31- 29 F7 7195 AND #$F7 ;.w 7C33- 09 10 7200 ORA #$10 ;^P 7C35- 4C 3D 7C 7205 JMP JDC3D 7210 ; 7C38- BD 80 A8 7215 SDC38 LDA DSK.REGB,X 7C3B- 09 18 7220 ORA #$18 ;^X 7C3D- 9D 80 A8 7225 JDC3D STA DSK.REGB,X 7C40- 60 7230 RTS 7235 ; 7C41- 20 0C 7C 7240 SDC41 JSR SDC0C 7C44- 20 26 7C 7245 JSR SDC26 7C47- A9 C8 7250 LDA #$C8 ;.H 7C49- 9D 89 A8 7255 STA DSK.T2HIGH,X 7C4C- 20 56 7C 7260 JSR SDC56 7C4F- AD 19 72 7265 LDA AD219 7C52- 9D 81 A8 7270 STA DSK.REGA,X 7C55- 60 7275 RTS 7280 ; 7C56- 78 7285 SDC56 SEI 7C57- BD 8D A8 7290 LDA DSK.IFR,X 7C5A- 9D 8D A8 7295 STA DSK.IFR,X 7C5D- A9 B2 7300 LDA #$B2 ;.2 7C5F- 9D 8E A8 7305 STA DSK.IER,X 7C62- 60 7310 RTS 7315 ; 7C63- A9 7F 7320 SDC63 LDA #$7F ; 7C65- 9D 8E A8 7325 STA DSK.IER,X 7C68- 58 7330 CLI 7C69- 60 7335 RTS 7340 ; 7C6A- 20 19 7C 7345 SDC6A JSR SDC19 7C6D- 20 26 7C 7350 JSR SDC26 7C70- 20 F3 7B 7355 JSR SDBF3 7C73- BD 81 A8 7360 LDA DSK.REGA,X 7C76- 49 FF 7365 EOR #$FF ;. 7C78- 8D 1A 72 7370 STA AD21A 7C7B- 60 7375 RTS 7380 ; 7C7C- AD 18 72 7385 SDC7C LDA AD218 7C7F- C9 10 7390 CMP #$10 ;^P 7C81- F0 1B 7395 BEQ BDC9E 7400 ; 7C83- C9 20 7405 CMP #$20 ; 7C85- F0 23 7410 BEQ BDCAA 7415 ; 7C87- C9 30 7420 CMP #$30 ;0 7C89- D0 3A 7425 BNE BDCC5 7430 ; 7C8B- 20 EA 7B 7435 JSR SDBEA 7C8E- 20 B6 7E 7440 JSR SDEB6 7C91- B0 08 7445 BCS BDC9B 7450 ; 7C93- A9 00 7455 LDA #$00 ;^@ 7C95- 8D 15 72 7460 STA AD215 7C98- 20 01 7C 7465 JSR SDC01 7C9B- 4C 2B 7D 7470 BDC9B JMP JDD2B 7475 ; 7C9E- 20 EA 7B 7480 BDC9E JSR SDBEA 7CA1- 20 AC 7B 7485 JSR SDBAC 7CA4- 20 B6 7E 7490 JSR SDEB6 7CA7- 4C 2B 7D 7495 JMP JDD2B 7500 ; 7CAA- 20 EA 7B 7505 BDCAA JSR SDBEA 7CAD- 20 B6 7E 7510 JSR SDEB6 7CB0- B0 10 7515 BCS BDCC2 7520 ; 7CB2- A9 06 7525 LDA #$06 ;^F 7CB4- 8D 15 72 7530 STA AD215 7CB7- 20 01 7C 7535 JSR SDC01 7CBA- 20 4A 7E 7540 JSR SDE4A 7CBD- A9 EC 7545 LDA #$EC ;.l 7CBF- 20 7C 7E 7550 JSR SDE7C 7CC2- 4C 2B 7D 7555 BDCC2 JMP JDD2B 7560 ; 7CC5- AD 10 72 7565 BDCC5 LDA AD210 7CC8- 85 A4 7570 STA *ZA4 7CCA- AD 11 72 7575 LDA AD211 7CCD- 85 A5 7580 STA *ZA5 7CCF- A9 00 7585 LDA #$00 ;^@ 7CD1- 8D 1C 72 7590 STA AD21C 7CD4- A9 1E 7595 LDA #$1E ;^^ 7CD6- 8D 1D 72 7600 STA AD21D 7CD9- 20 EA 7B 7605 BDCD9 JSR SDBEA 7CDC- 20 B6 7E 7610 JSR SDEB6 7CDF- B0 4A 7615 BCS JDD2B 7620 ; 7CE1- 20 C5 7D 7625 JSR SDDC5 7CE4- B0 45 7630 BCS JDD2B 7635 ; 7CE6- 20 6C 7E 7640 JDCE6 JSR SDE6C 7CE9- B0 40 7645 BCS JDD2B 7650 ; 7CEB- 20 A6 7E 7655 JDCEB JSR SDEA6 7CEE- 20 CD 7E 7660 JSR SDECD 7CF1- AD 18 72 7665 LDA AD218 7CF4- F0 40 7670 BEQ BDD36 7675 ; 7CF6- C9 01 7680 CMP #$01 ;^A 7CF8- F0 3F 7685 BEQ BDD39 7690 ; 7CFA- C9 03 7695 CMP #$03 ;^C 7CFC- F0 10 7700 BEQ BDD0E 7705 ; 7CFE- C9 04 7710 CMP #$04 ;^D 7D00- F0 1A 7715 BEQ BDD1C 7720 ; 7D02- C9 06 7725 CMP #$06 ;^F 7D04- F0 59 7730 BEQ BDD5F 7735 ; 7D06- A9 17 7740 LDA #$17 ;^W 7D08- 8D 1B 72 7745 STA AD21B 7D0B- 38 7750 SEC 7D0C- B0 1D 7755 BCS JDD2B 7760 ; 7D0E- 20 E6 7E 7765 BDD0E JSR SDEE6 7D11- B0 18 7770 BCS JDD2B 7775 ; 7D13- 20 6A 7C 7780 JSR SDC6A 7D16- 29 9F 7785 AND #$9F ;.^_ 7D18- F0 6A 7790 BEQ BDD84 7795 ; 7D1A- D0 0A 7800 BNE BDD26 7805 ; 7D1C- 20 2A 7F 7810 BDD1C JSR SDF2A 7D1F- B0 0A 7815 BCS JDD2B 7820 ; 7D21- 20 6A 7C 7825 JSR SDC6A 7D24- F0 5E 7830 BEQ BDD84 7835 ; 7D26- 20 8C 7F 7840 BDD26 JSR SDF8C 7D29- 90 AE 7845 BDD29 BCC BDCD9 7850 ; 7D2B- 20 63 7C 7855 JDD2B JSR SDC63 7D2E- B0 05 7860 BCS BDD35 7865 ; 7D30- A9 FF 7870 LDA #$FF ;. 7D32- 8D 1B 72 7875 STA AD21B 7D35- 60 7880 BDD35 RTS 7885 7D36- A9 03 7890 BDD36 LDA #$03 7D38- 2C 7895 .BY $2C 7D39- A9 04 7900 BDD39 LDA #$04 7D3B- 8D 18 72 7905 STA AD218 7D3E- AD 16 72 7910 LDA AD216 7D41- 48 7915 PHA 7D42- AD 17 72 7920 LDA AD217 7D45- 48 7925 PHA 7D46- 20 D9 7C 7930 JSR BDCD9 7D49- 90 04 7935 BCC BDD4F 7940 ; 7D4B- 68 7945 PLA 7D4C- 68 7950 PLA 7D4D- B0 DC 7955 BCS JDD2B 7960 ; 7D4F- A9 06 7965 BDD4F LDA #$06 ;^F 7D51- 8D 18 72 7970 STA AD218 7D54- 68 7975 PLA 7D55- 8D 17 72 7980 STA AD217 7D58- 68 7985 PLA 7D59- 8D 16 72 7990 STA AD216 7D5C- 4C 7C 7C 7995 JMP SDC7C 8000 ; 7D5F- 20 56 7F 8005 BDD5F JSR SDF56 7D62- B0 C7 8010 BCS JDD2B 8015 ; 7D64- 20 6A 7C 8020 JSR SDC6A 7D67- 29 9F 8025 AND #$9F ;.^_ 7D69- D0 0D 8030 BNE BDD78 8035 ; 7D6B- AD 1C 72 8040 LDA AD21C 7D6E- F0 14 8045 BEQ BDD84 8050 ; 7D70- A9 23 8055 LDA #$23 ;# 7D72- 8D 1B 72 8060 STA AD21B 7D75- 38 8065 SEC 7D76- B0 B3 8070 BCS JDD2B 8075 ; 7D78- A9 00 8080 BDD78 LDA #$00 ;^@ 7D7A- 8D 1C 72 8085 STA AD21C 7D7D- 20 8C 7F 8090 JSR SDF8C 7D80- B0 A9 8095 BCS JDD2B 8100 ; 7D82- 90 A5 8105 BCC BDD29 8110 ; 7D84- A9 1E 8115 BDD84 LDA #$1E ;^^ 7D86- 8D 1D 72 8120 STA AD21D 7D89- 18 8125 CLC 7D8A- A5 A4 8130 LDA *ZA4 7D8C- 6D 23 72 8135 ADC AD223 7D8F- 85 A4 8140 STA *ZA4 7D91- A5 A5 8145 LDA *ZA5 7D93- 69 00 8150 ADC #$00 ;^@ 7D95- 85 A5 8155 STA *ZA5 7D97- CD 13 72 8160 CMP AD213 7D9A- D0 0B 8165 BNE BDDA7 8170 ; 7D9C- A5 A4 8175 LDA *ZA4 7D9E- CD 12 72 8180 CMP AD212 7DA1- D0 04 8185 BNE BDDA7 8190 ; 7DA3- 18 8195 CLC 7DA4- 4C 2B 7D 8200 JMP JDD2B 8205 ; 7DA7- E6 A4 8210 BDDA7 INC *ZA4 7DA9- D0 02 8215 BNE BDDAD 8220 ; 7DAB- E6 A5 8225 INC *ZA5 7DAD- A9 10 8230 BDDAD LDA #$10 ;^P 7DAF- CD 17 72 8235 CMP AD217 7DB2- F0 06 8240 BEQ BDDBA 8245 ; 7DB4- EE 17 72 8250 INC AD217 7DB7- 4C EB 7C 8255 JMP JDCEB 8260 ; 7DBA- A9 01 8265 BDDBA LDA #$01 ;^A 7DBC- 8D 17 72 8270 STA AD217 7DBF- EE 16 72 8275 INC AD216 7DC2- 4C E6 7C 8280 JMP JDCE6 8285 ; 7DC5- AD 15 72 8290 SDDC5 LDA AD215 7DC8- 29 06 8295 AND #$06 ;^F 7DCA- C9 06 8300 CMP #$06 ;^F 7DCC- D0 04 8305 BNE BDDD2 8310 ; 7DCE- A9 02 8315 LDA #$02 ;^B 7DD0- D0 28 8320 BNE BDDFA 8325 ; 7DD2- BD 80 A8 8330 BDDD2 LDA DSK.REGB,X 7DD5- 29 06 8335 AND #$06 ;^F 7DD7- 8D 23 72 8340 STA AD223 7DDA- 20 01 7C 8345 JSR SDC01 7DDD- AD 23 72 8350 LDA AD223 7DE0- C9 06 8355 CMP #$06 ;^F 7DE2- D0 1B 8360 BNE BDDFF 8365 ; 7DE4- 20 63 7C 8370 JSR SDC63 7DE7- A9 0A 8375 LDA #$0A ;^J 7DE9- 9D 89 A8 8380 STA DSK.T2HIGH,X 7DEC- 20 56 7C 8385 JSR SDC56 7DEF- BD 8D A8 8390 BDDEF LDA DSK.IFR,X 7DF2- 10 FB 8395 BPL BDDEF 8400 ; 7DF4- 29 20 8405 AND #$20 ; 7DF6- D0 07 8410 BNE BDDFF 8415 ; 7DF8- A9 12 8420 LDA #$12 ;^R 7DFA- 8D 1B 72 8425 BDDFA STA AD21B 7DFD- 38 8430 SEC 7DFE- 60 8435 BDDFE RTS 8440 ; 7DFF- 20 13 7E 8445 BDDFF JSR SDE13 7E02- B0 FA 8450 BCS BDDFE 8455 ; 7E04- AD 15 72 8460 LDA AD215 7E07- 29 06 8465 AND #$06 ;^F 7E09- CD 23 72 8470 CMP AD223 7E0C- F0 3A 8475 BEQ BDE48 8480 ; 7E0E- A9 F4 8485 LDA #$F4 ;.t 7E10- 4C 7C 7E 8490 JMP SDE7C 8495 ; 7E13- 20 4A 7E 8500 SDE13 JSR SDE4A 7E16- A9 E4 8505 LDA #$E4 ;.d 7E18- 20 7C 7E 8510 JSR SDE7C 7E1B- B0 E1 8515 BCS BDDFE 8520 ; 7E1D- 20 63 7C 8525 JSR SDC63 7E20- A9 03 8530 LDA #$03 ;^C 7E22- 9D 89 A8 8535 STA DSK.T2HIGH,X 7E25- 20 56 7C 8540 JSR SDC56 7E28- 20 6A 7C 8545 BDE28 JSR SDC6A 7E2B- 29 02 8550 AND #$02 ;^B 7E2D- D0 09 8555 BNE BDE38 8560 ; 7E2F- BD 8D A8 8565 LDA DSK.IFR,X 7E32- 10 F4 8570 BPL BDE28 8575 ; 7E34- A9 20 8580 LDA #$20 ; 7E36- D0 C2 8585 BNE BDDFA 8590 ; 7E38- 20 6A 7C 8595 BDE38 JSR SDC6A 7E3B- 29 02 8600 AND #$02 ;^B 7E3D- F0 09 8605 BEQ BDE48 8610 ; 7E3F- BD 8D A8 8615 LDA DSK.IFR,X 7E42- 10 F4 8620 BPL BDE38 8625 ; 7E44- A9 21 8630 LDA #$21 ;! 7E46- D0 B2 8635 BNE BDDFA 8640 ; 7E48- 18 8645 BDE48 CLC 7E49- 60 8650 RTS 8655 ; 7E4A- 20 19 7C 8660 SDE4A JSR SDC19 7E4D- 20 61 7E 8665 JSR SDE61 7E50- 20 F3 7B 8670 JSR SDBF3 7E53- BC 81 A8 8675 LDY DSK.REGA,X 7E56- 20 38 7C 8680 JSR SDC38 7E59- 20 0C 7C 8685 JSR SDC0C 7E5C- 98 8690 TYA 7E5D- 9D 81 A8 8695 STA DSK.REGA,X 7E60- 60 8700 RTS 8705 ; 7E61- BD 80 A8 8710 SDE61 LDA DSK.REGB,X 7E64- 29 EF 8715 AND #$EF ;.o 7E66- 09 08 8720 ORA #$08 ;^H 7E68- 9D 80 A8 8725 STA DSK.REGB,X 7E6B- 60 8730 RTS 8735 ; 7E6C- 20 38 7C 8740 SDE6C JSR SDC38 7E6F- 20 0C 7C 8745 JSR SDC0C 7E72- AD 16 72 8750 LDA AD216 7E75- 49 FF 8755 EOR #$FF ;. 7E77- 9D 81 A8 8760 STA DSK.REGA,X 7E7A- A9 E0 8765 LDA #$E0 ;.` 7E7C- 8D 19 72 8770 SDE7C STA AD219 7E7F- 20 41 7C 8775 JSR SDC41 7E82- BD 8D A8 8780 BDE82 LDA DSK.IFR,X 7E85- 10 FB 8785 BPL BDE82 8790 ; 7E87- 29 10 8795 AND #$10 ;^P 7E89- F0 0E 8800 BEQ BDE99 8805 ; 7E8B- A9 1A 8810 LDA #$1A ;^Z 7E8D- 8D 1B 72 8815 STA AD21B 7E90- 20 6A 7C 8820 JSR SDC6A 7E93- 29 19 8825 AND #$19 ;^Y 7E95- D0 0D 8830 BNE BDEA4 8835 ; 7E97- 18 8840 CLC 7E98- 60 8845 RTS 8850 ; 7E99- A9 12 8855 BDE99 LDA #$12 ;^R 7E9B- 8D 1B 72 8860 STA AD21B 7E9E- BD 8D A8 8865 LDA DSK.IFR,X 7EA1- 8D 1A 72 8870 STA AD21A 7EA4- 38 8875 BDEA4 SEC 7EA5- 60 8880 RTS 8885 ; 7EA6- 20 2E 7C 8890 SDEA6 JSR SDC2E 7EA9- 20 0C 7C 8895 JSR SDC0C 7EAC- AD 17 72 8900 LDA AD217 7EAF- 49 FF 8905 EOR #$FF ;. 7EB1- 9D 81 A8 8910 STA DSK.REGA,X 7EB4- 18 8915 CLC 7EB5- 60 8920 RTS 8925 ; 7EB6- A9 E0 8930 SDEB6 LDA #$E0 ;.` 7EB8- DD 8B A8 8935 CMP DSK.ACR,X 7EBB- D0 09 8940 BNE BDEC6 8945 ; 7EBD- A9 BF 8950 LDA #$BF ;.? 7EBF- DD 82 A8 8955 CMP DSK.DDRB,X 7EC2- D0 02 8960 BNE BDEC6 8965 ; 7EC4- 18 8970 CLC 7EC5- 60 8975 RTS 8980 ; 7EC6- A9 1F 8985 BDEC6 LDA #$1F ;^_ 7EC8- 8D 1B 72 8990 STA AD21B 7ECB- 38 8995 SEC 7ECC- 60 9000 RTS 9005 ; 7ECD- 38 9010 SDECD SEC 7ECE- AD 12 72 9015 LDA AD212 7ED1- E5 A4 9020 SBC *ZA4 7ED3- 30 0B 9025 BMI BDEE0 9030 ; 7ED5- 8D 23 72 9035 STA AD223 7ED8- A8 9040 TAY 7ED9- AD 13 72 9045 LDA AD213 7EDC- E5 A5 9050 SBC *ZA5 7EDE- F0 05 9055 BEQ BDEE5 9060 ; 7EE0- A0 7F 9065 BDEE0 LDY #$7F ; 7EE2- 8C 23 72 9070 STY AD223 7EE5- 60 9075 BDEE5 RTS 9080 ; 7EE6- A9 77 9085 SDEE6 LDA #$77 ;w 7EE8- 8D 19 72 9090 STA AD219 7EEB- 20 41 7C 9095 JSR SDC41 7EEE- 20 38 7C 9100 JSR SDC38 7EF1- 20 19 7C 9105 JSR SDC19 7EF4- BD 8D A8 9110 BDEF4 LDA DSK.IFR,X 7EF7- 10 FB 9115 BPL BDEF4 9120 ; 7EF9- 29 02 9125 AND #$02 ;^B 7EFB- F0 17 9130 BEQ BDF14 9135 ; 7EFD- BD 81 A8 9140 LDA DSK.REGA,X 7F00- 91 A4 9145 STA (ZA4),Y 7F02- 88 9150 DEY 7F03- 10 EF 9155 BPL BDEF4 9160 ; 7F05- BD 8D A8 9165 BDF05 LDA DSK.IFR,X 7F08- 10 FB 9170 BPL BDF05 9175 ; 7F0A- 29 02 9180 AND #$02 ;^B 7F0C- F0 06 9185 BEQ BDF14 9190 ; 7F0E- BD 81 A8 9195 LDA DSK.REGA,X 7F11- 4C 05 7F 9200 JMP BDF05 9205 ; 7F14- BD 8D A8 9210 BDF14 LDA DSK.IFR,X 7F17- 29 10 9215 AND #$10 ;^P 7F19- F0 02 9220 BEQ BDF1D 9225 ; 7F1B- 18 9230 CLC 7F1C- 60 9235 RTS 9240 ; 7F1D- A9 51 9245 BDF1D LDA #$51 ;Q 7F1F- 8D 1B 72 9250 STA AD21B 7F22- BD 8D A8 9255 LDA DSK.IFR,X 7F25- 8D 1A 72 9260 STA AD21A 7F28- 38 9265 SEC 7F29- 60 9270 RTS 9275 ; 7F2A- A9 57 9280 SDF2A LDA #$57 ;W 7F2C- 8D 19 72 9285 STA AD219 7F2F- 20 41 7C 9290 JSR SDC41 7F32- 20 38 7C 9295 JSR SDC38 7F35- BD 8D A8 9300 BDF35 LDA DSK.IFR,X 7F38- 10 FB 9305 BPL BDF35 9310 ; 7F3A- 29 02 9315 AND #$02 ;^B 7F3C- F0 D6 9320 BEQ BDF14 9325 ; 7F3E- B1 A4 9330 LDA (ZA4),Y 7F40- 9D 81 A8 9335 STA DSK.REGA,X 7F43- 88 9340 DEY 7F44- 10 EF 9345 BPL BDF35 9350 ; 7F46- BD 8D A8 9355 BDF46 LDA DSK.IFR,X 7F49- 10 FB 9360 BPL BDF46 9365 ; 7F4B- 29 02 9370 AND #$02 ;^B 7F4D- F0 C5 9375 BEQ BDF14 9380 ; 7F4F- A9 00 9385 LDA #$00 ;^@ 7F51- 9D 81 A8 9390 STA DSK.REGA,X 7F54- F0 F0 9395 BEQ BDF46 9400 ; 7F56- A9 77 9405 SDF56 LDA #$77 ;w 7F58- 8D 19 72 9410 STA AD219 7F5B- 20 41 7C 9415 JSR SDC41 7F5E- 20 38 7C 9420 JSR SDC38 7F61- 20 19 7C 9425 JSR SDC19 7F64- BD 8D A8 9430 BDF64 LDA DSK.IFR,X 7F67- 10 FB 9435 BPL BDF64 9440 ; 7F69- 29 02 9445 AND #$02 ;^B 7F6B- F0 A7 9450 BEQ BDF14 9455 ; 7F6D- BD 81 A8 9460 LDA DSK.REGA,X 7F70- D1 A4 9465 CMP (ZA4),Y 7F72- D0 12 9470 BNE BDF86 9475 ; 7F74- 88 9480 DEY 7F75- 10 ED 9485 BPL BDF64 9490 ; 7F77- BD 8D A8 9495 BDF77 LDA DSK.IFR,X 7F7A- 10 FB 9500 BPL BDF77 9505 ; 7F7C- 29 02 9510 AND #$02 ;^B 7F7E- F0 94 9515 BEQ BDF14 9520 ; 7F80- BD 81 A8 9525 LDA DSK.REGA,X 7F83- 4C 77 7F 9530 JMP BDF77 9535 ; 7F86- EE 1C 72 9540 BDF86 INC AD21C 7F89- 4C 77 7F 9545 JMP BDF77 9550 ; 7F8C- A9 22 9555 SDF8C LDA #$22 ;" 7F8E- 8D 1B 72 9560 STA AD21B 7F91- CE 1D 72 9565 DEC AD21D 7F94- F0 34 9570 BEQ BDFCA 9575 ; 7F96- AD 1D 72 9580 LDA AD21D 7F99- C9 0A 9585 CMP #$0A ;^J 7F9B- F0 06 9590 BEQ BDFA3 9595 ; 7F9D- C9 14 9600 CMP #$14 ;^T 7F9F- F0 14 9605 BEQ BDFB5 9610 ; 7FA1- 18 9615 BDFA1 CLC 7FA2- 60 9620 RTS 9625 ; 7FA3- AD 16 72 9630 BDFA3 LDA AD216 7FA6- C9 00 9635 CMP #$00 ;^@ 7FA8- F0 F7 9640 BEQ BDFA1 9645 ; 7FAA- A9 A0 9650 LDA #$A0 ;. 7FAC- 20 7C 7E 9655 JSR SDE7C 7FAF- B0 19 9660 BCS BDFCA 9665 ; 7FB1- A9 80 9670 LDA #$80 ;.^@ 7FB3- D0 10 9675 BNE BDFC5 9680 ; 7FB5- AD 16 72 9685 BDFB5 LDA AD216 7FB8- C9 23 9690 CMP #$23 ;# 7FBA- F0 E5 9695 BEQ BDFA1 9700 ; 7FBC- A9 80 9705 LDA #$80 ;.^@ 7FBE- 20 7C 7E 9710 JSR SDE7C 7FC1- B0 07 9715 BCS BDFCA 9720 ; 7FC3- A9 A0 9725 LDA #$A0 ;. 7FC5- 20 7C 7E 9730 BDFC5 JSR SDE7C 7FC8- 90 D7 9735 BCC BDFA1 9740 ; 7FCA- A9 1D 9745 BDFCA LDA #$1D ;^] 7FCC- 8D 1B 72 9750 STA AD21B 7FCF- 38 9755 SEC 7FD0- 60 9760 RTS 9765 7FD1- 20 86 8B 9770 LCP.CMD JSR ACCESS 7FD4- A9 DF 9775 LDA #L,CMD.VEC 7FD6- A0 7F 9780 LDY #H,CMD.VEC 7FD8- 8D 61 A6 9785 STA INVEC+1 7FDB- 8C 62 A6 9790 STY INVEC+2 7FDE- 60 9795 RTS 9800 ; 7FDF- 68 9805 CMD.VEC PLA 7FE0- 68 9810 PLA 7FE1- 20 86 8B 9815 JSR ACCESS 7FE4- 20 58 8A 9820 JDFE4 JSR INTCHR 7FE7- 29 7F 9825 AND #$7F ; 7FE9- C9 0F 9830 CMP #$0F ;^O 7FEB- D0 0B 9835 BNE BDFF8 9840 ; 7FED- AD 53 A6 9845 LDA TECHO 7FF0- 49 40 9850 EOR #$40 ;@ 7FF2- 8D 53 A6 9855 STA TECHO 7FF5- 4C E4 7F 9860 JMP JDFE4 9865 ; 7FF8- 2C 53 A6 9870 BDFF8 BIT TECHO 7FFB- 70 E7 9875 BVS JDFE4 9880 ; 7FFD- 4C 3C 8A 9885 JMP INRT2 9890 ; 9895 .EN 0000,8000,8000 >