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

⟦bd3e6612d⟧ TextFile

    Length: 916 (0x394)
    Types: TextFile
    Names: »MS3700.S«

Derivation

└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
    └─⟦f918199fd⟧ 
        └─ ⟦this⟧ »MS2.D!MS3700.S«

TextFile

MESSAGE <:MS3700.S V810324:>
;-----------------------------------------------------------------------
; SUBROUTINE MS3700
; PROVIDE FILE INDEX
;
; REGISTERS          CALL               EXIT
; R0                 -                  FILE INDEX
; R4                 LINK               -
; R6                 REF(IOCB)          REF(IOCB)
; R1                 -                  DEST
; R2,R3,R5,R7                           NOT USED
;
; INPUT:   IOCB INDICES
; OUTPUT:  -
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS3700:                             ; PROVIDE FILE INDEX:
        MOV   IOBNX. X6         R1  ;   GET FILE TYPE
                                    ;   SAME ALGORITHM NICS/FIKS RECORDS
        MOV   IOFNX. X6         R0  ;   GET INDEX OF 1ST BYTE
        ADD   IOBNX. X6         R0  ;   ADD INDEX OF BUFFER
        JMP              0.     X4  ;R  RETURN