1
0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-19 00:30:01 +00:00
Vince Weaver 85d338a45f sa: start a HGR infrastructure
HGR is a pain
2018-05-24 19:42:22 -04:00

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