1000 ORG 20000
1010 ;
1020 PTR0 EQU 249
1030 PTR1 EQU 250
1040 PTR2 EQU 252
1050 ;
1060 MARK0 EQU 191
1070 MARKX EQU 207
1080 CODE1 EQU 0
1090 CODE2 EQU 0
1100 ;
1110 ;
1120 EINSPRUNG SEI
1130 LDA #147
1140 LDX #127
1150 LDY #0
1160 STY 53280
1170 STY 53281
1180 JSR 65490
1190 LDY #0
1200 EINSPRUNG1 LDA ROUTINE,X
1210 STA 256,X
1220 DEX
1230 BPL EINSPRUNG1
1240 TXS
1250 LDA #47
1260 STA 0
1270 LDA #52
1280 STA 1
1290 LDA 45 ; AENDE
1300 LDX 46
1310 JMP 256
1320 ;
1330 OF EQU *-256
1340 ;
1350 ROUTINE STA PTR1
1360 STX PTR1+1
1370 STY PTR2
1380 STY PTR2+1
1390 ;
1400 VERSCH LDA PTR1
1410 BNE VERSCH1
1420 DEC PTR1+1
1430 VERSCH1 DEC PTR1
1440 LDA PTR2
1450 BNE VERSCH2
1460 DEC PTR2+1
1470 VERSCH2 DEC PTR2
1480 LDA (PTR1),Y
1490 STA (PTR2),Y
1500 LDA PTR2+1
1510 CMP #>AANFANG
1520 BNE VERSCH
1530 LDA PTR2
1540 CMP #<AANFANG
1550 BNE VERSCH
1560 ;
1570 LDA AANFANG ;NEUANF
1580 LDX AANFANG+1
1590 STA PTR2
1600 STX PTR2+1
1610 ;
1620 ;
1630 LOOP1 JSR GET-OF
1640 CMP #MARK0
1650 BEQ ZEROS
1660 CMP #MARKX
1670 BEQ SONDER
1680 JSR PUT-OF
1690 CLC
1700 BCC LOOP1
1710 ;
1720 ;
1730 ZEROS JSR GET-OF
1740 STA PTR0
1750 TYA
1760 ZEROS1 JSR PUT-OF
1770 DEC PTR0
1780 BNE ZEROS1
1790 BEQ LOOP1
1800 ;
1810 ;
1820 SONDER JSR GET-OF
1830 STA PTR0
1840 JSR GET-OF
1850 BNE ZEROS1
1860 ;
1870 ;
1880 GET LDA (PTR1),Y
1890 EOR #CODE1
1900 CLC
1910 ADC #CODE2
1920 LDX #PTR1
1930 BNE INK
1940 ;
1950 ;
1960 PUT STA (PTR2),Y
1970 LDX #PTR2
1980 ;
1990 ;
2000 INK INC 0,X
2010 BNE INK1
2020 INC 1,X
2030 BEQ FERTG
2040 INK1 RTS
2050 ;
2060 FERTG LDA #55
2070 STA 1
2080 CLI
2090 JMP 0
2100 ;
2110 ;
2120 AANFANG DFB 0,0 ;NEUANF
READY.
