neauoire
/
oquonie
mirror of https://git.sr.ht/~rabbits/oquonie
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Display export size in packer

This commit is contained in:
Devine Lu Linvega 2023-01-26 19:34:04 -08:00
parent 563ec536aa
commit bf1f9b3e06
2 changed files with 61 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
etc/tools/packer.tal
View File

@ -13,6 +13,7 @@
@dst $30
@src $40
@size $2
@image
&id-length $1
@ -66,7 +67,15 @@ BRK
?do-input
BRK
&end #010f DEO BRK
&end
#2018 DEO #2018 DEO
.size LDZ2 pdec ;&total-txt pstr #0a18 DEO
#010f DEO
BRK
&total-txt 20 "bytes. $1
@do-input ( -- )
@ -135,6 +144,7 @@ JMP2r
;buffer
DUP2 .Screen/addr DEO2
.File2/write DEO2
.size LDZ2k .File2/length DEI2 ADD2 ROT STZ2
#81 .Screen/sprite DEO
&no-row
&no-line
@ -229,6 +239,25 @@ JMP2r
JMP2r
@pdec ( v* -- )
#00 ,&z STR
#2710 ,&parse JSR
#03e8 ,&parse JSR
#0064 ,&parse JSR
#000a ,&parse JSR
NIP
&emit
DUP [ LIT &z $1 ] EQU ,&skip JCN
#ff ,&z STR DUP #30 ADD #18 DEO
&skip
POP
JMP2r
&parse
DIV2k DUP ,&emit JSR MUL2 SUB2
JMP2r
(
@|assets )

31
src/oquonie.tal
View File

@ -52,12 +52,15 @@
#00 set-character
;world #0700 enter-room
#0000 ;end SUB2 pdec ;&space-txt pstr #0a18 DEO
( unlock )
( ;on-frame .Screen/vector DEO2 )
;on-mouse .Mouse/vector DEO2
;on-control .Controller/vector DEO2
BRK
&space-txt 20 "bytes 20 "left. $1
@meta 00
( name ) "Oquonie 0a
@ -921,6 +924,34 @@ JMP2r
(
@|stdlib )
@pstr ( str* -- )
&w
LDAk #18 DEO
INC2 LDAk ,&w JCN
POP2
JMP2r
@pdec ( v* -- )
#00 ,&z STR
#2710 ,&parse JSR
#03e8 ,&parse JSR
#0064 ,&parse JSR
#000a ,&parse JSR
NIP
&emit
DUP [ LIT &z $1 ] EQU ,&skip JCN
#ff ,&z STR DUP #30 ADD #18 DEO
&skip
POP
JMP2r
&parse
DIV2k DUP ,&emit JSR MUL2 SUB2
JMP2r
@phex ( short* -- ) SWP ,&b JSR &b DUP #04 SFT ,&c JSR &c #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO JMP2r
@lerp ( a* b* speed* -- res* )