diff --git a/src/klh/out.250 b/src/klh/out.251 similarity index 99% rename from src/klh/out.250 rename to src/klh/out.251 index 8128f506..0b476e74 100755 --- a/src/klh/out.250 +++ b/src/klh/out.251 @@ -2360,12 +2360,18 @@ OXTMD: MOVE U3,TM.MON(UTMAC) CALL OXTD2 STDOUT("/) OXTYR2: MOVE U3,TM.YR(UTMAC) ; Year as 2-digit number. - SUBI U3,1900. + PUSH P,U4 + IDIVI U3,100. + MOVE U3,U4 + POP P,U4 CALRET OXTD2 ; Date as YYMMDD OXTYMD: MOVE U3,TM.YR(UTMAC) ; Year as 2-digit number. - SUBI U3,1900. + PUSH P,U4 + IDIVI U3,100. + MOVE U3,U4 + POP P,U4 CALL OXTD2 MOVE U3,TM.MON(UTMAC) ; Month. CALL OXTD2 @@ -2426,7 +2432,10 @@ OXTRF1: CALL OXTDAY CALL OXTMON ; Output 3-letter month STDOUT(40) ; Space out MOVE U3,TM.YR(UTMAC) ; Year as 2-digit number. - SUBI U3,1900. + PUSH P,U4 + IDIVI U3,100. + MOVE U3,U4 + POP P,U4 CALL OXTD2 STDOUT(40) MOVE U3,TM.HR(UTMAC)