1000 ;
1010 ; STI 07-APR-87
1020 ;
1030 ORG $600
1040 EINSPRUNG EQU $F7D0 ;NACH LADEN
1050 ;
1060 PTR EQU 174
1070 ;
1080 CLALL EQU $FFE7
1090 OPEN EQU $FFC0
1100 CHKIN EQU $FFC6
1110 GET EQU $FFCF
1120 CLOSE EQU $FFC3
1130 ;
1140 ;
1150 STRT JSR CLALL
1160 LDA #2
1170 LDX #8
1180 LDY #2
1190 JSR $FFBA
1200 LDA #9 ; LAENGE
1210 LDX #<NAME
1220 LDY #>NAME
1230 JSR $FFBD
1240 LDA #0
1250 JSR $OPEN
1260 LDX #2
1270 JSR CHKIN
1280 ;
1290 JSR GET
1300 STA PTR
1310 JSR GET
1320 STA PTR+1
1330 ;
1340 LOOP1 JSR GET
1350 SEI
1360 LDY #52
1370 STY 1
1380 LDY #0
1390 STA (PTR),Y
1400 INC PTR
1410 BNE PUT1
1420 INC PTR+1
1430 PUT1 LDY #55
1440 STY 1
1450 CLI
1460 ;
1470 LDA $90
1480 BEQ LOOP1
1490 ;
1500 LDX #2
1510 JSR $FFCC ;RUCKSETZEN
1520 LDA #2
1530 JSR CLOSE
1540 ;
1550 SEI
1560 LDA #53
1570 STA 1
1580 JMP EINSPRUNG
1590 ;
1600 ;
1610 NAME DFB "",0
READY.
