|
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: 1790 (0x6fe)
Types: TextFile
Names: »MS7100.S«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS7100.S«
MESSAGE <:MS7100.S V810326:>
;-----------------------------------------------------------------------
; SUBROUTINE MS7100
; EXECUTE PASS 1.
;
; REGISTERS CALL EXIT
; R0,R1,R2,R3,R5,R6 - DEST
; R4 LINK DEST
; R7 NOT USED
;
; INPUT: SOURCE FILE, IADREF
; OUTPUT: TEMP FILE, PASS 1 RESULTS
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS7100: ; EXECUTE PASS 1:
MOV R4 RL7000 ; SAVE RETURN LINK
MOVC OBJIO R6 ; GET OBJECT FILE
JMPI S4 MI20D0 ; INITIALIZE IT FOR WRITE
MOVC TEMPIO R6 ; GET ANO FILE
JMPI S4 MI20D0 ; INITIALIZE IT FOR WRITE
MOVC SRCIO R6 ; GET SOURCE FILE
MOV IADREF R0 ; GET ADDRESS LIST OFFSET (REL)
MOV R0 IOFLT. X6 ; SAVE AS FILE LENGTH
JMPI S4 MI20C0 ; INITIALIZE IT FOR READ
MOVC SRCIO R6 ; GET SOURCE FILE
JMPI S4 MI3500 ; READ MSG_ID
NOP ; (NOT PRESENT, IGNORE)
MOVC SRCIO R6 ; GET SOURCE FILE
JMPI S4 MI5300 ; POSITION SOURCE
MOVC SA0 R0 ; SET START STATE
MOV R0 STATE ;
MOVC 0 R0 ; SET START GROUP
MOV R0 GROUP ;
JMPI S4 MI5500 ; PROCESS ACP127 DETECTION
MOVC TEMPIO R6 ; GET ANO FILE
JMPI S4 MI20F0 ; TERMINATE IT FOR WRITE
JMPI RL7000 ;R RETURN