|
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: 2888 (0xb48)
Types: TextFile
Names: »MS6030.S«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS6030.S«
MESSAGE <:MS6030.S V810326:>
;-----------------------------------------------------------------------
; SUBROUTINE MS6030
; WRITE SMF LINE 3
;
; REGISTERS CALL EXIT
; R4 LINK DEST
; R0-R7 - DEST
;
; INPUT: TEMPOR FILE (ADDRESSEE ANO'S)
; OUTPUT: OBJECT FILE 3RD AND FOLLOWING RECORDS, AROUM
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS6030: ; WRITE SMF LINE 3:
MOV R4 RL6000 ; SAVE RETURN LINK
MOVC OBJIO R6 ; GET OUTPUT FILE DESCR. ADDR
JMP S5 MS6032 ; ACCESS SMF 'G' CONSTANT
<:TO :> ; SMF 'G'
MS6032: ;
JMPI S4 MI300P ; WRITE PROGREL DATA STRING
MOVC TEMPIO R6 ; GET ANO FILE DESCR. ADDR
MOV IOFLT. X6 R0 ; GET FILE LENGTH
IBN R0 0 ; IF ODD LENGTH
JMPI S4 MIE100 ; THEN EXIT-FILE ERROR
MOVC ERCRI R2 ; GET ERROR CODE JUST IN CASE
IEQ R0 0 ; IF NO RECEIVERS
JMPI S4 MI8000 ; THEN CALL INTERCEPT
MS6034: ; PROCESS NEXT ANO:
MOVC TEMPIO R6 ; GET ANO FILE DESCRIPTOR
JMPI S4 MI2020 ; READ NEXT ANO
JMPI & RL6000 ;R NO MORE ANO'S - RETURN
MOV R0 ANO ; SAVE ANO
JMPI S4 MI3010 ; SPLIT ANO
INE R0 ANOTO ; IF NOT 'TO'
JMPI S4 MIE100 ; THEN FILE ERROR
IBN R1 4 ; IF LETTER P-Z
MODC 1 ; THEN USE 2ND WORD OF
MOVC AROUM R0 ; ROUTING MASK
SETS X0 R1 ; SET BIT CORRESPOND. TO LETTER
MOVC ANO R0 ;
XTR X0 ANBCOD ; EXTRACT ANO PROPER
JMPI S4 MI1110 ; LOOKUP PLAINLANGUAGE ADDR
JMP & MS6038 ; NOT FOUND - INTERCEPT
MOVC TABBUF R5 ; GET BUFFER ADDR
MOVC OBJIO R6 ; AND OUTPUT FILE DESCRIPTOR
JMPI S4 MI300B ; TRANSFER BUFFER TO OUTPUT
MS6036: ; TERMINATE LINE ENTRY:
MOVC LFCHAR R0 ; GET 'LF'
JMPI S4 MI2010 ; TERMINATE LINE
JMP MS6034 ; LOOPBACK TILL DONE
MS6038: ; INTERCEPT:
MOVC ERCRI R2 ; GET ERROR CODE
JMPI S4 MI8000 ; CALL INTERCEPT
MOVC OBJIO R6 ; GET OUTPUT FILE
JMP MS6036 ; GOTO TERMINATE LINE R