1000 ORG 20000
1010 ;
1020 PTR0 EQU 249
1030 PTR1 EQU 250
1040 PTR2 EQU 252
1050 PTR3 EQU 254
1060 ;
1070 ;
1080 EINSP LDY #0
1090 LDA #<SOURCEANF
1100 LDX #>SOURCEANF
1110 STA PTR1
1120 STX PTR1+1
1130 LDA #<DEST
1140 LDX #>DEST
1150 STA PTR2
1160 STX PTR2+1
1161 LDA #<SOURCEEND
1162 LDX #>SOURCEEND
1163 STA PTR3
1164 STX PTR3+1
1170 ;
1180 LOOP1 JSR GET
1190 CMP #MARK
1200 BEQ ZEROS
1210 JSR PUT
1220 LDA PTR2+1
1230 CMP #PTR3+1
1240 BNE LOOP1
1250 LDA PTR2
1260 CMP #PTR3
1270 BNE LOOP1
1280 ;
1290 RTS
1300 ;
1310 ;
1320 ZEROS JSR GET
1330 STA PTR0
1340 LDA #0
1350 ZEROS1 JSR PUT
1360 DEC PTR0
1370 BNE ZEROS1
1380 BEQ LOOP1
1390 ;
1400 ;
1410 SONDER JSR GET
1420 STA PTR0
1430 JSR GET
1440 BNE ZEROS1
1450 ;
1460 ;
1470 GET LDA (PTR1),Y
1480 LDX #PTR1
1490 BNE INK
1500 ;
1510 ;
1520 PUT STA (PTR2),Y
1530 LDX #PTR2
1540 ;
1550 ;
1560 INK INC 0,X
1570 BNE INK1
1580 INC 1,X
1590 INK1 RTS
READY.
