From 17b04291f34e1b2da2f4ea2a081612f4261ae004 Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Sun, 17 Mar 2024 10:21:55 -0700 Subject: [PATCH] Added /routine support --- src/uxnbal.tal | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/uxnbal.tal b/src/uxnbal.tal index 30b6a5d..552d9ee 100644 --- a/src/uxnbal.tal +++ b/src/uxnbal.tal @@ -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 ) -- 2.45.2