|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1862 (0x746)
Types: TextFile
Names: »MSD320.S«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MSD320.S«
MESSAGE <:MSD320.S V810324:>
;-----------------------------------------------------------------------
; SUBROUTINE MSD320
; SWITCH FILES BETWEEN PASS 1 AND 2.
;
; CALL TO: MON STREAM, (CONNECT,DISCONNECT,SETPOSITION,FLUSH)
;
; 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)
;-----------------------------------------------------------------------
MSD320: ; SWITCH FILES:
MOV R4 RLD000 ; SAVE RETURN LINK
; BEGIN INPUT FILE:
MOVC SRCIO R6 ; GET IOCB ADDR
MOV IOST. X6 R4 ; GET STREAM HANDLE
MOVC BHELGT R1 ; SKIP BINARY HEADER
MON STREAM, SETPOSITION;
JMPI & S4 MIE100 ;E (NOT SKIPPED)
; BEGIN OUTPUT FILE:
; BEGIN TEMP FILE:
MOVC TEMPIO R6 ; GET IOCB ADDR
MOV IOST. X6 R4 ; GET STREAM HANDLE
MON STREAM, FLUSH ; WRITE BUFFERS TO FILE
JMPI & S4 MIE100 ;E (NOT FLUSHED)
MON STREAM, DISCONNECT ; DISCONNECT STREAM
JMPI & S4 MIE100 ;E (NOT DISCONNECTED)
MOVC 0 R3 ; CONNECT FOR INPUT
MON STREAM, CONNECT ;
JMPI & S4 MIE100 ;E (NOT CONNECTED)
MOVC 0 R1 ; SET FILE POSITION TO ZERO
MON STREAM, SETPOSITION;
JMPI & S4 MIE100 ;E (NOT SET)
JMPI RLD000 ;R RETURN