0 -.OB "DISKNAME.OBJ,P,W" 1 -; 2 -; DISKNAME STK 08/96 3 -; 4 - .BA $1300 5 -; 6 - .EQ SETLFS=$FFBA; DATEIPARAMETER SETZEN 7 - .EQ SETNAM=$FFBD; DATEINAME SETZEN 8 - .EQ OPEN=$FFC0 ; DATEI OEFFNEN 9 - .EQ CHKIN=$FFC6; EINGABE V. DATEI 10 - .EQ CHRIN=$FFCF; ZEICHEN LESEN 11 - .EQ CLRCH=$FFCC; DAT.-EINGABE BEENDEN 12 - .EQ CLOSE=$FFC3; DATEI SCHLIESSEN 13 - .EQ GETCOM=$8809; KOMMA TESTEN U. BYTE LESEN 14 - .EQ CHKCOM=$795C; KOMMA TESTEN 15 - .EQ GETPOS=$7AAF; VAR.-ADR. ERMITTELN 16 - .EQ VARADR=$49 ; ERGEBNIS V. GETPOS 17 - .EQ JSRFAR=$F82B; JSR IN BEL. BANK(DANACH BANK15) 18 - .EQ JFCONF=$02 ; BANK FUER JSRFAR 19 - .EQ JFADRH=$03 ; HIGHBYTE ADRESSE 20 - .EQ JFADRL=$04 ; LOWBYTE ADRESSE 21 - .EQ JFAKKU=$06 ; AKKU 22 - .EQ JFSTAT=$05 ; STATUS 23 - .EQ STRTEST=$77DD; TEST OB STRING 24 - .EQ STASH=$FF77; STA (STAVEC),Y IN BANK X 25 - .EQ STAVEC=$02B9 26 - .EQ STRRES=$9299; A BYTE FUER STRING RESERVIEREN 27 - .EQ STRSTART=$35; START STRINGBEREICH 28 - .EQ LFN=17 ; FILENUMMER 29 -; 30 -DISKNAME JSR GETCOM ; GERAETEADR. IN X 31 - LDA #LFN ; PARAMETER FUER DATEI SETZEN 32 - LDY #0 33 - JSR SETLFS 34 - LDA #1 ; "$" ALS DATEINAME 35 - LDX #<(DIR) 36 - LDY #>(DIR) 37 - JSR SETNAM 38 - JSR CHKCOM ; VAR.-ADRESSE ERMITTELN 39 - LDA #<(GETPOS) 40 - STA JFADRL 41 - LDA #>(GETPOS) 42 - STA JFADRH 43 - JSR JSRFAR15 44 - JSR STRTEST ; STRING? 45 - JSR OPEN ; DATEI OEFFNEN 46 - BCS ENDE ; GERAET NICHT VORHANDEN: ENDE 47 - LDX #LFN ; EINGABE V. DATEI 48 - JSR CHKIN 49 - LDY #8 ; FUEHRENDE ZEICHEN UEBERLESEN 50 -HEADER JSR CHRIN 51 - DEY 52 - BNE HEADER 53 - LDA #<(STRRES) ; 16 BYTE IN STRING-BEREICH 54 - STA JFADRL ; RESERVIEREN 55 - LDA #>(STRRES) 56 - STA JFADRH 57 - LDA #16 58 - STA JFAKKU 59 - JSR JSRFAR15 60 - LDX #VARADR 61 - STX STAVEC 62 - LDA #16 ; LAENGE UND 63 - LDY #0 64 - JSR STASH1 65 - LDA STRSTART ; TEXTADRESSE IN 66 - INY ; STRINGDESCRIPTOR 67 - JSR STASH1 68 - LDA STRSTART+1 69 - INY 70 - JSR STASH1 71 - LDX #STRSTART ; DISKNAME IN STRING 72 - STX STAVEC 73 - LDY #0 74 -NAME JSR CHRIN 75 - JSR STASH1 76 - INY 77 - CPY #16 78 - BNE NAME 79 -ENDE JSR CLRCH ; ENDE DATEIEINGABE 80 - LDA #LFN ; DATEI SCHLIESSEN 81 - JMP CLOSE 82 -; 83 -JSRFAR15 LDA #15 ; JSRFAR IN BANK 15 84 - STA JFCONF 85 - LDA #$00 86 - STA JFSTAT 87 - JMP JSRFAR 88 -; 89 -STASH1 LDX #1 ; STASH IN BANK 1 90 - JMP STASH 91 -; 92 -DIR .TX "$" ; DATEINAME 93 -; 94 -.EN