v1.33 baseline

stardot · May 23, 2023 · 16ebefb · 16ebefb
1 parent 6f54848
commit 16ebefb
Show file tree

Hide file tree

Showing 201 changed files with 564 additions and 51,425 deletions.
diff --git a/FileServer/Binary Files/FS3-131 b/FileServer/Binary Files/FS3-131
diff --git a/FileServer/Binary Files/FS3-131.inf b/FileServer/Binary Files/FS3-131.inf
diff --git a/FileServer/Binary Files/FS3-131d b/FileServer/Binary Files/FS3-131d
diff --git a/FileServer/Binary Files/FS3-131d.inf b/FileServer/Binary Files/FS3-131d.inf
diff --git a/FileServer/Binary Files/FS3-131dp b/FileServer/Binary Files/FS3-131dp
diff --git a/FileServer/Binary Files/FS3-131dp.inf b/FileServer/Binary Files/FS3-131dp.inf
diff --git a/FileServer/Binary Files/FS3-131p b/FileServer/Binary Files/FS3-131p
diff --git a/FileServer/Binary Files/FS3-131p.inf b/FileServer/Binary Files/FS3-131p.inf
diff --git a/FileServer/Binary Files/FSR-131 b/FileServer/Binary Files/FSR-131
diff --git a/FileServer/Binary Files/FSR-131p b/FileServer/Binary Files/FSR-131p
diff --git a/FileServer/SRC/FSASM.inf b/FileServer/SRC/FSASM.inf
@@ -1 +1 @@
-$.FSASM 00000000 00000000 000000D2 19 A548 101D0B A24D 331317
+$.FSASM 00000000 00000000 000000D2 19 A548 101D0B A24D 331315
diff --git a/FileServer/SRC/FSROM b/FileServer/SRC/FSROM
diff --git a/FileServer/SRC/FSROM.inf b/FileServer/SRC/FSROM.inf
@@ -0,0 +1 @@
+$.FSROM 00000200 00000200 00008000 33 A557 042D16 A557 002D16
diff --git a/FileServer/SRC/FileServer/Form00 b/FileServer/SRC/FileServer/Form00
@@ -620,20 +620,15 @@ VERIFY ROUT
 FNSH
 LEFT * FRESTR-. ;get free store
  [ LEFT >= 0 ;must not overflow workspace
- |
- ! 0,"FRESTR incorrect"
- ]
-
+
+ ; if it is a ROM for the filestore, pad to the
+ ; end with &FF
  [ $CMOS
-; The original ROM has some junk at the end.
-; but don't add if Psuedo = Yes
- [ Pseudods = No
- = &87, &D0, &02, &E6, &88, &C6 
- = &89, &80, &CB, &D0, &02, &E6, &88, &C6
- = &89, &80, &CB, &80, &CB, &90, &03, &EE 
- = &60, &81, &E6, &87, &D0, &02, &E6, &88
- = &C6, &89, &80, &CB, &14, &3F, &A5, &B4 
+ xFILL &FF, LEFT
  ]
+
+ |
+ ! 0,"FRESTR incorrect"
  ]
 
 ;** T H E  E N D ***

diff --git a/FileServer/SRC/FileServer/Print0 b/FileServer/SRC/FileServer/Print0
@@ -1,6 +1,7 @@
  OPT PRINT0 ;FILE > Print0
  TTL Print server file Print0
 
+
 ; PRWAIT macro enables the printer server to exit to the fileserver
 ; when it wishes to wait or loop.  The fileserver returns to the point
 ; after the call of PRWAIT when it next has nothing to do.
@@ -165,9 +166,13 @@ Pstart ROUT
  STA Lastin
  LDA Prxcb+4
  STA Lastin+1
+
+ [ 1=0
  LDA Prxcb+1 ;**20/5/87**
  ANDIM MCtask
  STA Lastin+2
+ ]
+
  JSR Pconnt ;refresh timeout
  JSR Prxcbi ;Then reissue receive
  STA Prxcb ;save CB number (or zero)
@@ -268,9 +273,12 @@ Pollps ROUT ;here every main idle cycle
  STA Lastin
  LDA CBstid+1
  STA Lastin+1
+
+ [ 1=0
  LDA CBflg ;**20/5/87**
  ANDIM MCtask
  STA Lastin+2
+ ]
  JSR Pconnt ;refresh timer
  LDAIM Prbusy ;and mark busy
  TSB Pstate
@@ -281,8 +289,11 @@ Pollps ROUT ;here every main idle cycle
  STA Prwork+1
  LDA Lastin+1
  STA Prwork+2
+ [ 1=0
  LDA Lastin+2
  STA Prwork+3
+ ]
+
 96 LDXIM 9
  LDYIM :LSB:(Prwork+3)
  LDAIM :MSB:(Prwork+3)
@@ -412,10 +423,13 @@ Prchks ROUT
  BNE #10
  LDA Prxcb+4
  CMP Lastin+1
+
+ [ 1=0
  BNE #10 ;**20/5/87**
  LDA Prxcb+1
  ANDIM MCtask
  CMP Lastin+2
+ ]
 10 RTS
 
 ; Check if new buffer is a "start print" buffer.  Returns Z set if so.

diff --git a/FileServer/SRC/FileServer/Rman01 b/FileServer/SRC/FileServer/Rman01
@@ -289,6 +289,26 @@ RDINFO ROUT
 10 LDYIM HTHAND
  LDAIY HNDPTR
  BEQ #20 ;ENTRY IN USE ??
+ JSR RDINOC
+ BEQ #30
+
+20 JSR INCHND
+ BNE #10
+ LDAIM RDERRE ;OBJECT NOT OPEN
+
+30 PHA ;save A
+ BNE #40
+
+ LDYIM HTMODE
+ LDAIY HNDPTR ;get mode from table
+ LDYIM ARGB
+ STAIY ARGPTR ;for return
+ JSR RDopat ;**20/5/87** set 'open at' details
+
+40 PLA
+ JMP RDEXIT
+
+RDINOC ROUT
  CLC
  LDA HNDPTR
  ADCIM HTDISC
@@ -299,39 +319,22 @@ RDINFO ROUT
 
  [ $CMOS
  PHX
- LDXIM 5 ;COMPARE DISC & SIN
- JSR COMPAR
- PLX
- TAY
  |
  TXA
  PHA
+ ]
  LDXIM 5 ;COMPARE DISC & SIN
  JSR COMPAR
+ [ $CMOS
+ PLX
+ TAY
+ |
  TAY
  PLA
  TAX
  TYA
  ]
- BEQ #30
-
-20 JSR INCHND
- BNE #10
- LDAIM RDERRE ;OBJECT NOT OPEN
-
-30 PHA ;save A
- BNE #40
-
- LDYIM HTMODE
- LDAIY HNDPTR ;get mode from table
- LDYIM ARGB
- STAIY ARGPTR ;for return
- JSR RDopat ;**20/5/87** set 'open at' details
-
-40 PLA
- JMP RDEXIT
-
-
+ RTS
 
 ;************ RDCLOS ************
 

diff --git a/FileServer/SRC/FileServer/Uade01 b/FileServer/SRC/FileServer/Uade01
@@ -62,22 +62,18 @@ Debug * 0 ;Make this +ve for debug letters
 
  [ $Level3
 Verla * "3" ;Version number & level
-Verlb * "1" ;Range 0-99  20/7/88
+Verlb * "3" ;Range 0-99  20/7/88
  |
 Verla * 1 ;Version number & level
-Verlb * 31 ;Range 0-99  20/7/88
+Verlb * 33 ;Range 0-99  20/7/88
  ]
 
 Lang * English
 Mask * &3F ;protection state (&3F for service system)
 Yes * 0
 No * &FFFF
 Cachesw * No ; Disable big-buffer caching (ware use of BBUF for replies)
- [ $Level3
 Pseudods * No ; **18/2/88** Pseudo directory (%, &, @) switch
- |
-Pseudods * No ;
- ]
 
 ;*** MODULE CODE NAMES ***
 

diff --git a/FileServer/SRC/FileServer/Uade03 b/FileServer/SRC/FileServer/Uade03
@@ -4,6 +4,21 @@
 ;**********************************
 ;*        U T I L I T I E S       *
 ;**********************************
+
+; used to fill blank bytes with &value
+ MACRO
+$label xFILL $value,$end
+$label LCLA $addr
+
+$addr SETA 0
+ WHILE $addr < $end
+ = $value
+$addr SETA $addr + 1
+ WEND
+ MEND
+
+
+
  [ $Level3
 
 ENPT ROUT

diff --git a/FileServer/SRC/FileServer/Uade06A b/FileServer/SRC/FileServer/Uade06A
@@ -208,7 +208,9 @@ USFREE ROUT ;** 6/2/85 **
  INC GENPTR+1
 
 30 INY
- CPYIM MAXID+UTUSID+1
+;Since v1.31 this has increased from &0E to &19.
+;neither MAXID or UTUSID has changed so &B is added
+ CPYIM MAXID+UTUSID+1+&B 
  BNE #20 ;continue
 
 40 LDAIM ARGD ;update the free space

diff --git a/FileServer/SRC/FileServer/Uade0C b/FileServer/SRC/FileServer/Uade0C
@@ -225,11 +225,12 @@ DRRET2 LDYIM ARGH
  STAIY INFPTR
  DEY
  BPL #22
- [ $CMOS  ; This looks like a bugfix in Filestore 1.31 but not included in the L3 code
+ ;[ $CMOS  ; This looks like a bugfix in Filestore 1.31 but not included in the L3 code
  LDA DATE ;set date to today (????????)
  STA TDATE
  LDA DATE+1
  STA TDATE+1
+ [ $CMOS  
  BRA #05 ;**23/1/87** complete info entry a la root
  |
  BMI #05 ;**23/1/87** complete info entry a la root
@@ -246,12 +247,12 @@ DRRET2 LDYIM ARGH
  BNE #27
  JSR LOADDR ;**20/5/87** load directory
  BNE #60
- [ $CMOS  ; This looks like a bugfix in Filestore 1.31 but not included in the L3 code
+; [ $CMOS  ; This looks like a bugfix in Filestore 1.31 but not included in the L3 code
  LDA DATE ;set date to today (????????)
  STA TDATE
  LDA DATE+1
  STA TDATE+1
- ]
+ ;]
 
  |
  [ $CMOS

diff --git a/FileServer/SRC/FileServer/Uade0D b/FileServer/SRC/FileServer/Uade0D
@@ -169,6 +169,11 @@ CHKTEX ROUT
  BEQ #40 ;Nope => error
  CMPIM "$"
  BEQ #40 ;** 18/9/84 **
+ CMPIM "^"
+ BNE #30
+ CPXIM NAMLNT ;TEST LENGTH OF <text name>
+ BNE #40
+
 30 INY
  DEX
  BNE #10

diff --git a/FileServer/SRC/FileServer/Uade0DA b/FileServer/SRC/FileServer/Uade0DA
@@ -154,6 +154,17 @@ Tsparn ROUT ;**1/6/87**
 ; Retrieve parent directory **23/1/87**
 
 RETPAR ROUT
+ LDAIM :LSB:DRDISC
+ STA MOVFRM
+ LDAIM :MSB:DRDISC
+ STA MOVFRM+1
+ LDA UMHUFD
+
+10 JSR FNDHND
+ BNE #55
+ JSR RDINOC
+ PHP
+
  JSR LOADDR ;**23/1/87** load current directory
  BNE #50
  LDYIM DRSTAR+DRLINK ;**23/1/87** special unchained entry?
@@ -178,6 +189,9 @@ RETPAR ROUT
  LDAIY DRUSIN
  ANDIM SYSTPV ;same as now if system user
  BNE #30
+ PLP
+ PHP
+ BEQ #20
  LDAIM 4 ;MAPMAN.SINOFROOT
  JSR SETDSA
  JSR MAPMAN ;**1/6/88** revised tests
@@ -200,10 +214,15 @@ RETPAR ROUT
 30 JSR LOADDR ;load parent directory
  BNE #50
  LDAIM 0
-50 RTS
+50 
+ PLP
+ PHA
+ PLA
+55 RTS
 
 60 LDAIM DRERRC ;parent not found
-70 JMP UNLOCK ;unlock and exit
+70 PLP
+ JMP UNLOCK ;unlock and exit
 
 TSTDIR ROUT
  JSR ISDIR ;Test CRNTEN for directory