1000 ;SAVE"",8
1010 ;
1020 ;PROGRAMMUEBERTRAGUNG
1030 ; 1541 > C64 BEI
1040 ; ANGESCHALTETEM
1050 ; BILDSCHIRM
1060 ;
1070 ; *FLOPPYROUTINEN*
1080 ;
1090 ; VERSION 4.1 VOM
1100 ; 24. 9. 1985 CW
1110 ;
1120 ;
1130 ;
1140 ;
1150 ORG 17920 ; $0600
1160 ;
1170 PU EQU 768
1180 TMP EQU 68
1190 STMP EQU 139
1200 ;
1210 ;
1220 FL00 SEI
1230 ;
1240 LDX #17 ;ANFANGSTRACK
1250 LDY #1 ;SEKTOR
1260 ;
1270 ;
1280 FL01 LDA #%00001000 ;CL L
1290 STA 6144
1300 ;
1310 JSR LED
1320 JSR READ
1330 JSR LED
1340 ;
1350 ;
1360 LDY #0
1370 LDX #254
1380 LDA PU
1390 BNE FL02
1400 LDX PU+1
1410 FL02 STX STMP
1420 ;
1430 FL03 LDA PU+2,Y
1440 JSR SENDBT
1450 INY
1460 CPY STMP
1470 BNE FL03
1480 ;
1490 LDX PU
1500 BEQ THEEND
1510 ;
1520 LDY PU+1
1530 JMP FL01
1540 ;
1550 ;
1560 THEEND LDA #%00001010 ;D,C:L
1570 STA 6144
1580 INX
1590 BNE THEEND
1600 ;
1610 JMP (65532)
1620 ;
1630 ;
1640 ;
1650 SENDBT STA TMP
1660 ;
1670 LDX #8
1680 ;
1690 SENDBT1 ROL TMP
1700 ROL
1710 ROL
1720 AND #%00000010
1730 STA 6144
1740 ;
1750 SENDBT2 LDA 6144
1760 AND #4 ;CL
1770 BNE SENDBT2 ;HI
1780 SENDBT3 LDA 6144
1790 AND #4 ;CL
1800 BEQ SENDBT3 ;LO
1810 ;
1820 DEX
1830 BNE SENDBT1
1840 ;
1850 RTS
1860 ;
1870 ;
1880 ;
1890 READ STX 6
1900 STY 7
1910 READ1 LDA #128
1920 STA 0
1930 CLI
1940 READ2 LDA 0
1950 BMI READ2
1960 CMP #1
1970 BNE READ1
1980 SEI
1990 RTS
2000 ;
2010 LED LDA 7168
2020 EOR #%00001000 ;LED
2030 STA 7168
2040 RTS
2050 ;
2060 ;
2070 DFB 170,170,170,170
READY.
