Added correct glyph for year day
This commit is contained in:
parent
2131007fe9
commit
1c3236f2d9
|
@ -75,13 +75,13 @@ JMP2r
|
|||
INC GTHk ?&l
|
||||
&end
|
||||
NIP INC emit-dec [ LIT2 "- 18 ] DEO
|
||||
STHr POPr
|
||||
STHr POPr INC
|
||||
!emit-dec
|
||||
|
||||
@emit-arv ( doty* year* -- )
|
||||
#07e0 SUB2 NIP
|
||||
( 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
|
||||
!emit-dec
|
||||
|
||||
|
|
|
@ -25,7 +25,4 @@ printf "today "; $EMU $DST
|
|||
printf "gre->arv "; $EMU $DST "2023-05-25"
|
||||
printf "arv->gre "; $EMU $DST "17K04"
|
||||
printf "error "; $EMU $DST "abc"
|
||||
echo ""
|
||||
printf "00A00 -> "; $EMU $DST "2016-01-01"
|
||||
printf "01B00 -> "; $EMU $DST "2017-01-15"
|
||||
|
||||
|
|
Loading…
Reference in New Issue