d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(launcher.tal) Clear screen using Screen/pixel

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 .System/rst DEI ,&rst-loop JCN
( clear screen ) ( clear screen )
#01 .Screen/auto DEO #0000 DUP2 .Screen/x DEO2 .Screen/y DEO2
#0000 .Screen/y DEO2 #80 .Screen/pixel DEO
.Screen/width DEI2 #0007 ADD2 #03 SFT2 #ffff MUL2 STH2 #c0 .Screen/pixel DEO
&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
( reset device vectors ) ( reset device vectors )
LIT2r 0000 #00 LIT2r 0000 #00

26
projects/software/launcher.tal
View File

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