|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 896 (0x380)
Types: TextFile
Names: »S8MXS1«
└─⟦d9c1548a9⟧ Bits:30005185 8" CR80 Floppy CR80FD_0182 ( UTILITIES FOR X25 HOH )
└─⟦851bd64f0⟧
└─ ⟦this⟧ »S8MXS1«
; 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»