|
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: 1120 (0x460)
Types: TextFile
Names: »MS3200.S«, »~ORPHAN_0x003d«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─ ⟦this⟧ »~ORPHAN_0x003d«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS3200.S«
MESSAGE <:MS3200.S V810309:>
;-----------------------------------------------------------------------
; SUBROUTINE MS3200
; PROVIDE SECURITY CLASSIFICATION PLAIN LANGUAGE TEXT.
;
; REGISTERS CALL EXIT
; R0 SECURITY VALUE DEST
; R4 LINK -
; R5 - TEXT(PROGREL)
; R1,R2,R3,R6,R7 NOT USED
;
; INPUT: -
; OUTPUT: -
; EXIT TO: LINK+0 (SECURITY VIOLATION)
; LINK+1 (OK)
;-----------------------------------------------------------------------
MS3200: ; PROVIDE SECURITY CLASS:
MOVC SCT R5 ; GET TABLE POINTER
IHS R0 15 ; IF OUTSIDE RANGE
JMP 0. X4 ; THEN EXIT(0)
MOD R0 ; LOOKUP MAIN ENTRY
MVP X5 R0 ;
IEQ R0 0 ; IF ILLEGAL
JMP 0. X4 ; THEN EXIT(0)
ADD R0 R5 ; PROVIDE PROGREL POINTER
JMP 1. X4 ; EXIT(1) -