From 8b935669b6b09d6ff29877a6c50da311b5225140 Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Sun, 28 May 2023 10:12:10 -0700 Subject: [PATCH] Fixed issue with year --- cli/arvelie/arvelie.tal | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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