1000 ;
1010 ORG 20000
1020 ;
1030 FILEPAR EQU $FFBA
1040 FILENAM EQU $FFBD
1050 OPEN EQU $FFC0
1060 CLOSE EQU $FFC3
1070 CHKIN EQU $FFC6
1080 CKOUT EQU $FFC9
1090 CLRCH EQU $FFCC
1100 BASIN EQU $FFCF
1110 BSOUT EQU $FFD2
1120 OUTCHR EQU $FFD2
1130 LOAD EQU $FFD5
1140 SAVE EQU $FFD8
1150 GET EQU $FFE4
1160 CLALL EQU $FFE7
1170 CURSOR EQU $FFF0
1180 ;
1190 PU EQU $600
1200 ;
1210 ;
1220 ;
1230 LDA #15
1240 LDX #8
1250 TAY
1260 JSR FILEPAR
1270 LDA #2
1280 LDX #<NAME15
1290 LDY #>NAME15
1300 JSR FILENAM
1310 LDA #0
1320 JSR OPEN
1330 ;
1340 LDA #2
1350 LDX #8
1360 TAY
1370 JSR FILEPAR
1380 LDA #2
1390 LDX #<NAME2
1400 LDY #>NAME2
1410 JSR FILENAM
1420 LDA #0
1430 JSR OPEN
1440 ;
1450 LDX #2
1460 JSR CKOUT
1470 LDX #0
1480 UEBERM1 LDA FLOPPYPRG,X
1490 JSR BSOUT
1500 INX
1510 CPX #200
1520 BCC UEBERM1
1530 JSR CLRCH
1540 ;
1550 LDX #15
1560 JSR CKOUT
1570 LDX #5
1580 UEBERM2 LDA ME,X
1590 JSR BSOUT
1600 DEX
1610 BPL UEBERM2
1620 JSR CLRCH
1630 ;
1640 ;
1650 ;
1660 SEI
1670 LDA #3
1680 STA 56576
1690 LDY #11
1700 STY 53265
1710 ULOOP1 DEX
1720 NOP
1730 BNE ULOOP1
1740 INY
1750 BNE ULOOP1
1760 ;
1770 LDY #2
1780 ULOOP2 LDA #11
1790 STA 56576
1800 LDX #3
1810 UE1 LDA 56576
1820 BPL UE1
1830 LDA 56576
1840 STX 56576
1850 BPL UE2
1860 LDX 2
1870 NOP
1880 UE2 NOP
1890 NOP
1900 NOP
1910 LDX 56576
1920 LDA TAB+48,X
1930 NOP
1940 LDX 56576
1950 ORA TAB+32,X
1960 LDX 56576
1970 ORA TAB+00,X
1980 NOP
1990 LDX 56576
2000 ORA TAB+16,X
2010 STA 1024,Y
2020 INY
2030 BNE ULOOP2
2040 ;
2050 LDA #27
2060 STA 53265
2070 CLI
2080 RTS
2090 ;
2100 ;
2110 TAB DFB 0,0,0, 10,0,0,0,0
2120 DFB 0,0,0, 0,0,0,0,0
2130 DFB 0,0,0, 5,0,0,0,0
2140 DFB 0,0,0, 0,0,0,0,0
2150 DFB 0,0,0, 80,0,0,0,0
2160 DFB 0,0,0, 0,0,0,0,0
2170 DFB 0,0,0,160,0,0,0,0
2180 DFB 0,0,0, 0,0,0,0,0
2190 DFB 0,0,0, 2,0,0,0,0
2200 DFB 0,0,0, 0,0,0,0,0
2210 DFB 0,0,0, 1,0,0,0,0
2220 DFB 0,0,0, 0,0,0,0,0
2230 DFB 0,0,0, 16,0,0,0,0
2240 DFB 0,0,0, 0,0,0,0,0
2250 DFB 0,0,0, 32,0,0,0,0
2260 DFB 0,0,0, 0,0,0,0,0
2270 ;
2280 ;
2290 ;
2300 NAME15 DFB ""
2310 NAME2 DFB ""
2320 ;
2330 ME DFB 13,5,1,""
2340 ;
2350 ;
2360 ;
2370 FLOPPYPRG ; AB $0501
2380 ;
2390 SEI
2400 LDY #2
2410 FLLOOP1 TYA; LDA PU,Y
2420 FL1 LDX 6144
2430 BPL FL1
2440 LDX #16
2450 STX 6144
2460 LDX #2
2470 STA 194 ;
2480 STX 6144
2490 LSR
2500 LSR
2510 LSR
2520 LSR
2530 STA 6144
2540 ASL
2550 AND #15
2560 NOP
2570 STA 6144
2580 LDA 194 ; 3BYTE!
2590 AND #15
2600 STA 6144
2610 ASL
2620 AND #15
2630 NOP
2640 STA 6144
2650 LDX #15
2660 NOP
2670 STX 6144
2680 INY
2690 BNE FLLOOP1
2700 CLI
2710 ;
2720 ;
2730 RTS
READY.
