mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-02 16:29:33 +00:00
39 lines
529 B
ArmAsm
39 lines
529 B
ArmAsm
;=========================================================
|
|
; hgr copy from $2000 to $4000
|
|
;=========================================================
|
|
; copy $2000 to $4000
|
|
|
|
; intentionally slow for the miniblind effect
|
|
|
|
hgr_copy:
|
|
ldy #0 ; start at beginning
|
|
sty INL
|
|
sty OUTL
|
|
|
|
lda #$20
|
|
sta INH
|
|
lda #$40
|
|
sta OUTH
|
|
|
|
|
|
; ldy #0
|
|
hgr_copy_outer:
|
|
|
|
hgr_copy_inner:
|
|
lda #1 ; artificial slowdown
|
|
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
|
|
|