DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦0dc05fc25⟧ TextFile

    Length: 1270 (0x4f6)
    Types: TextFile
    Names: »MS7200.S«

Derivation

└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
    └─⟦f918199fd⟧ 
        └─ ⟦this⟧ »MS2.D!MS7200.S«

TextFile

MESSAGE <:MS7200.S V810326:>
;-----------------------------------------------------------------------
; SUBROUTINE MS7200
; EXECUTE PASS 2.
;
; REGISTERS          CALL               EXIT
; R0,R1,R2,R3,R5,R6  -                  DEST
; R4                 LINK               DEST
; R7                                    NOT USED
;
; INPUT:   SOURCE FILE, TEMP FILE, PASS 1 RESULTS
; OUTPUT:  OBJECT FILE (ASCII PART), PASS 2 RESULTS
; EXIT TO: LINK+0    (OK)
;-----------------------------------------------------------------------
MS7200:                             ; EXECUTE PASS 2:
        MOV          R4  RL7000     ;   SAVE RETURN LINK
        MOVC  TEMPIO            R6  ;   GET ANO FILE
        JMPI         S4  MI20C0     ;   INITIALIZE IT FOR READ
        MOVC  SRCIO             R6  ;   GET SOURCE FILE
        JMPI         S4  MI20C0     ;   INITIALIZE IT FOR READ
        MOVC  SRCIO             R6  ;   GET SOURCE FILE
        JMPI         S4  MI5300     ;   POSITION SOURCE
        JMPI         S4  MI6010     ;   WRITE SMF LINE 1
        JMPI         S4  MI6020     ;   WRITE SMF LINE 2
        JMPI         S4  MI6030     ;   WRITE SMF LINE 3
        JMPI         S4  MI6040     ;   WRITE SMF LINES M THRU R
        JMPI             RL7000     ;R  RETURN