1000 ; FASTLOAD
1010 ;
1020 ORG 65536
1030 ;
1040 ;
1050 T1 EQU 251
1060 ;
1070 ;
1080 LDY #0
1090 STY 53280
1100 STY 53281
1110 LDA #11
1120 STA 53265
1130 STY 53269
1140 ;
1150 LDA #7
1160 STA 56576
1170 LDX #0
1180 C0 DEX
1190 BNE C0
1200 ;
1210 ;
1220 GETBLOCK SEI
1230 LDA #%00100111
1240 STA 56576
1250 C1 BIT 56576
1260 BVC C1
1270 ;
1280 LDA #3
1290 STA 56576
1300 LDX #9
1310 C2 DEX
1320 BNE C2
1330 ;
1340 C3 LDX #4
1350 C4 LDA 56576
1360 ASL
1370 PHP
1380 ASL
1390 ROL T1
1400 PLP
1410 ROL T1
1420 DEX
1430 BNE C4
1440 LDA T1,X
1450 STA (174),Y
1460 INY
1470 BNE C3
1480 ;
1490 LDA #%00010111
1500 STA 56576
1510 LDA T1
1520 RTS
1530 ;
1540 ;
1550 GETBYTE SEI
1560 LDA #%00100111
1570 STA 56576
1580 C5 BIT 56576
1590 BVC C5
1600 ;
1610 LDA #3
1620 STA 56576
1630 LDX #8
1640 C6 DEX
1650 BNE C6
1660 ;
1670 LDX #4
1680 C7 LDA 56576
1690 ASL
1700 PHP
1710 ASL
1720 ROL T1
1730 PLP
1740 ROL T1
1750 DEX
1760 BNE C7
1770 ;
1780 LDA #%00010111
1790 STA 56576
1800 NOP
1810 NOP
1820 NOP
1830 LDA T1
1840 RTS
1850 ;
1860 ;
1870 ;
1880 LDA #8
1890 STA 6144
1900 JMP 894
1910 ;
1920 SENDBLOCK LDX #1
1930 CLI
1940 TXA
1950 F1 BIT 6144
1960 BEQ F1
1970 ;
1980 SEI
1990 LDA #0
2000 STA 6144
2010 TXA
2020 F2 BIT 6144
2030 BNE F2
2040 NOP
2050 ;
2060 F3 LDX #4
2070 LDA (10),Y
2080 EOR #255
2090 STA 20
2100 F4 LDA #0
2110 ASL 20
2120 ROL
2130 ASL
2140 ASL 20
2150 ROL
2160 ASL
2170 STA 6144
2180 DEX
2190 BNE F4
2200 NOP
2210 NOP
2220 NOP
2230 INY
2240 BNE F3
2250 ;
2260 NOP
2270 NOP
2280 NOP
2290 LDA #8
2300 STA 6144
2310 RTS
2320 ;
2330 ;
2340 SENDBYTE EOR #255
2350 CLI
2360 STA 20
2370 LDX #1
2380 TXA
2390 F5 BIT 6144
2400 BEQ F5
2410 ;
2420 SEI
2430 LDA #0
2440 STA 6144
2450 TXA
2460 F6 BIT 6144
2470 BNE F6
2480 ;
2490 LDX #4
2500 F7 LDA #0
2510 ASL 20
2520 ROL
2530 ASL
2540 ASL 20
2550 ROL
2560 ASL
2570 STA 6144
2580 DEX
2590 BNE F7
2600 ;
2610 LDX #3
2620 F8 DEX
2630 BNE F8
2640 LDA #8
2650 STA 6144
2660 RTS
READY.
