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 #49
1490 JSR SYNC
1500 STX 53265
1510 LDA #200
1520 STA 53270
1530 LDA #21
1540 STA 53272
1550 LDA #151
1560 STA 56576
1570 LDX #27
1580 JSR SYNC
1590 STX 53265
1600 ;
1610 RTS
1620 ;
1630 ;
1640 ;
1650 GLEICHE JSR GET
1660 STA PTR0
1670 JSR GET
1680 GLEICHE1 JSR PUT
1690 DEC PTR0
1700 BNE GLEICHE1
1710 BEQ LOOP1
1720 ;
1730 ;
1740 ;
1750 ;
1760 GET LDA (PTR1),Y
1770 LDX #PTR1
1780 BNE INK
1790 ;
1800 ;
1810 PUT STA (PTR2),Y
1820 LDX #PTR2
1830 ;
1840 ;
1850 INK INC 0,X
1860 BNE INK1
1870 INC 1,X
1880 INK1 RTS
1890 ;
1900 ;
1910 SYNC LDA 53265
1920 BPL SYNC
1930 SYNC1 LDA 53265
1940 BMI SYNC1
1950 RTS
1960 ;
1970 SOURCEANF DFB 0
READY.
