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

plasma: trick to make tiny smaller

Browse Source 
doesn't work if you page flip :(
This commit is contained in:
Vince Weaver 2021-01-11 11:56:06 -05:00
parent 926d5db11b
commit 321e21d4d1
1 changed files with 18 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
graphics/gr/plasma/plasma_tiny.s
View File

@ -14,6 +14,7 @@
; 121 -- make full screen
; 119 -- from qkumba, remove php/plp
; 118 -- from qkumba, remove SAVEX
; 109 -- realize we can use PLOT instead of GBASCALC
.include "zp.inc"
.include "hardware.inc"
@ -80,6 +81,11 @@ plot_frame:
plot_yloop:
;==========
ldy #39 ; XX = 39 (countdown)
txa ; get (y&0xf)<<4
pha ; save YY
asl
@ -89,23 +95,26 @@ plot_yloop:
sta CTEMP
txa
lsr
; lsr
ldy #$0f ; setup mask
bcc plot_mask
ldy #$f0
jsr PLOT ; this sets up MASK and GBASL/H for us
; it plots a point at XX,39 but doesn't
; matter as we overdraw
plot_mask:
sty MASK
; ldy #$0f ; setup mask ; 2
; bcc plot_mask ; 2
; ldy #$f0 ; 2
;plot_mask:
; sty MASK ; 2
jsr GBASCALC ; point GBASL/H to address in A
; jsr GBASCALC ; point GBASL/H to address in A ; 3
; after, A trashed, C is clear
;==========
ldy #39 ; XX = 39 (countdown)
plot_xloop: