117 lines
1.6 KiB
Text
117 lines
1.6 KiB
Text
;DAKAH
|
|
|
|
|
|
|
|
DECVER==2
|
|
MCNVER==0
|
|
|
|
XLIST
|
|
DEFINE NAME (MCNVER,DECVER)<
|
|
|
|
TITLE DAKAH PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (8) MCNVER,DECVER
|
|
>
|
|
LIST
|
|
LALL
|
|
NAME \MCNVER,\DECVER
|
|
|
|
;TEST DESIGNED FOR INITIAL DEBUGGING OF PROCESSOR HARDWARE
|
|
;AND TO DETECT (SOLID) FAILURES IN THE FIELD.
|
|
|
|
;COPYRIGHT 1972,1977
|
|
;DIGITAL EQUIPMENT CORPORATION
|
|
;MARLBORO, MASS. 01752
|
|
|
|
;JOHN R. KIRCHOFF
|
|
|
|
LOC 137
|
|
MCNVER,,DECVER
|
|
|
|
NOSYM
|
|
SUBTTL DIAGNOSTIC PARAMETERS
|
|
|
|
;CONTROL WORDS
|
|
|
|
EXIOT=4000 ;USER PRIV I/O FLAG
|
|
USERF=10000 ;USER MODE FLAG
|
|
|
|
DACT=400
|
|
ME=774
|
|
PIG0=2377
|
|
PIH1=40000
|
|
PIH2=20000
|
|
PIH3=10000
|
|
PIH4=4000
|
|
PIH5=2000
|
|
PIH6=1000
|
|
PIH7=400
|
|
PIOSET=2000
|
|
PIOCLR=1000
|
|
PIREQ=4000
|
|
ACT=200
|
|
PROT=20000
|
|
NONEX=10000
|
|
UMIOT=4000
|
|
;SUBROUTINE DEFINITIONS
|
|
|
|
SADR1=START
|
|
SADR2=START
|
|
SADR3=START
|
|
SADR4=START
|
|
SADR5=START
|
|
SADR6=START
|
|
SADR7=JRST START
|
|
SADR8=JRST START
|
|
SADR9=JRST START
|
|
SADR10=JRST START
|
|
SADR11=JRST START
|
|
PAREA1=0
|
|
PAREA2=0
|
|
PAREA3=0
|
|
PAREA4=0
|
|
PAREA5=0
|
|
PAREA6=0
|
|
ITERAT=1
|
|
EXCASB==1
|
|
PGMEND==1
|
|
|
|
;MACROS
|
|
|
|
;STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMP .+1)
|
|
; TO A (JUMP .-X) TO CYCLE ON FAILING INSTRUCTION.
|
|
|
|
DEFINE STOP (A)<
|
|
HALT .+1
|
|
JUMP .+1
|
|
>
|
|
|
|
;SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET REQUESTED
|
|
; FLAG FOR TESTING.
|
|
|
|
DEFINE SFLAG (A)<
|
|
MOVSI 1,A
|
|
JFCL 17,.+1
|
|
JRST 2,.+1(1)
|
|
>
|
|
|
|
;CHANEL - USED FOR 2 CHANNEL SYSTEM CHECK
|
|
|
|
DEFINE CHANEL (A)<
|
|
SKIPN PI7SYS#
|
|
JRST A
|
|
>
|
|
|
|
;RETURN - USED TO SETUP UUO TRAP
|
|
|
|
DEFINE RETURN (A)<
|
|
MOVE 2,[JSP 2,A]
|
|
MOVEM 2,41
|
|
SETOB 2,40
|
|
>
|
|
|
|
;CLEAN - USED TO CLEAR THE PROCESSOR EXCEPT CLOCK
|
|
; CLEAR DEVICES AND PI SYSTEM
|
|
|
|
DEFINE CLEAN (A)<
|
|
CONO 634440
|
|
CONO PI,10000
|
|
>
|