mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-29 00:31:52 +00:00
37 lines
591 B
ArmAsm
37 lines
591 B
ArmAsm
|
;==================================
|
||
|
|
; HLINE
|
||
|
|
;==================================
|
||
|
|
|
||
|
|
; Color in A
|
||
|
|
; Y has which line
|
||
|
|
hline:
|
||
|
|
pha ; 3
|
||
|
|
ldx gr_offsets,y ; 4+
|
||
|
|
stx hline_loop+1 ; 4
|
||
|
|
lda gr_offsets+1,y ; 4+
|
||
|
|
clc ; 2
|
||
|
|
adc DRAW_PAGE ; 3
|
||
|
|
sta hline_loop+2 ; 4
|
||
|
|
pla ; 4
|
||
|
|
ldx #39 ; 2
|
||
|
|
hline_loop:
|
||
|
|
sta $5d0,X ; 38 ; 5
|
||
|
|
dex ; 2
|
||
|
|
bpl hline_loop ; 2nt/3
|
||
|
|
rts ; 6
|
||
|
|
|
||
|
|
;==========================
|
||
|
|
; Clear gr screen
|
||
|
|
;==========================
|
||
|
|
; Color in A
|
||
|
|
clear_gr:
|
||
|
|
ldy #46
|
||
|
|
clear_page_loop:
|
||
|
|
jsr hline
|
||
|
|
dey
|
||
|
|
dey
|
||
|
|
bpl clear_page_loop
|
||
|
|
rts
|
||
|
|
|
||
|
|
|