DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦4d2aa80cf⟧ TextFile

    Length: 2524 (0x9dc)
    Types: TextFile
    Names: »CB_DEFN.S«

Derivation

└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!ALTFMS.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!FILSYS.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!MY_SYSTEM.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!QUATTRO_MUX.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!SINGLE.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!ALTFMS.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!FILSYS.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!MY_SYSTEM.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!QUATTRO_MUX.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!SINGLE.D!GENS.D!CB_DEFN.S« 
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!ALTFMS.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!FILSYS.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!MY_SYSTEM.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!QUATTRO_MUX.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!SINGLE.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!ALTFMS.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!FILSYS.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!MY_SYSTEM.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!QUATTRO_MUX.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!SINGLE.D!GENS.D!CB_DEFN.S« 
└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
    └─ ⟦this⟧ »CSP005_V0501.D!CSS920.D!LINK.D!ERP_SINGLE.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »CSP005_V0501.D!CSS920.D!LINK.D!MX.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »CSP005_V0501.D!CSS920.D!LINK.D!MX_CRAM.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »CSP005_V0501.D!CSS920.D!LINK.D!MX_DMA.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »CSP005_V0501.D!CSS920.D!LINK.D!MY_SYSTEM.D!GENS.D!CB_DEFN.S« 
    └─ ⟦this⟧ »CSP005_V0501.D!CSS920.D!LINK.D!SINGLE.D!GENS.D!CB_DEFN.S« 

TextFile

«ff»


"**** FILE=CB_DEFN.S ****"


"************************"
"   CONTROL BLOCKS       "
"************************"



TYPE

"UCB"
"---"


  UCB=
  RECORD
    NEXT           :INTEGER;       "ADDR OF NEXT UCB"
    STATE          :CB_STATE;      "STATE (FREE/USED) OF UCB"
    USER           :USER_NAME;     "USERS NAME"
    FIRSTFILE      :INTEGER        "LIST OF CAPS CONNECTED TO USER"
  END "UCB";



"CAP"
"---"


  CAP=
  RECORD
    NEXT           :INTEGER;       "ADDR OF NEXT FREE CAP"
    STATE          :CB_STATE;      "STATE (FREE/USED) OF CAP"
    NEXTFILE       :INTEGER;       "ADDR OF NEXT CAP FOR THIS USER"
    NEXTUSER       :INTEGER;       "ADDR OF NEXT CAP FOR THIS FILE"
    FILE           :INTEGER;       "ADDR OF FCB CONNECTED TO CAP"
    USER           :INTEGER;       "ADDR OF UCB CONNECTED TO CAP"
    ACCEPTED       :BOOLEAN;       "FOR *ACCEPT* COMMAND"
    ACCESS         :ACCESS_TYPES;  "USERS ACCESS RIGHT TO FILE"
    CRAMSF         :INTEGER        "IDENTIFICATION OF CRAM SUBFILE
  END "CAP";



"FCB"
"---"

  "FCB_DIRTY_STATE:
  "---------------"
  CONST
    "FALSE    = 0;   BFD AND FILE NOT CHANGED"
    "TRUE     = 1;   BFD AND FILE CHANGED
     ONLY_BFD = 2;  "BFD CHANGED AND FILE NOT CHANGED

TYPE

  FCB=
  RECORD

    "CONTROL BLOCK ADMINISTRATION:"
    NEXT           :INTEGER;       "ADDR OF NEXT FREE FCB"
    STATE          :CB_STATE;      "STATE (FREE/USED OF FCB"

    "PTRS TO CONTROL BLOCKS:"
    DEV            :INTEGER;       "ADDR OF DCB OF THIS FILE'S DEVICE
    NEXTONDEV      :INTEGER;       "ADDR OF NEXT FCB ON DEVICE"
    FIRSTUSER      :INTEGER;       "ADDR OF FIRST CAP CONNECTED TO FCB"
    DBCB_PTR       :INTEGER;       "NONE, OR PTR TO THIS FILE'S DBCB

    "PHYSICAL ATTRIBUTES (MUST BE IN THE SAME ORDER AS IN A BFD ENTRY) :
    ORGANIZATION   :FILE_ORGANIZATION;
    SIZE_BYTE      :LONG;  "SIZE OF FILE IN BYTES"
    ALLOCSIZE      :LONG;  "NUMBER OF AREAS ALLOCATED TO FILE"
    AREASIZE       :INTEGER;       "SIZE OF AN AREA, IN SECTORS
    BODYADDR       :LONG;  "ADDR OF INDEX OR FIRST BLOCK IN FILE

    INBFD          :BOOLEAN;       "IS FILE IN BFD?"
    BFDNBR         :LONG;          "INDEX OF FILE IN BFD"
    LINKS          :INTEGER;       "NUMBER OF SFD REFERENCES TO FILE"

    DIRTY          :INTEGER;       "HAS ATTRIBUTES AND FILE CONTAINT BEEN CHANGED"
    DIRTY_BM_PAGE  :INTEGER;       "NBR OF MOST RECENTL DIRTIED BM PAGE

    LOCK           :SEMAPHORE;
    ENTER_COUNT    :INTEGER        "NUMBERS OF SFD ENTERED IN SFD.

  END "FCB";