Google
 

Trailing-Edge - PDP-10 Archives - klad_sources - klad.sources/dbkaat.mac
There are no other files named dbkaat.mac in the archive.
;DBKAA










	XLIST
	MCNVER==0
	DECVER==2
	LOC	137
	MCNVER,,DECVER
DEFINE	NAME	(A,B)<
TITLE	DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER
>
	LIST
	NAME	\MCNVER,\DECVER

;TEST DESIGNED FOR INITIAL DEBUGGING OF PROCESSOR HARDWARE
;AND TO DETECT (SOLID) FAILURES IN THE FIELD.

;COPYRIGHT 1972
;DIGITAL EQUIPMENT CORPORATION
;MAYNARD, MASS. 01754

;DICK MALISKA


;ASSEMBLE AS:
;DBKAAT.MAC,PARAM.KLM,FIXED.KLM,SPCCPU.KLM,DBKAAM.MAC,STOR.KLM
SUBTTL	DIAGNOSTIC PARAMETERS
;PARAMETER DEFINITIONS
EXCASB==1
USRASB==1

;FLAG DEFINITIONS
USERF=10000		;USER MODE FLAG


;MACROS

; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1)
;	 TO A (JUMPA .-X) TO CYCLE ON FAILING INSTRUCTION

DEFINE	STOP	(A)<
	HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
	JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
				;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
				;IN THE SUBTEST) TO LOOP ON ERROR>

;SPECIAL FEATURE PARAMETERS

SADR1=A00
SADR2=A00
SADR3=A00
SADR4=A00
SADR5=JRST A00
SADR6=JRST A00
SADR7=JRST A00
SADR8=JRST A00
SADR9=JRST A00
SADR10=JRST A00
SADR11=JRST A00

PAREA0=0
PAREA1=0
PAREA2=0
PAREA3=SIXBIT/DBKAA/
PAREA4=SIXBIT/PNT/
PAREA5=0
PAREA6=0
ITERAT==1000
PGMEND==-1
	NOSYM