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

Added correct glyph for year day

This commit is contained in:
Devine Lu Linvega 2023-05-28 10:08:56 -07:00
parent 2131007fe9
commit 1c3236f2d9
2 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cli/arvelie/arvelie.tal
View File

@ -75,13 +75,13 @@ JMP2r
INC GTHk ?&l INC GTHk ?&l
&end &end
NIP INC emit-dec [ LIT2 "- 18 ] DEO NIP INC emit-dec [ LIT2 "- 18 ] DEO
STHr POPr STHr POPr INC
!emit-dec !emit-dec
@emit-arv ( doty* year* -- ) @emit-arv ( doty* year* -- )
#07e0 SUB2 NIP #07e0 SUB2 NIP
( year ) emit-dec ( year ) emit-dec
( month ) DUP2 #000e DIV2 NIP #11 ADD emit-num ( month ) DUP2 #000e DIV2 NIP #11 ADD [ DUP #2a GTH #30 MUL SUB ] emit-num
( digit3 ) #000e [ DIV2k MUL2 SUB2 ] NIP ( digit3 ) #000e [ DIV2k MUL2 SUB2 ] NIP
!emit-dec !emit-dec

3
cli/arvelie/build.sh
View File

@ -25,7 +25,4 @@ printf "today "; $EMU $DST
printf "gre->arv "; $EMU $DST "2023-05-25" printf "gre->arv "; $EMU $DST "2023-05-25"
printf "arv->gre "; $EMU $DST "17K04" printf "arv->gre "; $EMU $DST "17K04"
printf "error "; $EMU $DST "abc" printf "error "; $EMU $DST "abc"
echo ""
printf "00A00 -> "; $EMU $DST "2016-01-01"
printf "01B00 -> "; $EMU $DST "2017-01-15"