Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;MAINDEC-10-DAKDB


DECVER==002
MCNVER==000

	XLIST
DEFINE	NAME	(MCNVER,DECVER),<

TITLE	DAKDB	KA10 RANDOM INSTRUCTION RELIABILITY DIAGNOSTIC, VER MCNVER,DECVER >
	LIST
	LALL

	NAME	\MCNVER,\DECVER

	XALL
;COPYRIGHT 1972,1977
;DIGITAL EQUIPMENT CORPORATION
;MARLBORO, MASS. 01752

;JOHN R. KIRCHOFF

	LOC	137
MCNVER,,DECVER

	NOSYM

;PROGRAM DESIGNED TO EXECUTE RANDOM INSTRUCTIONS (NON-PC CHANGE)
; IN CORE, IN THE FAST AC'S, AND THRU SOFTWARE SIMULATION.
;THE RESULTS OF THE THREE GROUPS OF INST ARE COMPARED FOR EQUALITY.
;UPON A DISCREPENCY THE PROGRAM PRINTS ALL PERTINENT INFORMATION
; AND GOES INTO A REPETITIVE FAILURE LOOP.

;THE PROGRAM OPERATES AS FOLLOWS:
	;1. GENERATES EIGHT RANDOM NUMBERS AND STORES
	;   THEM IN AC 0-7.
	;2. RESTORES THEM IN RAND-RAND+7
	;3. TEST AC'S FOR VALID INST.
		;A. OP CODES 0-127 CHANGED TO ROTC
		;B. OP CODES 133-137 CHANGED TO ASHC
		;C. OP CODES 243+247 CHANGED TO IMUL
		;D. OP CODES 260-267 CHANGED TO IMUL
		;E. OP CODES 251-257 CHANGED TO IMUL
		;F. OP CODES 300-377 CHANGED TO FSBR
		;G. OP CODES 600-677 CHANGED TO FDVR IF
		;   IT IS THE LAST INST IN THE INST GROUP
		;H. OP CODES OF 700-777 CHANGED TO FMPR
		;I. THEN ALL VALID INST. ARE MASKED FOR
		;   INDEX REG, INDIRECT, AC'S ABOVE 7, AND
		;   ONLY AN "E" FIELD OF 0-7.
	;4. STORES VALID INST IN INSBLK
	;5. SETS UP SLOW CORE LOOP WITH SIMULATION TRANSFER
	;   BETWEEN EACH VALID INST.
	;6. EXECUTES & SIMULATES SLOW LOOP.
	;7. COMPARES RESULTS AFTER EACH INST/SIMULATION.
	;8. STORES ANS. (AC'S 0-7) IN ANSBLK.
	;9. LOADS FAST LOOP AND AC'S
	;10. EXECUTES FAST LOOP.
	;11. COMPARES FAST LOOP AND SLOW LOOP ANS.
	;12. RE-EXECUTES FAST LOOP 7 TIMES WITH ANS CHECKING.
	;13. UPON AN ERROR THE PROGRAM WILL OUTPUT ON LPT OR TTY,
	;    THE OPERANDS, INSTRUCTIONS, SLOW/FAST LOOP
	;    ANSWERS, AND THE SIM/SLOW LOOP ANSWERS.
	;14. THE PROGRAM WILL THEN SIMULATE AND PRINT THE
	; APPROPRIATE FAILING INSTRUCTION(S).
	;15. IT THEN WILL GO INTO AN ERROR LOOP.

	;NOTE:-  BEWARE CORE LOOP AND/OR SIMULATION LOOP MAY
	;	 HAVE FAILED AND NOT FAST LOOP.

SUBTTL	DIAGNOSTIC PARAMETERS

;TEST CONTROL DATA SWITCHES, RIGHT HALF

ENTDDT==	400000		;ENTER DDT UPON STARTING
RANBAS==	200000		;SPECIFY RANDOM NUMBER BASE

ALINES==	1000		;PRINT ALL OUTPUT

INHSCT==	400		;INHIBIT SIMULATION SCT2 & SCT3 PRINT
INHCLK==	200		;INHIBIT CLOCK INTERRUPTS
INHMT==		100		;INHIBIT PRINT MACHINE TIMES

SNGFL==		2		;RUN SINGLE FAST LOOP
INHSIM==	1		;INHIBIT SIMULATION COMPARISION

;SUBROUTINE ASSEMBLY DEFINITIONS

EXCASB==1
USRASB==1
DEBUG==40
KA10==1
PGMEND==1
SADR1==	SFSRT1
SADR2==	RESRT1
SADR3==	RENTR1
SADR5==	BEGIN
SADR6==	DDTSRT
SADR7==	JRST	CONTNU
SADR8==	JRST	FAST
SADR9==	0
SADR10==0
SADR11==0

PAREA1==123457,,654321
PAREA2==0,,0
PAREA3==SIXBIT/DAKDB/
PAREA4==SIXBIT/TMP/
PAREA5==0
PAREA6==0

ITERAT==2

OFFSET=0
VMHALT=DDTSRT
SEXIT1=VMHALT
DDTEX5=DDTSRT