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

⟦afd9aae04⟧ TextFile

    Length: 5120 (0x1400)
    Types: TextFile
    Names: »S8MXD2«

Derivation

└─⟦d9c1548a9⟧ Bits:30005185 8" CR80 Floppy CR80FD_0182 ( UTILITIES FOR X25 HOH )
    └─⟦851bd64f0⟧ 
        └─ ⟦this⟧ »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/780621
;

MESSAGE <:CALL: S8MXD2, 780621:>

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:
        IF XREFS GT 13 THEN
        XREFS=XREFS-13
        0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        FI
        XREFS=XREFS-1
        IF XREFS EQ 0 THEN
          0 REPEAT REFLENGTH-1
        ELSE
          0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        XREFS=XREFS-1
        IF XREFS EQ 0 THEN
          0 REPEAT REFLENGTH-1
        ELSE
          0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        XREFS=XREFS-1
        IF XREFS EQ 0 THEN
          0 REPEAT REFLENGTH-1
        ELSE
          0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        XREFS=XREFS-1
        IF XREFS EQ 0 THEN
          0 REPEAT REFLENGTH-1
        ELSE
          0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        XREFS=XREFS-1
        IF XREFS EQ 0 THEN
          0 REPEAT REFLENGTH-1
        ELSE
          0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        XREFS=XREFS-1
        IF XREFS EQ 0 THEN
          0 REPEAT REFLENGTH-1
        ELSE
          0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        XREFS=XREFS-1
        IF XREFS EQ 0 THEN
          0 REPEAT REFLENGTH-1
        ELSE
          0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        XREFS=XREFS-1
        IF XREFS EQ 0 THEN
          0 REPEAT REFLENGTH-1
        ELSE
          0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        XREFS=XREFS-1
        IF XREFS EQ 0 THEN
          0 REPEAT REFLENGTH-1
        ELSE
          0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        XREFS=XREFS-1
        IF XREFS EQ 0 THEN
          0 REPEAT REFLENGTH-1
        ELSE
          0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        XREFS=XREFS-1
        IF XREFS EQ 0 THEN
          0 REPEAT REFLENGTH-1
        ELSE
          0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        XREFS=XREFS-1
        IF XREFS EQ 0 THEN
          0 REPEAT REFLENGTH-1
        ELSE
          0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        XREFS=XREFS-1
        IF XREFS EQ 0 THEN
          0 REPEAT REFLENGTH-1
        ELSE
          0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4
        FI FI FI FI FI FI FI FI FI FI FI FI FI FI 
        IF XBUFS EQ 0 THEN XBUFSX=0
        ELSE               XBUFSX:
        IF XBUFS GT 13 THEN
        XBUFS=XBUFS-13
        0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        FI
        XBUFS=XBUFS-1
        IF XBUFS EQ 0 THEN
          0 REPEAT BUFLENGTH-1
        ELSE
          0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        XBUFS=XBUFS-1
        IF XBUFS EQ 0 THEN
          0 REPEAT BUFLENGTH-1
        ELSE
          0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        XBUFS=XBUFS-1
        IF XBUFS EQ 0 THEN
          0 REPEAT BUFLENGTH-1
        ELSE
          0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        XBUFS=XBUFS-1
        IF XBUFS EQ 0 THEN
          0 REPEAT BUFLENGTH-1
        ELSE
          0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        XBUFS=XBUFS-1
        IF XBUFS EQ 0 THEN
          0 REPEAT BUFLENGTH-1
        ELSE
          0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        XBUFS=XBUFS-1
        IF XBUFS EQ 0 THEN
          0 REPEAT BUFLENGTH-1
        ELSE
          0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        XBUFS=XBUFS-1
        IF XBUFS EQ 0 THEN
          0 REPEAT BUFLENGTH-1
        ELSE
          0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        XBUFS=XBUFS-1
        IF XBUFS EQ 0 THEN
          0 REPEAT BUFLENGTH-1
        ELSE
          0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        XBUFS=XBUFS-1
        IF XBUFS EQ 0 THEN
          0 REPEAT BUFLENGTH-1
        ELSE
          0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        XBUFS=XBUFS-1
        IF XBUFS EQ 0 THEN
          0 REPEAT BUFLENGTH-1
        ELSE
          0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        XBUFS=XBUFS-1
        IF XBUFS EQ 0 THEN
          0 REPEAT BUFLENGTH-1
        ELSE
          0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        XBUFS=XBUFS-1
        IF XBUFS EQ 0 THEN
          0 REPEAT BUFLENGTH-1
        ELSE
          0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        XBUFS=XBUFS-1
        IF XBUFS EQ 0 THEN
          0 REPEAT BUFLENGTH-1
        ELSE
          0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4
        FI FI FI FI FI FI FI FI FI FI FI FI FI FI 



        XSIZE=        LOC-ITEM
        XPROGRAM=     LOC

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

USE BASE
«eof»