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

⟦74c06700b⟧ TextFile

    Length: 1262 (0x4ee)
    Types: TextFile
    Names: »MS3010.S«, »~ORPHAN_0x003f«

Derivation

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

TextFile

MESSAGE <:MS3010.S V810217:>
;-----------------------------------------------------------------------
; SUBROUTINE MS3010
; SPLIT ANO
;
; REGISTERS          CALL               EXIT
; R0                 ANO                CODE
; R1                 -                  LETTER
; R2                 -                  NUMBER
; R4                 LINK               -
; R6                 REF(IOCB)          REF(IOCB)
;
; INPUT:   -
; OUTPUT:  BYTES TO IOCB
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS3010:                             ; SPLIT ANO:
        MOV          R4  RL3000     ;   SAVE RETURN LINK
        MOV          R0         R1  ;   DUPLICATE
        MOV          R1         R2  ;
                                        IF ANBCOD NE 0 THEN
        SRL          R0  ANBCOD         FI
        XTR          R0  ANXCOD     ;   EXTRACT CODE
                                        IF ANBLET NE 0 THEN
        SRL          R1  ANBLET         FI
        XTR          R1  ANXLET     ;   EXTRACT LETTER
                                        IF ANBNMB NE 0 THEN
        SRL          R2  ANBNMB         FI
        XTR          R2  ANXNMB     ;   EXTRACT NUMBER
        JMPI             RL3000     ;R  RETURN