2023-08-14 05:40:08 +00:00
|
|
|
;=========================================================
|
|
|
|
|
; hgr copy from $2000 to $4000
|
|
|
|
|
;=========================================================
|
|
|
|
|
; copy $2000 to $4000
|
|
|
|
|
|
|
|
|
|
; intentionally slow for the miniblind effect
|
|
|
|
|
|
|
|
|
|
hgr_copy:
|
2023-08-14 05:43:56 +00:00
|
|
|
ldy #0 ; blurgh
|
|
|
|
|
sty INL
|
|
|
|
|
sty OUTL
|
2023-08-14 05:40:08 +00:00
|
|
|
|
|
|
|
|
lda #$20
|
|
|
|
|
sta INH
|
|
|
|
|
lda #$40
|
|
|
|
|
sta OUTH
|
|
|
|
|
|
|
|
|
|
|
2023-08-14 05:43:56 +00:00
|
|
|
; ldy #0
|
2023-08-14 05:40:08 +00:00
|
|
|
hgr_copy_outer:
|
|
|
|
|
|
|
|
|
|
hgr_copy_inner:
|
|
|
|
|
lda #1
|
|
|
|
|
jsr wait
|
|
|
|
|
|
|
|
|
|
lda (INL),Y
|
|
|
|
|
sta (OUTL),Y
|
|
|
|
|
iny
|
|
|
|
|
bne hgr_copy_inner
|
|
|
|
|
|
|
|
|
|
inc INH
|
|
|
|
|
inc OUTH
|
|
|
|
|
lda OUTH
|
|
|
|
|
cmp #$60
|
|
|
|
|
bne hgr_copy_outer
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
