|
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: 1682 (0x692)
Types: TextFile
Names: »MS6040.S«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS6040.S«
MESSAGE <:MS6040.S V810325:>
;-----------------------------------------------------------------------
; SUBROUTINE MS6040
; WRITE SMF FORMATS M THROUGH R
;
; REGISTERS CALL EXIT
; R4 LINK DEST
; R0-R7 - DEST
;
; INPUT: SOURCE FILE, ASECUR
; OUTPUT: OBJECT FILE (REMAINING TEXT), AMSGRF, AADREF
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS6040: ; WRITE SMF FORMATS M THROUGH R:
MOV R4 RL6000 ; SAVE RETURN LINK
MOVC OBJIO R6 ; GET OUTPUT FILE
JMP S5 MS6042 ; ACCESS SMF CONSTANT
<:BT:>,LFCHAR ; SMF 'L'
MS6042: ;
JMPI S4 MI300P ; WRITE PROGREL DATA STRING
MOV ASECUR R0 ; GET MESSAGE SECURITY
JMPI S4 MI5140 ; WRITE SMF 'M'
MOVC OBJIO R6 ; GET OUTPUT FILE
JMPI S4 MI3700 ; PROVIDE FILE INDEX
MOV R0 AMSGRF ; SAVE AS SIGNAL HEADER LENGTH
JMPI S4 MI5400 ; COPY ENTIRE ACP MESSAGE
MOVC OBJIO R6 ; GET OUTPUT FILE
JMP S5 MS604A ; ACCESS SMF CONSTANT
<:BT:>,LFCHAR ; SMF 'Q'
MS604A: ;
JMPI S4 MI300P ; WRITE PROGREL DATA STRING
JMPI S4 MI3700 ; PROVIDE FILE INDEX
MOV R0 AADREF ; SAVE AS ADDRESS LIST OFFSET
JMPI RL6000 ;R RETURN H