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

(uxncore) Padded opc name

This commit is contained in:
Devine Lu Linvega 2024-06-29 10:12:40 -08:00
parent efe1a1db52
commit 2c163b67f6
1 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,6 +27,7 @@
#2018 DEO #2018 DEO
[ LIT2 "* 18 ] DEO [ LIT2 "* 18 ] DEO
[ LIT2 "/ 18 ] DEO [ LIT2 "/ 18 ] DEO
#2018 DEO
( | body ) ( | body )
;dict/break <pstr> ;dict/break <pstr>
#0a18 DEO #0a18 DEO
@ -36,13 +37,22 @@
( | main ) ( | main )
DUP #1f AND #00 SWP #0004 MUL2 ;opcodes ADD2 <pstr> DUP #1f AND #00 SWP #0004 MUL2 ;opcodes ADD2 <pstr>
( | modes ) ( | modes )
DUP #20 AND #00 EQU ?{ [ LITr 00 ] DUP #20 AND #00 EQU ?{
[ LIT2 "2 18 ] DEO } [ LIT2 "2 18 ] DEO
DUP #40 AND #00 EQU ?{ INCr }
[ LIT2 "r 18 ] DEO }
DUP #80 AND #00 EQU ?{ DUP #80 AND #00 EQU ?{
[ LIT2 "k 18 ] DEO } [ LIT2 "k 18 ] DEO
POP JMP2r INCr }
DUP #40 AND #00 EQU ?{
[ LIT2 "r 18 ] DEO
INCr }
POP
( | pad )
#fd STHr ADD
&>w ( -- )
DUP ?{ POP JMP2r }
#2018 DEO
INC !&>w
@<cbyte> ( byte -- ) @<cbyte> ( byte -- )
[ LIT2 "0 18 ] DEO [ LIT2 "0 18 ] DEO