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 - metrics - download

⟦2ce2029fb⟧ TextFile

    Length: 896 (0x380)
    Types: TextFile
    Names: »S8MXS1«

Derivation

└─⟦d9c1548a9⟧ Bits:30005185 8" CR80 Floppy CR80FD_0182 ( UTILITIES FOR X25 HOH )
    └─⟦851bd64f0⟧ 
        └─⟦this⟧ »S8MXS1«

TextFile

; CR80 SYSTEM ONE
; MONITOR

; MASTER: XSH - SHARE DESCRIPTOR (PART 1)
; FP/780530

XSHARE:
XSNAME: XSNAME0
IF NAMELENGTH GT 1 THEN
        XSNAME1
IF NAMELENGTH GT 2 THEN
        XSNAME2
IF NAMELENGTH GT 3 THEN
        0 REPEAT NAMELENGTH-3-1
FI FI FI
IF LOC-XSNAME NE NAMELENGTH THEN MESSAGE <:ERROR: XSNAME LENGTH:> FI
        XSIDENT
        0 ; SPROCIDENT
        XSMODE
        XSKIND
        0 REPEAT 6 ; SMASK - SFILE
        XSFIRST
        XSTOP
        XSREM
        XSBUFSIZE
        XSUSED
XSSID:  0
IF IDLENGTH GT 1 THEN
        0
IF IDLENGTH GT 2 THEN
        0
IF IDLENGTH GT 3 THEN
        0 REPEAT IDLENGTH-3-1
FI FI FI
IF LOC-XSSID NE IDLENGTH THEN MESSAGE <:ERROR: XSSID LENGTH:> FI
        0
IF LOC-XSSID NE STACKLENGTH THEN MESSAGE <:ERROR: STACK LENGTH:> FI
        0 REPEAT 9 ; SSAVE0 - SSAVE9
IF LOC-XSHARE NE SHARELENGTH THEN MESSAGE <:ERROR: XSHARE LENGTH:> FI

        XSBUFFERS=    1
«eof»