mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 08:54:51 +00:00
plasma: trick to make tiny smaller
doesn't work if you page flip :(
This commit is contained in:
parent
926d5db11b
commit
321e21d4d1
@ -14,6 +14,7 @@
|
|||||||
; 121 -- make full screen
|
; 121 -- make full screen
|
||||||
; 119 -- from qkumba, remove php/plp
|
; 119 -- from qkumba, remove php/plp
|
||||||
; 118 -- from qkumba, remove SAVEX
|
; 118 -- from qkumba, remove SAVEX
|
||||||
|
; 109 -- realize we can use PLOT instead of GBASCALC
|
||||||
|
|
||||||
.include "zp.inc"
|
.include "zp.inc"
|
||||||
.include "hardware.inc"
|
.include "hardware.inc"
|
||||||
@ -80,6 +81,11 @@ plot_frame:
|
|||||||
|
|
||||||
plot_yloop:
|
plot_yloop:
|
||||||
|
|
||||||
|
;==========
|
||||||
|
|
||||||
|
ldy #39 ; XX = 39 (countdown)
|
||||||
|
|
||||||
|
|
||||||
txa ; get (y&0xf)<<4
|
txa ; get (y&0xf)<<4
|
||||||
pha ; save YY
|
pha ; save YY
|
||||||
asl
|
asl
|
||||||
@ -89,23 +95,26 @@ plot_yloop:
|
|||||||
sta CTEMP
|
sta CTEMP
|
||||||
|
|
||||||
txa
|
txa
|
||||||
lsr
|
; lsr
|
||||||
|
|
||||||
ldy #$0f ; setup mask
|
jsr PLOT ; this sets up MASK and GBASL/H for us
|
||||||
bcc plot_mask
|
; it plots a point at XX,39 but doesn't
|
||||||
ldy #$f0
|
; 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
|
; after, A trashed, C is clear
|
||||||
|
|
||||||
;==========
|
|
||||||
|
|
||||||
ldy #39 ; XX = 39 (countdown)
|
|
||||||
|
|
||||||
plot_xloop:
|
plot_xloop:
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user