@@ 45,7 45,7 @@
( name ) "Uxnbal 0a
( desc ) "Uxntal 20 "Validator 0a
( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
- ( date ) "14 20 "Mar 20 "2024 $1
+ ( date ) "17 20 "Mar 20 "2024 $1
( exts ) 00
@on-default ( -> )
@@ 219,6 219,7 @@
DUP2 slen #0005 EQU2 STHr AND ?&+2
LDAk LIT "# EQU STH
DUP2 slen #0003 EQU2 STHr AND ?&+1
+ LDAk LIT "/ EQU ?&jsi
LDAk LIT "? EQU ?&jci
LDAk LIT "! EQU ?&jmi
( | etc )
@@ 240,6 241,8 @@
POP2 #01 JMP2r
&+2 ( token* -- bal )
POP2 #02 JMP2r
+ &jsi ( token* -- bal )
+ INC2 make-sublabel !balance-wst
&jci ( token* -- bal )
INC2 balance-wst POP #ff JMP2r
&jmi ( token* -- bal )