Fixed issue with year
This commit is contained in:
parent
1c3236f2d9
commit
8b935669b6
|
@ -79,7 +79,7 @@ JMP2r
|
|||
!emit-dec
|
||||
|
||||
@emit-arv ( doty* year* -- )
|
||||
#07e0 SUB2 NIP
|
||||
#07d6 SUB2 NIP
|
||||
( year ) emit-dec
|
||||
( month ) DUP2 #000e DIV2 NIP #11 ADD [ DUP #2a GTH #30 MUL SUB ] emit-num
|
||||
( digit3 ) #000e [ DIV2k MUL2 SUB2 ] NIP
|
||||
|
|
Loading…
Reference in New Issue