1000 ;
1010 ; SPEEDCLONE 40 V11.0
1020 ;
1030 ;
1040 ORG 2066
1050 ;
1060 GETBYT EQU 65508
1070 BSOUT EQU 65490
1080 BASIN EQU 65487
1090 SENDIEC EQU 65448
1100 GETIEC EQU 65445
1110 TALK EQU 65460
1120 UNTALK EQU 65451
1130 LISTEN EQU 65457
1140 UNLISTEN EQU 65454
1150 SEKLIST EQU 65427
1160 SEKTALK EQU 65430
1170 SETCURSOR EQU 58636
1180 CLRSCREEN EQU 58692
1190 ;
1200 ST EQU 144
1210 TMP1 EQU 53
1220 ;
1230 ;
1240 ;
1250 EINSPRUNG SEI
1260 LDA #0
1270 STA 53280
1280 STA 53281
1290 STA 53248
1300 JSR SCREENOFF
1310 LDA #30
1320 STA 56325
1330 EINSPRUNG LDX #24
1340 LDA #0
1350 ES1 STA 54272,X
1360 DEX
1370 BPL ES1
1380 JSR DELAY
1390 JSR DELAY
1400 JSR DELAY
1410 LDX #24
1420 ES2 LDA SIDTAB,X
1430 STA 54272,X
1440 DEX
1450 BPL ES2
1460 ;
1470 ;
1480 INIT SEI
1490 LDX #248
1500 TXS
1510 ;
1520 ;
1530 TITLE LDA #11
1540 STA 53265
1550 JSR PRINTTITLE
1560 DFB "",13
1570 DFB "",13
1580 DFB "",13
1590 DFB "",13
1600 DFB "",13
1610 DFB "",13,0
1620 ;
1630 ;
1640 JSR SCREENON
1650 CLOOP JSR GETBYT
1660 CMP #133 ;F1
1670 BNE CL1
1680 JSR SENDCOM
1690 JMP WAITINIT
1700 CL1 CMP #134 ;F3
1710 BNE CL2
1720 JSR DIRECTORY
1730 JMP WAITINIT
1740 CL2 CMP #32 ;SPACE
1750 BNE CL3
1760 JSR COPY
1770 JMP TITLE
1780 CL3 CMP #3 ;STOP
1790 BNE CLOOP
1800 JSR WRITETEXT
1810 DFB "",0
1820 LDA #78 ;'N'
1830 STA 251
1840 JSR INPUTYN
1850 CMP #89 ;'Y'
1860 BEQ DESTROY
1870 JMP TITLE
1880 DESTROY BRK
1890 ;
1900 ;
1910 ;
1920 SENDCOM LDY #1
1930 LDX #21
1940 JSR SETCURSOR
1950 JSR LLISTEN
1960 SENDCOM1 JSR BASIN
1970 CMP #13
1980 BEQ SENDCOM2
1990 JSR SENDIEC
2000 BCC SENDCOM1
2010 SENDCOM2 JSR UNLISTEN
2020 ;
2030 ;
2040 MESSAGE LDY #1
2050 LDX #23
2060 JSR SETCURSOR
2070 JSR TTALK
2080 MESSAGE1 JSR GETIEC
2090 JSR BSOUT
2100 CMP #13
2110 BNE MESSAGE1
2120 JMP UNTALK
2130 ;
2140 ;
2150 DIRECTORY JSR CLRSCREEN
2160 LDA #8
2170 JSR LISTEN
2180 LDA #240
2190 JSR SEKLIST
2200 LDA #36
2210 JSR SENDIEC
2220 JSR UNLISTEN
2230 LDA #8
2240 JSR TALK
2250 LDA #96
2260 JSR SEKTALK
2270 LDA #0
2280 STA ST
2290 LDY #3
2300 ;
2310 DIR1 JSR DISPBLOCKS
2320 BNE DIR2
2330 JSR DISPFILE
2340 LDY #2
2350 BNE DIR1
2360 DIR2 JSR UNTALK
2370 LDA #8
2380 JSR LISTEN
2390 LDA #224
2400 JSR SEKLIST
2410 JMP UNLISTEN
2420 ;
2430 ;
2440 DISPBLOCKS STY 183
2450 JSR GETIEC
2460 STA 195
2470 JSR GETIEC
2480 STA 196
2490 LDY ST
2500 BNE DISPBLOCKS1
2510 LDY 183
2520 DEY
2530 BNE DISPBLOCKS
2540 LDX 195
2550 LDA 196
2560 JSR 48589 ;OUTINTEGER
2570 LDA #32
2580 JSR BSOUT
2590 LDA #0
2600 DISPBLOCKS1 RTS
2610 ;
2620 DISPFILE JSR GETIEC
2630 BEQ DISPFILE1
2640 JSR BSOUT
2650 BNE DISPFILE
2660 DISPFILE1 LDA #13
2670 JMP BSOUT
2680 ;
2690 ;
2700 ;
2710 COPY JSR PRINTTITLE
2720 DFB "",0
2730 LDA #48 ;'0'
2740 STA 251
2750 LDA #49 ;'1'
2760 STA 252
2770 JSR INPUTK
2780 STA 253
2790 ;
2800 JSR WRITETEXT
2810 DFB 13,"",0
2820 LDA #51 ;'3'
2830 STA 251
2840 LDA #53 ;'5'
2850 STA 252
2860 ENDTR? JSR INPUTK
2870 CMP 253
2880 BCC ENDTR?
2890 ;
2900 STA 254
2910 ;
2920 JSR WRITETEXT
2930 DFB 13,"",0
2940 LDA #78 ;'N'
2950 STA 251
2960 JSR INPUTYN
2970 CMP #89 ;'Y'
2980 BEQ HT
2990 LDA #0
3000 DFB $2C
3010 HT LDA #1
3020 STA 255
3030 LDA #89 ;'Y'
3040 STA 251
3050 JSR WRITETEXT
3060 DFB 13,"",0
3070 JSR INPUTYN
3080 CMP #89 ;'N'
3090 BEQ COPY1
3100 JMP COPY
3110 ;
3120 COPY1 LDX 253
3130 DEX
3140 STX 107
3150 LDA 254
3160 STA 109
3170 JSR LLISTEN
3180 LDA #73 ;'I'
3190 JSR SENDIEC
3200 JSR UNLISTEN
3210 JSR DELAY
3220 JSR PRINTTITLE
3230 DFB 0
3240 JSR FPPARAMETER
3250 ;
3260 LDA #<FLOPPYPRG
3270 LDY #>FLOPPYPRG
3280 STA 252
3290 STY 253
3300 LDA #0
3310 LDY #4
3320 STA 254
3330 STY 255
3340 LDA #104
3350 LDY #7
3360 STA 98
3370 STY 99
3380 JSR TRANSFERCF
3390 LDA #223
3400 JSR SENDIEC
3410 LDA #6
3420 JSR SENDIEC ;AKTIVI.
3430 JSR UNLISTEN
3440 COPYLOOP JSR WRITETEXT
3450 DFB "",13,0
3460 JSR WAITKEY
3470 SEI
3480 JSR SCREENOFF
3490 LDA #0
3500 STA 105
3510 STA 106
3520 LDA #174
3530 LDY #20
3540 STA 100
3550 STY 101
3560 COPY2 INC 107
3570 LDA #0
3580 JSR SENDBYTE
3590 LDY 105
3600 INC 105
3610 JSR GETBYTE
3620 STA 820,Y
3630 BNE COPY4
3640 JSR COMPARE
3650 JSR GETBLOCK
3660 COPY3 JSR GETBLOCK
3670 LDY 106
3680 INC 106
3690 JSR GETBYTE
3700 STA ENDPRG,Y
3710 JSR GETBYTE
3720 STA ENDPRG+256,Y
3730 DEC 104
3740 BNE COPY3
3750 COPY4 LDA 101
3760 CMP #234
3770 BCS COPY5
3780 LDA 107
3790 CMP 109
3800 BCC COPY2
3810 COPY5 LDA #1
3820 JSR SENDBYTE
3830 JSR SCREENON
3840 JSR WRITETEXT
3850 DFB "",13,0
3860 JSR WAITKEY
3870 SEI
3880 JSR SCREENOFF
3890 LDA 107
3900 SEC
3910 SBC 105
3920 STA 107
3930 LDA 105
3940 STA 108
3950 LDA #0
3960 STA 106
3970 STA 105
3980 LDA #174
3990 LDY #20
4000 STA 100
4010 STY 101
4020 COPY6 INC 107
4030 LDA #0
4040 JSR SENDBYTE
4050 JSR GETBYTE
4060 BEQ COPY7
4070 JSR SCREENON
4080 JSR WRITETEXT
4090 DFB "",13,0
4100 JMP WAITKEY
4110 ;
4120 ;
4130 COPY7 LDY 105
4140 LDA 820,Y
4150 PHP
4160 JSR SENDBYTE
4170 PLP
4180 BNE COPY9
4190 JSR COMPARE
4200 JSR WRITEBLOCK
4210 COPY8 JSR WRITEBLOCK
4220 LDY 106
4230 INC 106
4240 LDA ENDPRG,Y
4250 JSR SENDBYTE
4260 LDA ENDPRG+256,Y
4270 JSR SENDBYTE
4280 LDY #0
4290 DEC 104
4300 BNE COPY8
4310 COPY9 INC 105
4320 LDA 105
4330 CMP 108
4340 BCC COPY6
4350 LDA #1
4360 JSR SENDBYTE
4370 JSR SCREENON
4380 LDA 107
4390 CMP 109
4400 BCC COPY10
4410 RTS
4420 COPY10 JMP COPYLOOP
4430 ;
4440 ;
4450 ; ****SUBROUTINES****
4460 ;
4470 ;
4480 PRINTTITLE JSR WRITETEXT
4490 DFB "",13
4500 DFB "",13,0
4510 JMP WRITETEXT
4520 ;
4530 ;
4540 WAITINIT JSR WAITKEY
4550 JMP TITLE
4560 ;
4570 WAITKEY LDA #0
4580 STA 198 ;TAST.PUFFER
4590 WAITKE1 JSR GETBYT
4600 BEQ WAITKE1
4610 RTS
4620 ;
4630 ;
4640 INPUTK JSR GETK
4650 JSR CHECKNUM
4660 BCS INPUTK
4670 CMP #13
4680 BEQ INPUTK2
4690 STA 251
4700 INPUTK1 JSR GETK
4710 JSR CHECKNUM
4720 BCS INPUTK1
4730 STA 252
4740 INPUTK2 JSR DEZHEX
4750 BEQ INPUTK3
4760 CMP #41
4770 BCS INPUTK3
4780 RTS
4790 INPUTK3 JSR BADINPUT
4800 BCC INPUTK
4810 ;
4820 ;
4830 GETK LDA #0
4840 STA 204 ;CURSORFLAG
4850 JSR WAITKEY
4860 GETK1 LDX 207 ;BLINKPHASE
4870 BNE GETK1
4880 INC 204
4890 CMP #3
4900 BEQ GETK2
4910 RTS
4920 GETK2 JMP INIT
4930 ;
4940 ;
4950 CHECKNUM CMP #13
4960 BEQ CHECKNUM1
4970 CMP #48
4980 BCC CHECKNUM2
4990 CMP #58
5000 BCS CHECKNUM2
5010 JSR BSOUT
5020 CHECKNUM1 CLC
5030 RTS
5040 CHECKNUM2 SEC
5050 RTS
5060 ;
5070 ;
5080 INPUTYN JSR GETK
5090 CMP #13
5100 BEQ INPUTYN2
5110 CMP #89 ;'Y'
5120 BEQ INPUTYN1
5130 CMP #78 ;'N'
5140 BNE INPUTYN
5150 INPUTYN1 STA 251
5160 INPUTYN2 LDA 251
5170 JMP BSOUT
5180 ;
5190 ;
5200 DEZHEX LDA 252
5210 AND #15
5220 STA 99
5230 LDA 251
5240 AND #15
5250 STA 98
5260 ASL
5270 ASL
5280 CLC
5290 ADC 98
5300 ASL
5310 ADC 99
5320 RTS
5330 ;
5340 ;
5350 WRITETEXT LDY #0
5360 PLA
5370 STA TMP1
5380 PLA
5390 STA TMP1+1
5400 WRITETEXT1 INC TMP1
5410 BNE WRITETEXT2
5420 INC TMP1+1
5430 WRITETEXT2 LDA (TMP1),Y
5440 BEQ WRITETEXT3
5450 JSR BSOUT
5460 JMP WRITETEXT1
5470 WRITETEXT3 LDA TMP1+1
5480 PHA
5490 LDA TMP1
5500 PHA
5510 RTS
5520 ;
5530 ;
5540 BADINPUT LDA #157 ;""
5550 JSR BSOUT
5560 JMP BSOUT
5570 ;
5580 ;
5590 COMPARE LDA 107
5600 LDX #4
5610 COMPARE1 CMP TAB,X
5620 DEX
5630 BCS COMPARE1
5640 LDA TAB+5,X
5650 STA 104
5660 RTS
5670 ;
5680 SCREENOFF LDA 53265
5690 AND #239
5700 STA 53265
5710 JSR SOUNDOFF
5720 ;
5730 DELAY LDX #128
5740 LDY #0
5750 DELAY1 DEY
5760 BNE DELAY1
5770 DEX
5780 BNE DELAY1
5790 RTS
5800 ;
5810 SCREENON LDA #3
5820 STA 56576
5830 LDA 53265
5840 ORA #16
5850 STA 53265
5860 CLI
5870 JMP SOUNDON
5880 ;
5890 SOUNDOFF LDA #32
5900 DFB $2C
5910 SOUNDON LDA #33
5920 STA 54276
5930 STA 54283
5940 STA 54290
5950 RTS
5960 ;
5970 GETBLOCK LDY #0
5980 GETBLOCK1 JSR GETBYTE
5990 LDX #52
6000 STX 1
6010 STA (100),Y
6020 LDX #55
6030 STX 1
6040 INY
6050 BNE GETBLOCK1
6060 INC 101
6070 RTS
6080 ;
6090 WRITEBLOCK LDY #0
6100 WRITEBLOCK1 LDX #52
6110 STX 1
6120 LDA (100),Y
6130 LDX #55
6140 STX 1
6150 JSR SENDBYTE
6160 INY
6170 BNE WRITEBLOCK1
6180 INC 101
6190 RTS
6200 ;
6210 SENDM JSR LLISTEN
6220 LDA #77 ;'M'
6230 JSR SENDIEC
6240 LDA #45 ;'-'
6250 JMP SENDIEC
6260 LLISTEN LDA #8
6270 JSR LISTEN
6280 LDA #111
6290 JMP SEKLIST
6300 ;
6310 TTALK LDA #8
6320 JSR TALK
6330 LDA #111
6340 JMP SEKTALK
6350 ;
6360 TRANSFERCF JSR SENDM
6370 LDA #87 ;'W'
6380 JSR SENDIEC
6390 LDA 254
6400 JSR SENDIEC
6410 LDA 255
6420 JSR SENDIEC
6430 LDA #30 ;ANZ.ZEICH
6440 JSR SENDIEC
6450 LDY #0
6460 SEND30 LDA (252),Y
6470 JSR SENDIEC
6480 INY
6490 CPY #30
6500 BCC SEND30
6510 JSR UNLISTEN
6520 CLC
6530 LDA 252
6540 ADC #30
6550 STA 252
6560 BCC TRCF1
6570 INC 253
6580 CLC
6590 TRCF1 LDA 254
6600 LDX 255
6610 ADC #30
6620 STA 254
6630 BCC TRCF2
6640 INC 255
6650 TRCF2 CPX 99
6660 BCC TRANSFERCF
6670 CMP 98
6680 BCC TRANSFERCF
6690 JSR SENDM
6700 LDA #69 ;'E'
6710 JMP SENDIEC
6720 ;
6730 ;
6740 GETBYTE LDA #11
6750 STA 56576
6760 GETBYTE1 LDA 56576
6770 BPL GETBYTE1
6780 LDA #3
6790 STA 56576
6800 LDX #5
6810 GETBYTE2 DEX
6820 NOP
6830 BNE GETBYTE2
6840 LDX #4
6850 GETBYTE3 LDA 56576
6860 ASL
6870 ROL
6880 ROR 254
6890 LSR
6900 ROR 254
6910 NOP
6920 DEX
6930 BNE GETBYTE3
6940 LDA 254
6950 EOR #255
6960 RTS
6970 ;
6980 SENDBYTE STA 254
6990 LDA #11
7000 STA 56576
7010 SENDBYTE1 LDA 56576
7020 BPL SENDBYTE1
7030 LDA #3
7040 STA 56576
7050 LDX #4
7060 SENDBYTE2 LDA #3
7070 LSR 254
7080 ROR
7090 LSR 254
7100 ROR
7110 LSR
7120 LSR
7130 NOP
7140 STA 56576
7150 DEX
7160 BNE SENDBYTE2
7170 LDX #1
7180 SENDBYTE3 DEX
7190 BNE SENDBYTE3
7200 RTS
7210 ;
7220 FPPARAMETER LDX 107
7230 INX
7240 STX PAR2
7250 LDX 109
7260 INX
7270 STX PAR2+1
7280 LDA 255
7290 BNE FPPAR1
7300 STA PAR1+1
7310 STA F62+1
7320 BEQ FPPAR2
7330 FPPAR1 LDA #1
7340 STA PAR1+1
7350 LDA #255
7360 STA F62+1
7370 FPPAR2 RTS
7380 ;
7390 ;
7400 FLOPPYPRG LDA 68
7410 CMP #192
7420 BNE F1
7430 LDA #17
7440 STA 67
7450 LDA #9
7460 BNE F2
7470 F1 LSR
7480 LSR
7490 LSR
7500 LSR
7510 LSR
7520 TAX
7530 LDA 1890,X
7540 F2 STA 12
7550 LDA 67
7560 STA 10
7570 LDA #3
7580 STA 49
7590 LDA 1
7600 AND #6
7610 CMP #4
7620 BNE F3
7630 JMP 64926
7640 F3 CMP #2
7650 BNE F4
7660 JMP 1295
7670 F4 JSR 1546
7680 BCS F9
7690 LDA #128
7700 STA 6149
7710 F5 BIT 6149
7720 BPL F10
7730 BIT 7168
7740 BPL F5
7750 LDX #5
7760 F6 DEX
7770 BEQ F10
7780 LDY #0
7790 F7 BIT 7168
7800 BPL F7
7810 F8 BIT 7168
7820 BPL F6
7830 INY
7840 BNE F8
7850 LDA #0
7860 DFB $2C
7870 F9 LDA #1
7880 DFB $2C
7890 F10 LDA #128
7900 PHA
7910 JSR 1609
7920 PLA
7930 BEQ F11
7940 JMP 64926
7950 F11 LDY #0
7960 F12 BIT 7168
7970 BPL F12
7980 F13 BIT 7168
7990 BPL F11
8000 INY
8010 BNE F13
8020 JSR 1705
8030 LDX #0
8040 F14 BVC F14
8050 CLV
8060 LDA 7169
8070 STA 512,Y
8080 INY
8090 INX
8100 CPX #12
8110 BNE F14
8120 CPY #252
8130 BCS F16
8140 JSR 1705
8150 F15 BVC F15
8160 CLV
8170 JSR 1705
8180 JMP 1151
8190 F16 LDY #0
8200 F17 LDA 512,Y
8210 JSR 1609
8220 INY
8230 BNE F17
8240 STY 9
8250 LDY #0
8260 F18 LDA 512,X
8270 STA 36,Y
8280 INX
8290 INY
8300 CPY #8
8310 BNE F18
8320 JSR 1711
8330 JSR 1705
8340 LDY #0
8350 F19 BVC F19
8360 CLV
8370 LDA 7169
8380 STA 768,Y
8390 INY
8400 BNE F19
8410 LDY #186
8420 F20 BVC F20
8430 CLV
8440 LDA 7169
8450 STA 256,Y
8460 INY
8470 BNE F20
8480 JSR 63712
8490 LDY #0
8500 F21 LDA 768,Y
8510 JSR 1609
8520 INY
8530 BNE F21
8540 LDA 58
8550 JSR 1609
8560 LDA 56
8570 JSR 1609
8580 LDX 9
8590 LDA #1
8600 STA 336,X
8610 DEC 10
8620 BNE F22
8630 JMP 64926
8640 F22 JSR 1580
8650 STX 9
8660 TXA
8670 JSR 1739
8680 JMP 1197
8690 JSR 1657
8700 BEQ F25
8710 BMI F23
8720 JSR 65038
8730 BEQ F24
8740 F23 JSR 64931
8750 F24 JSR 65024
8760 JMP 64926
8770 F25 LDY #0
8780 STY 9
8790 F26 JSR 1657
8800 STA 512,Y
8810 INY
8820 BNE F26
8830 JSR 65038
8840 F27 LDA #255
8850 STA 7169
8860 LDX #5
8870 JSR 1749
8880 LDX #12
8890 LDY 9
8900 F28 BVC F28
8910 CLV
8920 LDA 512,Y
8930 STA 7169
8940 INY
8950 DEX
8960 BNE F28
8970 LDA #85
8980 LDX #7
8990 JSR 1749
9000 LDA #255
9010 LDX #5
9020 JSR 1749
9030 LDA #7
9040 LDX #69
9050 JSR 1749
9060 JSR 1749
9070 LDA #85
9080 LDX #8
9090 JSR 1749
9100 LDA 9
9110 CLC
9120 ADC #12
9130 STA 9
9140 DEC 10
9150 BNE F27
9160 JSR 65024
9170 LDA #0
9180 STA 9
9190 LDA 67
9200 STA 10
9210 LDY #0
9220 F29 JSR 1657
9230 STA 768,Y
9240 INY
9250 BNE F29
9260 JSR 1657
9270 STA 58
9280 JSR 1657
9290 STA 71
9300 JSR 63375
9310 LDA 9
9320 JSR 1739
9330 LDY #0
9340 F30 LDA 512,X
9350 STA 36,Y
9360 INX
9370 INY
9380 CPY #8
9390 BNE F30
9400 JSR 1711
9410 LDX #9
9420 F31 BVC F31
9430 CLV
9440 DEX
9450 BNE F31
9460 LDA #255
9470 STA 7171
9480 LDA 7180
9490 AND #31
9500 ORA #192
9510 STA 7180
9520 LDA #255
9530 LDX #5
9540 STA 7169
9550 CLV
9560 JSR 1749
9570 LDY #187
9580 F32 LDA 256,Y
9590 F33 BVC F33
9600 CLV
9610 STA 7169
9620 INY
9630 BNE F32
9640 F34 LDA 768,Y
9650 F35 BVC F35
9660 CLV
9670 STA 7169
9680 INY
9690 BNE F34
9700 F36 BVC F36
9710 CLV
9720 JSR 65024
9730 DEC 10
9740 BNE F37
9750 JMP 64926
9760 F37 LDX 9
9770 LDA #1
9780 STA 336,X
9790 JSR 1580
9800 STX 9
9810 JMP 1412
9820 STY 11
9830 LDY #3
9840 F38 LDA #255
9850 STA 6149
9860 F39 BIT 6149
9870 BPL F40
9880 BIT 7168
9890 BMI F39
9900 LDA 7169
9910 LDY 11
9920 CLV
9930 CLC
9940 RTS
9950 F40 DEY
9960 BNE F38
9970 LDY 11
9980 SEC
9990 RTS
10000 TXA
10010 CLC
10020 ADC 12
10030 F41 CMP 67
10040 BCC F42
10050 SBC 67
10060 F42 TAX
10070 LDA 336,X
10080 BEQ F43
10090 INX
10100 TXA
10110 BPL F41
10120 F43 LDA 7168
10130 EOR #8
10140 STA 7168
10150 RTS
10160 STA 15
10170 F44 BIT 6144
10180 BPL F44
10190 LDA #16
10200 STA 6144
10210 F45 BIT 6144
10220 BMI F45
10230 LDX #4
10240 F46 LDA #0
10250 LSR 15
10260 ROL
10270 ASL
10280 LSR 15
10290 ROL
10300 ASL
10310 STA 6144
10320 DEX
10330 BNE F46
10340 LDX #1
10350 F47 DEX
10360 BNE F47
10370 NOP
10380 NOP
10390 LDA #15
10400 STA 6144
10410 RTS
10420 F48 BIT 6144
10430 BPL F48
10440 LDA #16
10450 STA 6144
10460 F49 BIT 6144
10470 BMI F49
10480 LDX #4
10490 F50 DEX
10500 BNE F50
10510 STX 6144
10520 LDX #4
10530 F51 LDA 6144
10540 LSR
10550 PHP
10560 LSR
10570 LSR
10580 ROR 15
10590 PLP
10600 ROR 15
10610 DEX
10620 BNE F51
10630 LDA #15
10640 STA 6144
10650 LDA 15
10660 RTS
10670 F52 JSR 1546
10680 BCS F52
10690 RTS
10700 LDX #255
10710 F53 JSR 1705
10720 LDY #0
10730 F54 BVC F54
10740 CLV
10750 LDA 7169
10760 CMP 36,Y
10770 BNE F55
10780 INY
10790 CPY #8
10800 BNE F54
10810 RTS
10820 F55 DEX
10830 BNE F53
10840 RTS
10850 ASL
10860 STA 197
10870 ASL
10880 CLC
10890 ADC 197
10900 ASL
10910 TAX
10920 RTS
10930 F56 BVC F56
10940 CLV
10950 STA 7169
10960 DEX
10970 BNE F56
10980 RTS
10990 PAR1 LDA #0
11000 JSR 54902
11010 F56A LDA 1894
11020 STA 8
11030 F57 JSR 1878
11040 BNE F58
11050 JSR 1858
11060 LDA #224
11070 JSR 1869
11080 INC 8
11090 BPL F57
11100 F58 LDA 1894
11110 STA 8
11120 F59 JSR 1878
11130 BNE F61
11140 LDA 7168
11150 AND #16
11160 BNE F60
11170 LDA #1
11180 JSR 1884
11190 BNE F62
11200 F60 LDA #0
11210 JSR 1884
11220 JSR 1858
11230 LDA #226
11240 JSR 1869
11250 INC 8
11260 BNE F59
11270 F61 LDA 8
11280 STA 1894
11290 CMP 1895
11300 BNE F56A
11310 F62 LDA #0
11320 JSR 54902
11330 JSR 1848
11340 JMP 60064
11350 LDA #18
11360 STA 8
11370 LDA #228
11380 JSR 1869
11390 RTS
11400 LDA #0
11410 LDX #20
11420 F63 STA 336,X
11430 DEX
11440 BPL F63
11450 RTS
11460 STA 1
11470 F64 LDA 1
11480 BMI F64
11490 CMP #2
11500 RTS
11510 SEI
11520 JSR 1657
11530 CLI
11540 RTS
11550 SEI
11560 JSR 1609
11570 CLI
11580 RTS
11590 ORA #9
11600 ASL
11610 DFB 11
11620 PAR2 ORA (41,X)
11630 ;
11640 ;
11650 ;
11660 SIDTAB DFB 0,2,0,0,0,215,250
11670 DFB 1,3,0,0,0,215,250
11680 DFB 0,4,0,0,0,215,250
11690 DFB 0,0,199,31
11700 ;
11710 TAB DFB 4,41,31,25,18
11720 DFB 17,18,19,21,170
11730 ENDPRG ;
READY.
