|
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: 2698 (0xa8a)
Types: TextFile
Names: »MSD3F0.S«, »~ORPHAN_0x0039«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─ ⟦this⟧ »~ORPHAN_0x0039«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MSD3F0.S«
MESSAGE <:MSD3F0.S V810324:>
;-----------------------------------------------------------------------
; SUBROUTINE MSD3F0
; DISCONNECT FILES.
;
; CALL TO: MON STREAM, (OUTREC,FLUSH,SETPOSITION,DISCONNECT)
; MON IO, (DISMANTLE)
;
; REGISTERS CALL EXIT
; R0,R1,R2,R3,R6,R7 - DEST
; R4 LINK DEST
; R5 NOT USED
;
; INPUT: IOST.IOCB'S
; OUTPUT: OBJECT FILE BINARY HEADER
; EXIT TO: LINK+0 (OK)
; MSE100 (FILE ERROR)
; MSE120 (WRITE ERROR)
;-----------------------------------------------------------------------
MSD3F0: ; DISCONNECT FILES:
MOV R4 RLD000 ; SAVE RETURN LINK
; BEGIN INPUT FILE:
MOVC SRCIO R6 ; GET IOCB ADDR
MOV IOST. X6 R4 ; GET STREAM HANDLE
MON STREAM, DISCONNECT ; DISCONNECT STREAM
JMPI & S4 MIE100 ;E (NOT DISCONNECTED)
MON IO, DISMANTLE ; DISMANTLE FILE
JMPI & S4 MIE100 ;E (NOT DISMANTLED)
; BEGIN OUTPUT FILE:
MOVC OBJIO R6 ; GET IOCB ADDR
MOV IOST. X6 R4 ; GET STREAM HANDLE
MON STREAM, FLUSH ; TERMINATE OUTPUT
JMPI & S4 MIE100 ;E (NOT FLUSHED)
MOVC 0 R1 ; SET FILE POSITION TO ZERO
MON STREAM, SETPOSITION;
JMPI & S4 MIE100 ;E (NOT SET)
MOVC OBINHD R1 ; GET BINARY HEADER IMAGE
MOVC BHELGT R2 ; AND BYTE LENGTH
MON STREAM, OUTREC ; WRITE BINARY HEADER
JMPI & S4 MIE120 ;E (NOT WRITTEN)
MON STREAM, FLUSH ; TERMINATE OUTPUT
JMPI & S4 MIE100 ;E (NOT FLUSHED)
MON STREAM, DISCONNECT ; DISCONNECT STREAM
JMPI & S4 MIE100 ;E (NOT DISCONNECTED)
MON IO, DISMANTLE ; DISMANTLE FILE
JMPI & S4 MIE100 ;E (NOT DISMANTLED)
; BEGIN TEMP FILE:
MOVC TEMPIO R6 ; GET IOCB ADDR
MOV IOST. X6 R4 ; GET STREAM HANDLE
MON STREAM, DISCONNECT ; DISCONNECT STREAM
JMPI & S4 MIE100 ;E (NOT DISCONNECTED)
MON IO, DISMANTLE ; DISMANTLE FILE
JMPI & S4 MIE100 ;E (NOT DISMANTLED)
JMPI RLD000 ;R RETURN