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

Fixed issue with year

This commit is contained in:
Devine Lu Linvega 2023-05-28 10:12:10 -07:00
parent 1c3236f2d9
commit 8b935669b6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cli/arvelie/arvelie.tal
View File

@ -79,7 +79,7 @@ JMP2r
!emit-dec !emit-dec
@emit-arv ( doty* year* -- ) @emit-arv ( doty* year* -- )
#07e0 SUB2 NIP #07d6 SUB2 NIP
( year ) emit-dec ( year ) emit-dec
( month ) DUP2 #000e DIV2 NIP #11 ADD [ DUP #2a GTH #30 MUL SUB ] 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