8bitfiles.net/archives

home *** CD-ROM | disk | FTP | other *** search

/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / ML-MON.ARC / DMON.SRC

(.txt)

Wrap

Commodore BASIC | 2019-04-13 | 22.4 KB | 1,547 lines

10 *= $C000 11 .M 20 TOBASIC = $A002 30 PRINT = $FFD2 40 UNLIS = $FFAE 50 TLK = $FFB4 60 TLKSEC = $FF96 70 UNTLK = $FFAB 80 LIST = $FFB1 90 LISEC = $FF93 100 OUT = $FFA8 110 IN = $FFA5 120 STOPKEY = $FFE1 130 CHRIN = $FFCF 140 CHKIN = $FFC6 150 SETNAM = $FFBD 160 SETLFS = $FFBA 170 LOAD = $FFD5 180 SAVE = $FFD8 181 RESET = $FCEF 190 JMP SCRN 200 NEWINT1 STA BUF1B 210 LDA #<NEWINT 220 STA $0318 230 LDA #>NEWINT 240 STA $0319 250 PLA 260 STA BUF8 270 PLA 280 STA BUF1 290 PLA 300 STA BUF1A 310 STX BUF1C 320 STY BUF1D 330 JMP BEGIN 340 NEWBRK CLD 350 CLI 360 PLA 370 STA BUF1D 380 PLA 390 STA BUF1C 400 PLA 410 STA BUF1B 420 PLA 430 STA BUF8 440 PLA 450 SEC 460 SBC #$02 470 STA BUF1 480 PLA 490 SBC #$00 500 STA BUF1A 510 BEGIN LDA #$37 520 STA BUF14 530 LDX #$22 540 BR1 LDA $CE4E,X 550 JSR PRINT 560 DEX 570 BPL BR1 580 TSX 590 STX BUF7 600 LDA #<NEWBRK 610 STA $0316 620 LDA #>NEWBRK 630 STA $0317 640 LDA #<NEWINT1 650 STA $0318 660 LDA #>NEWINT1 670 STA $0319 680 JSR PRTRET 690 LDX #$00 700 STX $63 710 STX $64 720 DEX 730 STX $61 740 LDA #$08 750 STA $BA 760 LDA #$2E 770 STA BUF13 780 COMP JSR CARRET 790 JSR ROUT29 800 LDX #$00 810 STX $90 820 STX $6C 830 STX $6F 840 DEX 850 STX $61 860 JSR ROUT1 870 JMP COMP 880 ROUT1 TSX 890 STX $6E 900 BR2 JSR ROUT2 910 CMP #$0D 920 BEQ BR3 930 CMP BUF13 940 BEQ BR2 950 LDX #$16 960 CMDLP CMP CMND,X 970 BEQ FNDCMD 980 DEX 990 BPL CMDLP 1000 JMP BADCMD 1010 FNDCMD LDA CMDHI,X 1020 PHA 1030 LDA CMDLO,X 1040 PHA 1050 BR3 RTS 1060 CMND .B 70 79 65 68 71 77 58 72 1070 .B 42 76 83 84 82 88 85 73 1080 .B 61 64 74 80 86 67 59 1090 CMDHI .B 194 202 197 195 195 200 193 199 200 1100 .B 199 199 194 199 193 195 200 194 1110 .B 198 195 193 199 193 197 1120 CMDLO .B 32 240 36 91 25 184 156 29 73 192 1130 .B 226 59 241 177 87 132 223 111 1140 .B 59 18 189 237 30 1150 ROUT3 BIT $6C 1160 BPL BR4 1170 LDA #$0D 1180 BNE BR5 1190 BR4 JSR CHRIN 1200 CMP #$B4 1210 BEQ BR6 1220 BR5 CMP #$0D 1230 BR6 RTS 1240 ROUT2 JSR ROUT3 1250 BEQ BR7 1260 JSR ROUT4 1270 BCC ROUT2 1280 RTS 1290 ROUT5 ORA $6C 1300 STA $6C 1310 RTS 1320 BR7 PHA 1330 LDA #$80 1340 JSR ROUT5 1350 PLA 1360 RTS 1370 BR11 JSR ROUT3 1380 BEQ BR7 1390 ROUT4 CMP #$2B 1400 BNE BR8 1410 LDA $6B 1420 PHA 1430 LDA $6A 1440 PHA 1450 LDA $6F 1460 PHA 1470 JSR ROUT6 1480 PLA 1490 STA $6F 1500 PLA 1510 CLC 1520 ADC $6A 1530 STA $6A 1540 PLA 1550 ADC $6B 1560 STA $6B 1570 JMP ROUT7 1580 BR8 CMP #$2D 1590 BNE BR9 1600 LDA $6B 1610 PHA 1620 LDA $6A 1630 PHA 1640 LDA $6F 1650 PHA 1660 JSR ROUT6 1670 PLA 1680 STA $6F 1690 PLA 1700 SEC 1710 SBC $6A 1720 STA $6A 1730 PLA 1740 SBC $6B 1750 STA $6B 1760 JMP ROUT7 1770 BR9 LDX #$08 1780 STX $FE 1790 CMP #$2C 1800 BEQ BR10 1810 LSR $FE 1820 CMP #$28 1830 BEQ BR10 1840 CMP #$29 1850 BEQ BR11 1860 LSR $FE 1870 CMP #$23 1880 BNE BR12 1890 BR10 LDA $FE 1900 JSR ROUT5 1910 ROUT7 LDA #$20 1920 BR12 CMP #$21 1930 RTS 1940 BADCMD LDA #"? 1950 ROUT50 LDX $6E 1960 TXS 1970 JMP [153] 1980 JSR ROUT6 1990 BMI BAD[157] 2000 STX $66 2010 STY $67 2020 BR13 JSR ROUT6 2030 BMI BR12 2040 TXA 2050 JSR ROUT8 2060 JMP BR13 2070 JSR ROUT2 2080 CMP #$43 2090 BNE BR14 2100 LDX #$FF 2110 TXS 2120 SEI 2130 JMP RESET 2140 BR14 PLA 2150 PLA 2160 JSR CARRET 2170 JMP BASIC 2180 ROUT14 JSR ROUT9 2190 BMI BAD[157] 2200 LDY $6A 2210 STY BUF2 2220 STA BUF3 2230 LDY #$00 2240 STY $6F 2250 BR16 JSR ROUT6 2260 BMI BR15 2270 LDY $6F 2280 STA BUF3,Y 2290 TXA 2300 STA BUF2,Y 2310 CPY #$20 2320 BNE BR16 2330 BEQ BAD[157] 2340 BR15 RTS 2350 JSR ROUT9 2360 BMI BR17 2370 JSR CARRET 2380 ROUT16 JSR [144]KEY 2390 BEQ BR18 2400 JSR ROUT10 2410 BEQ BR18 2420 JSR ROUT11 2430 PHA 2440 JSR ROUT12 2450 JSR ROUT13 2460 STA $FE 2470 JSR ROUT12 2480 PLA 2490 CMP $FE 2500 BEQ BR19 2510 JSR ROUT15 2520 BR19 JSR ROUT13 2530 JMP ROUT16 2540 BR18 RTS 2550 BR17 JMP BAD[157] 2560 JSR ROUT14 2570 BR22 LDX #$00 2580 ROUT17 LDA BUF2,X 2590 JSR ROUT8 2600 INX 2610 JSR ROUT10 2620 BEQ BR20 2630 CPX $6F 2640 BEQ BR21 2650 BCS BR22 2660 BR21 JMP ROUT17 2670 BR20 RTS 2680 JSR ROUT9 2690 BMI BR23 2700 LDA $6B 2710 CMP $67 2720 BCC BR24 2730 BNE BR25 2740 LDA $6A 2750 CMP $66 2760 BCC BR24 2770 BR25 LDA $68 2780 SEC 2790 SBC $66 2800 STA $FE 2810 LDA $69 2820 SBC $67 2830 STA $FF 2840 LDA $66 2850 PHA 2860 LDA $67 2870 PHA 2880 LDA $68 2890 STA $66 2900 LDA $69 2910 STA $67 2920 PLA 2930 STA $69 2940 PLA 2950 STA $68 2960 LDA $6A 2970 CLC 2980 ADC $FE 2990 STA $6A 3000 LDA $6B 3010 ADC $FF 3020 STA $6B 3030 BR26 JSR ROUT11 3040 JSR ROUT12 3050 JSR ROUT18 3060 JSR ROUT12 3070 LDA $66 3080 SEC 3090 SBC #$01 3100 STA $66 3110 LDA $67 3120 SBC #$00 3130 STA $67 3140 LDA $6A 3150 SEC 3160 SBC #$01 3170 STA $6A 3180 LDA $6B 3190 SBC #$00 3200 STA $6B 3210 LDA #$FF 3220 STA $61 3230 JSR ROUT10 3240 BCS BR26 3250 BR27 RTS 3260 BR23 JMP BAD[157] 3270 BR24 LDA #$00 3280 STA $6C 3290 BR28 BIT $6C 3300 BMI BR27 3310 JSR ROUT13 3320 PHA 3330 JSR ROUT12 3340 PLA 3350 JSR ROUT8 3360 JSR ROUT12 3370 JSR ROUT10 3380 BCC BR28 3390 BEQ BR28 3400 RTS 3410 ROUT12 LDY #$01 3420 PHA 3430 BR29 LDX $66,Y 3440 LDA $6A,Y 3450 STA $66,Y 3460 STX $6A,Y 3470 DEY 3480 BPL BR29 3490 PLA 3500 RTS 3510 JSR ROUT9 3520 JSR CARRET 3530 LDA $66 3540 JSR ROUT19 3550 JSR ROUT20 3560 JSR ROUT21 3570 JSR ROUT15 3580 LDX $66 3590 LDY $67 3600 LDA #$21 3610 JSR [153] 3620 JSR ROUT22 3630 JSR ROUT20 3640 LDA $67 3650 JSR ROUT23 3660 JSR ROUT20 3670 LDA $66 3680 JMP ROUT24 3690 BR35 RTS 3700 ROUT30 JSR [153] 3710 JMP ROUT20 3720 BR30 JMP BAD[157] 3730 LDA $63 3740 E[176] $64 3750 BNE BR30 3760 LDA $63 3770 BEQ BR31 3780 JSR ROUT6 3790 BMI BR30 3800 STX $66 3810 STY $67 3820 LDA $63 3830 JSR ROUT25 3840 LDA #$45 3850 JSR ROUT26 3860 JMP UNLIS 3870 BR31 PLA 3880 PLA 3890 JSR ROUT6 3900 BMI BR32 3910 STX BUF1 3920 STY BUF1A 3930 BR32 LDA BUF8 3940 PHA 3950 LDA BUF1B 3960 LDX BUF1C 3970 LDY BUF1D 3980 PLP 3990 JMP (BUF1) 4000 LDA #$40 4010 STA $6C 4020 LDA #$00 4030 STA $69 4040 JSR ROUT9 4050 LDA #$17 4060 STA $6F 4070 ROUT28 LDA $69 4080 BNE BR33 4090 DEC $6F 4100 BNE BR34 4110 RTS 4120 BR33 JSR ROUT10 4130 BEQ BR34 4140 BCS BR35 4150 BR34 JSR [144]KEY 4160 BEQ BR35 4170 JSR ROUT27 4180 JMP ROUT28 4190 ROUT27 JSR CARRET 4200 JSR ROUT29 4210 LDA #$3B 4220 JSR ROUT30 4230 JSR ROUT15 4240 LDY #$00 4250 STY $FF 4260 JSR ROUT13 4270 JSR ROUT31 4280 STA BUF3 4290 JSR ROUT32 4300 STA $FE 4310 TAX 4320 LDA BYT,X 4330 TAX 4340 BIT $6C 4350 BVS BR36 4360 LDA BUF3 4370 TAY 4380 LDA BUF15,Y 4390 CMP #$38 4400 BCC BR36 4410 LDA #$07 4420 STA $FE 4430 LDX #$01 4440 BR36 TXA 4450 PHA 4460 LDA $FE 4470 PHA 4480 STX $6D 4490 TXA 4500 PHA 4510 ROUT33 JSR ROUT20 4520 DEC $6D 4530 BEQ BR37 4540 JSR ROUT13 4550 LDX $FF 4560 STA BUF4,X 4570 INC $FF 4580 JSR ROUT31 4590 JMP ROUT33 4600 BR37 PLA 4610 TAX 4620 DEX 4630 LDA BUF16,X 4640 TAX 4650 LDA #$20 4660 JSR ROUT34 4670 LDY #$00 4680 LDA BUF3,Y 4690 TAY 4700 LDA BUF15,Y 4710 CMP #$38 4720 BCC BR38 4730 BIT $6C 4740 BVS BR38 4750 LDA #$38 4760 BR38 JSR ROUT35 4770 JSR ROUT36 4780 JSR ROUT20 4790 PLA 4800 TAX 4810 STX $6D 4820 JSR ROUT37 4830 LDA #$20 4840 STA $D3 4850 LDA #$B4 4860 JSR [153] 4870 PLA 4880 TAX 4890 LDA #$00 4900 STA $6D 4910 BR39 LDY $6D 4920 LDA BUF3,Y 4930 INC $6D 4940 JSR ROUT19 4950 DEX 4960 BNE BR39 4970 RTS 4980 ROUT37 LDA BUF17,X 4990 ROUT49 PHA 5000 LDA BUF18,X 5010 PHA 5020 RTS 5030 BUF17 .B 196 196 196 196 196 196 196 196 5040 .B 196 196 196 196 196 5041 BUF18 .B 74 79 88 5050 .B 94 100 112 118 47 124 205 226 5060 .B 217 38 5070 LDA #$23 5080 JSR [153] 5090 ROUT38 JSR ROUT21 5100 ROUT41 LDA BUF4 5110 JMP ROUT31 5120 JSR ROUT38 5130 JMP ROUT39 5140 JSR ROUT38 5150 JMP ROUT40 5160 ROUT42 JSR ROUT21 5170 ROUT45 LDA BUF5 5180 JSR ROUT31 5190 JMP ROUT41 5200 JSR ROUT42 5210 JMP ROUT39 5220 JSR ROUT42 5230 JMP ROUT40 5240 LDA $67 5250 STA BUF5 5260 BIT BUF4 5270 BMI BR40 5280 LDA $66 5290 CLC 5300 ADC BUF4 5310 STA BUF4 5320 BCC BR41 5330 INC BUF5 5340 BR41 JMP ROUT42 5350 BR40 LDA BUF4 5360 E[176] #$FF 5370 STA BUF4 5380 LDA $66 5390 INC BUF4 5400 SEC 5410 SBC BUF4 5420 BCS BR42 5430 DEC BUF5 5440 BR42 STA BUF4 5450 JMP ROUT42 5460 ROUT43 LDA #$28 5470 JSR [153] 5480 ROUT21 LDA #$24 5490 BR43 JMP [153] 5500 CARRET LDA #$0D 5510 BNE BR43 5520 ROUT46 LDA #$2C 5530 BNE BR43 5540 ROUT20 LDA #$20 5550 BNE BR43 5560 ROUT44 LDA #$29 5570 BNE BR43 5580 JSR ROUT43 5590 JSR ROUT41 5600 JSR ROUT39 5610 JMP ROUT44 5620 JSR ROUT43 5630 JSR ROUT45 5640 JMP ROUT44 5650 JSR ROUT43 5660 JSR ROUT41 5670 JSR ROUT44 5680 JMP ROUT40 5690 ROUT39 JSR ROUT46 5700 LDA #$58 5710 BR44 BNE BR43 5720 ROUT40 JSR ROUT46 5730 LDA #$59 5740 BNE BR44 5750 ROUT34 JSR [153] 5760 DEX 5770 BNE ROUT34 5780 RTS 5790 ROUT35 ASL 5800 TAY 5810 LDA BUF19,Y 5820 TAX 5830 LDA BUF19[170]1,Y 5840 RTS 5850 ROUT32 CMP #$80 5860 [175] #$7F 5870 TAY 5880 LDA BUF20,Y 5890 BCS BR45 5900 LSR 5910 LSR 5920 LSR 5930 LSR 5940 BR45 [175] #$0F 5950 RTS 5960 JSR ROUT47 5970 JMP ROUT48 5980 JSR ROUT47 5990 JSR ROUT48 6000 JSR CARRET 6010 JSR ROUT29 6020 LDA #$3B 6030 JSR ROUT30 6040 JSR ROUT15 6050 JMP ROUT49 6060 ROUT47 JSR ROUT6 6070 BMI ROUT53 6080 STX $66 6090 STY $67 6100 RTS 6110 BR46 JMP ROUT50 6120 ROUT48 LDY #$00 6130 STY $6C 6140 JSR ROUT2 6150 STA BUF9 6160 BR47 INY 6170 BIT $6C 6180 BMI BR46 6190 JSR BR11 6200 CMP #$20 6210 BEQ ROUT48 6220 STA BUF9,Y 6230 CPY #$02 6240 BNE BR47 6250 LDA #$09 6260 JSR ROUT51 6270 BMI BR48 6280 STX $68 6290 STY $69 6300 TYA 6310 BNE BR49 6320 LDA #$01 6330 JSR ROUT5 6340 BR49 LDA $6C 6350 [175] #$0F 6360 TAX 6370 LDA BUF21,X 6380 PHA 6390 LDA BUF22,X 6400 PHA 6410 RTS 6420 BUF21 .B 197 197 197 197 197 197 6430 .B 197 197 197 197 197 197 197 6440 .B 197 197 197 6500 BUF22 .B 173 207 166 211 215 166 6510 .B 166 166 219 232 166 166 166 6520 .B 245 166 166 6590 ROUT53 JMP BAD[157] 6600 BR48 LDA #$07 6610 BNE BR50 6620 LDA BUF9 6630 CMP #$42 6640 BNE BR51 6650 LDA BUF10 6660 CMP #$49 6670 BEQ BR51 6680 SEC 6690 LDA $66 6700 SBC $0068 6710 CLC 6720 ADC #$01 6730 E[176] #$FF 6740 STA $68 6750 LDA #$08 6760 BNE BR50 6770 BR51 LDA #$04 6780 BNE BR50 6790 LDA #$01 6800 BNE BR50 6810 LDA #$00 6820 BEQ BR50 6830 LDA #$0B 6840 BNE BR50 6850 JSR ROUT52 6860 BEQ BR52 6870 LDA #$06 6880 BNE BR50 6890 BR52 LDA #$05 6900 BNE BR50 6910 JSR ROUT52 6920 BNE BR53 6930 LDA #$02 6940 BNE BR50 6950 BR53 LDA #$03 6960 BNE BR50 6970 JSR ROUT52 6980 BEQ BR54 6990 LDA #$0A 7000 BNE BR50 7010 BR54 LDA #$09 7020 BNE BR50 7030 BR62 JMP ROUT53 7040 BR50 STA $6F 7050 LDY #$00 7060 STY $6D 7070 BR57 LDA $6D 7080 JSR ROUT32 7090 CMP $6F 7100 BEQ BR55 7110 BR58 DEC $6D 7120 BEQ BR56 7130 BNE BR57 7140 BR55 LDA $6D 7150 TAY 7160 LDA BUF15,Y 7170 JSR ROUT35 7180 JSR ROUT54 7190 LDY #$02 7200 BR59 LDA BUF2,Y 7210 CMP BUF9,Y 7220 BNE BR58 7230 DEY 7240 BPL BR59 7250 LDY $6F 7260 LDA BYT,Y 7270 TAX 7280 LDA $6D 7290 CPX #$01 7300 BEQ BR60 7310 JSR ROUT8 7320 LDA $68 7330 CPX #$02 7340 BEQ BR60 7350 JSR ROUT8 7360 LDA $69 7370 BR60 JMP ROUT8 7380 BR56 LDA $6F 7390 CMP #$01 7400 BNE BR61 7410 LDA #$04 7420 BR63 BNE BR50 7430 BR61 CMP #$07 7440 BNE BR62 7450 LDA #$0C 7460 BNE BR63 7470 ROUT52 JSR CHRIN 7480 CMP #$58 7490 BEQ BR64 7500 CMP #$59 7510 BNE BR62 7520 TAY 7530 BR64 RTS 7540 LDY #$00 7550 BR65 JSR CHRIN 7560 STA BUF2,Y 7570 INY 7580 CMP #$0D 7590 BNE BR65 7600 CPY #$01 7610 BEQ BR66 7620 LDA BUF2 7630 CMP #$24 7640 BEQ BR67 7650 CMP #$23 7660 BEQ BR68 7670 LDA $BA 7680 JSR ROUT25 7690 LDY #$00 7700 ROUT55 LDA BUF2,Y 7710 CMP #$0D 7720 BEQ BR69 7730 JSR OUT 7740 INY 7750 JMP ROUT55 7760 BR69 JMP UNLIS 7770 BR66 JSR CARRET 7780 JSR CHKIN 7790 LDA $BA 7800 JSR ROUT56 7810 BR70 JSR IN 7820 JSR [153] 7830 CMP #$0D 7840 BNE BR70 7850 JMP UNTLK 7860 BR68 JSR ROUT6 7870 STX $BA 7880 RTS 7890 BR67 LDA $BA 7900 JSR [155] 7910 LDA #$F0 7920 JSR LISEC 7930 LDA #$24 7940 JSR OUT 7950 JSR UNLIS 7960 LDA $BA 7970 JSR TLK 7980 LDA #$60 7990 JSR TLKSEC 8000 JSR ROUT57 8010 BR72 JSR CARRET 8020 JSR ROUT57 8030 CPY #$00 8040 BEQ BR71 8050 JSR ROUT57 8060 JSR ROUT22 8070 JSR ROUT20 8080 ROUT59 JSR ROUT58 8090 CMP #$00 8100 BEQ BR72 8110 JSR [153] 8120 JMP ROUT59 8130 ROUT57 JSR ROUT58 8140 TAX 8150 JSR ROUT58 8160 TAY 8170 RTS 8180 ROUT58 BIT $90 8190 BVS BR73 8200 JMP IN 8210 BR73 PLA 8220 PLA 8230 RTS 8240 BR71 LDA $BA 8250 JSR [155] 8260 LDA #$E0 8270 JMP LISEC 8280 JSR ROUT14 8290 JSR CARRET 8300 LDA #$00 8310 STA $FF 8320 BR76 LDA $FF 8330 BEQ ROUT60 8340 PLA 8350 STA $67 8360 PLA 8370 STA $66 8380 ROUT60 JSR ROUT10 8390 BCC BR74 8400 BR75 RTS 8410 BR74 JSR [144]KEY 8420 BEQ BR75 8430 LDX #$00 8440 STX $FF 8450 BR79 LDA BUF2,X 8460 ORA BUF3,X 8470 STA $6D 8480 JSR ROUT13 8490 ORA BUF3,X 8500 CMP $6D 8510 BNE BR76 8520 LDA $FF 8530 BNE BR77 8540 LDA $66 8550 PHA 8560 LDA $67 8570 PHA 8580 BR77 LDA #$01 8590 STA $FF 8600 CPX $6F 8610 BEQ BR78 8620 INX 8630 BNE BR79 8640 BR78 PLA 8650 STA $67 8660 PLA 8670 STA $66 8680 LDY $66 8690 BNE BR80 8700 DEC $67 8710 BR80 DEC $66 8720 JSR ROUT15 8730 JSR ROUT13 8740 JMP ROUT60 8750 ROUT61 JSR ROUT6 8760 BMI BR81 8770 LDA #$20 8780 BIT $6C 8790 BEQ BR82 8800 LDY $6F 8810 TXA 8820 STA BUF23,Y 8830 JMP ROUT61 8840 BR82 DEC $6F 8850 LDA $6F 8860 STX $BA 8870 LDX #$71 8880 LDY #$CE 8890 JSR SETNAM 8900 LDA #$80 8910 [175] $6C 8920 STA $6C 8930 LDA #$00 8940 STA $6F 8950 JMP ROUT9 8960 ROUT62 LDY #$01 8970 TYA 8980 LDX $BA 8990 CPY $6F 9000 BNE BR83 9010 LDY #$00 9020 BR83 JMP SETLFS 9030 BR81 JMP BAD[157] 9040 LDA #$01 9050 .B 28 9060 LDA #$00 9070 PHA 9080 [175] #$00 9090 STA $90 9100 JSR ROUT61 9110 JSR ROUT62 9120 PLA 9130 LDX $66 9140 LDY $67 9150 JSR [147] 9160 LDA $90 9170 [175] #$10 9180 BEQ BR84 9190 JSR CARRET 9200 JMP BAD[157] 9210 BR84 RTS 9220 JSR ROUT61 9230 JSR ROUT62 9240 LDX $68 9250 LDY $69 9260 LDA #$66 9270 JMP [148] 9280 PRTRET JSR CARRET 9290 JSR ROUT63 9300 BUF27 .B 111 111 11 123 108 2 110 9301 .B 241 111 17 110 79 111 109 87 9302 .B 65 13 25 11 190 255 173 151 9303 .B 206 133 102 9440 LDA BUF1A 9450 STA $67 9460 JSR ROUT15 9470 LDX #$00 9480 BR85 JSR ROUT20 9490 LDA BUF1B,X 9500 JSR ROUT31 9510 INX 9520 CPX #$04 9530 BNE BR85 9540 JSR ROUT20 9550 LDA BUF8 9560 ROUT23 PHA 9570 LDA #$25 9580 JSR [153] 9590 PLA 9600 ROUT24 LDX #$08 9610 BR87 ASL 9620 PHA 9630 BCC BR86 9640 LDA #$31 9650 .B 60 9660 BR86 LDA #$30 9670 JSR [153] 9680 PLA 9690 DEX 9700 BNE BR87 9710 RTS 9720 JSR ROUT6 9730 STX BUF1 9740 STY BUF1A 9750 LDA #$99 9760 STA $66 9770 LDA #$CE 9780 STA $67 9790 JMP BR13 9800 ROUT9 JSR ROUT6 9810 BMI BR88 9820 STX $66 9830 STY $67 9840 BIT $6C 9850 BMI BR88 9860 JSR ROUT6 9870 BMI BR88 9880 STX $68 9890 STY $69 9900 LDA #$08 9910 BIT $6C 9920 BEQ BR89 9930 LDX $68 9940 LDY $69 9950 JSR ROUT64 9960 BR89 JMP ROUT6 9970 BR88 RTS 9980 JSR ROUT9 9990 LDA #$01 10000 STA $6C 10010 CMP $6F 10020 BCC BR90 10030 LDX #$B0 10040 LDY #$02 10050 JSR ROUT64 10060 BR90 JSR [144]KEY 10070 BEQ BR88 10080 BIT $6C 10090 BMI BR88 10100 JSR CARRET 10110 JSR ROUT15 10120 LDX #$20 10130 BR91 JSR ROUT13 10140 JSR ROUT19 10150 DEX 10160 BNE BR91 10170 JSR ROUT10 10180 BEQ BR90 10190 BCC BR90 10200 RTS 10210 JSR ROUT9 10220 LDY #$01 10230 STY $6C 10240 CPY $6F 10250 BCC BR92 10260 LDX #$AC 10270 LDY #$00 10280 JSR ROUT64 10290 BR92 JSR CARRET 10300 JSR [144]KEY 10310 BEQ BR93 10320 BIT $6C 10330 BMI BR93 10340 JSR ROUT29 10350 LDA #$3A 10360 JSR [153] 10370 JSR ROUT15 10380 LDX #$07 10390 BNE BR94 10400 BR95 JSR ROUT20 10410 BR94 JSR ROUT13 10420 STA BUF2,X 10430 JSR ROUT31 10440 DEX 10450 BPL BR95 10460 LDA #$B4 10470 JSR [153] 10480 LDX #$07 10490 BR96 LDA BUF2,X 10500 JSR ROUT19 10510 DEX 10520 BPL BR96 10530 JSR ROUT10 10540 BEQ BR92 10550 BCC BR92 10560 BR93 RTS 10570 ROUT6 LDA #$0F 10580 ROUT51 STA $6D 10590 LDA #$00 10600 STA $6A 10610 STA $6B 10620 STA BUF11 10630 BIT $6C 10640 BMI BR97 10650 LDA #$20 10660 BIT $6C 10670 BEQ BR98 10680 JSR CHRIN 10690 CMP #$22 10700 BEQ BR99 10710 CMP #$0D 10720 BNE BR100 10730 LDA #$80 10740 JSR ROUT5 10750 BNE BR99 10760 BR100 LDY #$00 10770 CMP #$3F 10780 BNE BR101 10790 LDA #$FF 10800 STA BUF11 10810 BR101 STA $6A 10820 STY $6B 10830 BNE BR102 10840 BR99 LDA #$20 10850 E[176] $6C 10860 STA $6C 10870 JMP ROUT6 10880 BR98 JSR ROUT2 10890 CMP #$22 10900 BEQ BR99 10910 BIT $6C 10920 BMI BR97 10930 JSR ROUT65 10940 BCC BR98 10950 JSR ROUT66 10960 ROUT67 JSR BR11 10970 BCC BR102 10980 BIT $6C 10990 BMI BR102 11000 JSR ROUT65 11010 JSR ROUT66 11020 JMP ROUT67 11030 BR102 LDX $6A 11040 LDY $6B 11050 LDA BUF11 11060 INC $6F 11070 BR97 RTS 11080 ROUT65 CMP #$3F 11090 BNE BR103 11100 LDY #$01 11110 LDA $6D 11120 RTS 11130 BR103 LDY #$00 11140 CMP #$30 11150 BCC BR104 11160 CMP #$3A 11170 BCS BR105 11180 SBC #$2F 11190 RTS 11200 BR105 CMP #$41 11210 BCC BR104 11220 CMP #$47 11230 BCS BR104 11240 SEC 11250 SBC #$37 11260 RTS 11270 BR104 LDX #$03 11280 BR107 CMP BUF24,X 11290 BEQ BR106 11300 DEX 11310 BPL BR107 11320 JMP BAD[157] 11330 BR106 LDA BUF25,X 11340 STA $6D 11350 CLC 11360 RTS 11370 BUF24 .B 37 33 36 38 11380 BUF25 .B 1 9 15 7 11420 BR108 PLA 11430 JMP BAD[157] 11440 ROUT66 PHA 11450 STA $FE 11460 LDA BUF11 11470 STA $62 11480 LDX $6D 11490 CPX $FE 11500 BCC BR108 11510 LDA $6A 11520 STA $FE 11530 LDA $6B 11540 STA $FF 11550 BR109 CLC 11560 LDA $6A 11570 ADC $FE 11580 STA $6A 11590 LDA $6B 11600 ADC $FF 11610 STA $6B 11620 LDA BUF11 11630 CLC 11640 ADC $62 11650 STA BUF11 11660 DEX 11670 BNE BR109 11680 PLA 11690 CLC 11700 ADC $6A 11710 STA $6A 11720 BCC BR110 11730 INC $6B 11740 BR110 TYA 11750 BEQ BR111 11760 LDA $6D 11770 CLC 11780 ADC BUF11 11790 STA BUF11 11800 BR111 RTS 11810 ROUT10 LDA $67 11820 CMP $69 11830 BNE BR112 11840 LDA $66 11850 CMP $68 11860 BR112 RTS 11870 ROUT15 LDA $67 11880 JSR ROUT31 11890 LDA $66 11900 JSR ROUT31 11910 JMP ROUT20 11920 ROUT13 JSR ROUT11 11930 JMP ROUT68 11940 ROUT11 STX $FE 11950 LDA $63 11960 BNE BR113 11970 JMP ROUT69 11980 BR113 LDY $66 11990 BEQ BR114 12000 ROUT70 LDY $61 12010 BMI BR114 12020 DEC $61 12030 LDA BUF12,Y 12040 LDX $FE 12050 RTS 12060 BR114 JSR ROUT25 12070 LDA #$52 12080 JSR ROUT26 12090 LDA #$10 12100 JSR OUT 12110 JSR UNLIS 12120 LDA $63 12130 JSR ROUT56 12140 LDY #$0F 12150 STY $61 12160 BR115 JSR IN 12170 STA BUF12,Y 12180 DEY 12190 BPL BR115 12200 JSR UNTLK 12210 JMP ROUT70 12220 ROUT69 SEI 12230 LDY BUF14 12240 STY $01 12250 LDY #$00 12260 LDA ($66),Y 12270 LDY #$37 12280 STY $01 12290 CLI 12300 RTS 12310 ROUT71 LDY #$00 12320 SEI 12330 LDX BUF14 12340 STX $01 12350 PLA 12360 STA ($66),Y 12370 LDX $01 12380 CPX BUF14 12390 PHP 12400 LDA #$37 12410 STA $01 12420 PLP 12430 CLI 12440 BEQ BR116 12450 STX BUF14 12460 BR116 LDX $FE 12470 RTS 12480 ROUT68 INC $66 12490 BNE BR117 12500 INC $67 12510 BNE BR117 12520 LDY #$80 12530 STY $6C 12540 BR117 RTS 12550 ROUT8 JSR ROUT18 12560 JMP ROUT68 12570 ROUT18 PHA 12580 STX $FE 12590 LDA $64 12600 BNE BR118 12610 JMP ROUT71 12620 BR118 JSR ROUT25 12630 LDA #$57 12640 JSR ROUT26 12650 LDA #$01 12660 JSR OUT 12670 PLA 12680 JSR OUT 12690 LDX $FE 12700 JMP UNLIS 12710 ROUT25 JSR [155] 12720 LDA #$6F 12730 JMP LISEC 12740 ROUT56 JSR TLK 12750 LDA #$6F 12760 JMP TLKSEC 12770 ROUT26 PHA 12780 LDA #$4D 12790 JSR OUT 12800 LDA #$2D 12810 JSR OUT 12820 PLA 12830 JSR OUT 12840 LDA $66 12850 JSR OUT 12860 LDA $67 12870 JMP OUT 12880 JSR ROUT6 12890 BMI BR119 12900 LDA #$2E 12910 STA BUF13 12920 STX $63 12930 TXA 12940 BEQ BR120 12950 LDA #$5F 12960 STA BUF13 12970 BR120 JSR ROUT6 12980 BMI BR121 12990 STX $64 13000 BPL BR119 13010 BR121 LDA $63 13020 STA $64 13030 RTS 13040 ROUT29 LDA BUF13 13050 JMP [153] 13060 BR119 JSR CARRET 13070 LDA BUF13 13080 JSR [153] 13090 LDX $63 13100 JSR ROUT72 13110 JSR ROUT20 13120 LDX $64 13130 ROUT72 LDY #$00 13140 ROUT22 STX $FE 13150 STY $FF 13160 LDY #$05 13170 BR124 LDA #$00 13180 LDX #$11 13190 CLC 13200 BCC BR122 13210 BR123 ROL 13220 CMP #$0A 13230 BCC BR122 13240 SBC #$0A 13250 BR122 ROL $FE 13260 ROL $FF 13270 DEX 13280 BNE BR123 13290 PHA 13300 DEY 13310 BNE BR124 13320 LDY #$05 13330 BR125 PLA 13340 DEY 13350 BEQ ROUT73 13360 CMP #$00 13370 BEQ BR125 13380 ROUT73 [176]A #$30 13390 JSR [153] 13400 DEY 13410 BMI BR126 13420 PLA 13430 JMP ROUT73 13440 BR126 RTS 13450 ROUT64 CLC 13460 TXA 13470 ADC $66 13480 STA $68 13490 TYA 13500 ADC $67 13510 STA $69 13520 BCC BR127 13530 LDA #$FF 13540 STA $68 13550 STA $69 13560 BR127 RTS 13570 ROUT31 PHA 13580 JSR ROUT74 13590 JSR [153] 13600 LDA $FE 13610 JSR [153] 13620 PLA 13630 RTS 13640 ROUT74 LDY #$06 13650 STY $62 13660 PHA 13670 [175] #$0F 13680 JSR ROUT75 13690 STA $FE 13700 PLA 13710 LSR 13720 LSR 13730 LSR 13740 LSR 13750 ROUT75 [176]A #$30 13760 CMP #$3A 13770 BCC BR128 13780 ADC $62 13790 BR128 RTS 13800 ROUT19 TAY 13810 LDA $C7 13820 PHA 13830 TYA 13840 [175] #$7F 13850 CMP #$20 13860 BCS BR129 13870 LDY #$01 13880 STY $C7 13890 CLC 13900 ADC #$40 13910 BR129 JSR [153] 13920 LDY #$00 13930 STY $D4 13940 PLA 13950 STA $C7 13960 RTS 13970 ROUT36 JSR ROUT54 13980 INY 13990 BR130 LDA BUF2,Y 14000 JSR [153] 14010 INY 14020 CPY #$03 14030 BNE BR130 14040 RTS 14050 ROUT54 STX $6A 14060 STA $6B 14070 LDY #$02 14080 BR134 LDX #$05 14090 BR131 R[176] $6A 14100 R[176] $6B 14110 R[176] 14120 DEX 14130 BNE BR131 14140 LSR 14150 LSR 14160 LSR 14170 CMP #$1A 14180 BCC BR132 14190 SBC #$1A 14200 TAX 14210 LDA BUF26,X 14220 BNE BR133 14230 BR132 ADC #$41 14240 BR133 STA BUF2,Y 14250 DEY 14260 BPL BR134 14270 RTS 14271 BUF26 .B 45 32 63 13 42 1 14300 ROUT63 PLA 14310 STA $66 14320 PLA 14330 STA $67 14340 LDA $63 14350 PHA 14360 LDA #$00 14370 STA $63 14380 BEQ BR135 14390 ROUT76 JSR ROUT36 14400 BR135 JSR ROUT13 14410 LDY #$00 14420 LDA ($66),Y 14430 BMI BR136 14440 TAX 14450 JSR ROUT13 14460 LDY #$00 14470 LDA ($66),Y 14480 JMP ROUT76 14490 BR136 PLA 14500 STA $63 14510 LDA $67 14520 PHA 14530 LDA $66 14540 PHA 14550 RTS 14551 [162][181] .B 64 14560 BUF16 .B 8 5 2 14561 BUF15 .B 10 34 56 57 14570 .B 71 34 2 57 36 34 2 57 14580 .B 72 34 2 57 9 34 56 57 14590 .B 71 34 2 57 13 34 70 57 14600 .B 72 34 2 57 28 1 56 58 14610 .B 6 1 39 58 38 1 39 58 14620 .B 6 1 39 58 7 1 56 58 14630 .B 71 1 39 58 44 1 70 58 14640 .B 72 1 39 58 41 23 56 59 14650 .B 71 23 32 59 35 23 32 65 14660 .B 27 23 32 59 11 23 56 59 14670 .B 71 23 32 59 15 23 70 59 14680 .B 72 23 32 59 42 0 56 60 14690 .B 71 0 40 60 37 0 40 66 14700 .B 27 0 40 60 12 0 56 60 14710 .B 71 0 40 60 46 0 70 60 14720 .B 72 0 40 60 71 47 71 61 14730 .B 49 47 48 61 22 56 53 67 14740 .B 49 47 48 61 3 47 56 56 14750 .B 49 47 48 61 55 47 54 56 14760 .B 56 47 56 56 31 29 30 62 14770 .B 31 29 30 62 51 29 50 68 14780 .B 31 29 30 62 4 29 56 62 14790 .B 31 29 30 62 16 29 52 56 14800 .B 31 29 30 62 19 17 71 63 14810 .B 19 17 20 63 26 17 21 69 14820 .B 19 17 20 63 8 17 56 63 14830 .B 71 17 20 63 14 17 70 63 14840 .B 72 17 20 63 18 43 71 64 14850 .B 18 43 24 64 25 43 33 56 14860 .B 18 43 24 64 5 43 56 64 14870 .B 71 43 24 64 45 43 70 64 14880 .B 72 43 24 64 14881 BUF20 .B 119 153 119 153 14890 .B 113 17 17 17 119 7 204 0 14900 .B 116 68 68 68 136 170 119 167 14910 .B 114 34 35 35 119 102 119 103 14920 .B 119 85 87 87 64 153 112 153 14930 .B 17 17 17 17 119 0 199 0 14940 .B 68 68 68 68 136 170 119 170 14950 .B 114 34 35 34 119 102 119 103 14960 .B 117 85 86 86 112 153 119 153 14970 .B 113 17 17 17 119 0 199 0 14980 .B 68 68 68 68 136 170 119 170 14990 .B 119 34 34 34 119 102 119 102 15000 .B 119 85 85 85 112 153 119 153 15010 .B 113 17 17 17 119 0 199 7 15020 .B 180 68 68 68 136 170 119 170 15030 .B 119 34 34 34 119 102 119 102 15040 .B 119 85 85 85 15041 BYT .B 2 2 2 2 15050 .B 3 3 3 1 2 2 2 3 15060 .B 1 15061 BUF19 .B 0 98 1 163 2 75 4 15070 .B 66 4 82 4 144 5 19 5 15080 .B 136 5 164 5 235 6 42 6 15090 .B 162 6 178 9 98 9 99 9 15100 .B 104 9 117 9 143 9 247 9 15110 .B 248 12 130 12 151 12 152 17 15120 .B 209 33 162 33 183 33 184 37 15130 .B 143 38 81 44 96 44 119 44 15140 .B 120 46 81 53 207 58 32 60 15150 .B 224 60 239 61 96 61 111 69 15160 .B 203 69 209 70 104 70 114 72 15170 .B 34 72 130 72 131 72 136 74 15180 .B 96 74 119 74 120 76 23 76 15190 .B 24 78 87 78 224 78 242 79 15200 .B 0 115 156 2 78 69 96 46 15210 .B 68 70 32 2 242 44 23 12 15220 .B 76 33 178 1 113 2 49 92 15230 .B 0 56 11 72 23 81 175 73 15240 .B 65 73 86 15241 .B 13 32 32 32 32 15250 .B 32 32 32 32 32 32 32 32 15260 .B 32 32 32 32 32 32 32 32 15270 .B 32 32 32 32 32 32 32 32 15271 .B 32 32 32 32 30 15272 BUF23 .B 13 15285 BUF2 .B 0 0 0 0 0 0 0 0 0 0 0 0 0 15286 .B 0 0 0 0 0 0 15287 BUF3 .B 0 15288 BUF4 .B 0 15289 BUF5 .B 0 15290 BUF6 .B 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15291 BUF1 .B 0 15292 BUF1A .B 0 15293 BUF1B .B 0 15294 BUF1C .B 0 15295 BUF1D .B 0 15297 BUF7 .B 0 15298 BUF8 .B 0 15299 BUF9 .B 0 15300 BUF10 .B 0 0 15301 BUF11 .B 0 15302 BUF12 .B 0 0 0 0 0 0 0 0 0 0 0 0 0 15303 .B 0 0 0 0 0 0 15304 BUF13 .B 0 15305 BUF14 .B 0 0 15309 SCRN LDA #$17 15310 STA $D018 15320 LDA #$00 15330 STA $D020 15340 STA $D021 15350 JMP $C044 15360 BASIC LDA #$00 15370 LDX #$00 15380 LP STA $60,X 15390 INX 15400 CPX #$0F 15410 BNE LP 15420 JMP ([164]BASIC)