1000 ORG16384
1010 ;
1020 PTR1 EQU 174
1030 ;
1040 CODE1 EQU 0 ; ADC
1050 CODE2 EQU 0 ; EOR
1060 ;
1070 ;
1080 JSR $FFE7 ; CLALL
1090 LDA #2
1100 LDX #8
1110 LDY #2
1120 JSR $FFBA
1130 LDA #11 ; LAENGE
1140 LDX #<NAME
1150 LDY #>NAME
1160 JSR $FFBD
1170 LDA #0
1180 JSR $FFC0 ; OPEN
1190 LDX #2
1200 JSR $FFC6 ; CHKIN
1210 ;
1220 JSR GET
1230 LDA #16
1240 STA PTR1
1250 JSR GET
1260 LDA #128
1270 STA PTR1+1
1280 ;
1290 LOOP1 JSR GET
1300 JSR PUT
1310 LDA $90
1320 BEQ LOOP1
1330 LDX #2
1340 JSR $FFCC ;RUCKSETZEN
1350 LDA #2
1360 JMP $FFC3 ;CLOSE
1370 ;
1380 ;
1390 ;
1400 ;
1410 GET JSR $FFCF ;BYTE LESEN
1420 CLC
1430 ADC #CODE1
1440 EOR #CODE2
1450 RTS
1460 ;
1470 ;
1480 PUT SEI
1490 LDY #52
1500 STY 1
1510 LDY #0
1520 STA (PTR1),Y
1530 INC PTR1
1540 BNE PUT1
1550 INC PTR1+1
1560 PUT1 LDY #55
1570 STY 1
1580 CLI
1590 RTS
1600 ;
1610 NAME DFB ""
READY.
