Puffer mit leeren Records fuellen ($e2e2)

Einsprung von $9C70, $A3A0, $A3AC:

A298: 20 69 9D  JSR $9D69        Zeiger auf aktiven Puffer setzen
A29B: A0 02     LDY #$02
A29D: A9 00     LDA #$00         Datenbereich des Puffers mit $00 auffuellen

Einsprung von $A2A2:

A29F: 91 64     STA ($64),Y
A2A1: C8        INY
A2A2: D0 FB     BNE $A29F
A2A4: 20 BC A2  JSR $A2BC        Zeiger auf 1. Record im neuen Datenblock

Einsprung von $A2B2:

A2A7: 9D 57 02  STA $0257,X      setzen
A2AA: A8        TAY
A2AB: A9 FF     LDA #$FF         $ff: Kennzeichen fuer Leer-Record
A2AD: 91 64     STA ($64),Y
A2AF: 20 BC A2  JSR $A2BC        Zeiger auf naechsten Record setzen
A2B2: 90 F3     BCC $A2A7        Datenblock voll ? nein, ==>
A2B4: D0 05     BNE $A2BB        Block genau gefuellt ? nein, ==>
A2B6: A9 00     LDA #$00         Kennzeichen fuer 'Datenblock genau gefuellt'
A2B8: 9D 57 02  STA $0257,X      setzen

Einsprung von $A2B4:

A2BB: 60        RTS

    Previous Page / Next Page