     $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