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

⟦2d1d551bb⟧ TextFile

    Length: 1170 (0x492)
    Types: TextFile
    Names: »MSD330.S«

Derivation

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

TextFile

MESSAGE <:MSD330.S V810324:>
;-----------------------------------------------------------------------
; SUBROUTINE MSD330
; SWITCH FILES BETWEEN PASS 2 AND 3.
;
; CALL TO:    MON    STREAM,    (SETPOSITION)
;
; REGISTERS          CALL               EXIT
; R0,R1,R2,R3,R6,R7  -                  DEST
; R4                 LINK               DEST
; R5                                    NOT USED
;
; INPUT:   IOST.IOCB'S
; OUTPUT:  -
; EXIT TO: LINK+0    (OK)
;          MSE100    (FILE ERROR)
;-----------------------------------------------------------------------
MSD330:                             ; SWITCH FILES:
        MOV          R4  RLD000     ;   SAVE RETURN LINK
                                    ;   BEGIN INPUT FILE:
                                    ;   BEGIN OUTPUT FILE:
                                    ;   BEGIN TEMP FILE:
        MOVC  TEMPIO            R6  ;     GET IOCB ADDR
        MOV   IOST.  X6         R4  ;     GET STREAM HANDLE
        MOVC  0                 R1  ;     SET FILE POSITION TO ZERO
        MON   STREAM,    SETPOSITION;  
        JMPI  &      S4  MIE100     ;E    (NOT SET)
        JMPI             RLD000     ;R  RETURN