Mercurial > hg > Members > kono > nitros9-code

changeset 2090:9276f09c3235

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Date$ Y2K change
author robert
date Mon, 14 Aug 2006 20:52:38 +0000
parents a74820eb1e86
children 2720f46d0cc6
files 3rdparty/packages/basic09/runb.asm
diffstat 1 files changed, 11 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/3rdparty/packages/basic09/runb.asm	Mon Aug 14 20:51:19 2006 +0000
+++ b/3rdparty/packages/basic09/runb.asm	Mon Aug 14 20:52:38 2006 +0000
@@ -12,6 +12,8 @@
 *          2003/05/13  Robert Gault
 * Tables L000D, L00E9 removed some UNID, translated jump
 * vectors L00D9, L0442.
+*
+* 06/07/14 - Minor change to Date$ to accommodate F$Time Y2K changes. RG
          nam   RunB
          ttl   Basic09 Runtime
 
@@ -4904,7 +4906,15 @@
          stu   $01,y
          os9   F$Time   
          bcs   L24BF
-         bsr   L24F4
+*         bsr   L24F4      Correction for Y2000 changes. RG
+         lda   ,x+
+         ldb   #$2F
+         cmpa  #100
+         blo   Y19
+cnty     suba  #100
+         bhs   cnty
+         adda  #100
+Y19      bsr   L24F8
          lda   #$2F
          bsr   L24F2
          lda   #$2F