|
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: 2194 (0x892)
Types: TextFile
Names: »MSASC.S«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─ ⟦this⟧ »MS1.D!MSASC.S«
MESSAGE <: MSASC.S V810214:>
;-----------------------------------------------------------------------
; SUBROUTINES C SERIES
; THESE SUBROUTINES ARE CALLED BY ACTION PROCEDURES C SERIES
;
; ASC10: PROCESS SECURITY/SHD.
;
; REGISTERS CALL EXIT
; R0 CHAR UNCH
; R6 LINK
; R1,R7 - DEST
; R2 - ERROR CODE (IF INTERCEPT)
; R3,R4,R5 NOT USED
;
; INPUT: ASECUR,SECCHR
; OUTPUT: ASECUR,SECCHR,SECCNT
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
ASC10: ; ACTION SUBROUTINE C10:
MOV SECCHR R1 ; GET IDENTICAL CHARS
MOVC 0 R7 ;
MOV R7 SECCHR ; CLEAR IDENTICAL CHARS
MOV R7 SECCNT ; AND COUNTER
MOVC ASECUR R7 ; GET SECUR ADDRESS
JOZ X7 ASC10A ; IF SECURITY PAST THEN BEGIN SHD
IEQ R1 0 ; IF NO SEQUENCE
JMP 0. X6 ; THEN RETURN AS OK
MOVC ERCSHD R2 ; ELSE GET ERROR CODE
JMP AS000 ; AND CALL INTERCEPT
; (USE LINK AS RETURN)
ASC10A: ; END SHD ELSE BEGIN SECURITY
IEQ R1 <:U:> ; IF UUUUU
MOVC 2 X7 ; THEN NATO UNCLAS
IEQ R1 <:R:> ; IF RRRRR
MOVC 5 X7 ; THEN NATO RESTRICTED
IEQ R1 <:C:> ; IF CCCCC
MOVC 8 X7 ; THEN NATO CONFIDENTIAL
IEQ R1 <:S:> ; IF SSSSS
MOVC 11 X7 ; THEN NATO SECRET
INE X7 0 ; IF ANY OF ABOVE
JMP 0. X6 ; THEN RETURN
MOVC -1 X7 ; INDICATE SECURITY NOT VALID
MOVC ERCSEC R2 ; GET ERROR CODE
JMP AS000 ; CALL INTERCEPT
; (USE LINK AS RETURN)