mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-25 09:29:35 +00:00
41 lines
484 B
ArmAsm
41 lines
484 B
ArmAsm
;=========================================================
|
|
; hgr copy from $2000 to $4000
|
|
;=========================================================
|
|
; copy $2000 to $4000
|
|
|
|
; intentionally slow for the miniblind effect
|
|
|
|
hgr_copy:
|
|
lda $0
|
|
sta INL
|
|
sta OUTL
|
|
|
|
lda #$20
|
|
sta INH
|
|
lda #$40
|
|
sta OUTH
|
|
|
|
|
|
ldy #0
|
|
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
|
|
|
|
|
|
|