Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-13 22:30:49 +00:00
Code Issues Projects Releases Wiki Activity

kfest: paramaterize things

Browse Source
This commit is contained in:
Vince Weaver 2018-07-18 20:09:23 -04:00
parent 8db6ec3418
commit 16a34b24c7
1 changed files with 29 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
kfest2018/raster.s
View File

@ -32,26 +32,26 @@ HOME = $FC58 ;; Clear the text screen
bit FULLGR
; Clear Page0
lda #$00
ldy #46
clear_page0_loop:
jsr hline
dey
dey
bpl clear_page0_loop
; Clear Page1
sta DRAW_PAGE
jsr clear_gr
; draw border line
lda #$55
ldy #38
jsr hline
; Clear Page1
lda #$4
sta DRAW_PAGE
jsr clear_gr
; draw border line
lda #$55
ldy #38
jsr hline
loop_forever:
jmp loop_forever
@ -64,10 +64,14 @@ loop_forever:
; Color in A
; X has which line
hline:
pha ; 3
ldx gr_offsets,y ; 4+
stx hline_loop+1 ; 4
ldx gr_offsets+1,y ; 4+
stx hline_loop+2 ; 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
@ -75,7 +79,18 @@ hline_loop:
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
; H E L L O