Mercurial > hg > Members > kono > nitros9-code

changeset 2089:a74820eb1e86

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:51:19 +0000
parents 659503d6a855
children 9276f09c3235
files 3rdparty/packages/basic09/basic09.asm
diffstat 1 files changed, 11 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/3rdparty/packages/basic09/basic09.asm	Sun Jul 23 15:50:53 2006 +0000
+++ b/3rdparty/packages/basic09/basic09.asm	Mon Aug 14 20:51:19 2006 +0000
@@ -253,6 +253,7 @@
 * 02/12/95 - Changed routines around L57EB to skip ORCC if not necessary (blo&
 *            bcs)
 *          - Changed LEAX to 8 bit from 16 @ L4B89
+* 06/07/14 - Changed Date$ to conform with Y2K changes in F$Time. RG
 ********************************
 
 * Version Numbers
@@ -11243,6 +11244,7 @@
          puls  pc,x      
 
 * DATE$ routine
+* Minor change to accommodate Y2K changes in year. RG
 L4FF8    pshs  x         
          leay  -6,y      
          leax  -6,y      
@@ -11250,7 +11252,15 @@
          stu   1,y       
          os9   F$Time     Get time packet
          bcs   L4FEC      Error, exit
-         bsr   L5021      Start converting
+*         bsr   L5021      Start converting
+         lda   ,x+
+         ldb   #'/
+         cmpa  #100
+         blo   Y19
+cnty     suba  #100
+         bhs   cnty
+         adda  #100
+Y19      bsr   L5025
          lda   #'/        Append / 
          bsr   L501F     
          lda   #'/