Block-Befehle ($cc1b)

8A5D: A0 00     LDY #$00         Am Zeilenanfang beginnen
8A5F: A2 00     LDX #$00         Anzahl gefundener ',' =0
8A61: A9 2D     LDA #$2D
8A63: 20 1C 81  JSR $811C        '-' suchen
8A66: D0 0A     BNE $8A72        gefunden, ==>

Einsprung von $8A82:

8A68: A9 31     LDA #$31          31, SYNTAX ERROR
8A6A: 4C 7C 80  JMP $807C

Einsprung von $8A73, $8ACE:

8A6D: A9 30     LDA #$30          30, SYNTAX ERROR
8A6F: 4C 7C 80  JMP $807C

Einsprung von $8A66:

8A72: 8A        TXA              ',' gefunden ?
8A73: D0 F8     BNE $8A6D        ja, ==>
8A75: A2 09     LDX #$09         'b<lock>-x'
8A77: B9 00 02  LDA $0200,Y      mit 'afrwepRW?*' vergleichen

Einsprung von $8A80:

8A7A: DD 61 8C  CMP $8C61,X
8A7D: F0 05     BEQ $8A84        gefunden, ==>
8A7F: CA        DEX
8A80: 10 F8     BPL $8A7A        noch nicht gefunden, ==>
8A82: 30 E4     BMI $8A68        gar nicht gefunden, ==>

Einsprung von $8A7D:

8A84: 8A        TXA              Block-Befehlsnummer
8A85: 09 80     ORA #$80         +$80 (Kennzeichen fuer Block-Befehl)
8A87: 8D 2A 02  STA $022A        Befehlsnummer speichern
8A8A: 20 9F A8  JSR $8A9F        Blockparamerter holen
8A8D: AD 2A 02  LDA $022A        aktuelle Befefehlsnummer holen
8A90: 0A        ASL
8A91: AA        TAX
8A92: BD 6C 8C  LDA $8C6C,X      Befehlsadresse holen
8A95: 85 41     STA $41
8A97: BD 6B 8C  LDA $8C6B,X
8A9A: 85 40     STA $40
8A9C: 6C 40 00  JMP ($0040)      Block-Befehl aufrufen ==>
    Previous Page / Next Page