1000 ORG 32768
1010 ;
1020 PTR0 EQU 253
1030 PTR1 EQU 254
1040 ;
1050 MARK EQU 170
1060 CODE1 EQU 0
1070 CODE2 EQU 0
1080 ;
1090 ;
1100 DFB 9,128,9,128
1110 DFB ""
1120 ZERSTOER SEI
1130 LDA #52
1140 STA 1
1150 LDY #<ZERSTOER3
1160 LDA #0
1170 STA PTR1
1180 LDA #>ZERSTOER3
1190 STA PTR1+1
1200 LDA #170
1210 ;
1220 ZERSTOER1 STA (PTR1),Y
1230 INY
1240 BNE ZERSTOER1
1250 INC PTR1+1
1260 BNE ZERSTOER1
1270 ZERSTOER2 INC PTR1+1
1280 BNE ZERSTOER1
1290 ZERSTOER3 DFB 34
1300 ;
1310 ;
1320 ORG 828
1330 ;
1340 LOAD JSR $FFE7 ; CLALL
1350 LDA #2
1360 LDX #8
1370 LDY #2
1380 JSR $FFBA
1390 LDA #11
1400 LDX #<NAME
1410 LDY #>NAME
1420 JSR $FFBD
1430 LDA #0
1440 JSR $FFC0 ; OPEN
1450 LDX #2
1460 JSR $FFC6 ; CHKIN
1470 ;
1480 JSR GET
1490 STA PTR1
1500 JSR GET
1510 STA PTR1+1
1520 ;
1530 LOOP1 JSR GET
1540 CMP #MARK
1550 BEQ ZEROS
1560 JSR PUT
1570 LDA $90
1580 BEQ LOOP1
1590 LDX #2
1600 JSR $FFCC ;RUCKSETZEN
1610 ;
1620 JMP 49152
1630 ;
1640 ;
1650 ZEROS JSR GET
1660 STA PTR0
1670 LDA #0
1680 ZEROS1 JSR PUT
1690 DEC PTR0
1700 BNE ZEROS1
1710 BEQ LOOP1
1720 ;
1730 ;
1740 GET JSR $FFCF ;BYTE LESEN
1750 CLC
1760 ADC #CODE1
1770 EOR #CODE2
1780 RTS
1790 ;
1800 ;
1810 PUT SEI
1820 PUT LDY #52
1830 STY 1
1840 LDY #0
1850 STA (PTR1),Y
1860 INC PTR1
1870 BNE PUT1
1880 INC PTR1+1
1890 PUT1 LDY #54
1900 STY 1
1910 CLI
1920 RTS
1930 ;
1940 NAME DFB ""
READY.
