1000 ;SAVE"",8
1010 ;
1020 ;PROGRAMMUEBERTRAGUNG
1030 ; 1541 > C64 BEI
1040 ; ANGESCHALTETEM
1050 ; BILDSCHIRM
1060 ;
1070 ; VERSION 3.03 VOM
1080 ; 22. 9. 1985 CW
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 ;
1200 IO EQU 56576
1210 ST EQU 144
1220 PTR EQU 174
1230 CNT EQU 252
1240 LO EQU 253
1250 HI EQU 254
1260 TTP EQU 255
1270 PPU EQU 49152
1280 ;
1290 ;
1300 ;
1310 ;
1320 MEMEXEC JSR CLALL
1330 ;
1340 LDA #15
1350 LDX #8
1360 TAY
1370 JSR FILEPAR
1380 LDA #9
1390 LDX #<NAME15 ; &
1400 LDY #>NAME15
1410 JSR FILENAM
1420 LDA #0
1430 JSR OPEN
1440 ;
1450 ;
1460 ;
1470 LOAD LDA IO
1480 AND #%00000011
1490 STA HI
1500 STA IO
1510 ORA #%00010000
1520 STA LO
1530 LDX #0
1540 STX ST
1550 ;
1560 LOAD01 BIT IO
1570 BVS LOAD01
1580 ;
1590 LDY #0
1600 JSR GETBYTE
1610 STA PTR
1620 JSR GETBYTE
1630 STA PTR+1
1640 ;
1650 LOAD02 JSR GETBYTE
1660 STA (PTR),Y
1670 INC PTR
1680 BNE LOAD03
1690 INC PTR+1
1700 LOAD03 LDA ST
1710 BEQ LOAD02
1720 ;
1730 LDA PTR
1740 STA 45
1750 LDA PTR+1
1760 STA 46
1770 RTS
1780 ;
1790 ;
1800 ;
1810 GETBYTE LDA #8
1820 STA CNT
1830 ;
1840 GET01 BIT IO
1850 BVS GET02 ; CL HI
1860 BMI GET01 ; DATA HI
1870 ;
1880 LDA #64 ; ENDE
1890 STA ST
1900 RTS
1910 ;
1920 ;
1930 GET02 LDX LO
1940 LDA IO
1950 STX IO ; CL LOW
1960 ASL
1970 ROL TTP
1980 NOP
1990 ;
2000 LDX HI
2010 STX IO ; CL HI
2020 NOP
2030 NOP
2040 ;
2050 DEC CNT
2060 BNE GET02
2070 ;
2080 LDA TTP
2090 EOR #255
2100 ;
2110 INC 53280
2120 RTS
2130 ;
2140 ;
2150 ;
2160 NAME15 DFB ""
2170 ;
READY.
