|
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: 1968 (0x7b0)
Types: TextFile
Names: »MS6020.S«, »~ORPHAN_0x0044«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─ ⟦this⟧ »~ORPHAN_0x0044«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS6020.S«
MESSAGE <:MS6020.S V810326:>
;-----------------------------------------------------------------------
; SUBROUTINE MS6020
; WRITE SMF LINE 2
;
; REGISTERS CALL EXIT
; R4 LINK DEST
; R0-R7 - DEST
;
; INPUT: INPID (INTERNAL CONVERSION ONLY)
; OUTPUT: OBJECT FILE 2ND RECORD
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS6020: ; WRITE SMF LINE 2:
MOV R4 RL6000 ; SAVE RETURN LINK
MOVC OBJIO R6 ; GET OUTPUT FILE DESCR. ADDR
JMP S5 MS6022 ; ACCESS SMF 'E' CONSTANT
<:FM :> ; SMF 'E'
MS6022: ;
JMPI S4 MI300P ; WRITE PGREL DATA STRING
MODC SRCIO ; PROVIDE SOURCE FILE DESCR. ADDR
MOV IOTYP R0 ; GET SOURCE TYPE DESCRIPTOR
SBN R0 IOBFIX ; IF FIKS RECORDS
; (WHICH IS INTERNAL CONVERSION)
JMP MS6024 ; THEN BEGIN INTERNAL
MOVC INPID R5 ; GET SOURCE MSGID ADDR
IEQ X5 0 ; IF MSG_ID NOT PRESENT
JMPI S4 MIE100 ;E THEN FILE ERROR
JMPI S4 MI300B ; WRITE BASREL DATASTRING
JMP MS6028 ; END INTERNAL
MS6024: ; ELSE BEGIN EXTERNAL
JMP S5 MS6026 ; ACCESS SMF 'F' CONSTANT
<:NICS TARE:> ; SMF 'F' (EXTERNAL ONLY)
MS6026: ;
JMPI S4 MI300P ; WRITE PGREL DATA STRING
MS6028: ; END INTERNAL/EXTERNAL
MOVC LFCHAR R0 ; GET 'LF'
JMPI S4 MI2010 ; TERMINATE LINE
JMPI RL6000 ;R RETURN -