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

⟦67a2e5887⟧ TextFile

    Length: 906 (0x38a)
    Types: TextFile
    Names: »MS5140.S«, »~ORPHAN_0x0042«

Derivation

└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
    └─⟦185cc4db7⟧ 
        └─ ⟦this⟧ »~ORPHAN_0x0042« 
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
    └─⟦f918199fd⟧ 
        └─ ⟦this⟧ »MS2.D!MS5140.S«

TextFile

MESSAGE <:MS5140.S V810217:>
;-----------------------------------------------------------------------
; SUBROUTINE MS5140
; WRITE SECURITY CLASS
;
; REGISTERS          CALL               EXIT
; R0                 SECUR VALUE        DEST
; R4                 LINK               DEST
; R6                 REF(IOCB)          REF(IOCB)
;
; INPUT:   -
; OUTPUT:  BYTES TO IOCB
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS5140:                             ; WRITE SECURITY CLASS:
        MOV          R4  RL5000     ;   SAVE RETURN LINK
        JMPI         S4  MI3200     ;   LOOKUP CLASS LANGUAGE
        JMPI  &      S4  MIE200     ;   INVALID - MSC ERROR
        JMPI         S4  MI300P     ;   WRITE STRING
        MOVC  LFCHAR            R0  ;   GET 'LF'
        JMPI         S4  MI2010     ;   WRITE IT
        JMPI             RL5000     ;   RETURN )