mirror of
https://github.com/open-simh/simtools.git
synced 2026-02-02 23:02:23 +00:00
bf7c17ab4a
file systems. It supports reading and writing as well as a number
of other operations, such as octal dump, file system initialize,
and file system check ("clean").
This was originally maintained as a Subversion repository at
svn://akdesign.dyndns.org/flx/branches/V2.6.
as suggested by Timothe Litt on the SIMH mailing list.
300 lines
11 KiB
C
300 lines
11 KiB
C
/* fldef.h -- RSTS file system definitions
|
|
*
|
|
* Derived from fldef.mac, RSTS V10.1.
|
|
*/
|
|
|
|
/* rad50 constants we need */
|
|
#define MFD 0051064 /* rad50 "MFD" */
|
|
#define GFD 0026264 /* rad50 "GFD" */
|
|
#define UFD 0102064 /* rad50 "UFD" */
|
|
#define TMP 0077430 /* rad50 "TMP" */
|
|
|
|
/* Disk file structure definitions
|
|
* Any definitions that apply only for certain disk structure levels
|
|
* are marked accordingly. They apply to the rev level stated and those
|
|
* after it.
|
|
*/
|
|
|
|
/* Note: except for the pack label, each of these struct definitions
|
|
* must define a struct of size 16 bytes.
|
|
*/
|
|
|
|
typedef struct { /* Pack label entry */
|
|
word16 ulnk; /* Link if RDS0.0, otherwise 1 */
|
|
int16 fill1; /* Reserved (-1) */
|
|
word16 mdcn; /* Starting DCN of MFD (RDS1.1) */
|
|
word16 plvl; /* Pack revision level */
|
|
word16 ppcs; /* Pack cluster size */
|
|
word16 pstat; /* Pack status/flags */
|
|
word16 pckid[2]; /* Pack ID */
|
|
word16 tapgvn[2]; /* TAP generation-version number (RDS1.1) */
|
|
word16 bckdat; /* Date of last TAP full backup (RDS1.1) */
|
|
word16 bcktim; /* Time of last TAP full backup (RDS1.1) */
|
|
word16 mntdat; /* Date of last mount/dismount (RDS1.2) */
|
|
word16 mnttim; /* Time of last mount/dismount (RDS1.2) */
|
|
byte fill2[BLKSIZE-(14*sizeof(word16))]; /* Reserved */
|
|
} packlabel;
|
|
|
|
/* Flag bits in pack label field */
|
|
|
|
#define uc_top 0001000 /* New files first */
|
|
#define uc_dlw 0004000 /* Maintain date of last write */
|
|
#define uc_ro 0010000 /* Read-only pack */
|
|
#define uc_new 0020000 /* "New" pack (RDS1.1) */
|
|
#define uc_pri 0040000 /* Pack is private/system */
|
|
#define uc_mnt 0100000 /* Pack is mounted (dirty) */
|
|
|
|
/* Rev levels */
|
|
#define RDS0 0 /* RDS 0 -- V7.x and before */
|
|
#define RDS11 ((1<<8)+1) /* RDS 1.1 -- V8 */
|
|
#define RDS12 ((1<<8)+2) /* RDS 1.2 -- V9.0 and beyond */
|
|
|
|
/* MFD and GFD are new as of RDS1.1 */
|
|
|
|
typedef struct { /* MFD label entry */
|
|
word16 fill1; /* Reserved (0) */
|
|
int16 fill2; /* Reserved (-1) */
|
|
word16 fill3[3]; /* Reserved (0) */
|
|
word16 malnk; /* Link to pack attributes */
|
|
byte lppn[2]; /* PPN [255,255] */
|
|
word16 lid; /* Identification (RAD50 "MFD") */
|
|
} mfdlabel;
|
|
|
|
typedef struct { /* Directory cluster map */
|
|
byte uclus; /* Directory clustersize */
|
|
byte uflag; /* RDS1 GFD/MFD flag in high bit */
|
|
word16 uent[7]; /* The dcn's of the cluster(s) */
|
|
} fdcm;
|
|
|
|
#define fd_new 0200 /* flag bit for GFD/MFD in uflag (RDS1.1) */
|
|
|
|
typedef struct { /* GFD label entry */
|
|
word16 fill1; /* Reserved (0) */
|
|
int16 fill2; /* Reserved (-1) */
|
|
word16 fill3[4]; /* Reserved (0) */
|
|
byte lppn[2]; /* PPN [x,255] */
|
|
word16 lid; /* Identification (RAD50 "GFD") */
|
|
} gfdlabel;
|
|
|
|
/* mfd/gfd offsets */
|
|
#define gfddcntbl 1 /* block with DCN pointer table */
|
|
#define gfdatrtbl 2 /* block with attribute link table */
|
|
|
|
/* For RDS0, the "GFD NE" and "GFD AE" live in the MFD ([1,1] directory)
|
|
* which starts at DCN 1. They are in a linked list, possibly mixed
|
|
* with files, in the usual UFD fashion.
|
|
*/
|
|
|
|
typedef struct { /* GFD name entry */
|
|
word16 ulnk; /* Link to attributes */
|
|
word16 unam[3]; /* PPN and password */
|
|
byte ustat; /* Status byte */
|
|
byte uprot; /* Protection code */
|
|
word16 uacnt; /* Access count */
|
|
word16 uaa; /* Link to accounting entry */
|
|
word16 uar; /* Dcn of start of UFD */
|
|
} gfdne;
|
|
|
|
typedef struct { /* GFD accounting entry */
|
|
word16 ulnk; /* Flags */
|
|
word16 mcpu; /* Accum cpu time (LSB) */
|
|
word16 mcon; /* Accum connect time */
|
|
word16 mkct; /* Accum kct's (LSB) */
|
|
word16 mdev; /* Accum device time */
|
|
word16 mmsb; /* Accum cpu time and kct's (MSB's) */
|
|
word16 mdper; /* Disk quota */
|
|
word16 uclus; /* UFD cluster size */
|
|
} gfdae;
|
|
|
|
typedef struct { /* UFD label entry */
|
|
word16 ulnk; /* Link to first name block in UFD */
|
|
int16 fill2; /* Reserved (-1) */
|
|
word16 fill3[4]; /* Reserved (0) */
|
|
byte lppn[2]; /* PPN [x,y] */
|
|
word16 lid; /* Identification (RAD50 "UFD") */
|
|
} ufdlabel;
|
|
|
|
typedef struct { /* UFD name entry */
|
|
word16 ulnk; /* Link to next name entry */
|
|
word16 unam[3]; /* File name and extension */
|
|
byte ustat; /* Status byte */
|
|
byte uprot; /* Protection code */
|
|
word16 uacnt; /* Access count */
|
|
word16 uaa; /* Link to UFD accounting entry */
|
|
word16 uar; /* Link to retrieval entries */
|
|
} ufdne;
|
|
|
|
typedef struct { /* UFD accounting entry */
|
|
word16 ulnk; /* Link to attributes and flags */
|
|
word16 udla; /* Date of last access (or write) */
|
|
word16 usiz; /* File size */
|
|
word16 udc; /* Date of creation */
|
|
word16 utc; /* Time of creation */
|
|
word16 urts[2]; /* File's run-time system name or 0/MSB size */
|
|
word16 uclus; /* File cluster size */
|
|
} ufdae;
|
|
|
|
typedef struct { /* UFD first RMS attribute blockette */
|
|
word16 ulnk; /* Link to second attributes blockette */
|
|
word16 fa_typ; /* File type (rfm, org, rat) */
|
|
word16 fa_rsz; /* Record size */
|
|
word16 fa_siz[2]; /* File size (32 bits) */
|
|
word16 fa_eof[2]; /* File EOF block number (32 bits) */
|
|
word16 fa_eofb; /* EOF byte offset */
|
|
} ufdrms1;
|
|
|
|
#define fa_rfm 0000007 /* record format field in fa_typ */
|
|
#define rf_udf 0 /* undefined organization */
|
|
#define rf_fix 1 /* fixed length records */
|
|
#define rf_var 2 /* variable length records */
|
|
#define rf_vfc 3 /* variable with fixed control header */
|
|
#define rf_stm 4 /* stream (cr/lf delimiter) */
|
|
#define fa_org 0000070 /* file organization format in fa_typ */
|
|
#define fo_seq 000 /* sequential organization */
|
|
#define fo_rel 020 /* relative organization */
|
|
#define fo_idx 040 /* indexed organization */
|
|
#define fa_rat 0007700 /* record attribute flags */
|
|
#define ra_ftn 0000400 /* fortran carriage control */
|
|
#define ra_imp 0001000 /* implied carriage control */
|
|
#define ra_spn 0004000 /* no-span records */
|
|
|
|
typedef struct { /* UFD second RMS attribute blockette */
|
|
word16 ulnk; /* Link (reserved) */
|
|
byte fa_bkt; /* Bucket size */
|
|
byte fa_hsz; /* Header size */
|
|
word16 fa_msz; /* Max record size */
|
|
word16 fa_ext; /* Default extension amount */
|
|
word16 filler[4]; /* Reserved */
|
|
} ufdrms2;
|
|
|
|
/* All directory attributes are new as of RDS1.1 or later */
|
|
|
|
typedef struct { /* MFD/GFD attribute entry */
|
|
word16 ulnk; /* Link to next, flags */
|
|
byte uatyp; /* Type */
|
|
byte uadat[16-3]; /* Data */
|
|
} uattr;
|
|
|
|
/* Time of creation flag bit definitions */
|
|
|
|
#define utc_tm 0003777 /* Bits needed for the time field */
|
|
#define utc_ig 0004000 /* IGNORE flag (RDS1.2) */
|
|
#define utc_bk 0010000 /* NOBACKUP flag (RDS1.2) */
|
|
/* Other bits reserved */
|
|
|
|
typedef struct { /* UFD retrieval entry */
|
|
word16 ulnk; /* Link to next retrieval entry */
|
|
word16 uent[7]; /* The dcn's of the cluster(s) */
|
|
} ufdre;
|
|
|
|
/* Bit assignments in ustat and f$stat */
|
|
|
|
#define us_out 0001 /* File is 'out of sat' (historical) */
|
|
#define us_plc 0002 /* File is "placed" */
|
|
#define us_wrt 0004 /* Write access given out (not on disk if large files) */
|
|
#define us_upd 0010 /* File open in update mode (not on disk if large files) */
|
|
#define us_nox 0020 /* No file extending allowed (contiguous) */
|
|
#define us_nok 0040 /* No delete and/or rename allowed */
|
|
#define us_ufd 0100 /* Entry is MFD type entry */
|
|
#define us_del 0200 /* File marked for deletion */
|
|
|
|
/* Bit assignments in uprot and f$prot */
|
|
|
|
#define up_rpo 0001 /* Read protect against owner */
|
|
#define up_wpo 0002 /* Write " " " */
|
|
#define up_rpg 0004 /* Read " " group */
|
|
#define up_wpg 0010 /* Write " " " */
|
|
#define up_rpw 0020 /* Read " " world */
|
|
#define up_wpw 0040 /* Write " " " */
|
|
#define up_run 0100 /* Executable file */
|
|
#define up_prv 0200 /* Clear on delete, privileged if executable file */
|
|
|
|
/* Link and flag word fields */
|
|
|
|
#define ul_use 0000001 /* On to ensure entry is "in use" */
|
|
#define ul_bad 0000002 /* Some bad block exists in file */
|
|
#define ul_che 0000004 /* Cache (name entry) or sequential (accting entry) */
|
|
#define ul_cln 0000010 /* Reserved for 'clean' */
|
|
#define ul_eno 0000760 /* Entry offset within block (5 bits) */
|
|
#define ul_clo 0007000 /* Cluster offset within UFD (3 bits) */
|
|
#define ul_blo 0170000 /* Block offset within cluster (4 bits) */
|
|
#define sl_clo 9 /* Shift count for ul_clo field */
|
|
#define sl_blo 12 /* shift count for ul_blo field */
|
|
|
|
#define LINKBITS (ul_eno | ul_clo | ul_blo) /* bits to test for null */
|
|
#define NULLINK(l) (((l) & LINKBITS) == 0)
|
|
|
|
/* Account attribute codes */
|
|
|
|
#define aa_quo 1 /* Quotas */
|
|
#define aa_prv 2 /* Privilege masks */
|
|
#define aa_pas 3 /* Password */
|
|
#define aa_dat 4 /* Date/time recording (creation, change, login) */
|
|
#define aa_nam 5 /* User name (RDS1.2) */
|
|
#define aa_qt2 6 /* Quotas part 2 (RDS1.2) */
|
|
|
|
/* Attribute blockette layouts */
|
|
|
|
typedef struct { /* Disk Quota Attribute Blockette */
|
|
word16 ulnk; /* Link to next, flags */
|
|
byte uatyp; /* Type */
|
|
byte aq_djb; /* Detached job quota */
|
|
word16 aq_lol; /* Logged out quota (LSB) */
|
|
word16 aq_lil; /* Logged in quota (LSB) */
|
|
byte aq_lim; /* Logged in quota (MSB) */
|
|
byte aq_lom; /* Logged out quota (MSB) */
|
|
byte aq_rsm; /* Reserved */
|
|
byte aq_crm; /* Current usage (MSB) */
|
|
word16 aq_rsl; /* Reserved */
|
|
word16 aq_crl; /* Current usage (LSB) */
|
|
} ua_quo;
|
|
|
|
#define privsz 6 /* number of privilege bytes */
|
|
|
|
typedef struct { /* Privilege mask data */
|
|
word16 ulnk; /* Link to next, flags */
|
|
byte uatyp; /* Type */
|
|
byte fill1; /* Filler */
|
|
byte ap_prv[privsz]; /* Authorized privileges */
|
|
byte fill2[020-privsz-1-3]; /* Filler */
|
|
} ua_prv;
|
|
|
|
typedef struct { /* Date/time data */
|
|
word16 ulnk; /* Link to next, flags */
|
|
byte uatyp; /* Type */
|
|
byte at_kb; /* Keyboard of last login */
|
|
word16 at_lda; /* Date of last login */
|
|
word16 at_lti; /* Time of last login */
|
|
word16 at_pda; /* Date of last password16 change */
|
|
word16 at_pti; /* Time of last password change */
|
|
word16 at_cda; /* Date of creation */
|
|
word16 at_exp; /* Expiration date (RDS1.2) */
|
|
/* Account creation time (RDS1.1 only) */
|
|
} ua_dat;
|
|
|
|
/* Fields within at_lti */
|
|
#define at_msk 0003777 /* Bits needed for the time field */
|
|
#define at_npw 0004000 /* No password required */
|
|
/* Other bits reserved */
|
|
|
|
/* Fields within at_pti */
|
|
/* at_msk 0003777 * Bits needed for the time field */
|
|
#define at_nlk 0004000 /* Not readable password if set */
|
|
#define at_ndl 0010000 /* No-dialups flag */
|
|
#define at_nnt 0020000 /* No-network flag */
|
|
#define at_nlg 0040000 /* No-login account */
|
|
#define at_cap 0100000 /* Captive account */
|
|
|
|
typedef struct { /* Second quota and date/time block */
|
|
word16 ulnk; /* Link to next, flags */
|
|
byte uatyp; /* Type */
|
|
byte a2_job; /* Total job quota */
|
|
word16 a2_rib; /* RIB quota */
|
|
word16 a2_msg; /* Message limit quota */
|
|
word16 fill1; /* Reserved */
|
|
byte fill2; /* Reserved */
|
|
byte a2_pwf; /* Password failed count */
|
|
word16 a2_ndt; /* Date of Last non-interactive login */
|
|
word16 a2_nti; /* Time of Last non-interactive login */
|
|
} ua_qt2;
|