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

⟦9dc454b72⟧ TextFile

    Length: 2816 (0xb00)
    Types: TextFile
    Names: »S8MXD2«

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.S8MXD2« 
└─⟦548cf593d⟧ Bits:30005189 8" CR80 Floppy CR80FD_0186 ( SYSTEM BOOT, GSB AOUT, MP, OC, FLOPPY BACKUP-DISK Start 26F Base 14E2 )
    └─⟦daba3b0d5⟧ 
        └─ ⟦this⟧ »JAS.S8MXD2«

TextFile


; CR80 SYSTEM ONE
; MONITOR

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

MESSAGE <:CALL: S8MXD2, 780725:>

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

USE BASE
XLOC=   LOC-XLOC-C
        XSTATE=       0
        XKIND=        0
        XNAME0=       0
        XNAME1=       0
        XNAME2=       0
        XIDENT=       0
        XCBASE=       0
        XCBASEMOD=    0
        XPRPC=        0
        XTIMER=       100
        XPSW=         0
        XOLDPROC=     0
        XLOCACTION=   LOCACT
        XLOCRETURN=   0
        XCAUSE=       0
        XDEVPR=       0
        XPRESET=      100
        XERROR=       0
        XWARNING=     0
        XTERMINATE=   0
        XRESERVER=    0
        XDEVICE=      0
        XINTERRUPT=   0

        IF XREFS EQ 0 THEN XREFSX=0
        ELSE               XREFSX:
RL=     REFLENGTH
IF XREFS GT 0 THEN XREFS=XREFS-1,0,0,LOC+RL-NEXT,0 REPEAT RL-4 FI
IF XREFS GT 0 THEN XREFS=XREFS-1,0,0,LOC+RL-NEXT,0 REPEAT RL-4 FI
IF XREFS GT 0 THEN XREFS=XREFS-1,0,0,LOC+RL-NEXT,0 REPEAT RL-4 FI
IF XREFS GT 0 THEN XREFS=XREFS-1,0,0,LOC+RL-NEXT,0 REPEAT RL-4 FI
IF XREFS GT 0 THEN XREFS=XREFS-1,0,0,LOC+RL-NEXT,0 REPEAT RL-4 FI
IF XREFS GT 0 THEN XREFS=XREFS-1,0,0,LOC+RL-NEXT,0 REPEAT RL-4 FI
IF XREFS GT 0 THEN XREFS=XREFS-1,0,0,LOC+RL-NEXT,0 REPEAT RL-4 FI
IF XREFS GT 0 THEN XREFS=XREFS-1,0,0,LOC+RL-NEXT,0 REPEAT RL-4 FI
IF XREFS GT 0 THEN XREFS=XREFS-1,0,0,LOC+RL-NEXT,0 REPEAT RL-4 FI
IF XREFS GT 0 THEN XREFS=XREFS-1,0,0,LOC+RL-NEXT,0 REPEAT RL-4 FI
IF XREFS GT 0 THEN XREFS=XREFS-1,0,0,LOC+RL-NEXT,0 REPEAT RL-4 FI
IF XREFS GT 0 THEN XREFS=XREFS-1,0,0,LOC+RL-NEXT,0 REPEAT RL-4 FI
IF XREFS GT 0 THEN XREFS=XREFS-1,0,0,LOC+RL-NEXT,0 REPEAT RL-4 FI
IF XREFS NE 0 THEN MESSAGE <:TOO MANY REFS CLAIMED, 13 MADE:> FI
0,REPEAT REFLENGTH-1
        FI
        IF XBUFS EQ 0 THEN XBUFSX=0
        ELSE               XBUFSX:
BL=     BUFLENGTH
IF XBUFS GT 0 THEN XBUFS=XBUFS-1,0,0,LOC+BL-NEXT,0 REPEAT BL-4 FI
IF XBUFS GT 0 THEN XBUFS=XBUFS-1,0,0,LOC+BL-NEXT,0 REPEAT BL-4 FI
IF XBUFS GT 0 THEN XBUFS=XBUFS-1,0,0,LOC+BL-NEXT,0 REPEAT BL-4 FI
IF XBUFS GT 0 THEN XBUFS=XBUFS-1,0,0,LOC+BL-NEXT,0 REPEAT BL-4 FI
IF XBUFS GT 0 THEN XBUFS=XBUFS-1,0,0,LOC+BL-NEXT,0 REPEAT BL-4 FI
IF XBUFS GT 0 THEN XBUFS=XBUFS-1,0,0,LOC+BL-NEXT,0 REPEAT BL-4 FI
IF XBUFS GT 0 THEN XBUFS=XBUFS-1,0,0,LOC+BL-NEXT,0 REPEAT BL-4 FI
IF XBUFS GT 0 THEN XBUFS=XBUFS-1,0,0,LOC+BL-NEXT,0 REPEAT BL-4 FI
IF XBUFS GT 0 THEN XBUFS=XBUFS-1,0,0,LOC+BL-NEXT,0 REPEAT BL-4 FI
IF XBUFS GT 0 THEN XBUFS=XBUFS-1,0,0,LOC+BL-NEXT,0 REPEAT BL-4 FI
IF XBUFS GT 0 THEN XBUFS=XBUFS-1,0,0,LOC+BL-NEXT,0 REPEAT BL-4 FI
IF XBUFS GT 0 THEN XBUFS=XBUFS-1,0,0,LOC+BL-NEXT,0 REPEAT BL-4 FI
IF XBUFS GT 0 THEN XBUFS=XBUFS-1,0,0,LOC+BL-NEXT,0 REPEAT BL-4 FI
IF XBUFS NE 0 THEN MESSAGE <:TOO MANY BUFS CLAIMED, 13 MADE:> FI
0,REPEAT BUFLENGTH-1
        FI

        XSIZE=        LOC-ITEM
        XPROGRAM=     LOC

USE PROG
IF LOC+XSIZE NE WORDS THEN MESSAGE <:ERROR: LOC+XSIZE<>WORDS:> FI

USE BASE
«eof»