mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-06 03:04:43 +00:00
85d338a45f
HGR is a pain
23 lines
245 B
ArmAsm
23 lines
245 B
ArmAsm
;==========================
|
|
; hgr clear
|
|
;==========================
|
|
hgr_clear:
|
|
lda #$00
|
|
sta OUTL
|
|
lda #$20
|
|
sta OUTH
|
|
|
|
hgr_clear_loop:
|
|
lda #$0
|
|
sta (OUTL),Y
|
|
iny
|
|
bne hgr_clear_loop
|
|
|
|
inc OUTH
|
|
lda OUTH
|
|
cmp #$40
|
|
bne hgr_clear_loop
|
|
|
|
rts
|
|
|