|
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: 1808 (0x710)
Types: TextFile
Names: »MS5300.S«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS5300.S«
MESSAGE <:MS5300.S V810325:>
;-----------------------------------------------------------------------
; SUBROUTINE MS5300
; POSITION SOURCE
;
; REGISTERS CALL EXIT
; R0,R1,R2,R3,R5,R7 - DEST
; R4 LINK -
; R6 REF(IOCB) REF(IOCB)
;
; INPUT: FILE,IMSGRF
; OUTPUT: -
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS5300: ; POSITION SOURCE:
MOV R4 RL5000 ; SAVE RETURN LINK
MOV IOTYP. X6 R0 ; GET IOCB TYPE
SBN R0 IOBFIX ; IF FIKS RECORDS
JMP MS5308 ; THEN BEGIN
MS5302: ; SPOOL SOURCE UNTIL 'BT':
JMPI S4 MI1020 ; READ FIKS RECORD
JMPI & S4 MIE100 ;E FILE EMPTY-ERROR
JMPI S4 MI3600 ; TEST FOR 'BT'
JMP & MS5302 ; NOT BT - LOOPBACK TILL DONE
JMPI S4 MI1020 ; AFTER BT, READ NEXT RECORD
JMPI & S4 MIE100 ;E FILE EMPTY-ERROR
JMPI RL5000 ;R RETURN
MS5308: ; END ELSE BEGIN NICS RECORDS
MOV IMSGRF R5 ; GET SIGNAL HEADER LENGTH
IEQ R5 0 ; (RETURN AS DONE ON ZERO)
JMPI RL5000 ;R
MS530A: ; SPOOL SOURCE THAT MUCH:
JMPI S4 MI2000 ; READ BYTE
JMPI & S4 MIE100 ;E FILE EMPTY-ERROR
SOB R5 MS530A ; LOOPBACK TILL DONE
JMPI RL5000 ;R RETURN
; END IF THEN ELSE