1000 ORG 6144
1010 ;
1020 PTR0 EQU 251
1030 PTR1 EQU 252
1040 PTR2 EQU 254
1050 MARK EQU 191
1060 ;
1070 ;
1080 EINSP LDA #147
1090 JSR 65490
1100 LDX #11
1110 JSR SYNC
1120 STX 53265
1130 LDA #<SOURCEANF
1140 LDX #>SOURCEANF
1150 STA PTR1
1160 STX PTR1+1
1170 LDY #<16384
1180 LDX #>16384
1190 STY PTR2
1200 STX PTR2+1
1210 ;
1220 LOOP1 JSR GET
1230 CMP #MARK
1240 BEQ GLEICHE
1250 JSR PUT
1260 LDA PTR2+1
1270 CMP #116
1280 BCC LOOP1
1290 ;
1300 HIRES LDA #216
1310 STA 53270
1320 LDA #128
1330 STA 53272
1340 LDA #6
1350 STA 53280
1360 STA 53281
1370 LDA #150
1380 STA 56576
1390 LDX #59
1400 JSR SYNC
1410 STX 53265
1420 ;
1430 LDX #0
1440 WARTE JSR SYNC
1450 DEX
1460 BNE WARTE
1470 ;
1480 LDX #0
1490 BLINK JSR SYNC
1500 INC 53281
1510 DEX
1520 BNE BLINK
1530 ;
1540 LDX #49
1550 JSR SYNC
1560 STX 53265
1570 LDA #200
1580 STA 53270
1590 LDA #21
1600 STA 53272
1610 LDA #151
1620 STA 56576
1630 LDX #27
1640 JSR SYNC
1650 STX 53265
1660 ;
1670 RTS
1680 ;
1690 ;
1700 ;
1710 GLEICHE JSR GET
1720 STA PTR0
1730 JSR GET
1740 GLEICHE1 JSR PUT
1750 DEC PTR0
1760 BNE GLEICHE1
1770 BEQ LOOP1
1780 ;
1790 ;
1800 ;
1810 ;
1820 GET LDA (PTR1),Y
1830 LDX #PTR1
1840 BNE INK
1850 ;
1860 ;
1870 PUT STA (PTR2),Y
1880 LDX #PTR2
1890 ;
1900 ;
1910 INK INC 0,X
1920 BNE INK1
1930 INC 1,X
1940 INK1 RTS
1950 ;
1960 ;
1970 SYNC LDA 53265
1980 BPL SYNC
1990 SYNC1 LDA 53265
2000 BMI SYNC1
2010 RTS
2020 ;
2030 SOURCEANF DFB 0
READY.
