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

⟦39dfb299b⟧ TextFile

    Length: 1152 (0x480)
    Types: TextFile
    Names: »SMSXP1«

Derivation

└─⟦5ca485322⟧ Bits:30005483 8" CR80 Floppy CR80FD_0201 ( Backup SL Disk-error 2u )
    └─⟦46ea90735⟧ 
        └─ ⟦this⟧ »JAS.SMSXP1«

TextFile

IF XPD EQ UTILITYLENGTH OR XPD EQ PROGLENGTH THEN
IF WORDS NE 0 THEN MESSAGE WORDS FI
AREASWITCH=1
USE PROG
LOC=PROG-1
        BMREENTRANT
        XREFS
        XBUFS
        XWORDS
        XPSIZE
        0,1,0,0,0,0
        XSIZE
        0
        XPRPC
IF LOC NE PROGLENGTH THEN MESSAGE <:ERROR: PROG LENGTH:> FI
FI

IF XPD GT PROGLENGTH THEN
USE BASE
LOC=BASE
        0,REPEAT 12
IF LOC NE PROC THEN MESSAGE <:ERROR: XPROC LOCATION:> FI
        0 REPEAT 7 ; REGISTERS
        0,0
        XPROGRAM
        XPRPC
        100
        0
        0
        LOCACT
        0
        0
        XDEVPR
        100
        0 REPEAT 12 ; TIME0 - FREEAREAS
       #FFFF
        0,0,0
        0 REPEAT 3 ; PRICHN - ADJUST
        XREFSX
        XBUFSX
IF XPD NE UTILITYLENGTH THEN
        XREFS=0
        XBUFS=1
FI
        0 REPEAT 20 ; RESTING - SAVE19
0,REPEAT CONTLENGTH-1
LOC=    LOC-C
IF LOC NE PROCLENGTH-C THEN MESSAGE <:ERROR: XPROC LENGTH:> FI

IF XPD GT PROCLENGTH THEN
        0,0,0
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
        LOCACT
        LOCACT
        XCURIN
        XCUROUT
        XCURWORK
        XCENTRY
        XWORKING
FI FI FI FI

XLOC=   LOC

MESSAGE <:START OF USER MODULE:>
«eof»