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

⟦b2a5e0a1a⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »S8MXD1«

Derivation

└─⟦dbca894e8⟧ Bits:30005524 8" CR80 Floppy CR80FD_0189 ( CR/D/0435 SYS-BOOT SYS-GEN modules NB: Block 12 (Backup) is bad )
    └─⟦309782b6a⟧ 
        └─ ⟦this⟧ »SL.S8MXD1« 
└─⟦d9c1548a9⟧ Bits:30005185 8" CR80 Floppy CR80FD_0182 ( UTILITIES FOR X25 HOH )
    └─⟦851bd64f0⟧ 
        └─ ⟦this⟧ »S8MXD1« 
└─⟦548cf593d⟧ Bits:30005189 8" CR80 Floppy CR80FD_0186 ( SYSTEM BOOT, GSB AOUT, MP, OC, FLOPPY BACKUP-DISK Start 26F Base 14E2 )
    └─⟦daba3b0d5⟧ 
        └─ ⟦this⟧ »JAS.S8MXD1«

TextFile


; CR80 SYSTEM ONE
; MONITOR

; MASTER: XPD - PROCESS DESCRIPTION (PART 1)
; SHORTENED VERSION, ONLY FOR USE IN CONNECTION WITH PROGRAMS
; TO BE INCLUDED IN SYSTEM (XPD= PROCLENGTH, DRIVERLENGTH, OR
; CATALOGLENGTH).
; 
; FP/780523
;

MESSAGE <:CALL: S8MXD1, 780523:>

IF XPD NE PROCLH AN XPD NE DRIVEH AN XPD NE CATALH THEN
MESSAGE <:*** WRONG SYSTEM FILE USAGE ***:> FI

USE BASE
LOC=BASE
        XSTATE
        0,0,0
        XSIZE
        0
        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
        0,0
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
        XREFS=0
        XBUFS=1

        0 REPEAT 20 ; RESTING - SAVE19
XWRK:   0 REPEAT CONTLENGTH-1
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

 FI FI

XLOC=   LOC

«eof»