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

Housekeeping

This commit is contained in:
Devine Lu Linvega 2024-06-09 16:48:39 -08:00
parent 4bbcfaf3e4
commit 70b36057a6
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
cli/uxndis/src/uxndis.tal
View File

@ -138,15 +138,14 @@
@<pdec> ( short* -- ) @<pdec> ( short* -- )
( | sign ) ( | sign )
DUP2 #8000 AND2 #0000 EQU2 ?{ OVR #80 AND #00 EQU ?{
[ LIT2 "- 18 ] DEO [ LIT2 "- 18 ] DEO
#8000 SWP2 SUB2 #7fff AND2 } #8000 SWP2 SUB2 #7fff AND2 }
[ LIT2 00 _&z ] STR [ LIT2 00 _&z ] STR
#2710 /parse #03e8 /parse #0064 /parse #000a /parse NIP #30 ADD #18 DEO #2710 /p #03e8 /p #0064 /p #000a /p NIP !<pnum>
JMP2r &p ( -- )
&parse ( -- )
DIV2k DUPk [ LIT &z $1 ] EQU ?{ DIV2k DUPk [ LIT &z $1 ] EQU ?{
DUP #30 ADD #18 DEO DUP <pnum>
[ LIT2 ff _&z ] STR } [ LIT2 ff _&z ] STR }
POP MUL2 SUB2 JMP2r POP MUL2 SUB2 JMP2r
@ -155,7 +154,11 @@
&b ( byte -: ) &b ( byte -: )
DUP #04 SFT /c DUP #04 SFT /c
&c ( byte -: ) &c ( byte -: )
#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO #0f AND DUP #09 GTH #27 MUL ADD
( >> )
@<pnum> ( num -- )
[ LIT "0 ] ADD #18 DEO
JMP2r JMP2r
@<pstr> ( str* -- ) @<pstr> ( str* -- )