Filenamen nach Drivenummer durchsuchen
und Burstbefehl entfernen (bei der 1571: $91ea)
A: c: 1: Drivenummer ist '1'

Einsprung von $B8DE:

BA06: A0 03     LDY #$03         Laenge des Burst-Befehls
BA08: A5 29     LDA $29          Befehlszeilenlaenge
BA0A: 38        SEC
BA0B: E9 03     SBC #$03         - 3 ('u0.')
BA0D: 85 29     STA $29
BA0F: AD 04 02  LDA $0204        Drivenummer suchen
BA12: C9 3A     CMP #$3A         (erkennbar an dem ':')
BA14: D0 0E     BNE $BA24        keine Drivenummer angegeben, ==>
BA16: AD 03 02  LDA $0203        Drivenummer holen
BA19: AA        TAX
BA1A: 29 30     AND #$30         ist das Zeichen wirklich eine Drivenummer ?
BA1C: C9 30     CMP #$30         (b54 = 11)
BA1E: D0 04     BNE $BA24        nein, ==>
BA20: E0 31     CPX #$31         Wenn Drivenummer = '1', dann
BA22: F0 1A     BEQ $BA3E        Fehler ==>

Einsprung von $BA14, $BA1E:

BA24: AD 03 02  LDA $0203        Sind Burst-Befehl und Filename durch ':'
BA27: C9 3A     CMP #$3A         getrennt (ohne Drivenummer) ?
BA29: D0 03     BNE $BA2E        nein, ==>
BA2B: C6 29     DEC $29          ja, auch ':' entfernen
BA2D: C8        INY              Laenge des Burst-Befehls =4 setzen

Einsprung von $BA29:

BA2E: A2 00     LDX #$00         Burst-Befehl entfernen

Einsprung von $BA3A:

BA30: B9 00 02  LDA $0200,Y      durch Verschieben der restlichen Eingaben
BA33: 9D 00 02  STA $0200,X
BA36: C8        INY
BA37: E8        INX
BA38: E4 29     CPX $29
BA3A: D0 F4     BNE $BA30        noch Zeichen zu verschieben ? ja, ==>
BA3C: 18        CLC              Drivenummer Ok.
BA3D: 24         B $24

Einsprung von $BA22:

BA3E: 38        SEC              falsche Drivenummer
BA3F: 60        RTS

    Previous Page / Next Page