NEW-Befehl ($ee0d)

B348: 20 FD 81  JSR $81FD        Laufwerksnummer holen
B34B: A5 EF     LDA $EF          Laufwerksnummer OK. ?
B34D: 10 05     BPL $B354        ja, ==>
B34F: A9 33     LDA #$33         33, Syntax Error
B351: 4C 7C 80  JMP $807C

Einsprung von $B34D:

B354: A9 00     LDA #$00
B356: 85 6E     STA $6E          Drivestatus loeschen
B358: 8D FA 01  STA $01FA        Schreibschutz-Status loeschen
B35B: 20 F6 81  JSR $81F6        Drive-LED einschalten
B35E: A2 00     LDX #$00
B360: AC 92 02  LDY $0292        2. Parameter
B363: C4 29     CPY $29          = Zeilenende ?
B365: F0 19     BEQ $B380        ja, nur Verzeichnis anlegen ==>
B367: B9 00 02  LDA $0200,Y      Neue ID setzen
B36A: 95 1D     STA $1D,X        (x=0)
B36C: B9 01 02  LDA $0201,Y
B36F: 95 1E     STA $1E,X
B371: 20 62 92  JSR $9262        Kanaele der SA 1-14 freigeben
B374: 20 69 FF  JSR $FF69        Prueft auf Diskettenwechsel
B377: 20 46 87  JSR $8746        Partition formatieren
B37A: 20 3D B4  JSR $B43D        BAM-Puffer loeschen
B37D: 4C 90 B3  JMP $B390        Verzeichnis anlegen

    Previous Page / Next Page