|
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 - metrics - download
Length: 1606 (0x646)
Types: TextFile
Names: »MS3400.S«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─⟦this⟧ »MS2.D!MS3400.S«
MESSAGE <:MS3400.S V810309:>
;-----------------------------------------------------------------------
; SUBROUTINE MS3400
; GENERATE FM ANO
;
; REGISTERS CALL EXIT
; R0 - ANO
; R4 LINK DON'T CARE
; R1,R2,R3,R5,R6,R7 - DON'T CARE
;
; INPUT: SCCID,IOTYP.SRCIO
; OUTPUT: -
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS3400: ; GENERATE FM ANO:
MODC SRCIO ;
MOV IOTYP R0 ; GET TYPE
SBN R0 IOBFIX ; IF INTERNAL CONVERSION
JMP MS3404 ; THEN BEGIN
MOV SCCID R0 ; GET SCC LETTER (P OR Q)
ADDC -<:A:> R0 ; COMPUTE LETTER FIELD CONTENTS
IF ANBLET NE 0 THEN
SLL R0 ANBLET FI
ADDC 0<ANBNMB R0 ; COMPUTE AND INCLUDE NUMBER
ADDC ANOFM<ANBCOD R0 ; SET CODE TO 'FM'
JMP 0. X4 ;R RETURN
MS3404: ; END ELSE BEGIN EXTERNAL
MOV SCCID R0 ; GET SCC LETTER (P OR Q)
ADDC -<:A:> R0 ; COMPUTE LETTER FIELD CONTENTS
IF ANBLET NE 0 THEN
SLL R0 ANBLET FI
ADDC 0<ANBNMB R0 ; COMPUTE AND INCLUDE NUMBER
ADDC ANOFM<ANBCOD R0 ; SET CODE TO 'FM'
JMP 0. X4 ;R RETURN -