|
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: 2394 (0x95a)
Types: TextFile
Names: »MS5400.S«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS5400.S«
MESSAGE <:MS5400.S V810325:>
;-----------------------------------------------------------------------
; SUBROUTINE MS5400
; COPY TEXT
;
; REGISTERS CALL EXIT
; R0,R1,R2,R6,R7 - DEST
; R4 LINK -
; R3,R5 NOT USED
;
; INPUT: SOURCE FILE
; OUTPUT: OBJECT FILE (SIGNAL TEXT)
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS5400: ; COPY TEXT:
MOV R4 RL5000 ; SAVE RETURN LINK
MOV IOTYP. X6 R0 ; GET IOCB TYPE
SBN R0 IOBFIX ; IF FIKS RECORDS
JMP MS5408 ; THEN BEGIN
MOVC OBJIO R6 ; GET OBJECT FILE
MOV IOBUF. X6 R0 ; GET ITS BUFFER
MOV R0 WK5000 ; SAVE DURING COPY
MODC SRCIO ; REPLACE WITH SOURCE BUFFER
MOV IOBUF R0 ; (USE SAME BUFFER FOR
MOV R0 IOBUF. X6 ; PERFORMANCE UPGRADE)
MS5402: ; COPY REMAINING SOURCE:
MOVC SRCIO R6 ; GET SOURCE FILE
JMPI S4 MI1020 ; READ FIKS RECORD
JMP & MS5404 ; FILE EMPTY-CONTINUE
MOVC OBJIO R6 ; GET OBJECT FILE
JMPI S4 MI1030 ; WRITE FIKS RECORD
JMP MS5402 ; LOOPBACK TILL DONE
MS5404: ; CONTINUE:
MOV WK5000 R0 ; RESTORE OBJIO BUFFER
MODC OBJIO ;
MOV R0 IOBUF ;
JMPI RL5000 ;R RETURN
MS5408: ; END ELSE BEGIN NICS RECORDS
MS540A: ; COPY REMAINING SOURCE:
MOVC SRCIO R6 ; GET SOURCE FILE
JMPI S4 MI2000 ; READ CHARACTER
JMPI & RL5000 ;R FILE EMPTY-RETURN
MOVC OBJIO R6 ; GET OBJECT FILE
INE R0 CRCHAR ; IF NOT A 'CR' THEN
JMPI S4 MI2010 ; TRANSLATE AND WRITE CHARACTER
JMP MS540A ; LOOPBACK TILL DONE
; END IF THEN ELSE