Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-11 01:30:53 +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 TEMPY = $FB
HGR = $F3E2 HGR = $F3E2
HPLOT0 = $F457
HCOLOR = $F6EC
HLINE = $F819 HLINE = $F819
VLINE = $F828 VLINE = $F828
COLOR = $F864 COLOR = $F864
@ -14,24 +16,43 @@
jsr TEXT jsr TEXT
jsr HOME jsr HOME
;30 HPLOT 0,Y TO X,Y:RETURN
jsr HGR jsr HGR
lda #0 lda #0
sta $C052 ; POKE - 16302,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 jsr $F3F6 ; CALL 62454
; BGND, fill screen with color ; BGND, fill screen with color
;90 HCOLOR= 2:Y=63:GOSUB 30:Y=62:GOSUB 30 ldx #2
;100 HCOLOR= 6:Y=61:GOSUB 30:Y=60:GOSUB 30 jsr HCOLOR ; HCOLOR= 2
;110 HCOLOR= 1:Y=59:GOSUB 30:Y=58:GOSUB 30 ;HPLOT 0,63 TO 279,63:RETURN
;120 HCOLOR= 5:Y=55:GOSUB 30:Y=54:GOSUB 30 ;HPLOT 0,62 TO 279,62:RETURN
;C=100 ldx #6
;130 HCOLOR= 0:X=C jsr HCOLOR ; HCOLOR= 6
;140 Y=123:GOSUB 30:Y=122:GOSUB 30 ;HPLOT 0,61 TO 279,61:RETURN
;150 Y=119:GOSUB 30:Y=118:GOSUB 30 ;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 lda #0
jsr COLOR ; COLOR= 0 jsr COLOR ; COLOR= 0