etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-28 16:53:02 +00:00
Code Issues Projects Releases Wiki Activity

(launcher.tal) Clear screen using Screen/pixel

Browse source
This commit is contained in:
Devine Lu Linvega 2023-07-29 18:46:25 -07:00
parent 3a8cc42e0e
commit 538294220d
2 changed files with 18 additions and 34 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
projects/library/load-rom.tal
View file

@ -25,29 +25,9 @@
.System/rst DEI ,&rst-loop JCN
( clear screen )
#01 .Screen/auto DEO
#0000 .Screen/y DEO2
.Screen/width DEI2 #0007 ADD2 #03 SFT2 #ffff MUL2 STH2
&screen-yloop
#0000 .Screen/x DEO2
STH2kr
&screen-xloop-bg
#00 .Screen/sprite DEO
INC2
ORAk ,&screen-xloop-bg JCN
POP2
#0000 .Screen/x DEO2
STH2kr
&screen-xloop-fg
#40 .Screen/sprite DEO
INC2
ORAk ,&screen-xloop-fg JCN
POP2
.Screen/y DEI2 #0008 ADD2
DUP2 .Screen/y DEO2
.Screen/height DEI2 LTH2 ,&screen-yloop JCN
POP2r
#00 .Screen/auto DEO
#0000 DUP2 .Screen/x DEO2 .Screen/y DEO2
#80 .Screen/pixel DEO
#c0 .Screen/pixel DEO
( reset device vectors )
LIT2r 0000 #00

26
projects/software/launcher.tal
View file

@ -175,11 +175,11 @@ JMP2r
POP JMP2r
&valid
#00 ;draw-browser JSR2
clear-browser
DUP .browser/sel STZ
DUP .browser/last STZ
#30 ADD .Audio0/pitch DEO
#01 ;draw-browser JSR2
draw-browser
( draw mascot )
#0010 #0010 #0060 #0060
@ -222,9 +222,9 @@ JMP2r
SUB INC STHkr GTH ,&valid-scroll JCN
POPr JMP2r
&valid-scroll
#00 ;draw-browser JSR2
clear-browser
STHr .browser/scroll STZ
#01 ;draw-browser JSR2
draw-browser
JMP2r
@ -266,18 +266,24 @@ JMP2r
JMP2r
@clear-browser ( -- )
#0000
DUP2 .Screen/x DEO2
.Screen/y DEO2
#80 .Screen/pixel DEO
JMP2r
@draw-browser ( mask -- )
( when empty )
.browser/lines LDZ #01 EQU ;draw-browser-empty JCN2
STH
( draw hand )
.browser/x LDZ2 #0018 SUB2 .browser/y LDZ2
.browser/sel LDZ .browser/scroll LDZ SUB #00 SWP #40 SFT2 ADD2
#0010 #0010
;hand-icn STHkr #10 SFT ;draw-icn JSR2
#0010 #0010 ;hand-icn #02 ;draw-icn JSR2
( draw files )
.browser/y2 LDZ2 .browser/y LDZ2 SUB2 #04 SFT2 NIP #00
&loop
@ -288,13 +294,11 @@ JMP2r
#00 OVR #40 SFT2 .browser/y LDZ2 ADD2 .Screen/y DEO2
DUP .browser/scroll LDZ ADD ;get-entry JSR2
DUP2 ;get-type JSR2 ;draw-type JSR2
#01 STHkr MUL ;draw-str JSR2
#01 ;draw-str JSR2
INC GTHk ,&loop JCN
&end
POP2
POPr
JMP2r
@draw-browser-empty ( mask -- )