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

Printing arvelie from gregorian is working

This commit is contained in:
Devine Lu Linvega 2023-05-25 12:01:32 -07:00
parent a516173dca
commit affab72624
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cli/arvelie/arvelie.tal
View File

@ -62,12 +62,12 @@ JMP2r
( year ) ( year )
STHk LDZ2 bytedec #0064 MUL2 INCr INCr STHk LDZ2 bytedec #0064 MUL2 INCr INCr
STHkr LDZ2 bytedec ADD2 INCr INCr INCr STHkr LDZ2 bytedec ADD2 INCr INCr INCr
DUP2
( month ) ( month )
STHkr LDZ2 bytedec INCr INCr INCr STHkr LDZ2 bytedec INCr INCr INCr
( day ) ( day )
STHr LDZ2 bytedec STHr LDZ2 bytedec #0001 SUB2
doty SWP2 print-arvelie #0a18 DEO
doty pdec #0a18 DEO
#010f DEO #010f DEO
JMP2r JMP2r
@ -88,7 +88,6 @@ JMP2r
@diam ( year* month -- days ) @diam ( year* month -- days )
#00 OVR ;&m ADD2 LDA #00 OVR ;&m ADD2 LDA
SWP #01 NEQ ?&no-feb SWP #01 NEQ ?&no-feb
STH DUP2 is-leap-year STHr ADD STH DUP2 is-leap-year STHr ADD
&no-feb &no-feb