    Eingabezeile bis zu einem bestimmten Zeichen auswerten ($c268)
    Die Anzahl der ',' bis zur Fundstelle werden gezaehlt und Joker registriert.
    x sollte vor dem ersten Aufruf auf 0 gesetzt werden.

    E: a: Ende-Zeichen
       x: Alte Anzahl gefundener Kommas
       y: Startposition

    A: a: Position des Zeichens + 1 (0 = Zeichen nicht gefunden)
       x: Anzahl der gefundenen Kommas
       y: (= a)
       n: 1: Zeichen nicht gefunden

    Einsprung von $808C, $809F, $80B6, $80EA, $8A63, $8AA5, $96F8:

    811C: 8D 8F 02  STA $028F        Suchzeichen

    Einsprung von $8138, $814F:

    811F: C4 29     CPY $29          Ende der Befehlszeile erreicht ?
    8121: B0 2E     BCS $8151        ja, ==>
    8123: B1 CD     LDA ($CD),Y      Zeichen aus der Kommandozeile holen
    8125: C8        INY
    8126: CD 8F 02  CMP $028F        = Suchzeichen ?
    8129: F0 28     BEQ $8153        ja
    812B: C9 2A     CMP #$2A         Joker ?
    812D: F0 04     BEQ $8133        ja, ==>
    812F: C9 3F     CMP #$3F
    8131: D0 03     BNE $8136        nein, ==>

    Einsprung von $812D:

    8133: EE A1 02  INC $02A1        Jokerflag setzen

    Einsprung von $8131:

    8136: C9 2C     CMP #$2C
    8138: D0 E5     BNE $811F        ',' gefunden
    813A: 98        TYA              ja, Position des naechsten Parameters
    813B: 9D 92 02  STA $0292,X      merken
    813E: AD A1 02  LDA $02A1        War Joker im Parameter ?
    8141: 29 7F     AND #$7F
    8143: F0 07     BEQ $814C
    8145: A9 80     LDA #$80         ja, Jokerflag setzen
    8147: 95 F4     STA $F4,X
    8149: 8D A1 02  STA $02A1        Jokerflag fuer neue Suche loeschen

    Einsprung von $8143:

    814C: E8        INX $B7=1:             Es wurden Joker gefunden
    814D: E0 04     CPX #$04         wurden zu viele Parameter angegeben ?
    814F: 90 CE     BCC $811F        nein, ==>

    Einsprung von $8121:

    8151: A0 00     LDY #$00         ja, Ende der Suche

    Einsprung von $8129:

    8153: A5 29     LDA $29          Zeilenlaenge bzw. Position des gesuchten
    8155: 9D 92 02  STA $0292,X      Zeichens merken
    8158: AD A1 02  LDA $02A1        War im letzten Parameter ein Joker (b7=1) ?
    815B: 29 7F     AND #$7F
    815D: F0 04     BEQ $8163        nein, ==>
    815F: A9 80     LDA #$80         Jokerflag setzen
    8161: 95 F4     STA $F4,X

    Einsprung von $815D:

    8163: 98        TYA
    8164: 60        RTS

        Previous Page / Next Page