|
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: 1566 (0x61e)
Types: TextFile
Names: »MS5200.S«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS5200.S«
MESSAGE <:MS5200.S V810326:>
;-----------------------------------------------------------------------
; SUBROUTINE MS5200
; OPEN BINARY HEADERS.
;
; REGISTERS CALL EXIT
; R0,R1,R2,R5 - DEST
; R4 LINK DEST
; R3,R6,R7 NOT USED
;
; INPUT: IBINHD DATA (PACKED SOURCE BINARY HEADER)
; OUTPUT: IXXXXX VARIABLES (UNPACKED VALUES RELATIVE TO START OF ASCII)
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS5200: ; OPEN BINARY HEADERS:
MOV R4 RL5000 ; SAVE RETURN LINK
MOVC IBINHD R5 ; GET SOURCE BINARY HEADER
MOV R5 R4 ; DUPLICATE
SLL R4 1 ; GET SAME, BYTE ADDR
MOVB BHTYP. X4 R0 ; GET MESSAGE TYPE
INE R0 0 ; IF NOT ZERO (NARRATIVE)
JMPI S4 MIE100 ;E THEN CALL FILE ERROR
MOV BHALO/2. X5 R0 ; GET ADDRESS LIST OFFSET
IEQ R0 0 ; IF ZERO
JMPI S4 MIE100 ;E THEN CALL FILE ERROR
ADDC -BHELGT R0 ; MAKE RELATIVE
MOV R0 IADREF ; SAVE
MOV BHIREF/2.X5 R0 ; GET MSG-ID REFERENCE
MOV R0 IIDREF ; SAVE
MOV BHSHL/2 .X5 R0 ; GET SIGNAL HEADER LENGTH
MOV R0 IMSGRF ; SAVE
JMPI RL5000 ;R RETURN