mirror of https://github.com/a2-4am/passport.git
37 lines
894 B
Plaintext
37 lines
894 B
Plaintext
; /!\ execution falls through from ChangeTrack
|
|
;-------------------------------
|
|
; ClearTSBuffer
|
|
; clear the $1000 byte memory buffer
|
|
; used to store the current track's data
|
|
; in: none
|
|
; out: Z = 1
|
|
; X preserved
|
|
; Y = 0
|
|
; all other flags and registers clobbered
|
|
;-------------------------------
|
|
ClearTSBuffer
|
|
lda #BASEPAGE
|
|
ldx #$00
|
|
ldy #$10
|
|
; /!\ execution falls through here
|
|
|
|
;-------------------------------
|
|
; ClearMemory
|
|
; in: A = source address (high)
|
|
; X = value to set
|
|
; Y = number of pages
|
|
; out: Z = 1
|
|
; X preserved
|
|
; Y = 0
|
|
; all other flags and registers clobbered
|
|
;-------------------------------
|
|
ClearMemory
|
|
sta @dest+2
|
|
@dest stx $FF00
|
|
inc @dest+1
|
|
bne @dest
|
|
inc @dest+2
|
|
dey
|
|
bne @dest
|
|
rts
|