v1.24 with Clock Hack baseline

v1.24 code with the clock hack patch
stardot · May 15, 2023 · 7b7b18b · 7b7b18b
1 parent 5c03492
commit 7b7b18b
Show file tree

Hide file tree

Showing 114 changed files with 161 additions and 73 deletions.
diff --git a/Level3/Binary Files/FS3-124 b/Level3/Binary Files/FS3-124
diff --git a/Level3/Binary Files/FS3-124.inf b/Level3/Binary Files/FS3-124.inf
diff --git a/...ry Files/Original binary/patched/FS3-124p → Level3/Binary Files/FS3-124c b/...ry Files/Original binary/patched/FS3-124p → Level3/Binary Files/FS3-124c
diff --git a/Level3/Binary Files/FS3-124c.inf b/Level3/Binary Files/FS3-124c.inf
@@ -0,0 +1 @@
+$.FS3-124c 00000400 00000400 000084BE 33
diff --git a/Level3/Binary Files/FS3-124d b/Level3/Binary Files/FS3-124d
diff --git a/Level3/Binary Files/FS3-124d.INF b/Level3/Binary Files/FS3-124d.INF
diff --git a/Level3/Binary Files/FS3-124dp b/Level3/Binary Files/FS3-124dp
diff --git a/Level3/Binary Files/FS3-124dp.inf b/Level3/Binary Files/FS3-124dp.inf
diff --git a/Level3/Binary Files/FS3-124p b/Level3/Binary Files/FS3-124p
diff --git a/Level3/Binary Files/FS3-124p.inf b/Level3/Binary Files/FS3-124p.inf
diff --git a/Level3/Binary Files/Original binary/FS3-124 b/Level3/Binary Files/Original binary/FS3-124
diff --git a/Level3/Binary Files/Original binary/FS3-124.INF b/Level3/Binary Files/Original binary/FS3-124.INF
diff --git a/Level3/Binary Files/Original binary/patched/FS124.adl b/Level3/Binary Files/Original binary/patched/FS124.adl
diff --git a/Level3/Binary Files/Original binary/patched/FS3-124p.INF b/Level3/Binary Files/Original binary/patched/FS3-124p.INF
diff --git a/...ary Files/Original binary/patched/PATCHFS → Level3/Binary Files/PATCHFS b/...ary Files/Original binary/patched/PATCHFS → Level3/Binary Files/PATCHFS
diff --git a/...Files/Original binary/patched/PATCHFS.INF → Level3/Binary Files/PATCHFS.INF b/...Files/Original binary/patched/PATCHFS.INF → Level3/Binary Files/PATCHFS.INF
diff --git a/Level3/Change Log.txt b/Level3/Change Log.txt
@@ -1,5 +1,30 @@
-Version 1.24
+Version 1.24c
+=============
+
+Date - unknown
+
+Clock hack to set the clock to 1/1/1984 at 12:30:00
+
+Binary Files (* denotes the official ACORN released version)
 ============
+  FS3-124c - Assembler options: DONGLE=1 (absent)
+  PATCHFS  - The original BASIC program to patch the FS code
+
+Comments
+========
+There was a patch program for v1.24 to simply set the clock and not use the RTC.
+This has been incorporated into the code with an assembler directive CHACK.
+
+Changes (from v1.24)
+====================
+Option for assembly with Clock Hack (file Uade01)
+Code to fix the values and prevent updated from RTC (file Uade04)
+
+
+-------------------------------------------------------------------------------
+
+Level3 Version 1.24
+===================
 
 Date - estimated between Jun 87 and Feb 1988.
 
@@ -11,20 +36,15 @@ include 1/2/12/15/26 June 1987, 1/9/24 July 1987, 8/18/24 Feb 1988 and
 
 Binary Files (* denotes the official ACORN released version)
 ============
-  FS3-124   - Assembler options DONGLE absent, Pseudo directory symbols No
-  FS3-124d  - Assembler options DONGLE present, Pseudo directory symbols No 
-  FS3-124p  - Assembler options DONGLE absent, Pseudo directory symbols Yes
-* FS3-124dp - Assembler options DONGLE present, Pseudo directory symbols Yes
+  FS3-124  - Assembler options: DONGLE=1 (absent)
+* FS3-124d - Assembler options: DONGLE=0 (present)
 
 
 Comments
 ========
 This code has been created using the v1.31 source code. Within that code there
 are options for Lang English/Italian (added Feb 1987) and the Pseudo directory 
-symbols (%, &, @). Pseudo directory symbols were definately available in v1.24, 
-but as the comment for the switch option is dated 1988, it is possible that it 
-was hard coded and later modified to be an option at assembly time. The switch 
-has been left in.
+symbols (%, &, @). Pseudo directory symbols were present in v1.24, but later a switch option was added and is not present in later versions.
 
 Changes (from v1.06)
 ====================
@@ -38,8 +58,8 @@ Pseudo directory symbols (%, &, @)
 
 -------------------------------------------------------------------------------
 
-Version 1.07
-============
+Level3 Version 1.07
+===================
 
 Date - estimated about May 1987. Only one change comment dated 20/5/87
 
@@ -73,8 +93,8 @@ Dates are displayed as dd/mm/yy instead of dd:mm:yy (file Uade0E)
 
 -------------------------------------------------------------------------------
 
-Version 1.06
-============
+Level3 Version 1.06
+===================
 
 Date - estimated about May 1987. Only one change comment dated 20/5/87
 
@@ -112,8 +132,8 @@ MAPMAN UTILS 2
 
 -------------------------------------------------------------------------------
 
-Version 1.04
-============
+Level3 Version 1.04
+===================
 
 Date - estimated sometime after June 1986. no dated comments after June 1986
 
@@ -148,8 +168,8 @@ DSCMAN
 
 -------------------------------------------------------------------------------
 
-Version 1.03
-============
+Level3 Version 1.03
+===================
 
 Date - estimated about June 1986. Last comment was 5/6/86
 
@@ -179,8 +199,8 @@ DSCMAN
 
 -------------------------------------------------------------------------------
 
-Version 1.01
-============
+Level3 Version 1.01
+===================
 
 Date - estimated about Jan 1986
 
@@ -292,8 +312,8 @@ COMMAND PROCESSOR
 
 -------------------------------------------------------------------------------
 
-Version 0.92
-============
+Level3 Version 0.92
+===================
 
 Date - Dec 1998
 
@@ -323,31 +343,33 @@ Dates are displayed as dd/mm/yy instead of dd:mm:yy (file Uade0E)
 
 -------------------------------------------------------------------------------
 
-Version 0.90 Pre-Release IV.05
-==============================
+Level3 Version 0.90 Pre-Release IV.05
+=====================================
 
-Date - estimated. May-Oct 1985 (possibly 4 May from the pre-release version). 
+Date - estimated. May-Oct 1985 (possibly 4 May from the pre-release version).
        Two comments are dated after that date but with code included in the 
        binary. The comments could have been added at a later date to already
        existing code or versions were kept the same but the code was different.
        That would date the code to Oct 1985. There are changes labelled 
        15/12/85 that are not in this binary. The assembler directive file FSASM
        has the comment updated by Glenn 8/5/85.
-
+       Level3 File server was first included in the Technomatic advert in Acorn
+       User magazine issue of April 1985.
+
 Binary Files (* denotes the official ACORN released version)
 ============
 * FS3-090  - Dongle absent
   FS3-090b - Dongle absent. BARSON COMPUTERS variant
 
 Comments
 ========
-There are two Trace debug pieces of code in the final binary although the 
+There are two trace debug pieces of code in the final binary although the 
 DEBUG directive is set to 0 (file Uade14) and the binary performs a simple RTS
 when it is called.
 
 There is also a version of the same code with the banner displaying BARSON
 COMPUTERS. Barson were one of Acorn's distributors in Australia and it looks
-like the branding was probably done by hex editing the binary directly rather 
+like the branding was probably done by hex editing the binary directly rather
 than altering the code.
 
 Changes

diff --git a/Level3/SRC/L3/MBBMCM.inf b/Level3/SRC/L3/MBBMCM.inf
@@ -0,0 +1 @@
+MBBMCM     00 00 00 19
diff --git a/Level3/SRC/L3/Rman01.inf b/Level3/SRC/L3/Rman01.inf
@@ -0,0 +1 @@
+Rman01       00 00 00 19
diff --git a/Level3/SRC/L3/Rman02.inf b/Level3/SRC/L3/Rman02.inf
@@ -0,0 +1 @@
+Rman02       00 00 00 19
diff --git a/Level3/SRC/L3/Rman03.inf b/Level3/SRC/L3/Rman03.inf
@@ -0,0 +1 @@
+Rman03       00 00 00 19
diff --git a/Level3/SRC/L3/Rman04.inf b/Level3/SRC/L3/Rman04.inf
@@ -0,0 +1 @@
+Rman04       00 00 00 19
diff --git a/Level3/SRC/L3/Rman05.inf b/Level3/SRC/L3/Rman05.inf
@@ -0,0 +1 @@
+Rman05       00 00 00 19
diff --git a/Level3/SRC/L3/Uade01 b/Level3/SRC/L3/Uade01
@@ -57,16 +57,17 @@ Sys * &FF ;flags to indicate which type of FS
 Ztime * &FF
 FS * &FF
 Dongle * 0 ;Real Time Clock present(=0) absent(=1)
+CHACK * 1 ; no(=0) Apply the Clock Hack Patch (=1)
 
 Debug * 0 ;Make this +ve for debug letters
 
 Verla * "2" ;Version level .... two digits
 Verlb * "4" ;Range 0-99
+
 Lang * English
 Mask * &3F ;protection state (&3F for service system)
 Yes * 0
 No * &FFFF
-Pseudods * Yes ; **18/2/88** Pseudo-directory (%, &, @) switch
 
 ;*** MODULE CODE NAMES ***
 

diff --git a/Level3/SRC/L3/Uade01.inf b/Level3/SRC/L3/Uade01.inf
@@ -0,0 +1 @@
+Uade01       00 00 00 19
diff --git a/Level3/SRC/L3/Uade02 b/Level3/SRC/L3/Uade02
@@ -119,9 +119,7 @@ UTUSID # MAXUNM+1 ;START OF USERID
 UTDISC # 2 ;CURRENTLY SELECTED DISC NUMBER
 UTPRIV # 1 ;SYSTEM PRIVILEGE & INUSE FLAG
 UTHSLD # 1 ;HANDLE FOR SELECTED DIR
- [ Pseudods = Yes
 UTHUFD # 1 ;**26/6/87** handle for logon directory
- ]
 UTHNDB # 1 ;BYTE INDICATING HANDLES IN USE PER MC
 UTFREE # UTFRLN ;User disc space allocation ** 2/10/84 **
 UTENSZ * @ ;SIZE OF A USERTB ENTRY

diff --git a/Level3/SRC/L3/Uade02.inf b/Level3/SRC/L3/Uade02.inf
@@ -0,0 +1 @@
+Uade02       00 00 00 19
diff --git a/Level3/SRC/L3/Uade03.inf b/Level3/SRC/L3/Uade03.inf
@@ -0,0 +1 @@
+Uade03       00 00 00 19
diff --git a/Level3/SRC/L3/Uade04 b/Level3/SRC/L3/Uade04
@@ -822,7 +822,12 @@ SETYR ASLA
 
 
 SETTME ROUT
+ [ CHACK = 1
+ RTS ; REM STOP CLOCK READ
+ = :LSB:MUNTHS, :MSB:MUNTHS ; fill
+ |
  LDA MUNTHS
+ ]
  LSRA
  LSRA
  LSRA
@@ -919,7 +924,21 @@ PRTIM2 JSR DWIND ;set up window
  JMP MWIND ;reset window and return
 
 RTC ;check that the read time clock is present
-
+ [ CHACK = 1
+ LDAIM 30
+ STA &8A94 ; \MINUTES
+ LDAIM 12
+ STA &8A95 ; \HOURS
+ LDAIM 1
+ STA &8A7E ; \DAY
+ STA &8A96 ; \..
+ LDAIM &31
+ STA &8A7F ; \high nibble = YEAR FROM 1981, low nibble = MONTH
+ STA &8A97 ; \..
+ LDAIM 0   ; \ensure clock test passed
+ STA &8A93 ; \SECONDS
+RTCX RTS
+ |
  LDXIM 7
  LDAIM &71
  JSR #95 ;write the minutes alarm register
@@ -937,10 +956,15 @@ RTC ;check that the read time clock is present
  JSR #00 ;read result
  CMPIM 0
 RTCX RTS ;returns EQ if dongle present
-
+ ]
+
 RDDONG
-
+ [ CHACK = 1
+ RTS
+ = 6 ; REM STOP CLOCK READ
+ |
  LDXIM 6 ;read minutes
+ ]
  JSR #00
  JSR #70
  STA MINS

diff --git a/Level3/SRC/L3/Uade04.inf b/Level3/SRC/L3/Uade04.inf
@@ -0,0 +1 @@
+Uade04       00 00 00 19
diff --git a/Level3/SRC/L3/Uade05.inf b/Level3/SRC/L3/Uade05.inf
@@ -0,0 +1 @@
+Uade05       00 00 00 19
diff --git a/Level3/SRC/L3/Uade06 b/Level3/SRC/L3/Uade06
@@ -913,10 +913,8 @@ MAKHDS ROUT
  BNE #20
 
  STA UMHUFD ;make this the handle for the UFD
- [ Pseudods = Yes
  LDYIM UTHUFD ;**26/6/87** and store in user table
  STAIY USTPTR
- ]
 
  JSR OPEN ;now get a handle for selected dir
  BEQ #10

diff --git a/Level3/SRC/L3/Uade06.inf b/Level3/SRC/L3/Uade06.inf
@@ -0,0 +1 @@
+Uade06       00 00 00 19
diff --git a/Level3/SRC/L3/Uade0A.inf b/Level3/SRC/L3/Uade0A.inf
@@ -0,0 +1 @@
+Uade0A       00 00 00 19
diff --git a/Level3/SRC/L3/Uade0B.inf b/Level3/SRC/L3/Uade0B.inf
@@ -0,0 +1 @@
+Uade0B       00 00 00 19
diff --git a/Level3/SRC/L3/Uade0C b/Level3/SRC/L3/Uade0C
@@ -202,7 +202,6 @@ DRRET2 LDYIM ARGH
  BPL #22
  BMI #05 ;**23/1/87** complete info entry a la root
 
- [ Pseudods = Yes
 25 LDYIM 1 ;**20/5/87** check lone pseudo-directory
  LDAIY NAMPTR
  CMPIM TERMIN
@@ -213,9 +212,6 @@ DRRET2 LDYIM ARGH
  BNE #27
  JSR LOADDR ;**20/5/87** load directory
  BNE #60
- |
-25 BNE #27
- ]
 26 JSR UNLOCK
  JMP #21 ;**20/5/87** go update details  
 
@@ -520,14 +516,12 @@ DRCRDR ROUT
  JSR UNLOCK ;release parent pro tem
  JSR TSTPAR ;prohibit new name of "^"
  BEQ #50
- [ Pseudods = Yes
  LDYIM 0 ;**20/5/87** prohibit new names of "&", "%", "@"
  LDAIY NAMPTR
  JSR Testpd
  BNE #15
  JSR TSTTER
  BEQ #50
- ]
 15 LDYIM ARGG
  LDAIY ARGPTR
  STA DIRWC ;**24/7/87** get wild card flag again

diff --git a/Level3/SRC/L3/Uade0C.inf b/Level3/SRC/L3/Uade0C.inf
@@ -0,0 +1 @@
+Uade0C       00 00 00 19