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

(uxncore) Housekeeping

This commit is contained in:
Devine Lu Linvega 2024-06-29 10:19:24 -08:00
parent 2c163b67f6
commit 3a021d904d
1 changed files with 25 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
cli/uxncore/src/uxncore.tal
View File

@ -3,16 +3,15 @@
@on-reset ( -> )
( | generate )
;dict/start <pstr-ln>
<body>
;dict/end <pstr-ln>
BRK
@<body> ( -- )
#00
&>l ( -- )
DUP <opcode>
INC DUP ?&>l
POP JMP2r
POP ;dict/end <pstr-ln>
BRK
(
@|render )
@<opcode> ( byte -- )
;dict/case <pstr>
@ -34,8 +33,21 @@
POP JMP2r
@<name> ( byte -- )
( | special )
DUP #00 NEQ ?{
POP ;opcodes/brk <pstr>
#03 !<pad> }
DUP #20 NEQ ?{
POP ;opcodes/jci <pstr>
#03 !<pad> }
DUP #40 NEQ ?{
POP ;opcodes/jmi <pstr>
#03 !<pad> }
DUP #60 NEQ ?{
POP ;opcodes/jsi <pstr>
#03 !<pad> }
( | main )
DUP #1f AND #00 SWP #0004 MUL2 ;opcodes ADD2 <pstr>
DUP #1f AND #00 SWP #20 SFT2 ;opcodes ADD2 <pstr>
( | modes )
[ LITr 00 ] DUP #20 AND #00 EQU ?{
[ LIT2 "2 18 ] DEO
@ -48,7 +60,11 @@
INCr }
POP
( | pad )
#fd STHr ADD
#03 STHr SUB
( >> )
@<pad> ( count -- )
#00 SWP SUB
&>w ( -- )
DUP ?{ POP JMP2r }
#2018 DEO
@ -64,11 +80,7 @@
&b ( byte -: )
DUP #04 SFT /c
&c ( byte -: )
#0f AND DUP #09 GTH #27 MUL ADD
( >> )
@<pnum> ( num -- )
[ LIT "0 ] ADD #18 DEO
#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
JMP2r
(