1000 ;SAVE"",8
1010 ;
1020 ;PROGRAMMUEBERTRAGUNG
1030 ; 1541 > C64 BEI
1040 ; ANGESCHALTETEM
1050 ; BILDSCHIRM
1060 ;
1070 ; VERSION 4.04 VOM
1080 ; 27. 11. 1985
1090 ;
1100 ;
1110 ;
1120 ORG 20000
1130 ;
1140 FILEPAR EQU $FFBA
1150 FILENAM EQU $FFBD
1160 OPEN EQU $FFC0
1170 BSOUT EQU $F1CA
1180 CLALL EQU $FFE7
1190 VECTORINIT EQU $FF8A
1200 ;
1210 IO EQU 56576
1220 ST EQU 144
1230 PTR EQU 174
1240 CNT EQU 252
1250 LO EQU 253
1260 HI EQU 254
1270 TTP EQU 255
1280 PPU EQU 49152
1290 ;
1300 O1 EQU *-806
1310 ANF EQU 820
1320 ;
1330 ;
1340 ;
1350 DFB <ANF,>ANF
1360 DFB $E1,$F6 ; STOP
1370 DFB $3E,$F1 ; GET
1380 DFB 0,0,0,0,0,0,0,0
1390 ;
1400 ;
1410 INIT JSR SYNC-O1
1420 LDA #11
1430 STA 53265
1440 LDY #0
1450 STY 157 ; DIREKTMODUS
1460 STY 53280
1470 STY 53281
1480 ;
1490 JSR VECTORINIT
1500 JSR CLALL
1510 ;
1520 LDA #15
1530 LDX #8
1540 TAY
1550 JSR FILEPAR
1560 LDA #9
1570 LDX #<NAME15 ; &
1580 LDY #>NAME15
1590 JSR FILENAM
1600 LDA #0
1610 JSR OPEN
1620 ;
1630 ;
1640 DFB $2C ; BIT
1650 NAME15 DFB ""
1660 ;
1670 LOAD LDA IO
1680 AND #%00000011
1690 STA HI
1700 STA IO
1710 ORA #%00010000
1720 STA LO
1730 LDX #0
1740 STX ST
1750 ;
1760 LOAD01 BIT IO
1770 BVS LOAD01
1780 ;
1790 LDY #0
1800 JSR GETBYTE-O1
1810 STA PTR
1820 JSR GETBYTE-O1
1830 STA PTR+1
1840 ;
1850 LOAD02 JSR GETBYTE-O1
1860 STA (PTR),Y
1870 INC PTR
1880 BNE LOAD03
1890 INC PTR+1
1900 JSR SYNC-O1
1910 LDA 53280
1920 EOR #6
1930 STA 53280
1940 LOAD03 LDA ST
1950 BEQ LOAD02
1960 ;
1970 LDA PTR
1980 STA 45
1990 LDA PTR+1
2000 STA 46
2010 JMP 32000 ; SKRAMBLE
2020 ;
2030 ;
2040 ;
2050 GETBYTE LDA #8
2060 STA CNT
2070 ;
2080 GET01 BIT IO
2090 BVS GET02 ; CL HI
2100 BMI GET01 ; DATA HI
2110 ;
2120 LDA #64 ; ENDE
2130 STA ST
2140 RTS
2150 ;
2160 ;
2170 GET02 LDX LO
2180 LDA IO
2190 STX IO ; CL LOW
2200 ASL
2210 ROL TTP
2220 NOP
2230 ;
2240 LDX HI
2250 STX IO ; CL HI
2260 NOP
2270 NOP
2280 ;
2290 DEC CNT
2300 BNE GET02
2310 ;
2320 LDA TTP
2330 EOR #255
2340 ;
2350 RTS
2360 ;
2370 ;
2380 SYNC LDA 53265
2390 BPL SYNC
2400 LDA 53265
2410 BMI SYNC
2420 RTS
READY.
