$DEC1/57025:   Erase buffer Y

Jump from $DD1A, $E45B:

DEC1: A8        TAY             ; buffer number
DEC2: B9 E0 FE  LDA $FEE0,Y     ; get hi-address
DEC5: 85 70     STA $70
DEC7: A9 00     LDA #$00        ; lo-address
DEC9: 85 6F     STA $6F
DECB: A8        TAY

Jump from $DECF:

DECC: 91 6F     STA ($6F),Y     ; erase buffer
DECE: C8        INY
DECF: D0 FB     BNE $DECC
DED1: 60        RTS

    Previous Page / Next Page