Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-28 09:30:41 +00:00
Code Issues Projects Releases Wiki Activity

autumn: mess around with the extra bits

Browse Source
This commit is contained in:
Vince Weaver 2020-05-17 00:15:50 -04:00
parent 659e86d140
commit 749850b960
1 changed files with 31 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
autumn/autumn.s
View File

@ -19,6 +19,8 @@ EBP4 = $F7
COLORL = $F8
COLORH = $F9
SOUND = $FA
FRAMEL = $FB
FRAMEH = $FC
; Soft Switches
KEYPRESS= $C000
@ -153,7 +155,8 @@ label_11f:
; two extra instructions
and #$7 ; 2
ora #$2 ; 2
smc:
ora #$1 ; 2
tax ; 1
; if using color lookup table
@ -180,6 +183,14 @@ put_pixel:
lda YCOORDL ; 2
jsr HPLOT0 ; 3
; inc FRAMEL ; 2
; bne no_frame ; 2
; inc FRAMEH ; 2
;no_frame:
; lda smc
; eor #$3
; sta smc
; lda KEYPRESS ; 3 ; see if key pressed
; bpl autumn_forever ; 2 ; loop if not
@ -236,9 +247,28 @@ color_lookup:
; blue and purple palette
; .byte $02,$02,$03,$06, $06,$06,$02,$07
; qkumba ora2 white/blue/purple
; .byte $02,$03,$02,$03, $06,$07,$06,$07
; orange and green palette
; .byte $01,$01,$03,$05, $05,$05,$01,$07
; .byte $01,$03,$01,$03, $05,$07,$05,$07
; .byte $01,$01,$03,$03, $05,$05,$07,$07
; "Leaf" Locations
; TOP-LEFT ?? CENTER-TOP TOP-RIGHT LEFT ?? CENTER-BOTTOM ??
; FANCY OPENER
; SET ADDRESS in 1a/Ab
; lda #xx ; 2
; sta 1a ; 2
; lda #xx ; 2
; sta 1b ; 2
; lda angle ; 2
; jsr xdraw1 ; 3