    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