Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-14 13:33:48 +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 bit FULLGR
; Clear Page0 ; Clear Page0
lda #$00 lda #$00
ldy #46 sta DRAW_PAGE
clear_page0_loop: jsr clear_gr
jsr hline
dey
dey
bpl clear_page0_loop
; Clear Page1
; draw border line
lda #$55 lda #$55
ldy #38 ldy #38
jsr hline jsr hline
; Clear Page1
lda #$4
sta DRAW_PAGE
jsr clear_gr
; draw border line
lda #$55
ldy #38
jsr hline
loop_forever: loop_forever:
jmp loop_forever jmp loop_forever
@ -64,10 +64,14 @@ loop_forever:
; Color in A ; Color in A
; X has which line ; X has which line
hline: hline:
pha ; 3
ldx gr_offsets,y ; 4+ ldx gr_offsets,y ; 4+
stx hline_loop+1 ; 4 stx hline_loop+1 ; 4
ldx gr_offsets+1,y ; 4+ lda gr_offsets+1,y ; 4+
stx hline_loop+2 ; 4 clc ; 2
adc DRAW_PAGE ; 3
sta hline_loop+2 ; 4
pla ; 4
ldx #39 ; 2 ldx #39 ; 2
hline_loop: hline_loop:
sta $5d0,X ; 38 ; 5 sta $5d0,X ; 38 ; 5
@ -75,7 +79,18 @@ hline_loop:
bpl hline_loop ; 2nt/3 bpl hline_loop ; 2nt/3
rts ; 6 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 ; H E L L O