Y2K fix

freitz85 · Feb 9, 2021 · 668ace8 · 668ace8
1 parent f227228
commit 668ace8
Show file tree

Hide file tree

Showing 5 changed files with 213 additions and 195 deletions.
diff --git a/SOURCE/SMWCLOCK.ASM b/SOURCE/SMWCLOCK.ASM
@@ -747,9 +747,15 @@ DISPLAY:MOV     AL,SW$TIME.DY           ; Get day-of-week
 ;----------------------------------------------------------------------;
 ;       Display the year                                               ;
 ;----------------------------------------------------------------------;
+        CMP     SW$TIME.YY,160          ; Is year greater 99?
+        JGE     MIL                     ; Jump into new millenium
         PRINT   <'1'>                   ;
         PRINT   <'9'>                   ;
-        BIN_HEX SW$TIME.YY              ; Display year
+        JMP     DISPL                   ;
+MIL:    PRINT   <'2'>                   ;
+        PRINT   <'0'>                   ;
+        SUB     SW$TIME.YY,160          ; Subtract 100 years in BCD
+DISPL:  BIN_HEX SW$TIME.YY              ; Display year
         PRINT   <','>                   ;
         PRINT   <' '>                   ;
 ;----------------------------------------------------------------------;

diff --git a/SOURCE/SMWCLOCK.COM b/SOURCE/SMWCLOCK.COM