1000 ;
1010 ;PROGRAMMUEBERTRAGUNG
1020 ; 1541 > C64 BEI
1030 ; ANGESCHALTETEM
1040 ; BILDSCHIRM
1050 ;
1060 ; VERSION 2.07 VOM
1070 ; 18. 9. 1985
1080 ; 14. 1. 1986
1090 ;
1100 ;
1110 ;
1120 ORG 20000
1130 ;
1140 FILEPAR EQU $FFBA
1150 FILENAM EQU $FFBD
1160 OPEN EQU $FFC0
1170 CLOSE EQU $FFC3
1180 CHKIN EQU $FFC6
1190 CKOUT EQU $FFC9
1200 CLRCH EQU $FFCC
1210 BASIN EQU $FFCF
1220 BSOUT EQU $F1CA
1230 CLALL EQU $FFE7
1240 ;
1250 ;
1260 ;
1270 ;
1280 JSR CLALL
1290 LDA #2
1300 LDX #8
1310 TAY
1320 JSR FILEPAR
1330 LDA #2
1340 LDX #<NAME2 ;#3
1350 LDY #>NAME2
1360 JSR FILENAM
1370 LDA #0
1380 JSR OPEN
1390 ;
1400 LDA #15
1410 LDX #8
1420 TAY
1430 JSR FILEPAR
1440 LDA #7
1450 LDX #<NAME15 ;B-P 2 0
1460 LDY #>NAME15
1470 JSR FILENAM
1480 LDA #0
1490 JSR OPEN
1500 ;
1510 LDX #2
1520 JSR CKOUT
1530 LDX #0
1540 UEBERM1 LDA FLOPPYPRG,X
1550 JSR BSOUT
1560 INX
1570 CPX #220
1580 BCC UEBERM1
1590 JSR CLRCH
1600 ;
1610 LDX #15
1620 JSR CKOUT
1630 LDX #5
1640 UEBERM2 LDA ME,X
1650 JSR BSOUT
1660 DEX
1670 BPL UEBERM2
1680 JSR CLRCH
1690 JMP LOAD
1700 ;
1710 ;
1720 NAME2 DFB ""
1730 NAME15 DFB ""
1740 ;
1750 ME DFB 13,6,0,""
1760 ;
1770 ;
1780 ;********************
1790 ;
1800 ;
1810 IO EQU 56576
1820 ST EQU 144
1830 PTR EQU 174
1840 CNT EQU 252
1850 LO EQU 253
1860 HI EQU 254
1870 TTP EQU 255
1880 PPU EQU 49152
1890 ;
1900 ;
1910 LOAD LDA IO
1920 AND #%00000011
1930 STA HI
1940 STA IO
1950 ORA #%00010000
1960 STA LO
1970 LDX #0
1980 STX ST
1990 ;
2000 LOAD01 INX
2010 BNE LOAD01
2020 ;
2030 LDY #0
2040 JSR GETBYTE
2050 STA PTR
2060 JSR GETBYTE
2070 STA PTR+1
2080 ;
2090 LOAD02 JSR GETBYTE
2100 STA (PTR),Y
2110 INC PTR
2120 BNE LOAD03
2130 INC PTR+1
2140 LOAD03 LDA ST
2150 BEQ LOAD02
2160 ;
2170 LDA PTR
2180 STA 45
2190 LDA PTR+1
2200 STA 46
2210 RTS
2220 ;
2230 ;
2240 ;
2250 GETBYTE LDA #8
2260 STA CNT
2270 ;
2280 GET01 BIT IO
2290 BVS GET02 ; CL HI
2300 BMI GET01 ; DATA HI
2310 ;
2320 LDA #64 ; ENDE
2330 STA ST
2340 RTS
2350 ;
2360 ;
2370 GET02 LDX LO
2380 LDA IO
2390 STX IO ; CL LOW
2400 ASL
2410 ROL TTP
2420 NOP
2430 ;
2440 LDX HI
2450 STX IO ; CL HI
2460 NOP
2470 NOP
2480 ;
2490 DEC CNT
2500 BNE GET02
2510 ;
2520 LDA TTP
2530 EOR #255
2540 ;
2550 INC 53280
2560 RTS
2570 ;
2580 ;
2590 ;
2600 ;
2610 ;********************
2620 ;
2630 ORG 17920 ; $0600
2640 ;
2650 PU EQU 768
2660 TMP EQU 68
2670 STMP EQU 139
2680 ;
2690 ;
2700 FLOPPYPRG SEI
2710 ;
2720 LDX #17 ;ANFANGSTRACK
2730 LDY #1 ;SEKTOR
2740 ;
2750 ;
2760 FL01 LDA #%00001000 ;CL L
2770 STA 6144
2780 ;
2790 LDA 7168
2800 EOR #%00001000 ;LED
2810 STA 7168
2820 ;
2830 JSR READ
2840 ;
2850 ;
2860 LDY #0
2870 LDX #254
2880 LDA PU
2890 BNE FL02
2900 LDX PU+1
2910 FL02 STX STMP
2920 ;
2930 FL03 LDA PU+2,Y
2940 JSR SENDBT
2950 INY
2960 CPY STMP
2970 BNE FL03
2980 ;
2990 LDX PU
3000 BEQ THEEND
3010 ;
3020 LDY PU+1
3030 JMP FL01
3040 ;
3050 ;
3060 THEEND LDA #%00001010 ;D,C:L
3070 STA 6144
3080 INX
3090 BNE THEEND
3100 ;
3110 JMP (65532)
3120 ;
3130 ;
3140 ;
3150 SENDBT STA TMP
3160 ;
3170 LDX #8
3180 ;
3190 SENDBT1 ROL TMP
3200 ROL
3210 ROL
3220 AND #%00000010
3230 STA 6144
3240 ;
3250 SENDBT2 LDA 6144
3260 AND #4 ;CL
3270 BNE SENDBT2 ;HI
3280 SENDBT3 LDA 6144
3290 AND #4 ;CL
3300 BEQ SENDBT3 ;LO
3310 ;
3320 DEX
3330 BNE SENDBT1
3340 ;
3350 RTS
3360 ;
3370 ;
3380 ;
3390 READ STX 6
3400 STY 7
3410 LDA #128
3420 STA 0
3430 CLI
3440 READ1 LDA 0
3450 BMI READ1
3460 SEI
3470 RTS
3480 ;
3490 ;
3500 DFB 147
READY.
