|
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: 2134 (0x856)
Types: TextFile
Names: »MS20D0.S«, »~ORPHAN_0x0038«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─ ⟦this⟧ »~ORPHAN_0x0038«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS20D0.S«
MESSAGE <:MS20D0.S V810311:>
;-----------------------------------------------------------------------
; SUBROUTINE MS20D0 - INITIALIZE IOCB FOR WRITE
; SUBROUTINE MS20F0 - TERMINATE OUTPUT TO IOCB
;
; REGISTERS CALL EXIT
; R4 LINK DEST
; R6 REF(IOCB) REF(IOCB)
; R0,R1,R2,R7 - DEST
; R3,R5 - UNCH
;
; INPUT: IOCB DATA
; OUTPUT: IOCB DATA
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS20D0: ; INIT IOCB FOR WRITE:
MOV R4 RL2000 ; SAVE RETURN LINK
MOV IOTYP. X6 R0 ; GET IOCB TYPE DESCRIPTOR
MOVC 0 R1 ;
IBN R0 IOBFIX ; IF FIKS RECORDS
MOVC 2 R1 ; THEN SETUP TO SKIP 2 BYTES
MOV R1 IOBNX. X6 ; ELSE CLEAR BUFFER INDEX
MOVC 1 R1 ; SETUP LINE COUNTER TO 1
MOV R1 IOLINE.X6 ;
JMPI RL2000 ; RETURN
;-----------------------------------------------------------------------
MS20F0: ; TERMINATE OUTPUT TO IOCB:
MOV R4 RL2000 ; SAVE RETURN LINK
MOV IOTYP. X6 R0 ; GET IOCB TYPE DESCRIPTOR
SBN R0 IOBFIX ; IF FIKS RECORDS
JMP MS20F4 ; THEN BEGIN FIKS
MOV IOBNX. X6 R1 ; GET BUFFER INDEX
INE R1 2 ; IF ANYTHING WRITTEN
JMPI S4 MI1030 ; THEN WRITE FIKS RECORD
JMP MS20F8 ; END
MS20F4: ; ELSE BEGIN FREE FORMAT
ION IOBNX. X6 ; IF ANYTHING WRITTEN
JMPI S4 MI1010 ; THEN WRITE BLOCK
MS20F8: ; END IF THEN ELSE
MOV IOFNX. X6 R0 ; GET FILE INDEX
MOV R0 IOFLT. X6 ; SAVE AS FILE LENGTH
JMPI RL2000 ; RETURN