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

split: more hgr code

Browse Source
This commit is contained in:
Vince Weaver 2018-06-27 08:14:27 -04:00
parent 3aba2cdd61
commit 39d8a965ee
1 changed files with 33 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
split_screen/rainbow.s
View File

@ -5,6 +5,8 @@
TEMPY = $FB
HGR = $F3E2
HPLOT0 = $F457
HCOLOR = $F6EC
HLINE = $F819
VLINE = $F828
COLOR = $F864
@ -14,24 +16,43 @@
jsr TEXT
jsr HOME
;30 HPLOT 0,Y TO X,Y:RETURN
jsr HGR
lda #0
sta $C052 ; POKE - 16302,0
;X=279
;80 HCOLOR= 4:HPLOT 0,0
ldx #4
jsr HCOLOR ; HCOLOR= 4
ldx #0
ldy #0
lda #0
jsr HPLOT0 ; HPLOT 0,0
jsr $F3F6 ; CALL 62454
; BGND, fill screen with color
;90 HCOLOR= 2:Y=63:GOSUB 30:Y=62:GOSUB 30
;100 HCOLOR= 6:Y=61:GOSUB 30:Y=60:GOSUB 30
;110 HCOLOR= 1:Y=59:GOSUB 30:Y=58:GOSUB 30
;120 HCOLOR= 5:Y=55:GOSUB 30:Y=54:GOSUB 30
;C=100
;130 HCOLOR= 0:X=C
;140 Y=123:GOSUB 30:Y=122:GOSUB 30
;150 Y=119:GOSUB 30:Y=118:GOSUB 30
ldx #2
jsr HCOLOR ; HCOLOR= 2
;HPLOT 0,63 TO 279,63:RETURN
;HPLOT 0,62 TO 279,62:RETURN
ldx #6
jsr HCOLOR ; HCOLOR= 6
;HPLOT 0,61 TO 279,61:RETURN
;HPLOT 0,60 TO 279,60:RETURN
ldx #1
jsr HCOLOR ; HCOLOR= 1
;HPLOT 0,59 TO 279,59:RETURN
;HPLOT 0,58 TO 279,58:RETURN
ldx #5
jsr HCOLOR ; HCOLOR= 5
;HPLOT 0,55 TO 279,55:RETURN
;HPLOT 0,54 TO 279,54:RETURN
ldx #0
jsr HCOLOR ; HCOLOR= 0
;HPLOT 0,123 TO 100,123:RETURN
;HPLOT 0,122 TO 100,122:RETURN
;HPLOT 0,119 TO 100,119:RETURN
;HPLOT 0,118 TO 100,118:RETURN
lda #0
jsr COLOR ; COLOR= 0