Dateityp feststellen ('s,p,u,r,c') (z.B. '$*=s') ($c398)

Einsprung von $8688, $9939:

8270: A0 00     LDY #$00
8272: AD 2E 02  LDA $022E        Anzahl der Parameter vor '='
8275: CD 2F 02  CMP $022F        = Anzahl P. in Kommandozeile ?
8278: F0 16     BEQ $8290        ja, kein Typ angegeben, ==>
827A: CE 2F 02  DEC $022F        Zeiger auf Zeilenende entfernen
827D: AC 2F 02  LDY $022F        Letzten Parameter (zukuenftiges Zeilenende)
8280: B9 91 02  LDA $0291,Y      holen
8283: A8        TAY              1. Zeichen des Parameters holen
8284: B1 CD     LDA ($CD),Y
8286: A0 05     LDY #$05         mit allen

Einsprung von $828E:

8288: D9 AB DB  CMP $DBAB,Y      Dateitypenbezeichnungen vergleichen
828B: F0 03     BEQ $8290        gleich, ==>
828D: 88        DEY              wenn der Typ nicht gefunden wird, oder
828E: D0 F8     BNE $8288        der Typ = del ist:

Einsprung von $8278, $828B:

8290: 98        TYA              'Typ nicht gefunden bzw. angegeben' merken
8291: 8D 33 02  STA $0233        Dateityp merken
8294: 60        RTS

    Previous Page / Next Page