|
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: 1480 (0x5c8)
Types: TextFile
Names: »MS1010.S«, »~ORPHAN_0x0030«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─ ⟦this⟧ »~ORPHAN_0x0030«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS1010.S«
MESSAGE <:MS1010.S V810311:>
;-----------------------------------------------------------------------
; SUBROUTINE MS1010
; WRITE BLOCK TO DISK.
;
; CALL TO: MON STREAM, OUTREC
;
; REGISTERS CALL EXIT
; R4 LINK DEST
; R6 REF(IOCB) REF(IOCB)
; R0,R1,R2,R7 - DEST
; R3,R5 - UNCHANGED
;
; INPUT: IOCB DATA, IOBUF.IOCB DATA
; OUTPUT: IOCB DATA, FILE
; EXIT TO: LINK+0 (DONE)
; MSE120 (ERROR)
;-----------------------------------------------------------------------
MS1010: ; WRITE BLOCK:
MOV R4 RL1000 ; SAVE RETURN LINK
MOV R3 WK1000 ; SAVE R3
MOV IOBNX. X6 R2 ; POSITION BLOCK SIZE
MOV R2 IOBLT. X6 ; SAVE
MOV IOBUF. X6 R1 ; GET BUFFER ADDRESS
MOV IOST. X6 R4 ; GET STREAM DESCRIPTOR
MON STREAM, OUTREC ; PERFORM BLOCKIO
JMPI & S4 MIE120 ; EXIT0-ERROR
MOD IOBLT. X6 ; IF NOT MADE WHAT REQUESTED
INE R2 0 ;
JMPI S4 MIE100 ; THEN FILE ERROR
ADD R2 IOFNX. X6 ; UPDATE FILE INDEX
CLR IOBNX. X6 ; CLEAR BUFFER INDEX
MOV WK1000 R3 ; RESTORE R3
JMPI RL1000 ; RETURN