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

(launcher.tal) Resizes on launch

This commit is contained in:
neauoire 2022-02-06 11:56:42 -08:00
parent 272b1ed162
commit a3dfbe19a0
1 changed files with 52 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
projects/software/launcher.tal
View File

@ -64,6 +64,10 @@
;on-button .Controller/vector DEO2 ;on-button .Controller/vector DEO2
;on-mouse .Mouse/vector DEO2 ;on-mouse .Mouse/vector DEO2
( resize )
#0200 .Screen/width DEO2
#0140 .Screen/height DEO2
( asma debugger ) ( asma debugger )
#0d ;asma/log-level STA #0d ;asma/log-level STA
@ -476,12 +480,6 @@ JMP2r
JMP2r JMP2r
@scat ( src* dst* -- )
DUP2 ,slen JSR ++ ,scpy JSR
JMP2r
@scmp ( a* b* -- flag ) @scmp ( a* b* -- flag )
STH2 STH2
@ -498,6 +496,26 @@ JMP2r
RTN RTN
@scat ( src* dst* -- )
DUP2 ,slen JSR ADD2 ,scpy JSR
JMP2r
@slen ( str* -- len* )
DUP2 ,scap JSR SWP2 SUB2
JMP2r
@scap ( str* -- end* )
LDAk #00 NEQ JMP JMP2r
&while
INC2 LDAk ,&while JCN
JMP2r
@scpy ( src* dst* -- ) @scpy ( src* dst* -- )
STH2 STH2
@ -509,19 +527,6 @@ RTN
JMP2r JMP2r
@scap ( str* -- str-end* )
( clamp ) LDAk #00 ! JMP RTN
&while INC2 LDAk ,&while JCN
RTN
@slen ( str* -- len* )
DUP2 ,scap JSR SWP2 --
JMP2r
@pointer-icn @pointer-icn
80c0 e0f0 f8e0 1000 80c0 e0f0 f8e0 1000
@hand-icn @hand-icn
@ -558,10 +563,10 @@ JMP2r
~projects/library/check-rom.tal ~projects/library/check-rom.tal
~projects/library/load-rom.tal ~projects/library/load-rom.tal
~projects/assets/mascot0cx0c.tal ~projects/assets/mascot0cx0c.tal
~projects/assets/msx01x02.tal ~projects/assets/msx01x02.tal
( directory memory )
@dir @dir
&path ". $1 &path ". $1
&length $2 &length $2