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

⟦dba595be8⟧ TextFile

    Length: 2048 (0x800)
    Types: TextFile
    Names: »S8MXP1«

Derivation

└─⟦5ca485322⟧ Bits:30005483 8" CR80 Floppy CR80FD_0201 ( Backup SL Disk-error 2u )
    └─⟦46ea90735⟧ 
        └─⟦this⟧ »S8MXP1« 
└─⟦d9c1548a9⟧ Bits:30005185 8" CR80 Floppy CR80FD_0182 ( UTILITIES FOR X25 HOH )
    └─⟦851bd64f0⟧ 
        └─⟦this⟧ »S8MXP1«

TextFile


; CR80 SYSTEM ONE
; MONITOR

; MASTER: XPD - PROCESS DESCRIPTION (PART 1)


IF XPD EQ UTILITYLENGTH OR XPD EQ PROGLENGTH THEN
IF WORDS NE 0 THEN MESSAGE WORDS FI
AREASWITCH=1
USE PROG
LOC=PROG-1
        XPSTATE
        XREFS
        XBUFS
        XWORDS
        XPSIZE
        XCHAIN
        XPCOUNT
IF LOC NE NAME THEN MESSAGE <:ERROR: PROG NAME:> FI
XPNAME: XPNAME0
IF NAMELENGTH GT 1 THEN
        XPNAME1
IF NAMELENGTH GT 2 THEN
        XPNAME2
IF NAMELENGTH GT 3 THEN
        0 REPEAT NAMELENGTH-3-1
FI FI FI
IF LOC-XPNAME NE NAMELENGTH THEN MESSAGE <:ERROR: XPNAME LENGTH:> FI
        XIDENT
        XSIZE
        XPROGRAM
        XPRPC
IF LOC NE PROGLENGTH THEN MESSAGE <:ERROR: PROG LENGTH:> FI
FI

IF XPD GT PROGLENGTH THEN
USE BASE
LOC=BASE
        XSTATE
        XPARENT
        XNEXT
        XCHILD
        XSIZE
        XCHAIN
        XKIND
XNAME:  XNAME0
IF NAMELENGTH GT 1 THEN
        XNAME1
IF NAMELENGTH GT 2 THEN
        XNAME2
IF NAMELENGTH GT 3 THEN
        0 REPEAT NAMELENGTH-3-1
FI FI FI
IF LOC-XNAME NE NAMELENGTH THEN MESSAGE <:ERROR: XNAME LENGTH:> FI
        XIDENT
        XPROCIDENT
        XDEBUG
IF LOC NE PROC THEN MESSAGE <:ERROR: XPROC LOCATION:> FI
        0 REPEAT 7 ; REGISTERS
        XCBASE
        XCBASEMOD
        XPROGRAM
        XPRPC
        XTIMER
        XPSW
        XOLDPROC
        XLOCACTION
        XLOCRETURN
        XCAUSE
        XDEVPR
        XPRESET
        0 REPEAT 12 ; TIME0 - FREEAREAS
       #FFFF
        XERROR
        XWARNING
        XTERMINATE
        0 REPEAT 3 ; PRICHN - ADJUST
        XREFSX
        XBUFSX
IF XPD NE UTILITYLENGTH THEN
        XREFS=0
        XBUFS=1
FI
        0 REPEAT 20 ; RESTING - SAVE19
XWRK:   0
IF CONTLENGTH GT 1 THEN
        0
IF CONTLENGTH GT 2 THEN
        0
IF CONTLENGTH GT 3 THEN
        0
IF CONTLENGTH GT 4 THEN
        0
IF CONTLENGTH GT 5 THEN
        0 REPEAT CONTLENGTH-5-1
FI FI FI FI FI
IF LOC-XWRK NE CONTLENGTH THEN MESSAGE <:ERROR: XWRK LENGTH:> FI
LOC=    LOC-C
IF LOC NE PROCLENGTH-C THEN MESSAGE <:ERROR: XPROC LENGTH:> FI

IF XPD GT PROCLENGTH THEN
        XRESERVER
        XDEVICE
        XINTERRUPT
IF LOC NE DRIVERLENGTH-C THEN MESSAGE <:ERROR: XDRIVER LENGTH:> FI

IF XPD GT DRIVERLENGTH THEN
        0 REPEAT 2 ; ESPECIAL - CATALOG
IF LOC NE CATALOGLENGTH-C THEN MESSAGE <:ERROR: XCATALOG LENGTH:> FI

IF XPD GT CATALOGLENGTH THEN
        XACTION
        XEOFACTION
        XCURIN
        XCUROUT
        XCURWORK
        XCENTRY
        XWORKING
FI FI FI FI

XLOC=   LOC

«eof»