mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-20 03:35:24 +00:00
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
|
||
|
|