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