    Alle Parameter auf Laufwerksnummer pruefen und diese ggf. loeschen ($c320)
    (z.B. "c0:xxx=0:yyy,0:zzz", "s0:xxx,0:yyy", LOAD"$0:xxx,0:yyy",ga ...)

    Einsprung von $868B, $8782, $88C5, $993C:

    820B: A2 00     LDX #$00         mit dem 1. Parameter anfangen

    Einsprung von $8221:

    820D: 86 67     STX $67
    820F: BD 91 02  LDA $0291,X      Position des Parameters holen
    8212: 20 24 82  JSR $8224        und testen
    8215: A6 67     LDX $67          Neue Position zurueckschreiben
    8217: 9D 91 02  STA $0291,X      (zum Entfernen der Drivenummer)
    821A: 98        TYA              Drivenummer merken
    821B: 95 EF     STA $EF,X
    821D: E8        INX              Naechsten Parameter pruefen
    821E: EC 2F 02  CPX $022F         < Anzahl der Parameter ?
    8221: 90 EA     BCC $820D        ja, ==>
    8223: 60        RTS

        Previous Page / Next Page