v1.07 baseline

The version widely distributed having the version number v1.07 is the same as v1.06 except it is assembled for the RTC dongle being absent. The differences are the version number and the serial number in the binary.

Level3/Binary Files/FS3-107.inf

@@ -0,0 +1 @@
+$.FS3-107 00000400 00000400

Level3/Binary Files/FS3-107y.inf

@@ -0,0 +1 @@
+$.FS3-107y 00000400 00000400

Level3/Binary Files/Original binary/FS3-107.INF

@@ -0,0 +1 @@
+FS3-107    00000400 00000400 000087D4 WR 

Level3/Change Log.txt

@@ -1,3 +1,38 @@
+Version 1.07
+============
+
+Date - estimated about May 1987. Only one change comment dated 20/5/87
+
+Binary Files (* denotes the official ACORN released version)
+============
+  FS3-107   - Assembler options: DONGLE=1 (dongle absent)
+  FS3-107y  - Assembler options: DONGLE=1 (dongle absent)
+                                 Y2KPAT=1 (date fix)
+
+Comments
+========
+The version widely distributed having the version number v1.07 is the same as 
+v1.06 except it is assembled for the RTC dongle being absent. The differences 
+are the version number and the serial number in the binary.
+
+The code has been updated to include the date fix as an assembly option in 
+file Uade01. 
+Y2KPAT * 0 ; no(=0) Apply the JGH Patch (=1)
+
+Changes (from v1.06)
+====================
+HEADER FILE 1
+         Uade01 Line 0057 Option for assembly with date fix (file Uade01)
+         Uade01 Line 0060 VERLB, version changed from 6 to 7
+
+Allows startup entry of years from 1981 to 2080 (file Uade04)
+Status line date displays years after 1996 correctly (file Uade04)
+Years after 1996 in *INFO reports are displayed correctly (file Uade04)
+Dates are displayed as dd/mm/yy instead of dd:mm:yy (file Uade0E)
+
+
+-------------------------------------------------------------------------------
+
 Version 1.06
 ============
 

Level3/SRC/L3/Uade01

@@ -53,11 +53,11 @@ WINCH * &00 ;IF WINCHESTER DISCS
 SYS * &FF ;flags to indicate which type of FS
 ZTIME * &FF
 FS * &FF
-DONGLE * 0 ;Real Time Clock present(=0) absent(=1)
-
+DONGLE * 1 ;Real Time Clock present(=0) absent(=1)
+Y2KPAT * 1 ; no(=0) Apply the JGH Patch (=1)
 
 VERLA * "0"
-VERLB * "6"
+VERLB * "7"
 DEBUG *  0 ;Make this +ve for debug letters
 MASK * &FF ;protection state
 

Level3/SRC/L3/Uade03

@@ -28,6 +28,7 @@ START
  = CR,"Acorn File Server Level "
 VERSN = "3 Version 1.",VERLA,VERLB,CR
  = 21,"Version string",6 ;software protection 
+
  = "   File server station "
 
  NOP               ;Print station number LH 21/10/85

Level3/SRC/L3/Uade04

@@ -234,12 +234,25 @@ STDATB BNE STDATC
  LDA INTEGR + 1
 STDATH BNE STDATB
  LDA INTEGR
+
+ [ Y2KPAT=1
+;Allow entry of years 1997+ 
+ CMPIM BASEYR
+ BCS STDATD
+ ADCIM 100
+STDATD
+ SEC
+ SBCIM BASEYR
+ JSR CHKDTF ; Check Year
+ |
 STDATF BEQ STDATB
  CMPIM THISYR ;current < current year ?
 STDATD BCC STDATB
  SEC
  SBCIM BASEYR ;SUBTRACT 81
  JSR SETYR ;Set year nybble
+ ]
+
  LDAIM  0
  STA DATE + 2 ;With no time chip, day = 0
  JSR CHKDTE
@@ -248,6 +261,48 @@ STDATD BCC STDATB
  ]
  RTS
 
+ [ Y2KPAT=1
+CHKDTE 
+ JMP DTOK ; Abandon date validation
+CHKDTF     ; CheckYear
+ PHA 
+ ASLA 
+ ANDIM &E0
+ ORA DATE
+ STA DATE
+ PLA 
+ JMP SETYR ;Set year nybble
+Y2KP05     ; Out Date
+ PHA 
+ JSR PRNTDG
+ PLA
+ RTS
+OUTY2K     ; Out Year
+ ANDIM &E0
+ LSRA 
+ ORA Y2KTMP
+ ADCIM BASEYR 
+ CMPIM 100
+ BCC Y2KP20 
+ SBCIM 100
+Y2KP20 RTS
+PUTDAT ANDIM &1F ; Put Date
+ JMP OUTDEC
+Y2KP25 PHA       ; Put Year
+ LDA TDATE
+ ANDIM &E0 
+ LSRA
+ STA Y2KTMP
+ PLA
+ ADC Y2KTMP
+ CMPIM 100 
+ BCC Y2KP30
+ SBCIM 100
+Y2KP30 JMP OUTDEC
+ = &00, &00, &00, &00, &00, &00, &00, &00, &00, &00 
+ = &00, &00, &00, &00, &00, &00, &00, &00, &00
+Y2KTMP = &00
+ |
 CHKDTE LDA DATE
  STA DAYS
  BEQ CHKDNG
@@ -297,6 +352,8 @@ CHLPYR LDA DATE
  ADCIM BASEYR
  ANDIM 3
  BNE CHKDNG
+ ]
+
 DTOK LDAIM 0
  RTS
 CHKDNG LDAIM 1
@@ -858,6 +915,15 @@ YR LDA DATE + 1
  LSRA
  LSRA
  LSRA
+
+ [ Y2KPAT=1
+ STA Y2KTMP
+ LDA DATE
+ JSR OUTY2K
+ PHA
+ LDAIM &13
+ ADCIM 0
+ |
  CLC
  ADCIM BASEYR
  PHA
@@ -866,6 +932,8 @@ YR LDA DATE + 1
  LDAIM 20
  BCS YR20
 YR19 LDAIM 19
+ ]
+
 YR20 JSR PRNTDG
  PLA
  JMP PRNTDG
@@ -915,8 +983,16 @@ MTAB2
 
 
 DATE1 LDA DATE
+
+ [ Y2KPAT=1
+ ANDIM &1F
+ JSR Y2KP05
+ NOP
+ |
  JSR PRNTDG
  LDA DATE
+ ]
+
  CMPIM 10
  BCC ND1
  SBCIM 10
@@ -1001,8 +1077,8 @@ SETTM1 LDA MUNTHS
  LDXIM 0
  JSR #95 ;set month                                          
 
- LDA MUNTHS    ; *** LH 15/1/86 ***
- JSR SETMFX    ; Fix year and month to form for register
+ LDA MUNTHS
+ JSR SETMFX
  LDXIM 3
  JSR #95 ; Set oldmonth to month and flag
 

Level3/SRC/L3/Uade0E

@@ -513,16 +513,29 @@ OUTRTD
 ;TDATE DURING INITDV
 
  LDA TDATE
+
+ [ Y2KPAT=1 ; Modify output for year 1997+
+ JSR PUTDAT 
+ LDAIM "/"
+ |
  JSR OUTDEC
 
  LDAIM ":"
+ ] 
+
  JSR OUTCH
 
  LDA TDATE + 1
  PHA
  ANDIM &F
  JSR OUTDEC ;MONTH
+
+ [ Y2KPAT=1
+ LDAIM "/"
+ |
  LDAIM ":"
+ ] 
+
  JSR OUTCH
 
  PLA
@@ -535,7 +548,12 @@ OUTRTD
 ;ADD TO GET BASEYR
 
  ADCIM BASEYR
+ [ Y2KPAT=1
+ JSR Y2KP25 
+ |
  JSR OUTDEC
+ ]
+
  JMP OUTSP
 
 

Level3/SRC/README

@@ -1,8 +1,9 @@
-Level 3 File Server v1.06
+Level 3 File Server v1.07
 =========================
 
-This disc contains the original source code for the Acorn Level 3 
-File Server. 
+This disc contains a recreation of the source code for the Acorn Level 3 
+File Server. It has been achieved by using the original binary and the 
+source code from v1.06. 
 
 Assembling the File Server Source Code
 ======================================
@@ -38,33 +39,28 @@ Files
   Location for the assembled parts. Do not delete or the assembler will fail.
 
 
-Version 1.06
+Version 1.07
 ============
 
 Date - estimated about May 1987. Only one change comment dated 20/5/87
 
 Comments
 ========
-Some of these changes may have been made in v1.05, but there is no binary
-available to investigate. This is the original and unchanged source code.
+The version widely distributed having the version number v1.07 is the same as 
+v1.06 except it is assembled for the RTC dongle being absent. The differences 
+are the version number and the serial number in the binary.
 
-Changes (from v1.04)
-====================
+The code has been updated to include the date fix as an assembly option in 
+file Uade01. 
+Y2KPAT * 0 ; no(=0) Apply the JGH Patch (=1)
 
+Changes (from v1.06)
+====================
 HEADER FILE 1
-         Uade01 Line 0060 VERLB, version changed from 4 to 6
-
-MAPMAN
-         Uade10 Line 0300-0301 removed JSR FNDMAP, BNE MPCHJX
-                          when changing the size of a chain on disc
-         Uade10 Line 0322 BCS branch removed
+         Uade01 Line 0057 Option for assembly with date fix (file Uade01)
+         Uade01 Line 0060 VERLB, version changed from 6 to 7
 
-
-MAPMAN UTILS 2
-20/05/87 Uade12 Line 1086 bugfix: Map block not being marked as written
-                          after blocks have been deleted
-         Uade12 Line 1054 moved CBNT code block from line 1129 to 1056
-                          inline with other code
-         Uade13 Line 0481 bugfix: in routine MPGTSZ - find size of object
-         Uade13 Line 0567 bugfix: PLA PLA removed from routine
-
+Allows startup entry of years from 1981 to 2080 (file Uade04)
+Status line date displays years after 1996 correctly (file Uade04)
+Years after 1996 in *INFO reports are displayed correctly (file Uade04)
+Dates are displayed as dd/mm/yy instead of dd:mm:yy (file Uade0E)