|
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: 1502 (0x5de)
Types: TextFile
Names: »MS6050.S«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS6050.S«
MESSAGE <:MS6050.S V810324:>
;-----------------------------------------------------------------------
; SUBROUTINE MS6050
; WRITE SMF ADDRESS LIST
;
; REGISTERS CALL EXIT
; R4 LINK DEST
; R0-R7 - DEST
;
; INPUT: TEMPOR FILE
; OUTPUT: OBJECT FILE (ADDR LIST), AMSGLT
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS6050: ; WRITE SMF ADDRESS LIST:
MOV R4 RL6000 ; SAVE RETURN LINK
; WRITE FM ANO:
JMPI S4 MI3400 ; GENERATE ANO
MOVC OBJIO R6 ; GET OBJECT FILE
JMPI S4 MI2030 ; WRITE THIS ANO
MS6054: ; COPY ANO'S:
MOVC TEMPIO R6 ; GET SOURCE FILE
JMPI S4 MI2020 ; READ FIRST(NEXT) ANO
JMP & MS6058 ; EXHAUSTED - CONTINUE
MOVC OBJIO R6 ; GET OBJECT FILE
JMPI S4 MI2030 ; WRITE THIS ANO
JMP MS6054 ; LOOPBACK TILL DONE
; END COPY
MS6058: ; CONTINUE:
MOVC OBJIO R6 ; GET OBJECT FILE
JMPI S4 MI3700 ; PROVIDE FILE INDEX
MOV R0 AMSGLT ; SAVE AS MESSAGE LENGTH
JMPI RL6000 ;R RETURN