Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dakaht.mac
There are no other files named dakaht.mac in the archive.
;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
>