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

⟦b2ea8e12d⟧ TextFile

    Length: 1024 (0x400)
    Types: TextFile
    Names: »S8MXS2«

Derivation

└─⟦d9c1548a9⟧ Bits:30005185 8" CR80 Floppy CR80FD_0182 ( UTILITIES FOR X25 HOH )
    └─⟦851bd64f0⟧ 
        └─ ⟦this⟧ »S8MXS2«

TextFile

; CR80 SYSTEM ONE
; MONITOR

; MASTER: XSH - SHARE DESCRIPTOR (PART 2)

; FP/780530

        IF XSMODE>BNBYTE THEN XSFACTOR=2
          IF XSBUFSIZE THEN   XSFILL=1
          ELSE                XSFILL=0
          FI
        ELSE                  XSFACTOR=1
                              XSFILL=0
        FI
        XSNAME0=      0
        XSNAME1=      0
        XSNAME2=      0
        XSIDENT=      0
        XSFIRST=      (LOC+XSBUFFERS*BUFFERLENGTH)*XSFACTOR
        XSTOP=        XSFIRST
        IF XSMODE>BNOPUT THEN XSREM= XSBUFSIZE
        ELSE                  XSREM= 0
        FI
        XSUSED=       LOC

        XSBUFFER=     XSBUFFERS*(XSBUFSIZE+XSFILL)
        XSBUFAREA=    (XSUSED+XSBUFFERS*BUFFERLENGTH)*XSFACTOR
IF XSBUFFERS GT 0 THEN
        0 REPEAT BFIRST-1
        XSBUFAREA,    XSBUFAREA=XSBUFAREA+XSBUFSIZE+XSFILL
        IF XSBUFFERS GT 1 THEN
                      LOC-BNEXT+BUFFERLENGTH
        ELSE          XSUSED
        FI
        XSBUFFERS=XSBUFFERS-1
FI
IF XSBUFFERS GT 0 THEN
        0 REPEAT BFIRST-1
        XSBUFAREA,    XSBUFAREA=XSBUFAREA+XSBUFSIZE+XSFILL
        IF XSBUFFERS GT 1 THEN
                      LOC-BNEXT+BUFFERLENGTH
        ELSE          XSUSED
        FI
        XSBUFFERS=XSBUFFERS-1
FI

IF XSMODE>BNBYTE AN (NT XSKIND>BNBYTE) AN XSBUFAREA>15 THEN
  MESSAGE <:ADDR TOO BIG:>
FI

IF XSBUFFER GT 0 THEN
        0 REPEAT (XSBUFFER-1)/XSFACTOR
FI
«eof»