    -
    Parameter der Block-Befehle holen ($cc7c)
    -

    Einsprung von $8A8A, $8B9A, $8BD7:

    8A9F: A0 00     LDY #$00         Zeile vom Anfang an pruefen
    8AA1: A2 00     LDX #$00         Anzahl gefundener Kommas = 0
    8AA3: A9 3A     LDA #$3A
    8AA5: 20 1C 81  JSR $811C        Eingabezeile bis zum ':' pruefen
    8AA8: D0 02     BNE $8AAC        ':' gefunden ? ja, ==>
    8AAA: A0 03     LDY #$03         Zeiger hinter 'b-x' setzen

    Einsprung von $8AA8, $8ABE, $8A01:

    8AAC: B9 00 02  LDA $0200,Y      Zeichen aus Input-Puffer
    8AAF: C9 20     CMP #$20         mit gueltigen Trennzeichen
    8AB1: F0 08     BEQ $8ABB        vergleichen
    8AB3: C9 1D     CMP #$1D         <Space>, <Cursor-Right>, ','
    8AB5: F0 04     BEQ $8ABB
    8AB7: C9 2C     CMP #$2C         aktuelles Zeichen ist kein Trennzeichen,
    8AB9: D0 06     BNE $8AC1        Zeichen gehoert also zum Parameter, ==>

    Einsprung von $8AB1, $8AB5, $8ACC:

    8ABB: C8        INY              naechstes Zeichen
    8ABC: C4 29     CPY $29          Zeilenende ?
    8ABE: 90 EC     BCC $8AAC        nein, ==>
    8AC0: 60        RTS              Ende

    Einsprung von $8AB9:

    8AC1: 20 D0 8A  JSR $8AD0        ASCII-Wert in HEX-Wert umwandeln
    8AC4: EE 2E 02  INC $022E        naechsten Parameterspeicher waehlen
    8AC7: AC 30 02  LDY $0230        Zeiger in Zeile zurueckholen
    8ACA: E0 04     CPX #$04         Anzahl Dezimalstellen >= 4 ?
    8ACC: 90 ED     BCC $8ABB        nein, ==>
    8ACE: B0 9D     BCS $8A6D        30, Syntax Error

        Previous Page / Next Page