diff --git a/cli/arvelie/arvelie.tal b/cli/arvelie/arvelie.tal index f13f8c5..696aa91 100644 --- a/cli/arvelie/arvelie.tal +++ b/cli/arvelie/arvelie.tal @@ -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