-
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