Google
 

Trailing-Edge - PDP-10 Archives - klad_sources - klad.sources/dakbc.seq
There are no other files named dakbc.seq in the archive.
MAINDEC-10-DAKBC.TXT
                                                                                                                           SEQ 0001





 
			IDENTIFICATION
			--------------

	PRODUCT CODE:	MAINDEC-10-DAKBC-B-D

	PRODUCT NAME:	DECSYSTEM10 PDP-10 KA10 BASIC
			INSTRUCTION RELIABILITY TEST (3)

	FUNCTION:	TESTS, HALF WORD, ADD/SUB, JFFO, ETC.

	VERSION:	0.2

	DATE RELEASED:	JANUARY 1977

	MAINTAINED BY:	DIAGNOSTIC ENGINEERING GROUP

	AUTHOR:		JOHN R. KIRCHOFF

COPYRIGHT(C) 1977
DIGITAL EQUIPMENT CORPORATION
MARLBORO, MASS. 01752

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY
ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE,
OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
MADE AVAILABLE TO ANY OTHER PERSON EXECPT FOR USE ON SUCH SYSTEM
AND TO ONE WHO AGREES TO THESE LICENSE TERMS.  TITLE TO AND
OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
							MAINDEC-10-DAKBC.TXT
							PAGE 2                                                             SEQ 0002

			TABLE OF CONTENTS
			-----------------

1.0	ABSTRACT

2.0	REQUIREMENTS

2.1	EQUIPMENT

2.2	STORAGE

2.3	PRELIMINARY PROGRAMS

3.0	PROGRAM PROCEDURES

3.1	LOADING PROCEDURE

3.2	STARTING PROCEDURE

3.3	OPERATING PROCEDURE

4.0	DATA SWITCH FUNCTIONS

5.0	ERRORS

6.0	ITERATION COUNTER

7.0	CYCLE TIME

8.0	OPERATIONAL VARIATIONS

9.0	MISCELLANEOUS

10.0	LISTING
							MAINDEC-10-DAKBC.TXT
							PAGE 3                                                             SEQ 0003

1.0	ABSTRACT

	THIS PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST
	IS THE THIRD IN A SERIES OF PDP-10 KA10 PROCESSOR
	RANDOM NUMBER DIAGNOSTICS.

	THE DIAGNOSTIC TESTS TESTS, HALF WORD, ADD/SUB, JFFO, ETC.
	IN THE MAJORITY OF CASES EACH INSTRUCTION IS TESTED BY
	SIMULATING THE INSTRUCTION, WITH SIMPLER INSTRUCTIONS, AND
	THEN EXECUTING THE INSTRUCTION.  RANDOM NUMBERS ARE USED AS
	THE OPERANDS IN AC AND/OR C(E).  THE RESULTS OF THE
	SIMULATION AND EXECUTION ARE COMPARED AND AN ERROR MESSAGE
	IS PRINTED IF THE RESULTS ARE NOT EQUAL.

2.0	REQUIREMENTS

2.1	EQUIPMENT

	A PDP-10 KA10 EQUIPPED WITH A MINIMUM OF 32K OF MEMORY

	CONSOLE TELETYPE
	DECTAPE
	LINE PRINTER (OPTIONAL)

2.2	STORAGE

	THE PROGRAM RUNS WITHIN 32K OF MEMORY.

2.3	PRELIMINARY PROGRAMS

	PREVIOUS PROCESSOR DIAGNOSTICS
							MAINDEC-10-DAKBC.TXT
							PAGE 4                                                             SEQ 0004

3.0	PROGRAM PROCEDURES

3.1	LOADING PROCEDURE

	THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM10 SUBROUTINE
	PROGRAM BE RESIDENT IN THE PDP-10.

	DECTAPE - LOAD WITH DIAMON (DECTAPE DEVICE CODE 320)
	TIME SHARING - RUN UNDER DIAMON.

3.2	STARTING PROCEDURE

	A.  SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO
	    4.0 DATA SWITCH FUNCTIONS).

	B.  EXEC MODE

	    STAND-ALONE STARTING ADDRESS IS 30000.

	C.  USER MODE

	    RUN UNDER "DIAMON".
	    IN USER MODE THE FOLLOWING QUESTIONS WILL BE ASKED TO 
	    SELECT THE OPERATIONAL SWITCHES:

		    TELETYPE SWITCH CONTROL ? 0,S,Y OR N (CR) -

		    IF THE OPERATOR TYPES "N", THE ACTUAL CONSOLE
		    SWITCHES ARE USED.

		    IF THE OPERATOR TYPES "Y", THE FOLLOWING QUESTIONS
		    ARE ASKED AND THE OPERATOR RESPONDS BY TYPING
		    THE ANSWER AS SIX OCTAL DIGITS REPRESENTING
		    THE DESIRED SWITCH SETTINGS.

		    SPECIFY LH SWITCHES IN OCTAL-

		    SPECIFY RH SWITCHES IN OCTAL-

		    IF THE OPERATOR TYPES "0", ZERO'S ARE USED FOR
		    THE SWITCH SETTINGS.

		    IF THE OPERATOR TYPES "S", PREVIOUSLY SET SWITCHES
		    ARE USED.  THIS IS ONLY VALID UPON RESTARTING
		    OF AN INTERRUPTED PROGRAM.
							MAINDEC-10-DAKBC.TXT
							PAGE 5                                                             SEQ 0005

3.3	OPERATING PROCEDURE

	NORMAL OPERATION WITH ALL SWITCHES SET TO ZERO IS QUICK
	VERIFY MODE.  TO RELIABILITY TEST SET THE "RELIAB" SWITCH.

	A.  TO THROUGHLY TEST ALL HARDWARE, ALL TEST CONTROL DATA 
	    SWITCHES SHOULD BE SET TO 0.

	B.  WHEN DEBUGGING HARDWARE, SET SWITCHES TO 0.  ALLOW THE 
	    TELETYPE TO PRINT THE ERROR MESSAGES.  THIS ALLOWS THE 
	    PROGRAM TO RUN A COMPLETE PASS AND THEN THE ERROR MESSAGES
	    MAY BE CORRELATED TO QUICKLY DIAGNOSE THE FAILURE.  IF A
	    HARDWARE PROBLEM IS SUCH THAT THE ERROR MESSAGES, AFTER THE
	    FIRST ONE, HAVE NO MEANING (FIRST ERROR CAUSES ALL FOLLOWING
	    TESTS TO FAIL) SET THE LOOP ON ERROR SWITCH AND RESTART THE
	    TEST FROM THE BEGINNING.  THE FIRST FAILURE WILL THEN CAUSE
	    THE PROGRAM TO ENTER A LOOP SUITABLE FOR SCOPING.

	    THE ERROR MESSAGE USED IN CONJUNCTION WITH THE LISTING AND
	    SCOPING IF NECESSARY SHOULD ALLOW THE FAILING CONPONENT 
	    TO BE ISOLATED AND REPLACED AND/OR REPAIRED.

	C.  WHEN TAKING MARGINS, SET DATA SWITCHES 'NOPNT' AND 'DING'.
	    THIS WILL INHIBIT PRINTOUT BUT WILL ALLOW THE TELETYPE
	    BELL TO BE RUNG WHEN A ERROR OCCURS.  IF THE MARGIN OBTAINED
	    IS UNACCEPTABLE, THE OPERATOR MAY REVERT TO STANDARD SWITCH
	    SETTINGS FOR DEBUGGING PURPOSES.

	D.  ERROR INFORMATION MAY BE OBTAINED QUICKLY BY PRINTING 
	    ERRORS ON THE LINE PRINTER.

	E.  IN THE EVENT OF A PRINT ROUTINE FAILURE THE 'NOPNT' SWITCH
	    AND THE 'ERSTOP' SWITCH MAY BE SET TO INHIBIT PRINTOUT 
	    BUT HALT THE PROGRAM POINTING TO THE ERROR.
							MAINDEC-10-DAKBC.TXT
							PAGE 6                                                             SEQ 0006
4.0	DATA SWITCH FUNCTIONS

	SWITCH		STATE	FUNCTION
	------		-----	--------

	0    ABORT	0	NORMAL OPERATION
			1	ABORT AT END OF PASS

	1    RSTART		NOT USED

	2    TOTALS		NOT USED

	3    NOPNT	0	NORMAL TYPEOUT
			1	INHIBIT ALL PRINT/TYPEOUT (EXCEPT FORCED)

	4    PNTLPT	0	NORMAL OUTPUT TO TTY
			1	PRINT ALL DATA ON LPT

	5    DING	0	NO FUNCTION
			1	RING TTY BELL ON ERROR

	6    LOOPER	0	PROCEED TO NEXT TEST
			1	ENTER SCOPE LOOP ON TEST ERROR

	7    ERSTOP	0	NO FUNCTION
			1	HALT ON TEST ERROR

	8    PALERS	0	PRINT ONLY FIRST ERROR WHEN LOOPING
			1	PRINT ALL ERRORS, EVEN IF SAME ERROR

	9    RELIAB	0	FAST CYCLE OPERATION
			1	RELIABILITY MODE

	10   TXTINH	0	PRINT FULL ERROR MESSAGES.
			1	INHIBIT COMMENT PORTION OF ERROR MESSAGES.

	11   INHPAG		NOT USED

	12   MODDVC		NOT USED

	13   INHCSH		NOT USED
							MAINDEC-10-DAKBC.TXT
							PAGE 7                                                             SEQ 0007

5.0	ERRORS

	ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER.  THE ERROR 
	PRINTOUT CONTAINS THE TEST TITLE, THE PC OF THE FAILURE, AC
	NUMBER, ERROR WORD AND CORRECT WORD.

	THE PC VALUE IS USEFUL IN RELATING THE FAILURE TO THE LISTING.

	WHEN THE SCOPE LOOP MODE IS USED THE MI REGISTER WILL COUNT 
	FOR EACH OCCURANCE OF AN ERROR.  IF AN AUDIO INDICATION OF
	A CONTINUING ERROR IS DESIRED THE 'DING' SWITCH MAY BE SET.

	THE FOLLOWING IS THE DIFFERENT ERROR FORMATS WITH THEIR
	RESPECTIVE UUO'S AND ERROR MESSAGES.

	A.	ERROR #1  -  ERR   AC,E
	-------------------------------

	EXAMPLE:			AC		E
	2053 / CAME   AC1,AC2		;RESULT		CORRECT
	2054 / ERR    AC,RAN1		;ORIG  C(AC)	ORIG C(E)

	AC1=5				;TEST DATA
	C(AC1) = 201532107642
	C(AC2) = 201432107642
	C(RAN1)= 777777777777
	C(AC)  = 576345670135

	ERROR MESSAGE:

				   	(SOURCE OF NUMBERS PRINTED)
	PC =   002054			;PC OF ERROR UUO
	AC =   05			;AC FIELD OF UUO-1
	C(AC)= 201532107642		;C(C(AC)) OF UUO-1
	COR =  201432107642		;C(C(ADDRESS FIELD)) OF UUO-1
	    ORIGINAL
	C(AC)= 777777777777		;C(C(ADDRESS FIELD)) OF UUO
	C(E) = 576345670135		;C(C(AC)) OF UUO
							MAINDEC-10-DAKBC.TXT
							PAGE 8                                                             SEQ 0008

5.0	ERRORS (CON'T)

	B.	ERROR #2  -  ERRM   AC,E
	--------------------------------

	EXAMPLE:			AC		E
	2053 / CAME   AC2,MUD		;CORRECT	RESULT
	2054 / ERRM   AC,RAN1		;ORIG  C(AC)	ORIG C(E)

	MUD=5033			;TEST DATA
	C(MUD) = 201532107642
	C(AC2) = 201432107642
	C(RAN1)= 777777777777
	C(AC)  = 576345670135

	ERROR MESSAGE:

				   	(SOURCE OF NUMBERS PRINTED)
	PC =   002054			;PC OF ERROR UUO
	E  =   5033			;BITS 18-35 (E) OF UUO-1
	C(E) = 201532107642		;C(C(E)) OF UUO-1
	COR =  201432107642		;C(C(AC)) OF UUO-1
	    ORIGINAL
	C(AC)= 777777777777		;C(C(E)) OF UUO
	C(E) = 576345670135		;C(C(AC)) OF UUO
							MAINDEC-10-DAKBC.TXT
							PAGE 9                                                             SEQ 0009

5.0	ERRORS (CON'T)

	C.	ERROR #3  -  ERRI   AC,E
	--------------------------------

	EXAMPLE:			AC		E
	2053 / CAME   AC1,AC2		;RESULT		CORRECT
	2054 / ERRI   RAN1,(AC)		;ORIG C(AC)	ORIG E

	AC1=5				;TEST DATA
	C(AC1) = 107742670135
	C(AC2) = 107642670135
	C(RAN1)= 777777777777
	C(AC)  = 576345670135

	ERROR MESSAGE:

				   	(SOURCE OF NUMBERS PRINTED)
	PC =   002054			;PC OF ERROR UUO
	AC =   5			;AC FIELD OF UUO-1
	C(AC)= 107742670135		;C(C(AC)) OF UUO-1
	COR =  107642670135		;C(C(E)) OF UUO-1
	    ORIGINAL
	C(AC)= 777777777777		;C(C(AC)) OF UUO
	E    = 670135			;C(ADDRESS FIELD) OF UUO

	D.	ERROR #4  -  ERROR   AC,E
	---------------------------------

	EXAMPLE:			AC		E
	2053 / CAME   AC,RAN	
	2054 / ERROR  AC,RAN		;RESULT		CORRECT

	AC=5				;TEST DATA
	C(AC)  = 201532107642
	C(RAN) = 201432107642

	ERROR MESSAGE:

				   	(SOURCE OF NUMBERS PRINTED)
	PC =   002054			;PC OF ERROR UUO
	AC =   5			;AC FIELD OF UUO
	C(AC)= 201532107642		;C(C(AC)) OF UUO
	COR =  201432107642		;C(C(E)) OF UUO
							MAINDEC-10-DAKBC.TXT
							PAGE 10                                                            SEQ 0010

5.0	ERRORS (CON'T)

	E.	ERROR #5  -  ER   AC,[ASCII/MESSAGE/]
	---------------------------------------------

	EXAMPLE:			AC		E
	2053 / JFCL   10,.+2	
	2054 / ER     AC,[ASCII/OV/]	;RESULT		MESSAGE

	AC=5				;TEST DATA
	C(AC)  = 201432107642

	ERROR MESSAGE:

				   	(SOURCE OF NUMBERS PRINTED)
	PC =   002054			;PC OF ERROR UUO
	AC =   5			;AC FIELD OF UUO
	C(AC)= 201432107642 OV		;C(C(AC)) OF UUO
					;ADDRESS FIELD OF UUO POINTS TO AN
					;ASCII MESSAGE

	F.	ERROR #6  -  ERM   AC,E
	-------------------------------

	EXAMPLE:			AC		E
	2053 / SOJ   AC2,	
	2054 / ERM    AC1,(AC2)		;C(AC)		RESULT

	C(AC2)=5033			;TEST DATA
	C(AC)  = 740000005756
	C(C(AC2)=254000004041

	ERROR MESSAGE:

				   	(SOURCE OF NUMBERS PRINTED)
	PC =   002054			;PC OF ERROR UUO
	E  =   5033			;BITS 18-35 (E) OF UUO
	C(AC)= 740000005756		;C(AC) OF UUO
	C(E) = 254000004041		;C(C(E)) OF UUO
							MAINDEC-10-DAKBC.TXT
							PAGE 11                                                            SEQ 0011

5.0	ERRORS (CON'T)

	G.	ERROR #7  -  ERMM   AC,E
	--------------------------------

	EXAMPLE:			AC		E
	2053 / SOJ   AC2,	
	2054 / ERMM   AC1,(AC2)		;C(AC)		RESULT

	C(AC2)=5033			;TEST DATA
	C(AC1)  = 740000005756

	ERROR MESSAGE:

				   	(SOURCE OF NUMBERS PRINTED)
	PC =   002054			;PC OF ERROR UUO
	E  =   5033			;BITS 18-35 (E) OF UUO
	C(AC)= 740000005756		;C(AC) OF UUO


	H.	ERROR #11  -  EERR    ,E
	--------------------------------

	I.	ERROR #12  -  EERRM   ,E
	--------------------------------

	J.	ERROR #13  -  EERRI   ,E
	--------------------------------

	ERRORS 11,12 AND 13 ARE THE SAME AS ERRORS 1,2 AND 3 EXCEPT
	THAT THE AC OF THE UUO IS REPLACED BY C(RAN).  IN
	OTHER WORDS C(RAN) WILL BE PRINTED FOR THE ORIGINAL
	C(E).
							MAINDEC-10-DAKBC.TXT
							PAGE 12                                                            SEQ 0012

6.0	ITERATION COUNTER

	THE ITERATION COUNT OF THE PROGRAM IS DISPLAYED IN THE MEMORY
	INDICATORS (MI).  THIS COUNT IS A DECREMENTING COUNT AND 
	INITIALLY STARTS AT -1 IN STAND-ALONE OPERATION.

7.0	CYCLE TIME

	A.  NORMAL OPERATION - APPROXIMATELY FIVE SECONDS.

	B.  RELIABILITY MODE - APPROXIMATELY 1.5 TO 3 MINUTES.

8.0	OPERATIONAL VARIATIONS

	A.  DIAGNOSTIC MONITOR

	    THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PROVIDE
	    RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PROVIDE A
	    QUICK METHOD OF ISOLATION OF A FAULT TO A PARTICULAR AREA
	    OF THE PROCESSOR.  CERTAIN PROCEDURES ARE USED WHEN THE
	    PROGRAM IS USED IN THIS MANNER.  THEY ARE:

	    1.	THE DIAGNOSTIC MONITOR TRANSFERS CONTROL TO THE PROGRAM
		AND STARTS IT AT LOCATION 30002.

	    2.	MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MONITOR
		CONTROL WORD.
			LH = 0, STAND-ALONE OPERATION
			    -1, RUNNING UNDER DIAGNOSTIC MONITOR

			RH = RIGHT HALF OF CONSOLE SWITCHES IF UNDER
			     DIAGNOSTIC MONITOR CONTROL.
							MAINDEC-10-DAKBC.TXT
							PAGE 13                                                            SEQ 0013

8.0	OPERATIONAL VARIATIONS (CON'T)

	B.  USER MODE

	    TO OUTPUT THE PRINTED ERROR MESSAGES TO A USER SPECIFIED
	    DEVICE IN USER MODE, ASSIGN THE DESIRED OUTPUT DEVICE TO
	    DEVICE NAME 'DEV' AND SET SWITCH 'PNTLPT'.  THE PHYSICAL
	    DEVICE USED CAN BE ANY DEVICE THAT CAN ACCEPT ASCII OUTPUT
	    FORMAT SUCH AS LPT, DSK, DTA, ETC.  THE CORRESPONDING 
	    OUTPUT FILE IS 'DAKBC.TMP'

	    EXAMPLE DEVICE ASSIGNMENT:

	    .ASSIGN DSK DEV

	    IN USER MODE THE PROGRAM WILL MAKE 1000(8) PASSES AND THEN
	    RETURN TO DIAMON COMMAND MODE.

	THE OUTPUT FILE (IF USED) MAY THEN BE LISTED BY USING THE
	NORMAL MONITOR COMMANDS (PRINT, LIST, TYPE, PIP, ETC.).

	IF THE PROGRAM IS ABORTED BEFORE COMPLETION (BY ^C, ETC.) THE
	OUTPUT FILE MAY BE CLOSED BY USING THE MONITOR 'REENTER' 
	COMMAND.

	C.  SYSTEM EXERCISER

	    START ADDRESS IS 30003.  DATA SWITCHES ARE PRESTORED IN
	    'SWTEXR' LOC 30023.

9.0	MISCELLANEOUS

	THE NON-EX-MEMORY AND PARITY STOP SWITCHES SHOULD BE RESET 
	(0).  THESE ERRORS, ILLEGAL UUO'S AND OTHER ERRORS OF THIS
	TYPE ARE HANDLED BY PRINTOUT ON THE TELETYPE.

10.0	LISTING
	THIS IS A HISTORY OF THE DEVELOPMENT OF MAINDEC-10-DAKBC
                                                                                                                           SEQ 0014
************************************************************************

PRODUCT CODE:		MAINDEC-10-DAKBC

PRODUCT NAME:		KA10 BASIC INSTRUCTION RELIABILITY # 3

DATE RELEASED:		JANUARY 1977

VERSION:		0.2

UPDATE AUTHOR:		JOHN R. KIRCHOFF

CHANGES MADE:

	1. UPGRADE TO ALLOW COMPATABILITY WITH THE SUBROUTINE PACKAGE.
	2. PROGRAM REPLACES OLD D0XX KA10 SERIES DIAGNOSTIC

************************************************************************
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 1
DAKBCT	MAC	21-JAN-77 16:45		DIAGNOSTIC PARAMETERS                                                              SEQ 0015

     1					;MAINDEC-10-DAKBC
     2
     3			000002		DECVER==002
     4			000000		MCNVER==000
     5
     6						XLIST
     7						LIST
     8						LALL
     9
    10					NAME	\MCNVER,\DECVER^
    11
    12					TITLE	DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 ^
    13
    14						XALL
    15
    16					;TEST DESIGNED FOR RANDOM NUMBER TESTING OF THE PDP-10 BASIC INSTRUCTIONS
    17					;(TESTS,HALF WORD,ADD/SUB,JFFO,ETC.)
    18
    19					;COPYRIGHT 1977
    20					;DIGITAL EQUIPMENT CORPORATION
    21					;MARLBORO, MASS. 01752
    22
    23					;JOHN R. KIRCHOFF
    24
    25	000137					LOC	137
    26	000137	000000	000002		MCNVER,,DECVER
    27			000001		PGMEND==1
    28						NOSYM
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 2
DAKBCT	MAC	21-JAN-77 16:45		DIAGNOSTIC PARAMETERS                                                              SEQ 0016

    29					SUBTTL	DIAGNOSTIC PARAMETERS
    30
    31					;LUUO DEFINITIONS
    32
    33		001000	000000		OPDEF	ERR	[1B8]
    34		002000	000000		OPDEF	ERRM	[2B8]
    35		003000	000000		OPDEF	ERRI	[3B8]
    36		004000	000000		OPDEF	ERROR	[4B8]
    37		005000	000000		OPDEF	ER	[5B8]
    38		007000	000000		OPDEF	ERM	[7B8]
    39		011000	000000		OPDEF	EERR	[11B8]
    40		012000	000000		OPDEF	EERRM	[12B8]
    41		013000	000000		OPDEF	EERRI	[13B8]
    42			037625		LUUO1=ERRMES
    43			037625		LUUO2=ERRMES
    44			037625		LUUO3=ERRMES
    45			037625		LUUO4=ERRMES
    46			037625		LUUO5=ERRMES
    47			037625		LUUO7=ERRMES
    48			037625		LUUO11=ERRMES
    49			037625		LUUO12=ERRMES
    50			037625		LUUO13=ERRMES
    51
    52					;SUBROUTINE ASSEMBLY DEFINITIONS
    53
    54			000001		EXCASB==1
    55			000001		USRASB==1
    56			000001		KA10=1
    57			000001		PGMEND==1
    58			000040		DEBUG==40
    59			000001		ERRELB==1
    60			000001		KLOLD==1
    61			030000		SADR1=BEGIN
    62			030076		SADR2=RESRT1
    63			030635		SADR3=RENTR1
    64			030000		SADR4=BEGIN
    65			030000		SADR5=BEGIN
    66			030000		SADR6==BEGIN
    67		254200	030000		SADR7=HALT BEGIN
    68		254200	030000		SADR8=HALT BEGIN
    69		254200	030000		SADR9=HALT BEGIN
    70		254200	030000		SADR10=HALT BEGIN
    71		254200	030000		SADR11=HALT BEGIN
    72		123457	654321		PAREA1=123457,,654321
    73			000000		PAREA2=0
    74		444153	424300		PAREA3=SIXBIT/DAKBC/
    75		645560	000000		PAREA4=SIXBIT/TMP/
    76			000000		PAREA5=0
    77			000000		PAREA6=0
    78			000001		ITERAT=1
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 3
DAKBCT	MAC	21-JAN-77 16:45		DIAGNOSTIC PARAMETERS                                                              SEQ 0017

    79					;MACROS
    80
    81					DEFINE	SETUP	(A,B)<
    82						AC1=<AC+1>&17
    83						AC2=<AC+2>&17
    84						AC3=<AC+3>&17
    85						AC4=<AC+4>&17
    86						AC5=<AC+5>&17
    87						RAN1=<AC-2>&17
    88						MOVEI	AC-1,.
    89						MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
    90						MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
    91						MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
    92						MOVEI	AC-1,A		;ROUTINE WEIGHTING
    93						ASH	AC-1,@CMPLXT+B	;ROUTINE COMPLEXITY
    94						ASH	AC-1,@RTIME	;RUN TIME CONTROLLER >
    95
    96					DEFINE	RANDOM	(A)<
    97						MOVE	AC,RAN#		;GENERATE A PSEUDO RANDOM NUMBER
    98						ADD	AC,[142536475076]
    99						ROT	AC,-1		;IN BOTH AC AND
   100						EQVB	AC,RAN		;REGISTER RAN >
   101
   102					DEFINE	LOOP	(A,B)<
   103						SOJG	AC-1,A		;ITERATION COUNTER
   104						MOVE	AC,RAN		;RESTORE RANDOM NUMBER
   105						JUMPL	AC-1,B		;LOOP ON ERROR SWITCH >
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 1
PARAM	KLM	18-JAN-77 11:38		*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977                               SEQ 0018

   106					SUBTTL	*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977
   107
   108					DEFINE	S,<;*********************************************************************>
   109
   110					S^;*********************************************************************^
   111					;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
   112					;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
   113					;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
   114					S^;*********************************************************************^
   115
   116			400000		ABORT==	400000			;ABORT PROGRAM ON PASS COMPLETION
   117			200000		RSTART==200000			;RESTART TEST, PRINT TOTALS
   118			100000		TOTALS==100000			;PRINT TOTALS, CONTINUE
   119
   120			040000		NOPNT==	040000			;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
   121			020000		PNTLPT==020000			;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
   122			010000		DING==	010000			;RING BELL ON ERROR
   123
   124			004000		LOOPER==004000			;ENTER EXERCISE/CHECK LOOP ON ERROR
   125			002000		ERSTOP==002000			;HALT ON TEST ERROR
   126			001000		PALERS==001000			;PRINT ALL ERRORS
   127
   128			000400		RELIAB==000400			;RELIABILITY MODE
   129			000200		TXTINH==000200			;INHIBIT ERROR TEXT
   130			000100		INHPAG==000100			;INHIBIT PAGING
   131
   132			000040		MODDVC==000040			;MODIFY DEVICE CODE
   133			000020		INHCSH==000020			;INHIBIT CACHE
   134			000010		OPRSEL==000010			;OPERATOR SELECTION
   135
   136			000004		CHAIN==	000004			;CHAIN CONTROL SWITCH
   137
   138			000002		KAHZ50==000002			;KA10 50 HERTZ POWER
   139
   140									;SWITCH 17 RESERVED !!!
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 2
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0019

   141					SUBTTL	*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977
   142
   143					S^;*********************************************************************^
   144					;*SPECIAL SUBPROGRAM LINKAGES
   145					S^;*********************************************************************^
   146
   147			027772		FSELNK=	27772	;FILE SELECT LINK
   148			027773		FRDLNK=	27773	;FILE READ LINK
   149			027774		LDLNK=	27774	;LOAD LINKAGE ADDRESS
   150			027775		DDTLNK=	27775	;DDT LINKAGE ADDRESS
   151			027776		MODLNK=	27776	;OPERATIONAL MODE CHECK LINKAGE ADDRESS
   152			027777		SUBLNK=	27777	;SUBROUTINE LINKAGE ADDRESS
   153
   154					S^;*********************************************************************^
   155					;*SPECIAL SUBROUTINE FATAL HALTS
   156					;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
   157					S^;*********************************************************************^
   158
   159					;ADDRESS   TAG	REASON
   160					;---------------------
   161
   162					; 1010 	NOEXEC	;PROGRAM NOT CODED FOR EXEC MODE OPERATION
   163					; 1011  PLERR	;FATAL PUSH LIST POINTER ERROR
   164					; 1012  PLERR1	;INITIAL PUSH LIST POINTER ERROR
   165					; 1013  MUOERR	;MUUO WITH LUUO HANDLER WIPED OUT
   166					; 1014  DTEBER	;DTE20 INTERRUPT WITHOUT DOORBELL
   167					; 1015  DTECER	;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
   168					; 1016  CPIERR	;CPU INITIALIZATION ERROR
   169					; 1017  EOPERR	;END OF PROGRAM ERROR
   170					; 1020  LUOERR	;INTERRUPT WITH LUUO HANDLER WIPED OUT
   171
   172					S^;*********************************************************************^
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 3
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0020

   173					S^;*********************************************************************^
   174					;OPERATOR DEFINITIONS (NON-UUO'S)
   175					S^;*********************************************************************^
   176
   177		260740	000000		OPDEF	GO	[PUSHJ	P,]	;SUBROUTINE CALL
   178		263740	000000		OPDEF	RTN	[POPJ	P,]	;SUBROUTINE RETURN 
   179		261740	000000		OPDEF	PUT	[PUSH	P,]	;PUT DATA ON PUSH LIST
   180		262740	000000		OPDEF	GET	[POP	P,]	;GET DATA FROM PUSH LIST 
   181		254000	000000		OPDEF	PJRST	[JRST	]	;JRST TO ROUTINE THAT RTN'S
   182		254200	000000		OPDEF	HALT	[JRST	4,]	;DEFINITION FOR DDT
   183		254100	000000		OPDEF	JRSTF	[JRST	2,]	;DEFINITION FOR DDT
   184		254500	000000		OPDEF	JEN	[JRST	12,]	;DEFINITION FOR DDT
   185
   186					S^;*********************************************************************^
   187					;*SUBROUTINE INITIALIZATION CALL
   188					S^;*********************************************************************^
   189
   190		265000	030011		OPDEF	PGMINT	[JSP	0,SBINIT]	;SUBROUTINE INITIALIZATION
   191
   192					S^;*********************************************************************^
   193					;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
   194					S^;*********************************************************************^
   195
   196		037640	000004		OPDEF	FATAL	[37B8!15B12!4]	;FATAL PROGRAMMING HALT
   197		037600	000004		OPDEF	ERRHLT	[37B8!14B12!4]	;PROGRAM ERROR HALT
   198
   199					S^;*********************************************************************^
   200					;*TERMINAL INPUT UUO'S
   201					;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
   202					;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
   203					S^;*********************************************************************^
   204
   205		037000	000003		OPDEF	TTICHR 	[37B8!0B12!3]	;TTY, INPUT ANY CHARACTER
   206		037040	000003		OPDEF	TTIYES	[37B8!1B12!3]	;TTY, NORMAL RETURN Y
   207		037100	000003		OPDEF	TTINO	[37B8!2B12!3]	;TTY, NORMAL RETURN N
   208		037140	000003		OPDEF	TTIOCT	[37B8!3B12!3]	;TTY, INPUT OCTAL WORD
   209		037200	000003		OPDEF	TTIDEC	[37B8!4B12!3]	;TTY, INPUT DECIMAL WORD
   210		037240	000003		OPDEF	TTICNV	[37B8!5B12!3]	;TTY, INPUT CONVERTABLE WORD
   211		037300	000003		OPDEF	TTLOOK	[37B8!6B12!3]	;TTY, KEYBOARD CHECK
   212		037340	000003		OPDEF	TTALTM	[37B8!7B12!3]	;TTY, ALT-MODE CHECK
   213		037400	000003		OPDEF	TTSIXB	[37B8!10B12!3]	;TTY, INPUT SIXBIT WORD
   214		037440	000003		OPDEF	TTYINP	[37B8!11B12!3]	;TTY, IMAGE MODE INPUT
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 4
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0021

   215					;*TERMINAL OUTPUT UUO'S.
   216
   217		037000	000000		OPDEF	PNTA	[37B8!0B12!0]	;PRINT ASCII WORD
   218		037000	000001		OPDEF	PNTAF	[37B8!0B12!1]	;PRINT ASCII WORD FORCED
   219		037740	000000		OPDEF	PNTAL	[37B8!17B12!0]	;PRINT ASCIZ LINE
   220		037740	000001		OPDEF	PNTALF	[37B8!17B12!1]	;PRINT ASCIZ LINE FORCED
   221		037600	000003		OPDEF	PSIXL	[37B8!14B12!3]	;PRINT SIXBIT'Z LINE
   222		037640	000003		OPDEF	PSIXLF	[37B8!15B12!3]	;PRINT SIXBIT'Z LINE FORCED
   223		037000	000000		OPDEF	PNTMSG	[37B8!0B12!0]	;PRINT MESSAGE IMMEDIATE
   224		037040	000000		OPDEF	PNTMSF	[37B8!1B12!0]	;PRINT MESSAGE IMMEDIATE FORCED
   225		037100	000000		OPDEF	PSIXM	[37B8!2B12!0]	;PRINT SIXBIT'Z MSG IMMEDIATE
   226		037200	000000		OPDEF	PSIXMF	[37B8!4B12!0]	;PRINT SIXBIT'Z MSG IMM FORCED
   227		037000	000000		OPDEF	PNTCI	[37B8!0B12!0]	;PRINT CHARACTER IMMEDIATE
   228		037040	000000		OPDEF	PNTCIF	[37B8!1B12!0]	;PRINT CHARACTER IMMEDIATE FORCED
   229		037500	000000		OPDEF	PNTCHR	[37B8!12B12!0]	;PRINT CHARACTER
   230		037500	000001		OPDEF	PNTCHF	[37B8!12B12!1]	;PRINT CHARACTER FORCED
   231		037040	000000		OPDEF	PNT1	[37B8!1B12!0]	;PRINT ONE OCTAL DIGIT
   232		037040	000001		OPDEF	PNT1F	[37B8!1B12!1]	;PRINT 1 OCTAL DIGIT FORCED	
   233		037100	000000		OPDEF	PNT2	[37B8!2B12!0]	;PRINT TWO OCTAL DIGITS
   234		037100	000001		OPDEF	PNT2F	[37B8!2B12!1]	;PRINT 2 OCTAL DIGITS FORCED	
   235		037140	000000		OPDEF	PNT3	[37B8!3B12!0]	;PRINT THREE OCTAL DIGITS
   236		037140	000001		OPDEF	PNT3F	[37B8!3B12!1]	;PRINT THREE OCTAL DIGITS FORCED	
   237		037200	000000		OPDEF	PNT4	[37B8!4B12!0]	;PRINT FOUR OCTAL DIGITS
   238		037200	000001		OPDEF	PNT4F	[37B8!4B12!1]	;PRINT FOUR OCTAL DIGITS FORCED
   239		037240	000000		OPDEF	PNT5	[37B8!5B12!0]	;PRINT FIVE OCTAL DIGITS
   240		037240	000001		OPDEF	PNT5F	[37B8!5B12!1]	;PRINT FIVE OCTAL DIGITS FORCED
   241		037300	000000		OPDEF	PNT6	[37B8!6B12!0]	;PRINT SIX OCTAL DIGITS
   242		037300	000001		OPDEF	PNT6F	[37B8!6B12!1]	;PRINT SIX OCTAL DIGITS FORCED
   243		037340	000000		OPDEF	PNT7	[37B8!7B12!0]	;PRINT 7 OCTAL DIGITS
   244		037340	000001		OPDEF	PNT7F	[37B8!7B12!1]	;PRINT 7 OCTAL DIGITS FORCED
   245		037440	000000		OPDEF	PNT11	[37B8!11B12!0]	;PRINT 11 OCTAL DIGITS
   246		037440	000001		OPDEF	PNT11F	[37B8!11B12!1]	;PRINT 11 OCTAL DIGITS FORCED.
   247		037400	000000		OPDEF	PNTADR	[37B8!10B12!0]	;PRINT PHYSICAL ADDRESS
   248		037400	000001		OPDEF	PNTADF	[37B8!10B12!1]	;PRINT PHYSICAL ADDRESS FORCED
   249		037600	000000		OPDEF	PNTOCT  [37B8!14B12!0]	;PRINT FULL WORD OCTAL
   250		037600	000001		OPDEF	PNTOTF	[37B8!14B12!1]	;PRINT FULL WORD OCTAL FORCED
   251		037540	000000		OPDEF	PNTHW	[37B8!13B12!0]	;PRINT OCTAL HALF WORDS, 6 SP 6
   252		037540	000001		OPDEF	PNTHWF	[37B8!13B12!1]	;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
   253		037700	000003		OPDEF	PNTOCS	[37B8!16B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S
   254		037740	000003		OPDEF	PNTOCF	[37B8!17B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
   255		037640	000000		OPDEF	PNTDEC	[37B8!15B12!0]	;PRINT DECIMAL, SUPRESS LEADING 0'S
   256		037640	000001		OPDEF	PNTDCF	[37B8!15B12!1]	;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
   257		037700	000000		OPDEF	PNTDS	[37B8!16B12!0]	;PRINT DECIMAL, SPACES FOR LD 0'S
   258		037700	000001		OPDEF	PNTDSF	[37B8!16B12!1]	;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
   259		037200	000002		OPDEF	PNTNM	[37B8!4B12!2]	;PRINT PROGRAM NAME
   260		037000	000002		OPDEF	PNTSIX	[37B8!0B12!2]	;PRINT SIXBIT WORD
   261		037040	000002		OPDEF	PNTSXF	[37B8!1B12!2]	;PRINT SIXBIT WORD FORCED
   262		037240	000002		OPDEF	DROPDV	[37B8!5B12!2]	;CLOSE LOGICAL FILE, USER MODE
   263		037100	000002		OPDEF	PNTCW	[37B8!2B12!2]	;PRINT DF10 CONTROL WORD
   264		037140	000002		OPDEF	PNTCWF	[37B8!3B12!2]	;PRINT DF10 CONTROL WORD FORCED
   265		037000	030242		OPDEF	PCRL	[37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
   266		037040	030242		OPDEF	PCRLF	[37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
   267		037000	000040		OPDEF	PSP	[37B8!0B12!40]	;PRINT SPACE
   268		037040	000040		OPDEF	PSPF	[37B8!1B12!40]	;PRINT SPACE FORCED
   269		037000	030243		OPDEF	PCRL2	[37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 4-1
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0022

   270		037040	030243		OPDEF	PCRL2F	[37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
   271		037040	000007		OPDEF	PBELL	[37B8!1B12!7]	;PRINT TTY BELL
   272
   273		037040	000026		OPDEF	PFORCE	[37B8!1B12!26]	;PRINT FORCE, CONTROL O OVERRIDE
   274
   275					DEFINE	PMSG	(ARG),<
   276						PSIXM	[SIXBIT\ARG'_\]>
   277
   278					DEFINE	PMSGF	(ARG),<
   279						PSIXMF	[SIXBIT\ARG'_\]>
   280
   281					;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
   282					;*	CONSERVES CORE OVER ASCIZ
   283
   284					DEFINE	SIXBTZ	(ARG),<	[SIXBIT\ARG'_\]>
   285
   286					;*CONSOLE SWITCH INPUT UUO.
   287					;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
   288					;* USER MODE.
   289
   290		037400	000002		OPDEF	SWITCH	[37B8!10B12!2]	;INPUT CONSOLE SWITCHES
   291
   292					;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
   293					;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
   294
   295		037540	000004		OPDEF	CLOKOP	[37B8!13B12!4]	;CLOCK OPERATION UUO - PDP-11 CLOCK
   296		037200	000004		OPDEF	MTROP	[37B8!4B12!4]	;CLOCK OPERATION UUO - DK20 METER
   297
   298					;*KL10 ONLY CACHE OPERATION UUO'S
   299
   300		037040	000004		OPDEF	CINVAL	[37B8!1B12!4]	;CACHE INVALIDATE
   301		037100	000004		OPDEF	CFLUSH	[37B8!2B12!4]	;CACHE FLUSH
   302		037140	000004		OPDEF	CWRTBI	[37B8!3B12!4]	;CACHE WRITE-BACK & INVALIDATE
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 5
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0023

   303					;*END OF PASS/PROGRAM UUOS
   304
   305					;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
   306					;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
   307
   308		037500	000004		OPDEF	ENDUUO	[37B8!12B12!4]	;UUO TO DISPLAY LIGHTS
   309		037700	000004		OPDEF	EOPUUO	[37B8!16B12!4]	;END OF PROGRAM UUO
   310
   311					;*MEMORY MANAGEMENT UUO'S
   312					;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
   313					;*ADDRESS CONVERSION, ETC...
   314
   315		037000	000004		OPDEF	MAPMEM	[37B8!0B12!4]	;MAP MEMORY
   316		037500	000002		OPDEF	MEMZRO	[37B8!12B12!2]	;ZERO MEMORY
   317		037440	000002		OPDEF	MEMSEG	[37B8!11B12!2]	;SETUP MEMORY SEGMENT
   318		037540	000002		OPDEF	MAPADR	[37B8!13B12!2]	;VIRTUAL TO PHYSICAL ADR CONVERT
   319		037640	000002		OPDEF	MAPCNK	[37B8!15B12!2]	;MAP MEMORY CHUNK
   320		037600	000002		OPDEF	MAPSET	[37B8!14B12!2]	;SET KI10 EXEC PAGE MAP
   321		037740	000002		OPDEF	MAPPNT	[37B8!17B12!2]	;PRINT MEMORY MAP
   322
   323					;*DEVICE CODE MODIFICATION UUO
   324					;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
   325					;*IOT'S TO A DIFFERENT DEVICE CODE.
   326
   327		037340	000002		OPDEF	MODPCU	[37B8!7B12!2]	;MODIFY PERHIPERAL CODE, USER
   328		037300	000002		OPDEF	MODPCP	[37B8!6B12!2]	;MODIFY PERHIPERAL CODE, PROGRAM
   329
   330			030000			IFNDEF	MODDVL,<MODDVL==BEGIN>
   331			030000			IFNDEF	MODDVU,<MODDVU==BEGIN>
   332
   333					;*"DIAMON" FILE SELECTION AND READ UUOS
   334
   335		037240	000004		OPDEF	FSELECT	[37B8!5B12!4]	;FILE SELECTION
   336		037300	000004		OPDEF	FREAD	[37B8!6B12!4]	;FILE READ - ASCII DATA
   337		037340	000004		OPDEF	FRD36	[37B8!7B12!4]	;FILE READ - 36 BIT DATA
   338		037400	000004		OPDEF	FRD8	[37B8!10B12!4]	;FILE READ - 8 BIT DATA
   339
   340					;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES
   341
   342		037700	000002		OPDEF	PNTMGN	[37B8!16B12!2]	;PRINT MARGIN VALUE
   343
   344						XLIST
   345						LIST
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 1
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0024

   346					SUBTTL	*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977
   347
   348	030000					LOC	30000
   349
   350					S^;*********************************************************************^
   351					;*PROGRAM STARTING ADDRESSES
   352					;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
   353					;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
   354					;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
   355					;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
   356					S^;*********************************************************************^
   357
   358	030000	254 00 1 00 027776 	BEGIN:	JRST	@MODLNK		;STAND-ALONE START
   359	030001	254 00 0 00 030600 	$START:	JRST	START		;MODE CHECK STARTING ADDRESS
   360
   361	030002	254 00 1 00 027774 	DIAGMN:	JRST	@LDLNK		;DIAGNOSTIC MONITOR START
   362
   363	030003	254 00 1 00 027774 	SYSEXR:	JRST	@LDLNK		;SYSTEM EXERCISER START
   364
   365	030004	254 00 0 00 030000 	SFSTRT:	JRST	SADR1		;SPECIAL FEATURE START
   366
   367	030005	254 00 0 00 030076 	PFSTRT:	JRST	SADR2		;POWER FAIL RESTART
   368
   369	030006	254 00 0 00 030635 	REENTR:	JRST	SADR3		;REENTER START(USUALLY USER MODE ONLY)
   370
   371	030007				SRTDDT:				;COMMONLY MISTAKEN NAME FOR "DDTSRT"
   372	030007	254 00 1 00 027775 	DDTSRT:	JRST	@DDTLNK		;DDT START
   373
   374	030010	254 00 0 00 030605 	BEGIN1:	JRST	STARTA		;LOOP START(END OF PASS COMES HERE)
   375	030011	254 00 1 00 027777 	SBINIT:	JRST	@SUBLNK		;PMGINT LINKAGE
   376	030012	000000	000000		RETURN:	0			;RETURN ADDRESS STORAGE
   377
   378	030013	254200	030000		START1:	SADR7			;OPTIONAL STARTING ADR/INSTRUCTIONS
   379	030014	254200	030000		START2:	SADR8			; "
   380	030015	254200	030000		START3:	SADR9			; "
   381	030016	254200	030000		START4:	SADR10			; "
   382	030017	254200	030000		START5:	SADR11			; "
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 2
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0025

   383					S^;*********************************************************************^
   384					;*PROGRAM FIXED PARAMETER AREA
   385					S^;*********************************************************************^
   386
   387	030020	444153	424300		PNTNAM:	PAREA3		;SIXBIT PROGRAM NAME
   388	030021	645560	000000		PNTEXT:	PAREA4		;SIXBIT PROGRAM EXTENSION
   389	030022	123457	654321		RANDBS:	PAREA1		;RANDOM BASE NUMBER
   390	030023	000000	000000		SWTEXR:	PAREA2		;SYSTEM EXERCISER SWITCHES
   391	030024	000000	000001		ITRCNT:	ITERAT		;PROGRAM ITERATIONS
   392	030025	000000	030637		$PNAME:	PGMNAM		;POINTER TO PROGRAMS NAME
   393	030026	000000	000002		$PVER:	MCNVER,,DECVER	;MCN & DEC VERSION LEVEL
   394	030027	000000	030000		$MODVL:	MODDVL		;DEVICE CODE CHANGE LOWER LIMIT
   395	030030	000000	030000		$MODVU:	MODDVU		;DEVICE CODE CHANGE UPPER LIMIT
   396	030031	777777	777777		$EMODE:	IFNDEF EXCASB,<0> IFDEF EXCASB,<-1>	;EXEC ALLOWED
   397	030032	777777	777777		$UMODE:	IFNDEF USRASB,<0> IFDEF USRASB,<-1>	;USER ALLOWED
   398	030033	000000	000000		$DSKUP:	IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1>	;DISK UPDATE MODE
   399	030034	000000	000000		$MMAP:	IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1>	;ALLOW MEMORY RTNS
   400	030035	000000	000000		PAREA7:	PAREA5		;OPTIONAL PARAMETER
   401	030036	000000	000000		PAREA8:	PAREA6		;OPTIONAL PARAMETER
   402
   403					S^;*********************************************************************^
   404					;*PROGRAM VARIABLE PARAMETER AREA
   405					S^;*********************************************************************^
   406
   407	030037	000000	000000		USER:	0		; 0 = EXEC, -1 = USER MODE FLAG
   408	030040	000000	000000		KAIFLG:	0		;PROCESSOR TYPE, 0 = KA10, -1 = KI10
   409	030041	000000	000000		KLFLG:	0		;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
   410	030042	777777	777777		MONFLG:	-1		;DIAG MONITOR SPECIAL USER FLAG
   411	030043	000000	000000		MONCTL:	0		;DIAG MON/SYS EXR FLAG
   412	030044	000000	000000		MONTEN:	0		;-1= LOADED BY 10
   413	030045	000000	000000		CLOCKF:	0		;CLOCK TICKED FLAG
   414	030046	000000	000000		CONSW:	0		;CONSOLE SWITCH SETTINGS
   415	030047	000000	000000		PASCNT:	0		;PROGRAM PASS COUNT
   416	030050	000000	000000		RUNFLG:	0		;PROGRAM RUN FLAG
   417	030051	000000	000000		TESTPC:	0		;SUBTEST PC
   418	030052	000000	000000		ERRPC:	0		;ERROR PC
   419	030053	000000	000000		ERRTLS:	0		;ERROR TOTALS
   420	030054	000000	000000		TICKS:	0		;PROGRAM RUNNING TIME
   421	030055	000000	000000		MARGIN:	0		;KI10 MARGIN WORD VALUE
   422	030056	000000	000000		$ONETM:	0		;SUBROUTINE INITIALIZATION FLAG
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 3
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0026

   423					S^;*********************************************************************^
   424					;*SPECIAL PROGRAM DISPATCH ADDRESSES
   425					S^;*********************************************************************^
   426
   427	030057	037 12 0 00 000004 	BEGEND:	ENDUUO		;END OF PASS
   428	030060	254 00 0 00 030010 	$BEND1:	JRST	BEGIN1	;KEEP RUNNING PROGRAM
   429	030061	037 16 0 00 000004 	$BEND2:	EOPUUO		;END OF PROGRAM - NO RETURN
   430	030062	000000	030000		CNTLC:	SADR5		;CONTROL C XFER ADDRESS
   431	030063	000000	030000		ALTMGO:	SADR6		;ALTMODE XFER ADDRESS
   432	030064				CPOPJ1:			;SKIP RETURN
   433	030064	350 00 0 17 000000 	UUOSKP:	AOS	(P)	;SKIP RETURN FROM UUO
   434	030065				CPOPJ:			;NON-SKIP REGULAR RETURN
   435	030065	263 17 0 00 000000 	UUOEXT:	RTN		;UUO RETURN
   436	030066	255 00 0 00 000000 	UUORTN:	JFCL		;ADDITIONAL USERS UUO ROUTINE
   437	030067	255 00 0 00 000000 	$UORTX:	JFCL		;ADDITIONAL UUO LINKAGE
   438	030070	255 00 0 00 000000 	$UUOER:	JFCL		;INITED AS (JRST $UOERX)
   439	030071	255 00 0 00 000000 	$ITRHL:	JFCL		;ADDITIONAL INTERRUPT LINKAGE
   440	030072	255 00 0 00 000000 	$ITRX1:	JFCL		; "
   441	030073	255 00 0 00 000000 	$USRHL:	JFCL		; "
   442	030074	255 00 0 00 000000 	$RSRTX:	JFCL		;ADDITIONAL POWER FAIL LINKAGE
   443	030075	255 00 0 00 000000 	$RSRTY:	JFCL		; "
   444	030076	255 00 0 00 000000 	RESRT1:	JFCL		; INITED AS (JRST RESRTX)
   445	030077	255 00 0 00 000000 	RESRT2:	JFCL		; "
   446	030100	255 00 0 00 000000 	$PARER:	JFCL		;ADDITIONAL PARITY ERROR LINKAGE
   447	030101	255 00 0 00 000000 	ERMORE:	JFCL		;ADDITIONAL ERROR HANDLER LINKAGE
   448	030102	254 04 0 00 030102 		HALT	.	;IMPROPER TRANSFER HALT
   449
   450	030103	000000	000000		$PSHER:	0		;INITED AS (JRST PSHERR)
   451	030104	000000	000000		ITRCH1:	0		;PC & FLAGS OF CURRENT INTERRUPT
   452	030105	000000	000000			0		;INITED AS (JRST $ITRC1)
   453
   454					S^;*********************************************************************^
   455					;*PROCESSOR CONTROL STORAGE
   456					S^;*********************************************************************^
   457
   458	030106	000000	000000		$ACC0:	0		;INTERRUPT SAVED AC0
   459	030107	000000	000000		$SVPI:	0		;INTERRUPT SAVED PI
   460	030110	000000	000000		$SVAPR:	0		;INTERRUPT SAVED APR
   461	030111	000000	000000		$SVPAG:	0		;INTERRUPT SAVED PAG (DATAI)
   462	030112	000000	000000		$SPAG1:	0		;INTERRUPT SAVED PAG (CONI)
   463
   464	030113	000000	000000		$SVUUO:	0		;CURRENT USERS UUO
   465	030114	000000	000000		$SVUPC:	0		;PC OF CURRENT USERS UUO
   466
   467	030115	000000	000000		REPTU:	0		;REPEAT UUO ITERATIONS
   468	030116	000000	000000		SCOPE:	0		;ERROR HANDLER SCOPE LOOP FLAG
   469	030117	000000	000000		%CORFLG:0		; " CORRECT FLAG
   470	030120	000000	000000		%COREC:	0		; " CORRECT DATA
   471	030121	000000	000000		%ACTFL:	0		; " ACTUAL FLAG
   472	030122	000000	000000		%ACTUL:	0		; " ACTUAL DATA
   473	030123	000000	000000		%DISCR:	0		; " DISCREPENCY DATA
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 4
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0027

   474					S^;*********************************************************************^
   475					;*UUO DISPATCH TABLE
   476					S^;*********************************************************************^
   477						XLIST
   478						LIST
   479	030124	037625	030070		UUODIS:	LUUO1,,$UUOER
   480	030125	037625	037625			LUUO3,,LUUO2
   481	030126	037625	037625			LUUO5,,LUUO4
   482	030127	037625	030070			LUUO7,,LUUO6
   483	030130	037625	030070			LUUO11,,LUUO10
   484	030131	037625	037625			LUUO13,,LUUO12
   485	030132	030070	030070			LUUO15,,LUUO14
   486	030133	030070	030070			LUUO17,,LUUO16
   487	030134	030070	030070			LUUO21,,LUUO20
   488	030135	030070	030070			LUUO23,,LUUO22
   489	030136	030070	030070			LUUO25,,LUUO24
   490	030137	030070	030070			LUUO27,,LUUO26
   491	030140	030070	030070			LUUO31,,LUUO30
   492	030141	030070	030070			LUUO33,,LUUO32
   493
   494					S^;*********************************************************************^
   495					;*MEMORY MANAGMENT STORAGE
   496					S^;*********************************************************************^
   497
   498	030142	000000	000000		DF22F:	0		;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
   499	030143	000000	000000		MAPNEW:	0		;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
   500	030144	000000	000000		MEMTOT:	0		;TOTAL MEMORY SIZE IN K (1024.)
   501	030145	000000	000000		MEMLOW:	0		;LOWEST USABLE MEMORY
   502	030146				MEMSIZ:	BLOCK ^D41	;MEMORY SEGMENT POINTER TABLE
   503
   504					S^;*********************************************************************^
   505					;*PRINT CONTROL STORAGE
   506					S^;*********************************************************************^
   507
   508	030217	000000	000000		PNTFLG:	0		;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
   509	030220	000000	000000		PNTENB:	0		;PRINT ENABLE
   510	030221	000000	000000		PDISF:	0		;PRINT DISABLED FLAG
   511	030222	000000	000000		PNTINH:	0		;INHIBIT PRINT INPUT CHECKS
   512	030223	000000	000000		PNTSPC:	0		;PRINT SPACE CONTROL
   513	030224	000000	000000		OPTIME:	0		;TYPE-IN WAIT TIME
   514	030225	000000	000000		$TWCNT:	0		;TIME WAITED
   515	030226	000000	000000		$DVOFF:	0		;LOGICAL DEVICE INITED FLAG
   516	030227	000000	000000		TTYFIL:	0		;TTY EXEC FILLERS FLAG
   517	030230	000000	000000		TTYSPD:	0		;TTY EXEC BAUD RATE
   518	030231	000000	000000		$TTCHR:	0		;ACTUAL TYPED IN CHAR
   519	030232	000000	000000		$CHRIN:	0		;UPPER CASED & PARITY STRIPPED CHAR
   520	030233	000000	000000		$TYPNB:	0		;TYPED IN NUMBER
   521	030234	000000	000000		$CRLF:	0		;FREE CR/LF FLAG
   522	030235	000000	000000		$TABF:	0		;TAB CONVERSION FLAG
   523	030236	000000	000000		$FFF:	0		;FORM FEED CONVERSION FLAG
   524	030237	000000	000000		$VTF:	0		;VERTICAL TAB CONVERSION FLAG
   525	030240	000000	000000		USRLFF:	0		;USER LF FILLERS
   526	030241	000000	000000		USRCRF:	0		;USER CR FILLERS
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 5
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0028

   527					S^;*********************************************************************^
   528					;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
   529					;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
   530					;*	MOVEI	NAME
   531					;*	PNTA		;OR PNTAF
   532					S^;*********************************************************************^
   533
   534	030242				CRLF:	ASCII/
   535	030242	015 012 000 000 000 	/
   536	030243				CRLF2:	ASCII/
   537
   538	030243	015 012 015 012 000 	/
   539	030244	054 000 000 000 000 	COMMA:	ASCII/,/
   540	030245	056 000 000 000 000 	PERIOD:	ASCII/./
   541	030246	040 000 000 000 000 	SPACE:	ASCII/ /
   542	030247	011 000 000 000 000 	TAB:	ASCII/	/
   543	030250				MINUS:
   544	030250	055 000 000 000 000 	HYPEN:	ASCII/-/
   545	030251	053 000 000 000 000 	PLUS:	ASCII/+/
   546	030252	052 000 000 000 000 	AST:	ASCII/*/
   547	030253	100 000 000 000 000 	ATSIN:	ASCII/@/
   548	030254	050 000 000 000 000 	LFP:	ASCII/(/
   549	030255	051 000 000 000 000 	RTP:	ASCII/)/
   550	030256	007 0000000000 		BELL:	BYTE (7) 007
   551	030257	077 000 000 000 000 	QUEST:	ASCII/?/
   552	030260	057 000 000 000 000 	SLASH:	ASCII!/!
   553	030261	044 000 000 000 000 	DOLLAR:	ASCII/$/
   554	030262	000000	000012		RADIX:	^D10			;DECIMAL PRINT RADIX
   555	030263	000000	000040		RADLSP:	40			;DECIMAL PRINT LEADING CHAR
   556	030264	000000	000012		RADLSC:	^D10			;DECIMAL PRINT LEADING CHAR COUNT
   557
   558					S^;*********************************************************************^
   559					;*USER MODE OUTPUT FILE INFORMATION
   560					S^;*********************************************************************^
   561
   562	030265				$OBUF:	BLOCK	3		;LOGICAL FILE OUTPUT BUFFER HEADER
   563	030270	60 62 51 56 64 00 	$OUTNM:	SIXBIT	/PRINT/		;FILE NAME
   564	030271	60 56 64 00 00 00 	$OUTEX:	SIXBIT	/PNT/		;FILE NAME EXTENSION
   565	030272					BLOCK	2
   566
   567					S^;*********************************************************************^
   568					;*DISK UPDATE MODE FILE INFORMATION
   569					S^;*********************************************************************^
   570
   571	030274				$IBUF:	BLOCK	3
   572	030277	60 62 51 56 64 00 	$INNM:	SIXBIT	/PRINT/
   573	030300	60 56 64 00 00 00 	$INEXT:	SIXBIT	/PNT/
   574	030301					BLOCK	2
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 6
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0029

   575					S^;*********************************************************************^
   576					;*PUSHDOWN LIST CONTROL INFORMATION
   577					S^;*********************************************************************^
   578
   579	030303	777577	030303		PLIST:	PLIST-PLISTE,,PLIST
   580	030304				PLISTS:	BLOCK	200
   581	030504	000000	000000		PLISTE:	0		;END OF PUSHDOWN LIST
   582
   583					S^;*********************************************************************^
   584					;*POWER LINE CLOCK FREQUENCY FLAG
   585					S^;*********************************************************************^
   586
   587	030505	000000	000000		CYCL60:	0	;0 = 60, -1 = 50 CYCLE
   588
   589					S^;*********************************************************************^
   590					;*KL10 CACHE CONTROL FLAGS
   591					S^;*********************************************************************^
   592
   593	030506	000000	000000		CSHFLG:	0	;ALLOW CACHE IF 0
   594	030507	000000	000000		CSHMEM:	0	;CACHE MEMORY SEGMENTS IF 0
   595
   596					S^;*********************************************************************^
   597					;*NUMBER INPUT DIGIT FLAG
   598					S^;*********************************************************************^
   599
   600	030510	000000	000000		TTNBRF:	0	;-1 IF ANY DIGIT TYPED
   601
   602					S^;*********************************************************************^
   603					;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
   604					S^;*********************************************************************^
   605
   606	030511	000000	000000		PVPAGI:	0	;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
   607
   608					S^;*********************************************************************^
   609					;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
   610					S^;*********************************************************************^
   611
   612	030512	000000	000000		%ERHI1:	0	;IF NON-ZERO, XCT'D AT START OF %ERUUO
   613	030513	000000	000000		%ERHI2:	0	;IF NON-ZERO, XCT'D AT END OF %ERUUO
   614	030514	000000	000000		%ERHI3:	0	;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
   615
   616					S^;*********************************************************************^
   617					;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
   618					S^;*********************************************************************^
   619
   620	030515	000000	000000		$$UUO:	0	;IF NON-ZERO, XCT'D AT START OF $UORTN
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 7
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0030

   621					S^;*********************************************************************^
   622					;*KL10 PROCESSOR TYPE FLAG, 0=P0, 1=BBD NEW, 2=BBD OLD
   623					S^;*********************************************************************^
   624
   625	030516	000000	000000		KLTYP:	0
   626
   627					S^;*********************************************************************^
   628					;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
   629					S^;*********************************************************************^
   630
   631	030517	000000	000000		$$MUUO:	0	;IF NON-ZERO, XCT'D AT START OF MUUOER
   632
   633					S^;*********************************************************************^
   634					;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
   635					S^;*********************************************************************^
   636
   637	030520	000000	000000		$$OUTER:0	;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
   638
   639					S^;*********************************************************************^
   640					;*"SWITCH" CALL USAGE CONTROL
   641					S^;*********************************************************************^
   642
   643	030521	000000	000000		$$TOGGLE:0	;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
   644
   645					S^;*********************************************************************^
   646					;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
   647					S^;*********************************************************************^
   648
   649	030522	000000	000000		$$TAX1:	0	;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
   650	030523	000000	000000		$$TAX2:	0	;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
   651
   652					S^;*********************************************************************^
   653					;*SPECIAL FUTURE EXPANSION ROOM
   654					;*IF ANY FIXED AREA TAGS ARE ADDED, REDUCE THE SIZE OF
   655					;*THIS BLOCK STATEMENT ACCORDINGLY.  THIS MUST BE DONE
   656					;*SO THAT PREVIOUS FIXED ASSIGNMENTS DO NOT CHANGE.
   657					S^;*********************************************************************^
   658
   659	030524					BLOCK	53	;HOPEFULLY THIS IS ENOUGH FOREVER
   660
   661					S^;*********************************************************************^
   662					;*END OF FIXED STORAGE
   663					S^;*********************************************************************^
   664
   665			030577			$ENDFX=<PLISTE+100>&<777700>-1
   666	030577					LOC	$ENDFX
   667	030577	000000	000000		ENDFIX:	0		;END OF FIXED STORAGE
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 1
DAKBCM	MAC	21-JAN-77 16:49		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0031

   668					;INITIALIZE UUO HANDLER
   669
   670	030600	265 00 0 00 030011 	START:	PGMINT			;INITIALIZE SUBROUTINES
   671	030601	200 00 0 00 030022 		MOVE	0,RANDBS	;EXEC, SETUP RANDOM BASE
   672	030602	332 00 0 00 030037 		SKIPE	USER		;USER, USE TIME OF DAY IN JIFFIES
   673	030603	040 00 0 00 040067 		CALL	0,[SIXBIT/TIMER/]
   674	030604	202 00 0 00 040201 		MOVEM	0,RAN		;SETUP RANDOM BASE
   675
   676					;INITIALIZE COMPLEXITY TABLE
   677
   678			000000			A=0
   679	030605	402 00 0 00 030665 	STARTA:	SETZM	CMPLXT		;STORE A TABLE OF POWERS OF 2
   680	030606	201 01 0 00 000001 		MOVEI	1,1		;OR 0.
   681	030607	037 10 0 00 000002 		SWITCH
   682	030610	607 00 0 00 000400 		TLNN	RELIAB		;FAST CYCLE SWITCH SET ?
   683	030611	402 00 0 00 000001 		SETZM	1		;YES, STORE ZERO'S
   684						REPEAT	7,
   685					<	MOVEM	1,CMPLXT+1+A
   686						LSH	1,1
   687						A=A+1>
   688	030612	202 01 0 00 030666 		MOVEM	1,CMPLXT+1+A
   689	030613	242 01 0 00 000001 		LSH	1,1
   690			000001			A=A+1
   691	030614	202 01 0 00 030667 		MOVEM	1,CMPLXT+1+A
   692	030615	242 01 0 00 000001 		LSH	1,1
   693			000002			A=A+1
   694	030616	202 01 0 00 030670 		MOVEM	1,CMPLXT+1+A
   695	030617	242 01 0 00 000001 		LSH	1,1
   696			000003			A=A+1
   697	030620	202 01 0 00 030671 		MOVEM	1,CMPLXT+1+A
   698	030621	242 01 0 00 000001 		LSH	1,1
   699			000004			A=A+1
   700	030622	202 01 0 00 030672 		MOVEM	1,CMPLXT+1+A
   701	030623	242 01 0 00 000001 		LSH	1,1
   702			000005			A=A+1
   703	030624	202 01 0 00 030673 		MOVEM	1,CMPLXT+1+A
   704	030625	242 01 0 00 000001 		LSH	1,1
   705			000006			A=A+1
   706	030626	202 01 0 00 030674 		MOVEM	1,CMPLXT+1+A
   707	030627	242 01 0 00 000001 		LSH	1,1
   708			000007			A=A+1
   709
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 2
DAKBCM	MAC	21-JAN-77 16:49		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0032

   710					;INITIALIZE RUN TIME
   711
   712	030630	201 01 0 00 000001 		MOVEI	1,1
   713	030631	603 00 0 00 000400 		TLNE	RELIAB		;FAST CYCLE SWITCH SET ?
   714	030632	201 01 0 00 000007 		MOVEI	1,7		;NO, MULTIPLY RUNNING TIME
   715	030633	202 01 0 00 030664 		MOVEM	1,RTIME		;STORE IN RTIME
   716
   717	030634	254 00 0 00 030710 		JRST	TRC4		;GO PERFORM DIAGNOSTIC
   718
   719	030635	037 05 0 00 000002 	RENTR1:	DROPDV			;CLOSE LOGICAL OUTPUT FILE
   720	030636	040 00 0 00 040070 		CALL	[SIXBIT .EXIT.]
   721
   722	030637				PGMNAM:	ASCIZ?
   723	030637	015 012 120 104 120 	PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3 (DAKBC)
   724	030640	055 061 060 040 040 
   725	030641	113 101 061 060 040 
   726	030642	102 101 123 111 103 
   727	030643	040 111 116 123 124 
   728	030644	122 125 103 124 111 
   729	030645	117 116 040 122 105 
   730	030646	114 111 101 102 111 
   731	030647	114 111 124 131 040 
   732	030650	124 105 123 124 040 
   733	030651	063 040 050 104 101 
   734	030652	113 102 103 051 015 
   735	030653	012 050 124 105 123 	(TESTS, HALF WORD, ADD/SUB, JFFO, ETC.)
   736	030654	124 123 054 040 110 
   737	030655	101 114 106 040 127 
   738	030656	117 122 104 054 040 
   739	030657	101 104 104 057 123 
   740	030660	125 102 054 040 112 
   741	030661	106 106 117 054 040 
   742	030662	105 124 103 056 051 
   743	030663	015 012 000 000 000 	?
   744
   745					;CONSTANTS
   746
   747	030664	000000	000000		RTIME:	0
   748	030665				CMPLXT:	BLOCK	20
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 3
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0033

   749					SUBTTL	DIAGNOSTIC SECTION
   750						LALL
   751
   752	030705	002000	000000		TSTLFT:	2000000000
   753	030706	004000	000000		TLFT1:	4000000000
   754	030707	010000	000000		TLFT2:	10000000000
   755
   756
   757					;TEST TRC, TRCA.  CHECK FOR SKIP/NO SKIP AND
   758					;CORRECT DATA IN AC FOR -1 TO RAN CONDITION.
   759
   760
   761			000011			AC=11
   762	030710				TRC4:	SETUP	100,0^
   763			000012			AC1=<AC+1>&17
   764			000013			AC2=<AC+2>&17
   765			000014			AC3=<AC+3>&17
   766			000015			AC4=<AC+4>&17
   767			000016			AC5=<AC+5>&17
   768			000007			RAN1=<AC-2>&17
   769	030710	201 10 0 00 030710 		MOVEI	AC-1,.
   770	030711	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
   771	030712	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
   772	030713	202 10 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
   773	030714	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
   774	030715	240 10 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
   775	030716	240 10 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
   776	030717				TRC5:	RANDOM^
   777	030717	200 11 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
   778	030720	270 11 0 00 040071 		ADD	AC,[142536475076]
   779	030721	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
   780	030722	447 11 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
   781	030723	640 11 0 00 777777 	TRC6:	TRC	AC,-1		;SHOULD NOT SKIP.
   782	030724	254 00 0 00 030726 		JRST	.+2
   783	030725	005 11 0 00 040072 		ER	AC,[ASCII /TST/];TRC SKIPPED.
   784	030726	644 11 0 00 777777 		TRCA	AC,-1		;SHOULD SKIP.
   785	030727	005 11 0 00 040072 		ER	AC,[ASCII /TST/]
   786	030730	312 11 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD  STILL=RAN NUM.
   787	030731	013 00 0 00 777777 		EERRI	,-1
   788						LOOP 	TRC5,TRC6^
   789	030732	367 10 0 00 030717 		SOJG	AC-1,TRC5		;ITERATION COUNTER
   790	030733	200 11 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
   791	030734	321 10 0 00 030723 		JUMPL	AC-1,TRC6		;LOOP ON ERROR SWITCH ^
   792
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 4
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0034

   793
   794
   795					;TEST TRC, TRCA.  CHECK FOR SKIP/NO SKIP AND
   796					;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
   797
   798
   799			000004			AC=4
   800	030735				TRCA4:	SETUP	100,0^
   801			000005			AC1=<AC+1>&17
   802			000006			AC2=<AC+2>&17
   803			000007			AC3=<AC+3>&17
   804			000010			AC4=<AC+4>&17
   805			000011			AC5=<AC+5>&17
   806			000002			RAN1=<AC-2>&17
   807	030735	201 03 0 00 030735 		MOVEI	AC-1,.
   808	030736	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
   809	030737	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
   810	030740	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
   811	030741	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
   812	030742	240 03 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
   813	030743	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
   814	030744				TRCA5:	RANDOM^
   815	030744	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
   816	030745	270 04 0 00 040071 		ADD	AC,[142536475076]
   817	030746	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
   818	030747	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
   819	030750	477 05 0 00 000002 	TRCA6:	SETOB	AC1,RAN1	;SET C(AC) TO -1.
   820	030751	640 05 0 04 000000 		TRC	AC1,(AC)	;SHOULD NOT SKIP.
   821	030752	254 00 0 00 030754 		JRST	.+2
   822	030753	005 05 0 00 040072 		ER	AC1,[ASCII /TST/];TRC SKIPPED.
   823	030754	644 05 0 04 000000 		TRCA	AC1,(AC)	;SHOULD SKIP.
   824	030755	005 05 0 00 040072 		ER	AC1,[ASCII /TST/]
   825	030756	312 05 0 00 040073 		CAME	AC1,[-1]	;C(AC) SHOULD STILL=-1
   826	030757	003 02 0 04 000000 		ERRI	RAN1,(AC)
   827						LOOP	TRCA5,TRCA6^
   828	030760	367 03 0 00 030744 		SOJG	AC-1,TRCA5		;ITERATION COUNTER
   829	030761	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
   830	030762	321 03 0 00 030750 		JUMPL	AC-1,TRCA6		;LOOP ON ERROR SWITCH ^
   831
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 5
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0035

   832
   833
   834					;TEST TRC, TRCA.  CHECK FOR SKIP/NO SKIP AND
   835					;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION.
   836
   837
   838			000005			AC=5
   839	030763				TRC7:	SETUP	100,0^
   840			000006			AC1=<AC+1>&17
   841			000007			AC2=<AC+2>&17
   842			000010			AC3=<AC+3>&17
   843			000011			AC4=<AC+4>&17
   844			000012			AC5=<AC+5>&17
   845			000003			RAN1=<AC-2>&17
   846	030763	201 04 0 00 030763 		MOVEI	AC-1,.
   847	030764	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
   848	030765	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
   849	030766	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
   850	030767	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
   851	030770	240 04 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
   852	030771	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
   853	030772				TRC8:	RANDOM^
   854	030772	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
   855	030773	270 05 0 00 040071 		ADD	AC,[142536475076]
   856	030774	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
   857	030775	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
   858	030776	460 06 0 00 000005 	TRC9:	SETCM	AC1,AC		;MAKE "E"=COMP OF C(AC)
   859	030777	640 05 0 06 000000 		TRC	AC,(AC1)	;SHOULD NOT SKIP
   860	031000	254 00 0 00 031002 		JRST	.+2
   861	031001	005 05 0 00 040072 		ER	AC,[ASCII /TST/];TRC SKIPPED.
   862	031002	644 05 0 06 000000 		TRCA	AC,(AC1)	;SHOULD SKIP
   863	031003	005 05 0 00 040072 		ER	AC,[ASCII /TST/]
   864	031004	312 05 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD=RAN NUM.
   865	031005	013 00 0 06 000000 		EERRI	,(AC1)
   866						LOOP	TRC8,TRC9^
   867	031006	367 04 0 00 030772 		SOJG	AC-1,TRC8		;ITERATION COUNTER
   868	031007	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
   869	031010	321 04 0 00 030776 		JUMPL	AC-1,TRC9		;LOOP ON ERROR SWITCH ^
   870
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 6
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0036

   871
   872
   873					;TEST TRC, TRCA.  CHECK FOR SKIP/NO SKIP AND
   874					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
   875
   876
   877			000006			AC=6
   878	031011				TRCA7:	SETUP	100,0^
   879			000007			AC1=<AC+1>&17
   880			000010			AC2=<AC+2>&17
   881			000011			AC3=<AC+3>&17
   882			000012			AC4=<AC+4>&17
   883			000013			AC5=<AC+5>&17
   884			000004			RAN1=<AC-2>&17
   885	031011	201 05 0 00 031011 		MOVEI	AC-1,.
   886	031012	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
   887	031013	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
   888	031014	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
   889	031015	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
   890	031016	240 05 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
   891	031017	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
   892	031020				TRCA8:	RANDOM^
   893	031020	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
   894	031021	270 06 0 00 040071 		ADD	AC,[142536475076]
   895	031022	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
   896	031023	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
   897	031024	200 07 0 00 000006 	TRCA9:	MOVE	AC1,AC		;MAKE "E"=C(AC).
   898	031025	640 06 0 07 000000 		TRC	AC,(AC1)	;SHOULD NOT SKIP
   899	031026	254 00 0 00 031030 		JRST	.+2
   900	031027	005 06 0 00 040072 		ER	AC,[ASCII /TST/];TRC SKIPPED.
   901	031030	644 06 0 07 000000 		TRCA	AC,(AC1)	;SHOULD SKIP
   902	031031	005 06 0 00 040072 		ER	AC,[ASCII /TST/]
   903	031032	312 06 0 00 040201 		CAME	AC,RAN		;C(AC)SHOULD=RAN NUM
   904	031033	003 07 0 07 000000 		ERRI	AC1,(AC1)
   905						LOOP	TRCA8,TRCA9^
   906	031034	367 05 0 00 031020 		SOJG	AC-1,TRCA8		;ITERATION COUNTER
   907	031035	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
   908	031036	321 05 0 00 031024 		JUMPL	AC-1,TRCA9		;LOOP ON ERROR SWITCH ^
   909
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 7
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0037

   910
   911
   912					;TEST TRCE, TRCN.  CHECK FOR SKIP/NO SKIP AND
   913					;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
   914
   915
   916			000007			AC=7
   917	031037				TRCE1:	SETUP	100,0^
   918			000010			AC1=<AC+1>&17
   919			000011			AC2=<AC+2>&17
   920			000012			AC3=<AC+3>&17
   921			000013			AC4=<AC+4>&17
   922			000014			AC5=<AC+5>&17
   923			000005			RAN1=<AC-2>&17
   924	031037	201 06 0 00 031037 		MOVEI	AC-1,.
   925	031040	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
   926	031041	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
   927	031042	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
   928	031043	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
   929	031044	240 06 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
   930	031045	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
   931	031046				TRCE2:	RANDOM^
   932	031046	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
   933	031047	270 07 0 00 040071 		ADD	AC,[142536475076]
   934	031050	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
   935	031051	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
   936	031052	646 07 0 00 000000 	TRCE3:	TRCN	AC,0		;E+C(AC)R=0. NO SKIP
   937	031053	254 00 0 00 031055 		JRST	.+2
   938	031054	005 07 0 00 040072 		ER	AC,[ASCII /TST/];TRCN SKIPPED.
   939	031055	642 07 0 00 000000 		TRCE	AC,0		;E+C(AC)R=0. SKIP
   940	031056	005 07 0 00 040072 		ER	AC,[ASCII /TST/]
   941	031057	312 07 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD STILL=RAN.
   942	031060	013 00 0 00 000000 		EERRI	,0
   943						LOOP	TRCE2,TRCE3^
   944	031061	367 06 0 00 031046 		SOJG	AC-1,TRCE2		;ITERATION COUNTER
   945	031062	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
   946	031063	321 06 0 00 031052 		JUMPL	AC-1,TRCE3		;LOOP ON ERROR SWITCH ^
   947
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 8
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0038

   948
   949
   950					;TEST TRCE, TRCN.  CHECK FOR SKIP/NO SKIP AND
   951					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
   952
   953
   954			000010			AC=10
   955	031064				TRCEA1:	SETUP	100,0^
   956			000011			AC1=<AC+1>&17
   957			000012			AC2=<AC+2>&17
   958			000013			AC3=<AC+3>&17
   959			000014			AC4=<AC+4>&17
   960			000015			AC5=<AC+5>&17
   961			000006			RAN1=<AC-2>&17
   962	031064	201 07 0 00 031064 		MOVEI	AC-1,.
   963	031065	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
   964	031066	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
   965	031067	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
   966	031070	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
   967	031071	240 07 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
   968	031072	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
   969	031073				TRCEA2:	RANDOM^
   970	031073	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
   971	031074	270 10 0 00 040071 		ADD	AC,[142536475076]
   972	031075	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
   973	031076	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
   974	031077	606 10 0 00 777777 		TRNN	AC,-1		;RIGHT HALF OF AC CLR?
   975	031100	254 00 0 00 031073 		JRST	TRCEA2		;YES. GO GEN A NEW RAN NUM.
   976	031101	403 11 0 00 000006 	TRCEA3:	SETZB	AC1,RAN1	;CLEAR C(AC).
   977	031102	646 11 0 10 000000 		TRCN	AC1,(AC)	;E+C(AC)R=0.  NO SKIP
   978	031103	254 00 0 00 031105 		JRST	.+2
   979	031104	005 11 0 00 040072 		ER	AC1,[ASCII /TST/];TRCN SKIPPED.
   980	031105	646 11 0 10 000000 		TRCN	AC1,(AC)	;E+C(AC)R NOT=0.  SKIP
   981	031106	005 11 0 00 040072 		ER	AC1,[ASCII /TST/]
   982	031107	312 11 0 00 040074 		CAME	AC1,[0]		;C(AC) SHOULD=0 AGAIN
   983	031110	003 06 0 10 000000 		ERRI	RAN1,(AC)
   984	031111	642 11 0 10 000000 		TRCE	AC1,(AC)	;E+C(AC)R=0 .SKIP
   985	031112	005 11 0 00 040072 		ER	AC1,[ASCII /TST/]
   986	031113	642 11 0 10 000000 		TRCE	AC1,(AC)	;E+C(AC)R NOT=0  NO SKIP
   987	031114	312 11 0 00 040074 		CAME	AC1,[0]		;C(AC) SHOULD=0 AGAIN
   988	031115	003 06 0 10 000000 		ERRI	RAN1,(AC)
   989						LOOP	TRCEA2,TRCEA3^
   990	031116	367 07 0 00 031073 		SOJG	AC-1,TRCEA2		;ITERATION COUNTER
   991	031117	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
   992	031120	321 07 0 00 031101 		JUMPL	AC-1,TRCEA3		;LOOP ON ERROR SWITCH ^
   993
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 9
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0039

   994
   995
   996					;TEST TRCE, TRCN.  CHECK FOR SKIP/NO SKIP AND
   997					;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
   998
   999
  1000			000010			AC=10
  1001	031121				TRCE4:	SETUP	100,0^
  1002			000011			AC1=<AC+1>&17
  1003			000012			AC2=<AC+2>&17
  1004			000013			AC3=<AC+3>&17
  1005			000014			AC4=<AC+4>&17
  1006			000015			AC5=<AC+5>&17
  1007			000006			RAN1=<AC-2>&17
  1008	031121	201 07 0 00 031121 		MOVEI	AC-1,.
  1009	031122	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1010	031123	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1011	031124	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1012	031125	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1013	031126	240 07 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1014	031127	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1015	031130				TRCE5:	RANDOM^
  1016	031130	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1017	031131	270 10 0 00 040071 		ADD	AC,[142536475076]
  1018	031132	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1019	031133	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1020	031134	435 10 0 00 000002 	TRCE6:	IORI	AC,2		;MAKE C(AC) HAVE AT LEAST ONE BIT.
  1021	031135	201 11 0 10 000000 		MOVEI	AC1,(AC)	;CHECK TO MAKE
  1022	031136	306 11 0 00 777777 		CAIN	AC1,-1		;SURE C(AC)R DOES NOT = -1.
  1023	031137	254 00 0 00 031130 		JRST	TRCE5		;REJECT IF IT DOES.
  1024	031140	200 06 0 00 000010 		MOVE	RAN1,AC		;SAVE C(AC) FOR FUTURE COMPARE.
  1025	031141	642 10 0 00 777777 		TRCE	AC,-1		;E+C(AC)R NOT = 0...NO SKIP.
  1026	031142	254 00 0 00 031144 		JRST	.+2
  1027	031143	005 10 0 00 040072 		ER	AC,[ASCII /TST/];TRCE SKIPPED.
  1028	031144	646 10 0 00 777777 		TRCN	AC,-1		;E+C(AC)R NOT=0.  SKIP
  1029	031145	005 10 0 00 040072 		ER	AC,[ASCII /TST/]
  1030	031146	312 10 0 00 000006 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  1031	031147	003 06 0 00 777777 		ERRI	RAN1,-1
  1032						LOOP	TRCE5,TRCE6^
  1033	031150	367 07 0 00 031130 		SOJG	AC-1,TRCE5		;ITERATION COUNTER
  1034	031151	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1035	031152	321 07 0 00 031134 		JUMPL	AC-1,TRCE6		;LOOP ON ERROR SWITCH ^
  1036
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 10
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0040

  1037
  1038
  1039					;TEST TRCE, TRCN.  CHECK FOR SKIP/NO SKIP AND
  1040					;CORRECT DATA IN AC FOR RAN TO-1 CONDITION.
  1041
  1042
  1043			000003			AC=3
  1044	031153				TRCEA4:	SETUP	100,0^
  1045			000004			AC1=<AC+1>&17
  1046			000005			AC2=<AC+2>&17
  1047			000006			AC3=<AC+3>&17
  1048			000007			AC4=<AC+4>&17
  1049			000010			AC5=<AC+5>&17
  1050			000001			RAN1=<AC-2>&17
  1051	031153	201 02 0 00 031153 		MOVEI	AC-1,.
  1052	031154	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1053	031155	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1054	031156	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1055	031157	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1056	031160	240 02 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1057	031161	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1058	031162				TRCEA5:	RANDOM^
  1059	031162	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1060	031163	270 03 0 00 040071 		ADD	AC,[142536475076]
  1061	031164	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1062	031165	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1063	031166	435 03 0 00 000004 	TRCEA6:	IORI	AC,4		;MAKE E HAVE AT LEAST ONE BIT.
  1064	031167	477 04 0 00 000001 		SETOB	AC1,RAN1	;SET C(AC) TO A -1.
  1065	031170	642 04 0 03 000000 		TRCE	AC1,(AC)	;E+C(AC)R NOT=0  NO SKIP
  1066	031171	254 00 0 00 031173 		JRST	.+2
  1067	031172	005 04 0 00 040072 		ER	AC1,[ASCII /TST/];TRCE SKIPPED.
  1068	031173	642 04 0 03 000000 		TRCE	AC1,(AC)	;E+C(AC)R=0.  SKIP
  1069	031174	005 04 0 00 040072 		ER	AC1,[ASCII /TST/]
  1070	031175	312 04 0 00 040073 		CAME	AC1,[-1]	;C(AC) SHOULD=ORIG C(AC)
  1071	031176	003 01 0 03 000000 		ERRI	RAN1,(AC)
  1072	031177	646 04 0 03 000000 		TRCN	AC1,(AC)	;E+C(AC)R NOT=0. SKIP
  1073	031200	005 04 0 00 040072 		ER	AC1,[ASCII /TST/]
  1074	031201	646 04 0 03 000000 		TRCN	AC1,(AC)	;E+C(AC)R=0 NO SKIP
  1075	031202	312 04 0 00 040073 		CAME	AC1,[-1]	;C(AC) SHOULD=ORIG. C(AC).
  1076	031203	003 01 0 03 000000 		ERRI	RAN1,(AC)
  1077						LOOP	TRCEA5,TRCEA6^
  1078	031204	367 02 0 00 031162 		SOJG	AC-1,TRCEA5		;ITERATION COUNTER
  1079	031205	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1080	031206	321 02 0 00 031166 		JUMPL	AC-1,TRCEA6		;LOOP ON ERROR SWITCH ^
  1081
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 11
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0041

  1082
  1083
  1084					;TEST TRCE, TRCN.  CHECK FOR SKIP/NO SKIP AND
  1085					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
  1086
  1087
  1088			000003			AC=3
  1089	031207				TRCN1:	SETUP	100,0^
  1090			000004			AC1=<AC+1>&17
  1091			000005			AC2=<AC+2>&17
  1092			000006			AC3=<AC+3>&17
  1093			000007			AC4=<AC+4>&17
  1094			000010			AC5=<AC+5>&17
  1095			000001			RAN1=<AC-2>&17
  1096	031207	201 02 0 00 031207 		MOVEI	AC-1,.
  1097	031210	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1098	031211	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1099	031212	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1100	031213	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1101	031214	240 02 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1102	031215	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1103	031216				TRCN2:	RANDOM^
  1104	031216	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1105	031217	270 03 0 00 040071 		ADD	AC,[142536475076]
  1106	031220	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1107	031221	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1108	031222	435 03 0 00 000040 	TRCN3:	IORI	AC,40		;MAKE C(AC) HAVE AT LEAST ONE BIT.
  1109	031223	200 01 0 00 000003 		MOVE	RAN1,AC		;SAVE IN CASE OF ERROR.
  1110	031224	200 04 0 00 000003 		MOVE	AC1,AC		;MAKE "E" = C(AC).
  1111	031225	642 03 0 04 000000 		TRCE	AC,(AC1)	;E+C (AC) R NOT=0  NO SKIP
  1112	031226	254 00 0 00 031230 		JRST	.+2
  1113	031227	005 03 0 00 040072 		ER	AC,[ASCII /TST/];TRCE SKIPPED.
  1114	031230	642 03 0 04 000000 		TRCE	AC,(AC1)	;E+C (AC)R=0  SKIP
  1115	031231	005 03 0 00 040072 		ER	AC,[ASCII /TST/]
  1116	031232	312 03 0 00 000001 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  1117	031233	003 04 0 04 000000 		ERRI	AC1,(AC1)
  1118	031234	646 03 0 04 000000 		TRCN	AC,(AC1)	;E+C(AC)R NOT=0  SKIP
  1119	031235	005 03 0 00 040072 		ER	AC,[ASCII /TST/]
  1120	031236	646 03 0 04 000000 		TRCN	AC,(AC1)	;E+C (AC)R=0. NO SKIP
  1121	031237	312 03 0 00 000001 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  1122	031240	003 04 0 04 000000 		ERRI	AC1,(AC1)
  1123						LOOP	TRCN2,TRCN3^
  1124	031241	367 02 0 00 031216 		SOJG	AC-1,TRCN2		;ITERATION COUNTER
  1125	031242	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1126	031243	321 02 0 00 031222 		JUMPL	AC-1,TRCN3		;LOOP ON ERROR SWITCH ^
  1127
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 12
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0042

  1128					;TEST TRCE, TRCN. CHECK FOR SKIP/NO SKIP AND
  1129					;CORRECT DATA IN AC WITH E = TO A FLOATING
  1130					;ONE AND C(AC) = RAN. NUM. WITH THAT BIT CLEAR.
  1131
  1132
  1133			000002			AC=2
  1134	031244				TRCNA:	SETUP	40,0^
  1135			000003			AC1=<AC+1>&17
  1136			000004			AC2=<AC+2>&17
  1137			000005			AC3=<AC+3>&17
  1138			000006			AC4=<AC+4>&17
  1139			000007			AC5=<AC+5>&17
  1140			000000			RAN1=<AC-2>&17
  1141	031244	201 01 0 00 031244 		MOVEI	AC-1,.
  1142	031245	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1143	031246	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1144	031247	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1145	031250	201 01 0 00 000040 		MOVEI	AC-1,40		;ROUTINE WEIGHTING
  1146	031251	240 01 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1147	031252	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1148	031253	201 03 0 00 000001 		MOVEI	AC1,1		;SETUP E TO HAVE ONE BIT.
  1149	031254				TRCNB:	RANDOM^
  1150	031254	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1151	031255	270 02 0 00 040071 		ADD	AC,[142536475076]
  1152	031256	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1153	031257	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1154	031260	241 03 0 00 000001 		ROT	AC1,1		;ROT TO TEST NEXT BIT.
  1155	031261	316 03 0 00 040075 		CAMN	AC1,[XWD 1,0]	;IS BIT ON LEFT SIDE?
  1156	031262	201 03 0 00 000001 		MOVEI	AC1,1		;YES. REINITIALIZE E.
  1157	031263	420 02 0 00 000003 	TRCNC:	ANDCM	AC,AC1		;CLEAR BIT IN AC.
  1158	031264	200 00 0 00 000002 		MOVE	RAN1,AC		;SAVE C(AC) FOR FUTURE COMPARE.
  1159	031265	646 02 0 03 000000 		TRCN	AC,(AC1)	;E + C(AC)R = 0...NO SKIP.
  1160	031266	254 00 0 00 031270 		JRST	.+2
  1161	031267	005 02 0 00 040072 		ER	AC,[ASCII /TST/];TRCN SKIPPED.
  1162	031270	646 02 0 03 000000 		TRCN	AC,(AC1)	;E + C(AC)R NOT = 0...SKIP.
  1163	031271	005 02 0 00 040072 		ER	AC,[ASCII /TST/]
  1164	031272	312 02 0 00 000000 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  1165	031273	003 00 0 03 000000 		ERRI	RAN1,(AC1)
  1166	031274	642 02 0 03 000000 		TRCE	AC,(AC1)	;E + C(AC)R = 0...SKIP.
  1167	031275	005 02 0 00 040072 		ER	AC,[ASCII /TST/]
  1168	031276	642 02 0 03 000000 		TRCE	AC,(AC1)	;E + C(AC)R NOT = 0...NO SKIP.
  1169	031277	312 02 0 00 000000 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  1170	031300	003 00 0 03 000000 		ERRI	RAN1,(AC1)
  1171						LOOP	TRCNB,TRCNC^
  1172	031301	367 01 0 00 031254 		SOJG	AC-1,TRCNB		;ITERATION COUNTER
  1173	031302	200 02 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1174	031303	321 01 0 00 031263 		JUMPL	AC-1,TRCNC		;LOOP ON ERROR SWITCH ^
  1175
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 13
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0043

  1176
  1177
  1178					;TEST TLN, TLNA  CHECK FOR SKIP/NO SKIP AND
  1179					;NO DATA CHANGE IN AC FOR 0 TO RAN CONDITION.
  1180
  1181
  1182			000003			AC=3
  1183	031304				TLN1:	SETUP	100,0^
  1184			000004			AC1=<AC+1>&17
  1185			000005			AC2=<AC+2>&17
  1186			000006			AC3=<AC+3>&17
  1187			000007			AC4=<AC+4>&17
  1188			000010			AC5=<AC+5>&17
  1189			000001			RAN1=<AC-2>&17
  1190	031304	201 02 0 00 031304 		MOVEI	AC-1,.
  1191	031305	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1192	031306	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1193	031307	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1194	031310	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1195	031311	240 02 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1196	031312	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1197	031313				TLN2:	RANDOM^
  1198	031313	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1199	031314	270 03 0 00 040071 		ADD	AC,[142536475076]
  1200	031315	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1201	031316	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1202	031317	601 03 0 00 000000 	TLN3:	TLN	AC,0		;SHOULD NOT SKIP.
  1203	031320	254 00 0 00 031322 		JRST	.+2
  1204	031321	005 03 0 00 040072 		ER	AC,[ASCII /TST/];TLN SKIPPED.
  1205	031322	605 03 0 00 000000 		TLNA	AC,0		;SHOULD SKIP
  1206	031323	005 03 0 00 040072 		ER	AC,[ASCII /TST/]
  1207	031324	312 03 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD=ORIG C(AC)
  1208	031325	013 00 0 00 000000 		EERRI	,0
  1209						LOOP	TLN2,TLN3^
  1210	031326	367 02 0 00 031313 		SOJG	AC-1,TLN2		;ITERATION COUNTER
  1211	031327	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1212	031330	321 02 0 00 031317 		JUMPL	AC-1,TLN3		;LOOP ON ERROR SWITCH ^
  1213
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 14
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0044

  1214
  1215
  1216					;TEST TLN, TLNA  CHECK FOR SKIP/NO SKIP AND
  1217					;NO DATA CHANGE IN AC FOR RAN TO 0 CONDITION
  1218
  1219
  1220			000004			AC=4
  1221	031331				TLN4:	SETUP	100,0^
  1222			000005			AC1=<AC+1>&17
  1223			000006			AC2=<AC+2>&17
  1224			000007			AC3=<AC+3>&17
  1225			000010			AC4=<AC+4>&17
  1226			000011			AC5=<AC+5>&17
  1227			000002			RAN1=<AC-2>&17
  1228	031331	201 03 0 00 031331 		MOVEI	AC-1,.
  1229	031332	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1230	031333	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1231	031334	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1232	031335	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1233	031336	240 03 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1234	031337	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1235	031340				TLN5:	RANDOM^
  1236	031340	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1237	031341	270 04 0 00 040071 		ADD	AC,[142536475076]
  1238	031342	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1239	031343	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1240	031344	403 05 0 00 000002 	TLN6:	SETZB	AC1,RAN1	;CLEAR C(AC)
  1241	031345	601 05 0 04 000000 		TLN	AC1,(AC)	;SHOULD NOT SKIP
  1242	031346	254 00 0 00 031350 		JRST	.+2
  1243	031347	005 05 0 00 040072 		ER	AC1,[ASCII /TST/];TLN SKIPPED.
  1244	031350	605 05 0 04 000000 		TLNA	AC1,(AC)	;SHOULD SKIP
  1245	031351	005 05 0 00 040072 		ER	AC1,[ASCII /TST/]
  1246	031352	312 05 0 00 040074 		CAME	AC1,[0]		;C(AC) SHOULD=ORIG C(AC)
  1247	031353	003 02 0 04 000000 		ERRI	RAN1,(AC)
  1248						LOOP	TLN5,TLN6^
  1249	031354	367 03 0 00 031340 		SOJG	AC-1,TLN5		;ITERATION COUNTER
  1250	031355	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1251	031356	321 03 0 00 031344 		JUMPL	AC-1,TLN6		;LOOP ON ERROR SWITCH ^
  1252
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 15
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0045

  1253
  1254
  1255					;TEST TLN, TLNA.  CHECK FOR SKIP/NO SKIP AND
  1256					;NO DATA CHANGE IN AC FOR -1 TO RAN CONDITION
  1257
  1258
  1259			000005			AC=5
  1260	031357				TLN7:	SETUP	100,0^
  1261			000006			AC1=<AC+1>&17
  1262			000007			AC2=<AC+2>&17
  1263			000010			AC3=<AC+3>&17
  1264			000011			AC4=<AC+4>&17
  1265			000012			AC5=<AC+5>&17
  1266			000003			RAN1=<AC-2>&17
  1267	031357	201 04 0 00 031357 		MOVEI	AC-1,.
  1268	031360	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1269	031361	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1270	031362	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1271	031363	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1272	031364	240 04 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1273	031365	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1274	031366				TLN8:	RANDOM^
  1275	031366	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1276	031367	270 05 0 00 040071 		ADD	AC,[142536475076]
  1277	031370	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1278	031371	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1279	031372	601 05 0 00 777777 	TLN9:	TLN	AC,-1		;SHOULD NOT SKIP
  1280	031373	254 00 0 00 031375 		JRST	.+2
  1281	031374	005 05 0 00 040072 		ER	AC,[ASCII /TST/];TLN SKIPPED.
  1282	031375	605 05 0 00 777777 		TLNA	AC,-1		;SHOULD SKIP
  1283	031376	005 05 0 00 040072 		ER	AC,[ASCII /TST/]
  1284	031377	312 05 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD=ORIG.  C(AC)
  1285	031400	013 00 0 00 777777 		EERRI	,-1
  1286						LOOP	TLN8,TLN9^
  1287	031401	367 04 0 00 031366 		SOJG	AC-1,TLN8		;ITERATION COUNTER
  1288	031402	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1289	031403	321 04 0 00 031372 		JUMPL	AC-1,TLN9		;LOOP ON ERROR SWITCH ^
  1290
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 16
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0046

  1291
  1292
  1293					;TEST TLN, TLNA.  CHECK FOR SKIP/NO SKIP AND
  1294					;NO DATA CHANGE IN AC FOR RAN  TO -1 CONDITION
  1295
  1296
  1297			000006			AC=6
  1298	031404				TLNA1:	SETUP	100,0^
  1299			000007			AC1=<AC+1>&17
  1300			000010			AC2=<AC+2>&17
  1301			000011			AC3=<AC+3>&17
  1302			000012			AC4=<AC+4>&17
  1303			000013			AC5=<AC+5>&17
  1304			000004			RAN1=<AC-2>&17
  1305	031404	201 05 0 00 031404 		MOVEI	AC-1,.
  1306	031405	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1307	031406	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1308	031407	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1309	031410	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1310	031411	240 05 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1311	031412	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1312	031413				TLNA2:	RANDOM^
  1313	031413	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1314	031414	270 06 0 00 040071 		ADD	AC,[142536475076]
  1315	031415	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1316	031416	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1317	031417	477 07 0 00 000004 	TLNA3:	SETOB	AC1,RAN1	;SET C(AC) TO=-1
  1318	031420	601 07 0 06 000000 		TLN	AC1,(AC)	;SHOULD NOT SKIP
  1319	031421	254 00 0 00 031423 		JRST	.+2
  1320	031422	005 07 0 00 040072 		ER	AC1,[ASCII /TST/];TLN SKIPPED.
  1321	031423	605 07 0 06 000000 		TLNA	AC1,(AC)	;SHOULD SKIP.
  1322	031424	005 07 0 00 040072 		ER	AC1,[ASCII /TST/]
  1323	031425	312 07 0 00 000004 		CAME	AC1,RAN1	;C(AC) SHOULD=ORIG C(AC)
  1324	031426	003 04 0 06 000000 		ERRI	RAN1,(AC)
  1325						LOOP	TLNA2,TLNA3^
  1326	031427	367 05 0 00 031413 		SOJG	AC-1,TLNA2		;ITERATION COUNTER
  1327	031430	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1328	031431	321 05 0 00 031417 		JUMPL	AC-1,TLNA3		;LOOP ON ERROR SWITCH ^
  1329
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 17
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0047

  1330
  1331
  1332					;TEST TLN, TLNA.  CHECK FOR SKIP/NO SKIP AND
  1333					;NO DATA CHANGE IN AC FOR RAN TO RAN CONDITION
  1334
  1335
  1336			000007			AC=7
  1337	031432				TLNA4:	SETUP	100,0^
  1338			000010			AC1=<AC+1>&17
  1339			000011			AC2=<AC+2>&17
  1340			000012			AC3=<AC+3>&17
  1341			000013			AC4=<AC+4>&17
  1342			000014			AC5=<AC+5>&17
  1343			000005			RAN1=<AC-2>&17
  1344	031432	201 06 0 00 031432 		MOVEI	AC-1,.
  1345	031433	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1346	031434	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1347	031435	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1348	031436	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1349	031437	240 06 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1350	031440	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1351	031441				TLNA5:	RANDOM^
  1352	031441	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1353	031442	270 07 0 00 040071 		ADD	AC,[142536475076]
  1354	031443	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1355	031444	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1356	031445	200 10 0 00 000007 	TLNA6:	MOVE	AC1,AC		;MAKE "E"=C(AC)
  1357	031446	601 07 0 10 000000 		TLN	AC,(AC1)	;SHOULD NOT SKIP
  1358	031447	254 00 0 00 031451 		JRST	.+2
  1359	031450	005 07 0 00 040072 		ER	AC,[ASCII /TST/];TLN SKIPPED.
  1360	031451	605 07 0 10 000000 		TLNA	AC,(AC1)	;SHOULD SKIP
  1361	031452	005 07 0 00 040072 		ER	AC,[ASCII /TST/]
  1362	031453	312 07 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD=ORIG C(AC)
  1363	031454	003 10 0 10 000000 		ERRI	AC1,(AC1)
  1364						LOOP	TLNA5,TLNA6^
  1365	031455	367 06 0 00 031441 		SOJG	AC-1,TLNA5		;ITERATION COUNTER
  1366	031456	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1367	031457	321 06 0 00 031445 		JUMPL	AC-1,TLNA6		;LOOP ON ERROR SWITCH ^
  1368
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 18
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0048

  1369
  1370
  1371					;TEST TLN, TLNA.  CHECK FOR SKIP/NO SKIP AND
  1372					;NO DATA  CHANGE IN AC FOR RAN1 TO RAN CONDITION.
  1373
  1374
  1375			000010			AC=10
  1376	031460				TLNA7:	SETUP	100,0^
  1377			000011			AC1=<AC+1>&17
  1378			000012			AC2=<AC+2>&17
  1379			000013			AC3=<AC+3>&17
  1380			000014			AC4=<AC+4>&17
  1381			000015			AC5=<AC+5>&17
  1382			000006			RAN1=<AC-2>&17
  1383	031460	201 07 0 00 031460 		MOVEI	AC-1,.
  1384	031461	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1385	031462	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1386	031463	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1387	031464	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1388	031465	240 07 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1389	031466	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1390	031467				TLNA8:	RANDOM^
  1391	031467	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1392	031470	270 10 0 00 040071 		ADD	AC,[142536475076]
  1393	031471	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1394	031472	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1395	031473	200 11 0 00 000010 	TLNA9:	MOVE	AC1,AC		;MAKE "E"
  1396	031474	241 11 0 00 000011 		ROT	AC1,11		;A DIFFERENT RANDOM NUM
  1397	031475	601 10 0 11 000000 		TLN	AC,(AC1)	;SHOULD NOT SKIP
  1398	031476	254 00 0 00 031500 		JRST	.+2
  1399	031477	005 10 0 00 040072 		ER	AC,[ASCII /TST/];TLN SKIPPED.
  1400	031500	605 10 0 11 000000 		TLNA	AC,(AC1)	;SHOULD SKIP
  1401	031501	005 10 0 00 040072 		ER	AC,[ASCII /TST/]
  1402	031502	312 10 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD=ORIG C(AC)
  1403	031503	013 00 0 11 000000 		EERRI	,(AC1)
  1404						LOOP	TLNA8,TLNA9^
  1405	031504	367 07 0 00 031467 		SOJG	AC-1,TLNA8		;ITERATION COUNTER
  1406	031505	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1407	031506	321 07 0 00 031473 		JUMPL	AC-1,TLNA9		;LOOP ON ERROR SWITCH ^
  1408
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 19
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0049

  1409
  1410
  1411					;TEST TLNE, TLNN  CHECK FOR SKIP/NO SKIP AND
  1412					;NO DATA CHANGE IN AC FOR 0 TO RAN CONDITION
  1413
  1414
  1415			000011			AC=11
  1416	031507				TLNE1:	SETUP	100,0^
  1417			000012			AC1=<AC+1>&17
  1418			000013			AC2=<AC+2>&17
  1419			000014			AC3=<AC+3>&17
  1420			000015			AC4=<AC+4>&17
  1421			000016			AC5=<AC+5>&17
  1422			000007			RAN1=<AC-2>&17
  1423	031507	201 10 0 00 031507 		MOVEI	AC-1,.
  1424	031510	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1425	031511	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1426	031512	202 10 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1427	031513	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1428	031514	240 10 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1429	031515	240 10 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1430	031516				TLNE2:	RANDOM^
  1431	031516	200 11 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1432	031517	270 11 0 00 040071 		ADD	AC,[142536475076]
  1433	031520	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1434	031521	447 11 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1435	031522	607 11 0 00 000000 	TLNE3:	TLNN	AC,0		;E+C(AC)L=0.  NO SKIP
  1436	031523	254 00 0 00 031525 		JRST	.+2
  1437	031524	005 11 0 00 040072 		ER	AC,[ASCII /TST/];TLNN SKIPPED.
  1438	031525	603 11 0 00 000000 		TLNE	AC,0		;E+C(AC)L=0. SKIP
  1439	031526	005 11 0 00 040072 		ER	AC,[ASCII /TST/]
  1440	031527	312 11 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD=ORIG C(AC)
  1441	031530	013 00 0 00 000000 		EERRI	,0
  1442						LOOP	TLNE2,TLNE3^
  1443	031531	367 10 0 00 031516 		SOJG	AC-1,TLNE2		;ITERATION COUNTER
  1444	031532	200 11 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1445	031533	321 10 0 00 031522 		JUMPL	AC-1,TLNE3		;LOOP ON ERROR SWITCH ^
  1446
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 20
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0050

  1447
  1448
  1449					;TEST TLNE, TLNN.  CHECK FOR SKIP/NO SKIP AND
  1450					;NO DATA CHANGE IN AC FOR RAN TO 0 CONDITION
  1451
  1452
  1453			000004			AC=4
  1454	031534				TLNE4:	SETUP	100,0^
  1455			000005			AC1=<AC+1>&17
  1456			000006			AC2=<AC+2>&17
  1457			000007			AC3=<AC+3>&17
  1458			000010			AC4=<AC+4>&17
  1459			000011			AC5=<AC+5>&17
  1460			000002			RAN1=<AC-2>&17
  1461	031534	201 03 0 00 031534 		MOVEI	AC-1,.
  1462	031535	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1463	031536	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1464	031537	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1465	031540	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1466	031541	240 03 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1467	031542	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1468	031543				TLNE5:	RANDOM^
  1469	031543	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1470	031544	270 04 0 00 040071 		ADD	AC,[142536475076]
  1471	031545	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1472	031546	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1473	031547	403 05 0 00 000002 	TLNE6:	SETZB	AC1,RAN1	;CLEAR C(AC)
  1474	031550	607 05 0 04 000000 		TLNN	AC1,(AC)	;E+C(AC)L=0  NO SKIP
  1475	031551	254 00 0 00 031553 		JRST	.+2
  1476	031552	005 05 0 00 040072 		ER	AC1,[ASCII /TST/];TLNN SKIPPED.
  1477	031553	603 05 0 04 000000 		TLNE	AC1,(AC)	;E+C(AC)L=0.  SKIP
  1478	031554	005 05 0 00 040072 		ER	AC1,[ASCII /TST/]
  1479	031555	312 05 0 00 000002 		CAME	AC1,RAN1	;C(AC) SHOULD=ORIG. C(AC)
  1480	031556	003 02 0 04 000000 		ERRI	RAN1,(AC)
  1481						LOOP	TLNE5,TLNE6^
  1482	031557	367 03 0 00 031543 		SOJG	AC-1,TLNE5		;ITERATION COUNTER
  1483	031560	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1484	031561	321 03 0 00 031547 		JUMPL	AC-1,TLNE6		;LOOP ON ERROR SWITCH ^
  1485
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 21
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0051

  1486
  1487
  1488					;TEST TLNE, TLNN, CHECK FOR SKIP/NO SKIP AND
  1489					;NO DATA CHANGE IN AC FOR -1 TO RAN CONDITION
  1490
  1491
  1492			000005			AC=5
  1493	031562				TLNE7:	SETUP	100,0^
  1494			000006			AC1=<AC+1>&17
  1495			000007			AC2=<AC+2>&17
  1496			000010			AC3=<AC+3>&17
  1497			000011			AC4=<AC+4>&17
  1498			000012			AC5=<AC+5>&17
  1499			000003			RAN1=<AC-2>&17
  1500	031562	201 04 0 00 031562 		MOVEI	AC-1,.
  1501	031563	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1502	031564	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1503	031565	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1504	031566	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1505	031567	240 04 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1506	031570	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1507	031571				TLNE8:	RANDOM^
  1508	031571	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1509	031572	270 05 0 00 040071 		ADD	AC,[142536475076]
  1510	031573	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1511	031574	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1512	031575	434 05 0 00 030705 	TLNE9:	IOR	AC,TSTLFT	;MAKE C(AC)L HAVE A BIT
  1513	031576	200 03 0 00 000005 		MOVE	RAN1,AC		;SAVE C(AC) FOR FUTURE COMPARE.
  1514	031577	603 05 0 00 777777 		TLNE	AC,-1		;E+C(AC)L NOT=0 NO SKIP
  1515	031600	254 00 0 00 031602 		JRST	.+2
  1516	031601	005 05 0 00 040072 		ER	AC,[ASCII /TST/];TLNE SKIPPED.
  1517	031602	607 05 0 00 777777 		TLNN	AC,-1		;E+C(AC)L NOT = 0...SKIP.
  1518	031603	005 05 0 00 040072 		ER	AC,[ASCII /TST/]
  1519	031604	312 05 0 00 000003 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  1520	031605	003 03 0 00 777777 		ERRI	RAN1,-1
  1521						LOOP	TLNE8,TLNE9^
  1522	031606	367 04 0 00 031571 		SOJG	AC-1,TLNE8		;ITERATION COUNTER
  1523	031607	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1524	031610	321 04 0 00 031575 		JUMPL	AC-1,TLNE9		;LOOP ON ERROR SWITCH ^
  1525
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 22
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0052

  1526
  1527
  1528					;TEST TLNE, TLNN.  CHECK FOR SKIP/NO SKIP AND
  1529					;NO DATA CHANGE IN AC FOR RAN TO -1 CONDITION
  1530
  1531
  1532			000006			AC=6
  1533	031611				TLNN1:	SETUP	100,0^
  1534			000007			AC1=<AC+1>&17
  1535			000010			AC2=<AC+2>&17
  1536			000011			AC3=<AC+3>&17
  1537			000012			AC4=<AC+4>&17
  1538			000013			AC5=<AC+5>&17
  1539			000004			RAN1=<AC-2>&17
  1540	031611	201 05 0 00 031611 		MOVEI	AC-1,.
  1541	031612	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1542	031613	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1543	031614	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1544	031615	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1545	031616	240 05 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1546	031617	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1547	031620				TLNN2:	RANDOM^
  1548	031620	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1549	031621	270 06 0 00 040071 		ADD	AC,[142536475076]
  1550	031622	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1551	031623	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1552	031624	435 06 0 00 000002 		IORI	AC,2		;MAKE "E" HAVE A BIT.
  1553	031625	477 07 0 00 000004 	TLNN3:	SETOB	AC1,RAN1	;MAKE C(AC)=-1
  1554	031626	603 07 0 06 000000 		TLNE	AC1,(AC)	;E+C(AC)L NOT=0 NO SKIP.
  1555	031627	254 00 0 00 031631 		JRST	.+2
  1556	031630	005 07 0 00 040072 		ER	AC1,[ASCII /TST/];TLNE SKIPPED.
  1557	031631	607 07 0 06 000000 		TLNN	AC1,(AC)	;E+C(AC)L NOT=0. SKIP
  1558	031632	005 07 0 00 040072 		ER	AC1,[ASCII /TST/]
  1559	031633	312 07 0 00 000004 		CAME	AC1,RAN1	;C(AC) SHOULD=ORIG C(AC)
  1560	031634	003 04 0 06 000000 		ERRI	RAN1,(AC)
  1561						LOOP	TLNN2,TLNN3^
  1562	031635	367 05 0 00 031620 		SOJG	AC-1,TLNN2		;ITERATION COUNTER
  1563	031636	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1564	031637	321 05 0 00 031625 		JUMPL	AC-1,TLNN3		;LOOP ON ERROR SWITCH ^
  1565
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 23
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0053

  1566
  1567
  1568					;TEST TLNE, TLNN.  CHECK FOR SKIP/NO SKIP AND
  1569					;NO DATA CHANGE IN AC FOR RAN TO RAN CONDITION
  1570
  1571
  1572			000007			AC=7
  1573	031640				TLNN4:	SETUP	100,0^
  1574			000010			AC1=<AC+1>&17
  1575			000011			AC2=<AC+2>&17
  1576			000012			AC3=<AC+3>&17
  1577			000013			AC4=<AC+4>&17
  1578			000014			AC5=<AC+5>&17
  1579			000005			RAN1=<AC-2>&17
  1580	031640	201 06 0 00 031640 		MOVEI	AC-1,.
  1581	031641	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1582	031642	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1583	031643	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1584	031644	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1585	031645	240 06 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1586	031646	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1587	031647				TLNN5:	RANDOM^
  1588	031647	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1589	031650	270 07 0 00 040071 		ADD	AC,[142536475076]
  1590	031651	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1591	031652	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1592	031653	434 07 0 00 030705 	TLNN6:	IOR	AC,TSTLFT	;MAKE C(AC)L HAVE A BIT
  1593	031654	200 05 0 00 000007 		MOVE	RAN1,AC		;SAVE C(AC) FOR FUTURE COMPARE.
  1594	031655	204 10 0 00 000007 		MOVS	AC1,AC		;MAKE "E"=C(AC)L.
  1595	031656	603 07 0 10 000000 		TLNE	AC,(AC1)	;E+C(AC)L NOT=0. NO SKIP
  1596	031657	254 00 0 00 031661 		JRST	.+2
  1597	031660	005 07 0 00 040072 		ER	AC,[ASCII /TST/];TLNE SKIPPED.
  1598	031661	607 07 0 10 000000 		TLNN	AC,(AC1)	;E+C(AC)L NOT=0.  SKIP
  1599	031662	005 07 0 00 040072 		ER	AC,[ASCII /TST/]
  1600	031663	312 07 0 00 000005 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  1601	031664	003 05 0 10 000000 		ERRI	RAN1,(AC1)
  1602						LOOP	TLNN5,TLNN6^
  1603	031665	367 06 0 00 031647 		SOJG	AC-1,TLNN5		;ITERATION COUNTER
  1604	031666	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1605	031667	321 06 0 00 031653 		JUMPL	AC-1,TLNN6		;LOOP ON ERROR SWITCH ^
  1606
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 24
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0054

  1607
  1608
  1609					;TEST TLNE, TLNN.  CHECK FOR SKIP/NO SKIP AND
  1610					;NO DATA CHANGE IN AC FOR RAN1 TO RAN CONDITION
  1611
  1612
  1613			000010			AC=10
  1614	031670				TLNN7:	SETUP	100,0^
  1615			000011			AC1=<AC+1>&17
  1616			000012			AC2=<AC+2>&17
  1617			000013			AC3=<AC+3>&17
  1618			000014			AC4=<AC+4>&17
  1619			000015			AC5=<AC+5>&17
  1620			000006			RAN1=<AC-2>&17
  1621	031670	201 07 0 00 031670 		MOVEI	AC-1,.
  1622	031671	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1623	031672	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1624	031673	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1625	031674	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1626	031675	240 07 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1627	031676	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1628	031677				TLNN8:	RANDOM^
  1629	031677	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1630	031700	270 10 0 00 040071 		ADD	AC,[142536475076]
  1631	031701	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1632	031702	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1633	031703	434 10 0 00 040076 	TLNN9:	IOR	AC,[XWD 100,100];MAKE C(AC) + E HAVE A BIT.
  1634	031704	200 06 0 00 000010 		MOVE	RAN1,AC		;SAVE C(AC) FOR FUTURE COMPARE.
  1635	031705	200 11 0 00 000010 		MOVE	AC1,AC		;MAKE E A DIFF. RAN. NUM.
  1636	031706	603 10 0 11 000000 		TLNE	AC,(AC1)	;E+C (AC)L NOT=0. NO SKIP,
  1637	031707	254 00 0 00 031711 		JRST	.+2
  1638	031710	005 10 0 00 040072 		ER	AC,[ASCII /TST/];TLNE SKIPPED.
  1639	031711	607 10 0 11 000000 		TLNN	AC,(AC1)	;E+C(AC)L NOT=0. SKIP
  1640	031712	005 10 0 00 040072 		ER	AC,[ASCII /TST/]
  1641	031713	312 10 0 00 000006 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  1642	031714	003 06 0 11 000000 		ERRI	RAN1,(AC1)
  1643						LOOP	TLNN8,TLNN9^
  1644	031715	367 07 0 00 031677 		SOJG	AC-1,TLNN8		;ITERATION COUNTER
  1645	031716	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1646	031717	321 07 0 00 031703 		JUMPL	AC-1,TLNN9		;LOOP ON ERROR SWITCH ^
  1647
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 25
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0055

  1648
  1649
  1650					;TEST TLZ, TLZA.  CHECK FOR SKIP/NO SKIP AND
  1651					;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
  1652
  1653
  1654			000010			AC=10
  1655	031720				TLZ1:	SETUP	100,0^
  1656			000011			AC1=<AC+1>&17
  1657			000012			AC2=<AC+2>&17
  1658			000013			AC3=<AC+3>&17
  1659			000014			AC4=<AC+4>&17
  1660			000015			AC5=<AC+5>&17
  1661			000006			RAN1=<AC-2>&17
  1662	031720	201 07 0 00 031720 		MOVEI	AC-1,.
  1663	031721	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1664	031722	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1665	031723	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1666	031724	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1667	031725	240 07 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1668	031726	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1669	031727				TLZ2:	RANDOM^
  1670	031727	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1671	031730	270 10 0 00 040071 		ADD	AC,[142536475076]
  1672	031731	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1673	031732	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1674	031733	621 10 0 00 000000 	TLZ3:	TLZ	AC,0		;SHOULD NOT SKIP
  1675	031734	254 00 0 00 031736 		JRST	.+2
  1676	031735	005 10 0 00 040072 		ER	AC,[ASCII /TST/];TLZ SKIPPED.
  1677	031736	625 10 0 00 000000 		TLZA	AC,0		;SHOULD SKIP
  1678	031737	005 10 0 00 040072 		ER	AC,[ASCII /TST/]
  1679	031740	312 10 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD STILL=RAN NUM
  1680	031741	013 00 0 00 000000 		EERRI	,0
  1681						LOOP	TLZ2,TLZ3^
  1682	031742	367 07 0 00 031727 		SOJG	AC-1,TLZ2		;ITERATION COUNTER
  1683	031743	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1684	031744	321 07 0 00 031733 		JUMPL	AC-1,TLZ3		;LOOP ON ERROR SWITCH ^
  1685
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 26
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0056

  1686
  1687
  1688					;TEST TLZ, TLZA.  CHECK FOR SKIP/NO SKIP AND
  1689					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
  1690
  1691
  1692			000003			AC=3
  1693	031745				TLZ4:	SETUP	100,0^
  1694			000004			AC1=<AC+1>&17
  1695			000005			AC2=<AC+2>&17
  1696			000006			AC3=<AC+3>&17
  1697			000007			AC4=<AC+4>&17
  1698			000010			AC5=<AC+5>&17
  1699			000001			RAN1=<AC-2>&17
  1700	031745	201 02 0 00 031745 		MOVEI	AC-1,.
  1701	031746	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1702	031747	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1703	031750	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1704	031751	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1705	031752	240 02 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1706	031753	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1707	031754				TLZ5:	RANDOM^
  1708	031754	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1709	031755	270 03 0 00 040071 		ADD	AC,[142536475076]
  1710	031756	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1711	031757	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1712	031760	403 04 0 00 000001 	TLZ6:	SETZB	AC1,RAN1	;CLEAR C(AC).
  1713	031761	621 04 0 03 000000 		TLZ	AC1,(AC)	;SHOULD NOT SKIP
  1714	031762	254 00 0 00 031764 		JRST	.+2
  1715	031763	005 04 0 00 040072 		ER	AC1,[ASCII /TST/];TLZ SKIPPED.
  1716	031764	625 04 0 03 000000 		TLZA	AC1,(AC)	;SHOULD SKIP
  1717	031765	005 04 0 00 040072 		ER	AC1,[ASCII /TST/]
  1718	031766	312 04 0 00 000001 		CAME	AC1,RAN1	;C(AC) SHOULD STILL=0
  1719	031767	003 01 0 03 000000 		ERRI	RAN1,(AC)
  1720						LOOP	TLZ5,TLZ6^
  1721	031770	367 02 0 00 031754 		SOJG	AC-1,TLZ5		;ITERATION COUNTER
  1722	031771	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1723	031772	321 02 0 00 031760 		JUMPL	AC-1,TLZ6		;LOOP ON ERROR SWITCH ^
  1724
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 27
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0057

  1725
  1726
  1727					;TEST TLZ, TLZA CHECK FOR SKIP/NO SKIP AND
  1728					;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
  1729
  1730
  1731			000003			AC=3
  1732	031773				TLZ7:	SETUP	100,0^
  1733			000004			AC1=<AC+1>&17
  1734			000005			AC2=<AC+2>&17
  1735			000006			AC3=<AC+3>&17
  1736			000007			AC4=<AC+4>&17
  1737			000010			AC5=<AC+5>&17
  1738			000001			RAN1=<AC-2>&17
  1739	031773	201 02 0 00 031773 		MOVEI	AC-1,.
  1740	031774	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1741	031775	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1742	031776	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1743	031777	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1744	032000	240 02 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1745	032001	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1746	032002				TLZ8:	RANDOM^
  1747	032002	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1748	032003	270 03 0 00 040071 		ADD	AC,[142536475076]
  1749	032004	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1750	032005	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1751	032006	200 04 0 00 000003 	TLZ9:	MOVE	AC1,AC		;SIMULATE
  1752	032007	405 04 0 00 777777 		ANDI	AC1,-1		;A TLZ AC,-1.
  1753	032010	621 03 0 00 777777 		TLZ	AC,-1		;SHOULD NOT SKIP
  1754	032011	254 00 0 00 032013 		JRST	.+2
  1755	032012	005 03 0 00 040072 		ER	AC,[ASCII /TST/];TLZ SKIPPED.
  1756	032013	625 03 0 00 777777 		TLZA	AC,-1		;SHOULD SKIP
  1757	032014	005 03 0 00 040072 		ER	AC,[ASCII /TST/]
  1758	032015	312 03 0 00 000004 		CAME	AC,AC1		;C(AC) SHOULD = SIM. ANS.
  1759	032016	013 00 0 00 777777 		EERRI	,-1
  1760						LOOP	TLZ8,TLZ9^
  1761	032017	367 02 0 00 032002 		SOJG	AC-1,TLZ8		;ITERATION COUNTER
  1762	032020	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1763	032021	321 02 0 00 032006 		JUMPL	AC-1,TLZ9		;LOOP ON ERROR SWITCH ^
  1764
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 28
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0058

  1765
  1766
  1767					;TEST TLZ, TLZA.  CHECK FOR SKIP/NO SKIP AND
  1768					;CORRECT DATA IN AC FOR RAN TO -1 CONDITION
  1769
  1770
  1771			000002			AC=2
  1772	032022				TLZA1:	SETUP	100,0^
  1773			000003			AC1=<AC+1>&17
  1774			000004			AC2=<AC+2>&17
  1775			000005			AC3=<AC+3>&17
  1776			000006			AC4=<AC+4>&17
  1777			000007			AC5=<AC+5>&17
  1778			000000			RAN1=<AC-2>&17
  1779	032022	201 01 0 00 032022 		MOVEI	AC-1,.
  1780	032023	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1781	032024	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1782	032025	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1783	032026	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1784	032027	240 01 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1785	032030	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1786	032031				TLZA2:	RANDOM^
  1787	032031	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1788	032032	270 02 0 00 040071 		ADD	AC,[142536475076]
  1789	032033	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1790	032034	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1791	032035	477 03 0 00 000000 	TLZA3:	SETOB	AC1,RAN1	;MAKE C(AC)=-1
  1792	032036	205 04 0 02 000000 		MOVSI	AC2,(AC)	;SIMULATE A
  1793	032037	450 04 0 00 000000 		SETCA	AC2,		;TLZ
  1794	032040	621 03 0 02 000000 		TLZ	AC1,(AC)	;SHOULD NOT SKIP
  1795	032041	254 00 0 00 032043 		JRST	.+2
  1796	032042	005 03 0 00 040072 		ER	AC1,[ASCII /TST/]
  1797					;CORRECT DATA IN AC FOR NOT RAN1 TO RAN CONDITION.
  1798
  1799
  1800			000004			AC=4
  1801	032043				TLZA7:	SETUP	100,0^
  1802			000005			AC1=<AC+1>&17
  1803			000006			AC2=<AC+2>&17
  1804			000007			AC3=<AC+3>&17
  1805			000010			AC4=<AC+4>&17
  1806			000011			AC5=<AC+5>&17
  1807			000002			RAN1=<AC-2>&17
  1808	032043	201 03 0 00 032043 		MOVEI	AC-1,.
  1809	032044	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1810	032045	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1811	032046	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1812	032047	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1813	032050	240 03 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1814	032051	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1815	032052				TLZA8:	RANDOM^
  1816	032052	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1817	032053	270 04 0 00 040071 		ADD	AC,[142536475076]
  1818	032054	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1819	032055	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 28-1
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0059

  1820	032056	200 05 0 00 000004 	TLZA9:	MOVE	AC1,AC		;MAKE "E"
  1821	032057	241 05 0 00 000011 		ROT	AC1,11		;=A DIFFEREND VAND NUM
  1822	032060	205 06 0 05 000000 		MOVSI	AC2,(AC1)	;SIMULATE
  1823	032061	410 06 0 00 000004 		ANDCA	AC2,AC		;A TLZ
  1824	032062	621 04 0 05 000000 		TLZ	AC,(AC1)	;SHOULD NOT SKIP,
  1825	032063	254 00 0 00 032065 		JRST	.+2
  1826	032064	005 04 0 00 040072 		ER	AC,[ASCII /TST/];TLZ SKIPPED.
  1827	032065	625 04 0 05 000000 		TLZA	AC,(AC1)	;SHOULD SKIP.
  1828	032066	005 04 0 00 040072 		ER	AC,[ASCII /TST/]
  1829	032067	312 04 0 00 000006 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS
  1830	032070	013 00 0 05 000000 		EERRI	,(AC1)
  1831						LOOP	TLZA8,TLZA9^
  1832	032071	367 03 0 00 032052 		SOJG	AC-1,TLZA8		;ITERATION COUNTER
  1833	032072	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1834	032073	321 03 0 00 032056 		JUMPL	AC-1,TLZA9		;LOOP ON ERROR SWITCH ^
  1835
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 29
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0060

  1836
  1837
  1838					;TEST TLZE, TLZN.  CHECK FOR SKIP/NO SKIP AND
  1839					;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
  1840
  1841
  1842			000005			AC=5
  1843	032074				TLZE1:	SETUP	100,0^
  1844			000006			AC1=<AC+1>&17
  1845			000007			AC2=<AC+2>&17
  1846			000010			AC3=<AC+3>&17
  1847			000011			AC4=<AC+4>&17
  1848			000012			AC5=<AC+5>&17
  1849			000003			RAN1=<AC-2>&17
  1850	032074	201 04 0 00 032074 		MOVEI	AC-1,.
  1851	032075	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1852	032076	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1853	032077	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1854	032100	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1855	032101	240 04 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1856	032102	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1857	032103				TLZE2:	RANDOM^
  1858	032103	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1859	032104	270 05 0 00 040071 		ADD	AC,[142536475076]
  1860	032105	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1861	032106	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1862	032107	627 05 0 00 000000 	TLZE3:	TLZN	AC,0		;E+C(AC)L=0.  NO SKIP
  1863	032110	254 00 0 00 032112 		JRST	.+2
  1864	032111	005 05 0 00 040072 		ER	AC,[ASCII /TST/];TLZN SKIPPED.
  1865	032112	623 05 0 00 000000 		TLZE	AC,0		;E+C(AC)L=0. SKIP
  1866	032113	005 05 0 00 040072 		ER	AC,[ASCII /TST/]
  1867	032114	312 05 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD=ORIG. C(AC).
  1868	032115	013 00 0 00 000000 		EERRI	,0
  1869						LOOP	TLZE2,TLZE3^
  1870	032116	367 04 0 00 032103 		SOJG	AC-1,TLZE2		;ITERATION COUNTER
  1871	032117	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1872	032120	321 04 0 00 032107 		JUMPL	AC-1,TLZE3		;LOOP ON ERROR SWITCH ^
  1873
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 30
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0061

  1874
  1875
  1876					;TEST TLZE, TLZN.  CHECK FOR SKIP/NO SKIP AND
  1877					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
  1878
  1879
  1880			000006			AC=6
  1881	032121				TLZE4:	SETUP	100,0^
  1882			000007			AC1=<AC+1>&17
  1883			000010			AC2=<AC+2>&17
  1884			000011			AC3=<AC+3>&17
  1885			000012			AC4=<AC+4>&17
  1886			000013			AC5=<AC+5>&17
  1887			000004			RAN1=<AC-2>&17
  1888	032121	201 05 0 00 032121 		MOVEI	AC-1,.
  1889	032122	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1890	032123	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1891	032124	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1892	032125	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1893	032126	240 05 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1894	032127	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1895	032130				TLZE5:	RANDOM^
  1896	032130	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1897	032131	270 06 0 00 040071 		ADD	AC,[142536475076]
  1898	032132	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1899	032133	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1900	032134	403 07 0 00 000004 	TLZE6:	SETZB	AC1,RAN1	;CLEAR C(AC)
  1901	032135	627 07 0 06 000000 		TLZN	AC1,(AC)	;E+C(AC)L=0. NO SKIP
  1902	032136	254 00 0 00 032140 		JRST	.+2
  1903	032137	005 07 0 00 040072 		ER	AC1,[ASCII /TST/];TLZN SKIPPED.
  1904	032140	623 07 0 06 000000 		TLZE	AC1,(AC)	;E+C(AC)L=0. SKIP
  1905	032141	005 07 0 00 040072 		ER	AC1,[ASCII /TST/]
  1906	032142	312 07 0 00 040074 		CAME	AC1,[0]		;C(AC) SHOULD=ORIG. C(AC)
  1907	032143	003 04 0 06 000000 		ERRI	RAN1,(AC)
  1908						LOOP	TLZE5,TLZE6^
  1909	032144	367 05 0 00 032130 		SOJG	AC-1,TLZE5		;ITERATION COUNTER
  1910	032145	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1911	032146	321 05 0 00 032134 		JUMPL	AC-1,TLZE6		;LOOP ON ERROR SWITCH ^
  1912
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 31
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0062

  1913
  1914
  1915					;TEST TLZE, TLZN.  CHECK FOR SKIP/NO SKIP AND
  1916					;CORRECT DATA IN AC FOR -1 TO RAN CONDITION.
  1917
  1918
  1919			000007			AC=7
  1920	032147				TLZE7:	SETUP	100,0^
  1921			000010			AC1=<AC+1>&17
  1922			000011			AC2=<AC+2>&17
  1923			000012			AC3=<AC+3>&17
  1924			000013			AC4=<AC+4>&17
  1925			000014			AC5=<AC+5>&17
  1926			000005			RAN1=<AC-2>&17
  1927	032147	201 06 0 00 032147 		MOVEI	AC-1,.
  1928	032150	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1929	032151	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1930	032152	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1931	032153	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1932	032154	240 06 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1933	032155	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1934	032156				TLZE8:	RANDOM^
  1935	032156	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1936	032157	270 07 0 00 040071 		ADD	AC,[142536475076]
  1937	032160	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1938	032161	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1939	032162	434 07 0 00 030706 	TLZE9:	IOR	AC,TLFT1	;SET A BIT IN LEFT SIDE OF AC.
  1940	032163	200 05 0 00 000007 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR.
  1941	032164	200 11 0 00 000007 		MOVE	AC2,AC		;SIMULATE
  1942	032165	405 11 0 00 777777 		ANDI	AC2,-1		;A TLZ AC,-1
  1943	032166	623 07 0 00 777777 		TLZE	AC,-1		;E+C(AC)L NOT = 0..NO SKIP.
  1944	032167	312 07 0 00 000011 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS
  1945	032170	003 05 0 00 777777 		ERRI	RAN1,-1
  1946	032171	200 07 0 00 000005 		MOVE	AC,RAN1		;RESTORE AC.
  1947	032172	627 07 0 00 777777 		TLZN	AC,-1		;E+C(AC)L NOT = 0...SKIP.
  1948	032173	005 07 0 00 040072 		ER	AC,[ASCII /TST/]
  1949	032174	312 07 0 00 000011 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS
  1950	032175	003 05 0 00 777777 		ERRI	RAN1,-1
  1951						LOOP	TLZE8,TLZE9^
  1952	032176	367 06 0 00 032156 		SOJG	AC-1,TLZE8		;ITERATION COUNTER
  1953	032177	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1954	032200	321 06 0 00 032162 		JUMPL	AC-1,TLZE9		;LOOP ON ERROR SWITCH ^
  1955
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 32
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0063

  1956
  1957
  1958					;TEST TLZE, TLZN.  CHECK FOR SKIP/NO SKIP AND
  1959					;CORRECT DATA IN AC FOR RAN TO-1 CONDITION
  1960
  1961
  1962			000010			AC=10
  1963	032201				TLZN1:	SETUP	100,0^
  1964			000011			AC1=<AC+1>&17
  1965			000012			AC2=<AC+2>&17
  1966			000013			AC3=<AC+3>&17
  1967			000014			AC4=<AC+4>&17
  1968			000015			AC5=<AC+5>&17
  1969			000006			RAN1=<AC-2>&17
  1970	032201	201 07 0 00 032201 		MOVEI	AC-1,.
  1971	032202	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1972	032203	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1973	032204	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1974	032205	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1975	032206	240 07 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1976	032207	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1977	032210				TLZN2:	RANDOM^
  1978	032210	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1979	032211	270 10 0 00 040071 		ADD	AC,[142536475076]
  1980	032212	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1981	032213	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  1982	032214	435 10 0 00 000400 	TLZN3:	IORI	AC,400		;SET A BIT IN E.
  1983	032215	477 11 0 00 000006 		SETOB	AC1,RAN1	;MAKE C(AC) =-1
  1984	032216	205 12 0 10 000000 		MOVSI	AC2,(AC)	;SIMULATE
  1985	032217	450 12 0 00 000000 		SETCA	AC2,		;A TLZ
  1986	032220	623 11 0 10 000000 		TLZE	AC1,(AC)	;E+C(AC) L NOT=0  NO SKIP
  1987	032221	312 11 0 00 000012 		CAME	AC1,AC2		;C(AC) SHOULD=SIM. ANS
  1988	032222	003 06 0 10 000000 		ERRI	RAN1,(AC)
  1989	032223	474 11 0 00 000000 		SETO	AC1,		;RESTORE AC TO A-1
  1990	032224	627 11 0 10 000000 		TLZN	AC1,(AC)
  1991	032225	005 11 0 00 040072 		ER	AC1,[ASCII /TST/]
  1992	032226	312 11 0 00 000012 		CAME	AC1,AC2		;C(AC) SHOULD=SIM. ANS
  1993	032227	003 06 0 10 000000 		ERRI	RAN1,(AC)
  1994						LOOP	TLZN2,TLZN3^
  1995	032230	367 07 0 00 032210 		SOJG	AC-1,TLZN2		;ITERATION COUNTER
  1996	032231	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1997	032232	321 07 0 00 032214 		JUMPL	AC-1,TLZN3		;LOOP ON ERROR SWITCH ^
  1998
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 33
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0064

  1999
  2000
  2001					;TEST TLZE, TLZN CHECK FOR SKIP/NO SKIP AND
  2002					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
  2003
  2004
  2005			000011			AC=11
  2006	032233				TLZN4:	SETUP	100,0^
  2007			000012			AC1=<AC+1>&17
  2008			000013			AC2=<AC+2>&17
  2009			000014			AC3=<AC+3>&17
  2010			000015			AC4=<AC+4>&17
  2011			000016			AC5=<AC+5>&17
  2012			000007			RAN1=<AC-2>&17
  2013	032233	201 10 0 00 032233 		MOVEI	AC-1,.
  2014	032234	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2015	032235	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2016	032236	202 10 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2017	032237	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2018	032240	240 10 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2019	032241	240 10 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2020	032242				TLZN5:	RANDOM^
  2021	032242	200 11 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2022	032243	270 11 0 00 040071 		ADD	AC,[142536475076]
  2023	032244	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2024	032245	447 11 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2025	032246	434 11 0 00 030707 	TLZN6:	IOR	AC,TLFT2	;SET A BIT IN LEFT SIDE OF AC.
  2026	032247	200 07 0 00 000011 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR.
  2027	032250	204 12 0 00 000011 		MOVS	AC1,AC		;MAKE E = C(AC)L.
  2028	032251	200 13 0 00 000011 		MOVE	AC2,AC		;SIMULATE
  2029	032252	405 13 0 00 777777 		ANDI	AC2,-1		;A TLZ
  2030	032253	623 11 0 12 000000 		TLZE	AC,(AC1)	;E+C(AC)L NOT=0.  NO SKIP.
  2031	032254	312 11 0 00 000013 		CAME	AC,AC2		;C(AC) SHOULD=SIM.  ANS
  2032	032255	003 07 0 12 000000 		ERRI	RAN1,(AC1)
  2033	032256	204 11 0 00 000012 		MOVS	AC,AC1		;RESTORE AC.
  2034	032257	627 11 0 12 000000 		TLZN	AC,(AC1)	;E+C(AC)L NOT=0  SKIP.
  2035	032260	005 11 0 00 040072 		ER	AC,[ASCII /TST/]
  2036	032261	312 11 0 00 000013 		CAME	AC,AC2		;C(AC) SHOULD=SIM.  ANS
  2037	032262	003 07 0 12 000000 		ERRI	RAN1,(AC1)
  2038						LOOP	TLZN5,TLZN6^
  2039	032263	367 10 0 00 032242 		SOJG	AC-1,TLZN5		;ITERATION COUNTER
  2040	032264	200 11 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2041	032265	321 10 0 00 032246 		JUMPL	AC-1,TLZN6		;LOOP ON ERROR SWITCH ^
  2042
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 34
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0065

  2043
  2044
  2045					;TEST TLZE, TLZN.  CHECK FOR SKIP/NO SKIP AND
  2046					;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION.
  2047
  2048
  2049			000004			AC=4
  2050	032266				TLZN7:	SETUP	100,1^
  2051			000005			AC1=<AC+1>&17
  2052			000006			AC2=<AC+2>&17
  2053			000007			AC3=<AC+3>&17
  2054			000010			AC4=<AC+4>&17
  2055			000011			AC5=<AC+5>&17
  2056			000002			RAN1=<AC-2>&17
  2057	032266	201 03 0 00 032266 		MOVEI	AC-1,.
  2058	032267	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2059	032270	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2060	032271	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2061	032272	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2062	032273	240 03 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  2063	032274	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2064	032275				TLZN8:	RANDOM^
  2065	032275	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2066	032276	270 04 0 00 040071 		ADD	AC,[142536475076]
  2067	032277	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2068	032300	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2069	032301	434 04 0 00 040077 	TLZN9:	IOR	AC,[XWD 10000,10000];SET A BIT IN C(AC) + E.
  2070	032302	200 02 0 00 000004 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR.
  2071	032303	200 05 0 00 000004 		MOVE	AC1,AC		;MAKE E = A DIFF. RAN NUM.
  2072	032304	205 06 0 05 000000 		MOVSI	AC2,(AC1)	;SIMULATE
  2073	032305	410 06 0 00 000004 		ANDCA	AC2,AC		;A TLZ.
  2074	032306	623 04 0 05 000000 		TLZE	AC,(AC1)	;E+C(AC)L NOT = 0...NO SKIP.
  2075	032307	312 04 0 00 000006 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS
  2076	032310	003 02 0 05 000000 		ERRI	RAN1,(AC1)
  2077	032311	200 04 0 00 000002 		MOVE	AC,RAN1		;RESTORE AC.
  2078	032312	627 04 0 05 000000 		TLZN	AC,(AC1)	;E+C(AC)L NOT=0. SKIP.
  2079	032313	005 04 0 00 040072 		ER	AC,[ASCII /TST/]
  2080	032314	312 04 0 00 000006 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS
  2081	032315	003 02 0 05 000000 		ERRI	RAN1,(AC1)
  2082						LOOP	TLZN8,TLZN9^
  2083	032316	367 03 0 00 032275 		SOJG	AC-1,TLZN8		;ITERATION COUNTER
  2084	032317	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2085	032320	321 03 0 00 032301 		JUMPL	AC-1,TLZN9		;LOOP ON ERROR SWITCH ^
  2086
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 35
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0066

  2087
  2088
  2089					;TEST TLO, TLOA  CHECK FOR SKIP/NO SKIP AND
  2090					;CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
  2091
  2092
  2093			000005			AC=5
  2094	032321				TLO1:	SETUP	100,0^
  2095			000006			AC1=<AC+1>&17
  2096			000007			AC2=<AC+2>&17
  2097			000010			AC3=<AC+3>&17
  2098			000011			AC4=<AC+4>&17
  2099			000012			AC5=<AC+5>&17
  2100			000003			RAN1=<AC-2>&17
  2101	032321	201 04 0 00 032321 		MOVEI	AC-1,.
  2102	032322	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2103	032323	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2104	032324	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2105	032325	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2106	032326	240 04 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2107	032327	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2108	032330				TLO2:	RANDOM^
  2109	032330	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2110	032331	270 05 0 00 040071 		ADD	AC,[142536475076]
  2111	032332	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2112	032333	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2113	032334	661 05 0 00 000000 	TLO3:	TLO	AC,0		;SHOULD NOT SKIP.
  2114	032335	254 00 0 00 032337 		JRST	.+2
  2115	032336	005 05 0 00 040072 		ER	AC,[ASCII /TST/];TLO SKIPPED.
  2116	032337	665 05 0 00 000000 		TLOA	AC,0		;SHOULD SKIP
  2117	032340	005 05 0 00 040072 		ER	AC,[ASCII /TST/]
  2118	032341	312 05 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD=ORIG C(AC)
  2119	032342	013 00 0 00 000000 		EERRI
  2120						LOOP	TLO2,TLO3^
  2121	032343	367 04 0 00 032330 		SOJG	AC-1,TLO2		;ITERATION COUNTER
  2122	032344	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2123	032345	321 04 0 00 032334 		JUMPL	AC-1,TLO3		;LOOP ON ERROR SWITCH ^
  2124
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 36
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0067

  2125
  2126
  2127					;TEST TLO, TLOA.  CHECK FOR SKIP/NO SKIP AND
  2128					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
  2129
  2130
  2131			000006			AC=6
  2132	032346				TLO4:	SETUP	100,0^
  2133			000007			AC1=<AC+1>&17
  2134			000010			AC2=<AC+2>&17
  2135			000011			AC3=<AC+3>&17
  2136			000012			AC4=<AC+4>&17
  2137			000013			AC5=<AC+5>&17
  2138			000004			RAN1=<AC-2>&17
  2139	032346	201 05 0 00 032346 		MOVEI	AC-1,.
  2140	032347	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2141	032350	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2142	032351	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2143	032352	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2144	032353	240 05 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2145	032354	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2146	032355				TLO5:	RANDOM^
  2147	032355	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2148	032356	270 06 0 00 040071 		ADD	AC,[142536475076]
  2149	032357	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2150	032360	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2151	032361	403 07 0 00 000004 	TLO6:	SETZB	AC1,RAN1	;CLEAR C(AC).
  2152	032362	205 10 0 06 000000 		MOVSI	AC2,(AC)	;SIMULATE TLO.
  2153	032363	661 07 0 06 000000 		TLO	AC1,(AC)	;SHOULD NOT SKIP
  2154	032364	254 00 0 00 032366 		JRST	.+2
  2155	032365	005 07 0 00 040072 		ER	AC1,[ASCII /TST/];TLO SKIPPED.
  2156	032366	665 07 0 06 000000 		TLOA	AC1,(AC)	;SHOULD SKIP
  2157	032367	005 07 0 00 040072 		ER	AC1,[ASCII /TST/]
  2158	032370	312 07 0 00 000010 		CAME	AC1,AC2		;C(AC) SHOULD=SIM. ANS
  2159	032371	003 04 0 06 000000 		ERRI	RAN1,(AC)
  2160						LOOP	TLO5,TLO6^
  2161	032372	367 05 0 00 032355 		SOJG	AC-1,TLO5		;ITERATION COUNTER
  2162	032373	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2163	032374	321 05 0 00 032361 		JUMPL	AC-1,TLO6		;LOOP ON ERROR SWITCH ^
  2164
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 37
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0068

  2165
  2166
  2167					;TEST TLO, TLOA  CHECK FOR SKIP/NO SKIP AND
  2168					;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
  2169
  2170
  2171			000007			AC=7
  2172	032375				TLO7:	SETUP	100,0^
  2173			000010			AC1=<AC+1>&17
  2174			000011			AC2=<AC+2>&17
  2175			000012			AC3=<AC+3>&17
  2176			000013			AC4=<AC+4>&17
  2177			000014			AC5=<AC+5>&17
  2178			000005			RAN1=<AC-2>&17
  2179	032375	201 06 0 00 032375 		MOVEI	AC-1,.
  2180	032376	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2181	032377	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2182	032400	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2183	032401	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2184	032402	240 06 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2185	032403	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2186	032404				TLO8:	RANDOM^
  2187	032404	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2188	032405	270 07 0 00 040071 		ADD	AC,[142536475076]
  2189	032406	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2190	032407	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2191	032410	200 10 0 00 000007 	TLO9:	MOVE	AC1,AC		;SIMULATE
  2192	032411	434 10 0 00 040100 		IOR	AC1,[XWD -1,0]	;A TLO AC,-1.
  2193	032412	661 07 0 00 777777 		TLO	AC,-1		;SHOULD NOT SKIP
  2194	032413	254 00 0 00 032415 		JRST	.+2
  2195	032414	005 07 0 00 040072 		ER	AC,[ASCII /TST/];TLO SKIPPED.
  2196	032415	665 07 0 00 777777 		TLOA	AC,-1		;SHOULD SKIP
  2197	032416	005 07 0 00 040072 		ER	AC,[ASCII /TST/]
  2198	032417	312 07 0 00 000010 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  2199	032420	013 00 0 00 777777 		EERRI	,-1
  2200						LOOP	TLO8,TLO9^
  2201	032421	367 06 0 00 032404 		SOJG	AC-1,TLO8		;ITERATION COUNTER
  2202	032422	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2203	032423	321 06 0 00 032410 		JUMPL	AC-1,TLO9		;LOOP ON ERROR SWITCH ^
  2204
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 38
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0069

  2205
  2206
  2207					;TEST TLO, TLOA.  CHECK FOR SKIP/NO SKIP AND
  2208					;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
  2209
  2210
  2211			000010			AC=10
  2212	032424				TLOA1:	SETUP	100,0^
  2213			000011			AC1=<AC+1>&17
  2214			000012			AC2=<AC+2>&17
  2215			000013			AC3=<AC+3>&17
  2216			000014			AC4=<AC+4>&17
  2217			000015			AC5=<AC+5>&17
  2218			000006			RAN1=<AC-2>&17
  2219	032424	201 07 0 00 032424 		MOVEI	AC-1,.
  2220	032425	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2221	032426	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2222	032427	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2223	032430	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2224	032431	240 07 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2225	032432	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2226	032433				TLOA2:	RANDOM^
  2227	032433	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2228	032434	270 10 0 00 040071 		ADD	AC,[142536475076]
  2229	032435	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2230	032436	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2231	032437	477 11 0 00 000006 	TLOA3:	SETOB	AC1,RAN1	;MAKE C(AC)=-1.
  2232	032440	661 11 0 10 000000 		TLO	AC1,(AC)	;SHOULD NOT SKIP
  2233	032441	254 00 0 00 032443 		JRST	.+2
  2234	032442	005 11 0 00 040072 		ER	AC1,[ASCII /TST/];TLO SKIPPED.
  2235	032443	665 11 0 10 000000 		TLOA	AC1,(AC)	;SHOULD SKIP.
  2236	032444	005 11 0 00 040072 		ER	AC1,[ASCII /TST/]
  2237	032445	312 11 0 00 040073 		CAME	AC1,[-1]	;C(AC) SHOULD STILL=-1
  2238	032446	003 06 0 10 000000 		ERRI	RAN1,(AC)
  2239						LOOP	 TLOA2,TLOA3^
  2240	032447	367 07 0 00 032433 		SOJG	AC-1,TLOA2		;ITERATION COUNTER
  2241	032450	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2242	032451	321 07 0 00 032437 		JUMPL	AC-1,TLOA3		;LOOP ON ERROR SWITCH ^
  2243
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 39
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0070

  2244
  2245
  2246					;TEST TLO, TLOA.  CHECK FOR SKIP/NO SKIP AND
  2247					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
  2248
  2249
  2250			000002			AC=2
  2251	032452				TLOA4:	SETUP	100,0^
  2252			000003			AC1=<AC+1>&17
  2253			000004			AC2=<AC+2>&17
  2254			000005			AC3=<AC+3>&17
  2255			000006			AC4=<AC+4>&17
  2256			000007			AC5=<AC+5>&17
  2257			000000			RAN1=<AC-2>&17
  2258	032452	201 01 0 00 032452 		MOVEI	AC-1,.
  2259	032453	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2260	032454	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2261	032455	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2262	032456	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2263	032457	240 01 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2264	032460	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2265	032461				TLOA5:	RANDOM^
  2266	032461	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2267	032462	270 02 0 00 040071 		ADD	AC,[142536475076]
  2268	032463	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2269	032464	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2270	032465	204 03 0 00 000002 	TLOA6:	MOVS	AC1,AC		;MAKE "E"=C(AC)L.
  2271	032466	661 02 0 03 000000 		TLO	AC,(AC1)	;SHOULD NOT SKIP
  2272	032467	254 00 0 00 032471 		JRST	.+2
  2273	032470	005 02 0 00 040072 		ER	AC,[ASCII /TST/];TLO SKIPPED.
  2274	032471	665 02 0 03 000000 		TLOA	AC,(AC1)	;SHOULD SKIP
  2275	032472	005 02 0 00 040072 		ER	AC,[ASCII /TST/]
  2276	032473	312 02 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD=ORIG. C(AC)
  2277	032474	013 00 0 03 000000 		EERRI	,(AC1)
  2278						LOOP	TLOA5,TLOA6^
  2279	032475	367 01 0 00 032461 		SOJG	AC-1,TLOA5		;ITERATION COUNTER
  2280	032476	200 02 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2281	032477	321 01 0 00 032465 		JUMPL	AC-1,TLOA6		;LOOP ON ERROR SWITCH ^
  2282
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 40
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0071

  2283
  2284
  2285					;TEST TLO, TLOA.  CHECK FOR SKIPNO SKIP AND
  2286					;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
  2287
  2288
  2289			000002			AC=2
  2290	032500				TLOA7:	SETUP	100,0^
  2291			000003			AC1=<AC+1>&17
  2292			000004			AC2=<AC+2>&17
  2293			000005			AC3=<AC+3>&17
  2294			000006			AC4=<AC+4>&17
  2295			000007			AC5=<AC+5>&17
  2296			000000			RAN1=<AC-2>&17
  2297	032500	201 01 0 00 032500 		MOVEI	AC-1,.
  2298	032501	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2299	032502	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2300	032503	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2301	032504	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2302	032505	240 01 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2303	032506	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2304	032507				TLOA8:	RANDOM^
  2305	032507	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2306	032510	270 02 0 00 040071 		ADD	AC,[142536475076]
  2307	032511	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2308	032512	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2309	032513	200 03 0 00 000002 	TLOA9:	MOVE	AC1,AC		;MAKE "E"
  2310	032514	241 03 0 00 000011 		ROT	AC1,11		;=A DIFFERENT RAN  NUM
  2311	032515	205 04 0 03 000000 		MOVSI	AC2,(AC1)	;SIMULATE
  2312	032516	434 04 0 00 000002 		IOR	AC2,AC		;A TLO
  2313	032517	661 02 0 03 000000 		TLO	AC,(AC1)	;SHOULD NOT SKIP
  2314	032520	254 00 0 00 032522 		JRST	.+2
  2315	032521	005 02 0 00 040072 		ER	AC,[ASCII /TST/];TLO SKIPPED.
  2316	032522	665 02 0 03 000000 		TLOA	AC,(AC1)	;SHOULD SKIP
  2317	032523	005 02 0 00 040072 		ER	AC,[ASCII /TST/]
  2318	032524	312 02 0 00 000004 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS
  2319	032525	013 00 0 03 000000 		EERRI	,(AC1)
  2320						LOOP	TLOA8,TLOA9^
  2321	032526	367 01 0 00 032507 		SOJG	AC-1,TLOA8		;ITERATION COUNTER
  2322	032527	200 02 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2323	032530	321 01 0 00 032513 		JUMPL	AC-1,TLOA9		;LOOP ON ERROR SWITCH ^
  2324
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 41
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0072

  2325
  2326
  2327					;TEST TLOE, TLON.  CHECK FOR SKIP/NO SKIP AND
  2328					;CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
  2329
  2330
  2331			000002			AC=2
  2332	032531				TLOE1:	SETUP	100,0^
  2333			000003			AC1=<AC+1>&17
  2334			000004			AC2=<AC+2>&17
  2335			000005			AC3=<AC+3>&17
  2336			000006			AC4=<AC+4>&17
  2337			000007			AC5=<AC+5>&17
  2338			000000			RAN1=<AC-2>&17
  2339	032531	201 01 0 00 032531 		MOVEI	AC-1,.
  2340	032532	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2341	032533	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2342	032534	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2343	032535	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2344	032536	240 01 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2345	032537	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2346	032540				TLOE2:	RANDOM^
  2347	032540	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2348	032541	270 02 0 00 040071 		ADD	AC,[142536475076]
  2349	032542	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2350	032543	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2351	032544	667 02 0 00 000000 	TLOE3:	TLON	AC,0		;E+C(AC)=0.  NO SKIP.
  2352	032545	254 00 0 00 032547 		JRST	.+2
  2353	032546	005 02 0 00 040072 		ER	AC,[ASCII /TST/];TLON SKIPPED.
  2354	032547	663 02 0 00 000000 		TLOE	AC,0		;E+C(AC)=0. SKIP
  2355	032550	005 02 0 00 040072 		ER	AC,[ASCII /TST/]
  2356	032551	312 02 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD=ORIG. C(AC)
  2357	032552	013 00 0 00 000000 		EERRI
  2358						LOOP	TLOE2,TLOE3^
  2359	032553	367 01 0 00 032540 		SOJG	AC-1,TLOE2		;ITERATION COUNTER
  2360	032554	200 02 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2361	032555	321 01 0 00 032544 		JUMPL	AC-1,TLOE3		;LOOP ON ERROR SWITCH ^
  2362
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 42
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0073

  2363
  2364
  2365					;TEST TLOE, TLON.  CHECK FOR SKIP/NO SKIP AND
  2366					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
  2367
  2368
  2369			000003			AC=3
  2370	032556				TLOE4:	SETUP	100,0^
  2371			000004			AC1=<AC+1>&17
  2372			000005			AC2=<AC+2>&17
  2373			000006			AC3=<AC+3>&17
  2374			000007			AC4=<AC+4>&17
  2375			000010			AC5=<AC+5>&17
  2376			000001			RAN1=<AC-2>&17
  2377	032556	201 02 0 00 032556 		MOVEI	AC-1,.
  2378	032557	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2379	032560	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2380	032561	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2381	032562	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2382	032563	240 02 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2383	032564	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2384	032565				TLOE5:	RANDOM^
  2385	032565	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2386	032566	270 03 0 00 040071 		ADD	AC,[142536475076]
  2387	032567	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2388	032570	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2389	032571	435 03 0 00 020000 	TLOE6:	IORI	AC,20000	;SET A BIT IN E.
  2390	032572	403 04 0 00 000001 		SETZB	AC1,RAN1	;CLEAR AC.
  2391	032573	205 05 0 03 000000 		MOVSI	AC2,(AC)	;SIMULATE A TLO
  2392	032574	663 04 0 03 000000 		TLOE	AC1,(AC)	;E+C(AC)L=0.  SKIP
  2393	032575	005 04 0 00 040072 		ER	AC1,[ASCII /TST/]
  2394	032576	667 04 0 03 000000 		TLON	AC1,(AC)	;E+C(AC)L NOT=0. SKIP
  2395	032577	005 04 0 00 040072 		ER	AC1,[ASCII /TST/]
  2396	032600	312 04 0 00 000005 		CAME	AC1,AC2		;C(AC) SHOULD=SIM. ANS
  2397	032601	003 01 0 03 000000 		ERRI	RAN1,(AC)
  2398						LOOP	TLOE5,TLOE6^
  2399	032602	367 02 0 00 032565 		SOJG	AC-1,TLOE5		;ITERATION COUNTER
  2400	032603	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2401	032604	321 02 0 00 032571 		JUMPL	AC-1,TLOE6		;LOOP ON ERROR SWITCH ^
  2402
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 43
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0074

  2403
  2404
  2405					;TEST TLOE, TLON.  CHECK FOR SKIP/NO SKIP AND
  2406					;CORRECT DATA IN AC FOR -1 TO RAN CONDITION.
  2407
  2408
  2409			000002			AC=2
  2410	032605				TLOE7:	SETUP	100,0^
  2411			000003			AC1=<AC+1>&17
  2412			000004			AC2=<AC+2>&17
  2413			000005			AC3=<AC+3>&17
  2414			000006			AC4=<AC+4>&17
  2415			000007			AC5=<AC+5>&17
  2416			000000			RAN1=<AC-2>&17
  2417	032605	201 01 0 00 032605 		MOVEI	AC-1,.
  2418	032606	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2419	032607	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2420	032610	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2421	032611	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2422	032612	240 01 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2423	032613	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2424	032614				TLOE8:	RANDOM^
  2425	032614	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2426	032615	270 02 0 00 040071 		ADD	AC,[142536475076]
  2427	032616	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2428	032617	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2429	032620	434 02 0 00 030705 	TLOE9:	IOR	AC,TSTLFT	;SET A BIT IN LEFT SIDE OF AC.
  2430	032621	200 00 0 00 000002 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR.
  2431	032622	205 03 0 00 777777 		MOVSI	AC1,-1		;SIMULATE
  2432	032623	434 03 0 00 000002 		IOR	AC1,AC		;A TLO.
  2433	032624	663 02 0 00 777777 		TLOE	AC,-1		;E+C(AC)L NOT=0. NO SKIP.
  2434	032625	254 00 0 00 032627 		JRST	.+2
  2435	032626	005 02 0 00 040072 		ER	AC,[ASCII /TST/];TLOE SKIPPED.
  2436	032627	667 02 0 00 777777 		TLON	AC,-1		;E+C(AC)L NOT=0. SKIP
  2437	032630	005 02 0 00 040072 		ER	AC,[ASCII /TST/]
  2438	032631	312 02 0 00 000003 		CAME	AC,AC1
  2439	032632	003 00 0 00 777777 		ERRI	RAN1,-1
  2440						LOOP	TLOE8,TLOE9^
  2441	032633	367 01 0 00 032614 		SOJG	AC-1,TLOE8		;ITERATION COUNTER
  2442	032634	200 02 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2443	032635	321 01 0 00 032620 		JUMPL	AC-1,TLOE9		;LOOP ON ERROR SWITCH ^
  2444
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 44
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0075

  2445
  2446
  2447					;TEST TLOE, TLON.  CHECK FOR SKIP/NO SKIP AND
  2448					;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
  2449
  2450
  2451			000003			AC=3
  2452	032636				TLON1:	SETUP	100,0^
  2453			000004			AC1=<AC+1>&17
  2454			000005			AC2=<AC+2>&17
  2455			000006			AC3=<AC+3>&17
  2456			000007			AC4=<AC+4>&17
  2457			000010			AC5=<AC+5>&17
  2458			000001			RAN1=<AC-2>&17
  2459	032636	201 02 0 00 032636 		MOVEI	AC-1,.
  2460	032637	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2461	032640	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2462	032641	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2463	032642	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2464	032643	240 02 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2465	032644	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2466	032645				TLON2:	RANDOM^
  2467	032645	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2468	032646	270 03 0 00 040071 		ADD	AC,[142536475076]
  2469	032647	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2470	032650	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2471	032651	435 03 0 00 000010 	TLON3:	IORI	AC,10		;SET A BIT IN E
  2472	032652	477 04 0 00 000001 		SETOB	AC1,RAN1	;SET C(AC) TO=-1.
  2473	032653	663 04 0 03 000000 		TLOE	AC1,(AC)	;E+C(AC)L NOT =0.  NO SKIP
  2474	032654	254 00 0 00 032656 		JRST	.+2
  2475	032655	005 04 0 00 040072 		ER	AC1,[ASCII /TST/];TLOE SKIPPED.
  2476	032656	667 04 0 03 000000 		TLON	AC1,(AC)	;E+C(AC)L NOT=0  SKIP
  2477	032657	005 04 0 00 040072 		ER	AC1,[ASCII /TST/]
  2478	032660	312 04 0 00 040073 		CAME	AC1,[-1]	;C(AC) SHOULD STILL=-1.
  2479	032661	003 01 0 03 000000 		ERRI	RAN1,(AC)
  2480						LOOP	TLON2,TLON3^
  2481	032662	367 02 0 00 032645 		SOJG	AC-1,TLON2		;ITERATION COUNTER
  2482	032663	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2483	032664	321 02 0 00 032651 		JUMPL	AC-1,TLON3		;LOOP ON ERROR SWITCH ^
  2484
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 45
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0076

  2485
  2486
  2487					;TEST TLOE, TLON.  CHECK FOR SKIP/NO SKIP
  2488					;AND CORRECT DATA IN AC FOR RAN TO RAN CONDITION
  2489
  2490
  2491			000004			AC=4
  2492	032665				TLON4:	SETUP	100,0^
  2493			000005			AC1=<AC+1>&17
  2494			000006			AC2=<AC+2>&17
  2495			000007			AC3=<AC+3>&17
  2496			000010			AC4=<AC+4>&17
  2497			000011			AC5=<AC+5>&17
  2498			000002			RAN1=<AC-2>&17
  2499	032665	201 03 0 00 032665 		MOVEI	AC-1,.
  2500	032666	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2501	032667	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2502	032670	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2503	032671	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2504	032672	240 03 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2505	032673	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2506	032674				TLON5:	RANDOM^
  2507	032674	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2508	032675	270 04 0 00 040071 		ADD	AC,[142536475076]
  2509	032676	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2510	032677	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2511	032700	434 04 0 00 030706 	TLON6:	IOR	AC,TLFT1	;SET A BIT IN LEFT SIDE OF AC.
  2512	032701	200 02 0 00 000004 		MOVE	RAN1,AC		;SAVE C(AC) FOR FUTURE COMPARE.
  2513	032702	204 05 0 00 000004 		MOVS	AC1,AC		;MAKE E = C(AC)L.
  2514	032703	663 04 0 05 000000 		TLOE	AC,(AC1)	;E+C(AC)L NOT=0.  NO SKIP.
  2515	032704	254 00 0 00 032706 		JRST	.+2
  2516	032705	005 04 0 00 040072 		ER	AC,[ASCII /TST/];TLOE SKIPPED.
  2517	032706	667 04 0 05 000000 		TLON	AC,(AC1)	;E+C(AC)L NOT=0  SKIP
  2518	032707	005 04 0 00 040072 		ER	AC,[ASCII /TST/]
  2519	032710	312 04 0 00 000002 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  2520	032711	003 02 0 05 000000 		ERRI	RAN1,(AC1)
  2521						LOOP	TLON5,TLON6^
  2522	032712	367 03 0 00 032674 		SOJG	AC-1,TLON5		;ITERATION COUNTER
  2523	032713	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2524	032714	321 03 0 00 032700 		JUMPL	AC-1,TLON6		;LOOP ON ERROR SWITCH ^
  2525
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 46
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0077

  2526
  2527
  2528					;TEST TLOE, TLON.  CHECK FOR SKIP/NO SKIP AND
  2529					;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION.
  2530
  2531
  2532			000005			AC=5
  2533	032715					TLON7:	SETUP	100,1^
  2534			000006			AC1=<AC+1>&17
  2535			000007			AC2=<AC+2>&17
  2536			000010			AC3=<AC+3>&17
  2537			000011			AC4=<AC+4>&17
  2538			000012			AC5=<AC+5>&17
  2539			000003			RAN1=<AC-2>&17
  2540	032715	201 04 0 00 032715 		MOVEI	AC-1,.
  2541	032716	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2542	032717	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2543	032720	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2544	032721	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2545	032722	240 04 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  2546	032723	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2547	032724				TLON8:	RANDOM^
  2548	032724	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2549	032725	270 05 0 00 040071 		ADD	AC,[142536475076]
  2550	032726	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2551	032727	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2552	032730	434 05 0 00 040101 	TLON9:	IOR	AC,[XWD 400000,400000];SET A BIT IN AC + E.
  2553	032731	200 03 0 00 000005 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR.
  2554	032732	200 06 0 00 000005 		MOVE	AC1,AC		;MAKE E A DIFF RAN NUM.
  2555	032733	205 07 0 06 000000 		MOVSI	AC2,(AC1)	;SIMULATE
  2556	032734	434 07 0 00 000005 		IOR	AC2,AC		;A TLO
  2557	032735	663 05 0 06 000000 		TLOE	AC,(AC1)	;E+C(AC)L NOT = 0...NO SKIP.
  2558	032736	254 00 0 00 032740 		JRST	.+2
  2559	032737	005 05 0 00 040072 		ER	AC,[ASCII /TST/];TLOE SKIPPED.
  2560	032740	667 05 0 06 000000 		TLON	AC,(AC1)	;E+C(AC)L NOT=0. SKIP
  2561	032741	005 05 0 00 040072 		ER	AC,[ASCII /TST/]
  2562	032742	312 05 0 00 000007 		CAME	AC,AC2
  2563	032743	003 03 0 06 000000 		ERRI	RAN1,(AC1)	;C(AC) SHOULD=SIM. ANS
  2564						LOOP	TLON8,TLON9^
  2565	032744	367 04 0 00 032724 		SOJG	AC-1,TLON8		;ITERATION COUNTER
  2566	032745	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2567	032746	321 04 0 00 032730 		JUMPL	AC-1,TLON9		;LOOP ON ERROR SWITCH ^
  2568
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 47
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0078

  2569
  2570
  2571					;TEST TLC, TLCA.  CHECK FOR SKIP/NO SKIP AND
  2572					;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
  2573
  2574
  2575			000006			AC=6
  2576	032747				TLC1:	SETUP	100,0^
  2577			000007			AC1=<AC+1>&17
  2578			000010			AC2=<AC+2>&17
  2579			000011			AC3=<AC+3>&17
  2580			000012			AC4=<AC+4>&17
  2581			000013			AC5=<AC+5>&17
  2582			000004			RAN1=<AC-2>&17
  2583	032747	201 05 0 00 032747 		MOVEI	AC-1,.
  2584	032750	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2585	032751	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2586	032752	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2587	032753	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2588	032754	240 05 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2589	032755	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2590	032756				TLC2:	RANDOM^
  2591	032756	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2592	032757	270 06 0 00 040071 		ADD	AC,[142536475076]
  2593	032760	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2594	032761	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2595	032762	641 06 0 00 000000 	TLC3:	TLC	AC,0		;SHOULD NOT SKIP,.
  2596	032763	254 00 0 00 032765 		JRST	.+2
  2597	032764	005 06 0 00 040072 		ER	AC,[ASCII /TST/];TLC SKIPPED.
  2598	032765	645 06 0 00 000000 		TLCA	AC,0		;SHOULD SKIP
  2599	032766	005 06 0 00 040072 		ER	AC,[ASCII /TST/]
  2600	032767	312 06 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD NOT HAVE CHANGED
  2601	032770	013 00 0 00 000000 		EERRI
  2602						LOOP	TLC2,TLC3^
  2603	032771	367 05 0 00 032756 		SOJG	AC-1,TLC2		;ITERATION COUNTER
  2604	032772	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2605	032773	321 05 0 00 032762 		JUMPL	AC-1,TLC3		;LOOP ON ERROR SWITCH ^
  2606
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 48
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0079

  2607
  2608
  2609					;TEST TLC, TLCA.  CHECK FOR SKIP/NO SKIP AND
  2610					;CORRECT DATA IN AC FOR RAN TO 0. CONDITION.
  2611
  2612
  2613			000007			AC=7
  2614	032774				TLC4:	SETUP	100,0^
  2615			000010			AC1=<AC+1>&17
  2616			000011			AC2=<AC+2>&17
  2617			000012			AC3=<AC+3>&17
  2618			000013			AC4=<AC+4>&17
  2619			000014			AC5=<AC+5>&17
  2620			000005			RAN1=<AC-2>&17
  2621	032774	201 06 0 00 032774 		MOVEI	AC-1,.
  2622	032775	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2623	032776	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2624	032777	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2625	033000	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2626	033001	240 06 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2627	033002	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2628	033003				TLC5:	RANDOM^
  2629	033003	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2630	033004	270 07 0 00 040071 		ADD	AC,[142536475076]
  2631	033005	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2632	033006	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2633	033007	403 10 0 00 000005 	TLC6:	SETZB	AC1,RAN1	;CLEAR AC
  2634	033010	641 10 0 07 000000 		TLC	AC1,(AC)	;SHOULD NOT SKIP
  2635	033011	254 00 0 00 033013 		JRST	.+2
  2636	033012	005 10 0 00 040072 		ER	AC1,[ASCII /TST/];TLC SKIPPED.
  2637	033013	645 10 0 07 000000 		TLCA	AC1,(AC)	;SHOULD SKIP
  2638	033014	005 10 0 00 040072 		ER	AC1,[ASCII /TST/]
  2639	033015	312 10 0 00 040074 		CAME	AC1,[0]		;C(AC) SHOULD=ORIG C(AC)
  2640	033016	003 05 0 07 000000 		ERRI	RAN1,(AC)
  2641						LOOP	TLC5,TLC6^
  2642	033017	367 06 0 00 033003 		SOJG	AC-1,TLC5		;ITERATION COUNTER
  2643	033020	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2644	033021	321 06 0 00 033007 		JUMPL	AC-1,TLC6		;LOOP ON ERROR SWITCH ^
  2645
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 49
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0080

  2646					;TEST TLC, TLCA.  CHECK FOR SKIP/NO SKIP AND
  2647					;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
  2648
  2649
  2650			000010			AC=10
  2651	033022				TLC7:	SETUP	100,0^
  2652			000011			AC1=<AC+1>&17
  2653			000012			AC2=<AC+2>&17
  2654			000013			AC3=<AC+3>&17
  2655			000014			AC4=<AC+4>&17
  2656			000015			AC5=<AC+5>&17
  2657			000006			RAN1=<AC-2>&17
  2658	033022	201 07 0 00 033022 		MOVEI	AC-1,.
  2659	033023	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2660	033024	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2661	033025	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2662	033026	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2663	033027	240 07 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2664	033030	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2665	033031				TLC8:	RANDOM^
  2666	033031	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2667	033032	270 10 0 00 040071 		ADD	AC,[142536475076]
  2668	033033	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2669	033034	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2670	033035	641 10 0 00 777777 	TLC9:	TLC	AC,-1		;SHOULD NOT SKIP
  2671	033036	254 00 0 00 033040 		JRST	.+2
  2672	033037	005 10 0 00 040072 		ER	AC,[ASCII /TST/];TLC SKIPPED.
  2673	033040	645 10 0 00 777777 		TLCA	AC,-1
  2674	033041	005 10 0 00 040072 		ER	AC,[ASCII /TST/]
  2675	033042	312 10 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD=ORIG C(AC)
  2676	033043	013 00 0 00 777777 		EERRI	,-1
  2677						LOOP	TLC8,TLC9^
  2678	033044	367 07 0 00 033031 		SOJG	AC-1,TLC8		;ITERATION COUNTER
  2679	033045	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2680	033046	321 07 0 00 033035 		JUMPL	AC-1,TLC9		;LOOP ON ERROR SWITCH ^
  2681
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 50
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0081

  2682
  2683
  2684					;TEST TLC, TLCA.  CHECK FOR SKIP/NO SKIP AND
  2685					;CORRECT DATA IN AC FOR RAN TO -1 CONDITION
  2686
  2687
  2688			000003			AC=3
  2689	033047				TLCA1:	SETUP	100,0^
  2690			000004			AC1=<AC+1>&17
  2691			000005			AC2=<AC+2>&17
  2692			000006			AC3=<AC+3>&17
  2693			000007			AC4=<AC+4>&17
  2694			000010			AC5=<AC+5>&17
  2695			000001			RAN1=<AC-2>&17
  2696	033047	201 02 0 00 033047 		MOVEI	AC-1,.
  2697	033050	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2698	033051	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2699	033052	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2700	033053	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2701	033054	240 02 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2702	033055	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2703	033056				TLCA2:	RANDOM^
  2704	033056	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2705	033057	270 03 0 00 040071 		ADD	AC,[142536475076]
  2706	033060	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2707	033061	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2708	033062	477 04 0 00 000001 	TLCA3:	SETOB	AC1,RAN1	;MAKE C(AC) = -1.
  2709	033063	641 04 0 03 000000 		TLC	AC1,(AC)	;SHOULD NOT SKIP
  2710	033064	254 00 0 00 033066 		JRST	.+2
  2711	033065	005 04 0 00 040072 		ER	AC1,[ASCII /TST/];TLC SKIPPED.
  2712	033066	645 04 0 03 000000 		TLCA	AC1,(AC)	;SHOULD SKIP
  2713	033067	005 04 0 00 040072 		ER	AC1,[ASCII /TST/]
  2714	033070	312 04 0 00 040073 		CAME	AC1,[-1]	;C(AC) SHOULD=ORIG. C(AC)
  2715	033071	003 01 0 03 000000 		ERRI	RAN1,(AC)
  2716						LOOP	TLCA2,TLCA3^
  2717	033072	367 02 0 00 033056 		SOJG	AC-1,TLCA2		;ITERATION COUNTER
  2718	033073	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2719	033074	321 02 0 00 033062 		JUMPL	AC-1,TLCA3		;LOOP ON ERROR SWITCH ^
  2720
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 51
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0082

  2721
  2722
  2723					;TEST TLC, TLCA.  CHECK FOR SKIP/NO SKIP AND
  2724					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
  2725
  2726
  2727			000002			AC=2
  2728	033075				TLCA4:	SETUP	100,0^
  2729			000003			AC1=<AC+1>&17
  2730			000004			AC2=<AC+2>&17
  2731			000005			AC3=<AC+3>&17
  2732			000006			AC4=<AC+4>&17
  2733			000007			AC5=<AC+5>&17
  2734			000000			RAN1=<AC-2>&17
  2735	033075	201 01 0 00 033075 		MOVEI	AC-1,.
  2736	033076	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2737	033077	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2738	033100	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2739	033101	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2740	033102	240 01 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2741	033103	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2742	033104				TLCA5:	RANDOM^
  2743	033104	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2744	033105	270 02 0 00 040071 		ADD	AC,[142536475076]
  2745	033106	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2746	033107	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2747	033110	204 03 0 00 000002 	TLCA6:	MOVS	AC1,AC		;MAKE "E"=C(AC)L.
  2748	033111	641 02 0 03 000000 		TLC	AC,(AC1)	;SHOULD NOT SKIP.
  2749	033112	254 00 0 00 033114 		JRST	.+2
  2750	033113	005 02 0 00 040072 		ER	AC,[ASCII /TST/];TLC SKIPPED.
  2751	033114	645 02 0 03 000000 		TLCA	AC,(AC1)	;SHOULD SKIP
  2752	033115	005 02 0 00 040072 		ER	AC,[ASCII /TST/]
  2753	033116	312 02 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD=ORIG C(AC)
  2754	033117	013 00 0 03 000000 		EERRI	,(AC1)
  2755						LOOP	TLCA5,TLCA6^
  2756	033120	367 01 0 00 033104 		SOJG	AC-1,TLCA5		;ITERATION COUNTER
  2757	033121	200 02 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2758	033122	321 01 0 00 033110 		JUMPL	AC-1,TLCA6		;LOOP ON ERROR SWITCH ^
  2759
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 52
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0083

  2760
  2761
  2762					;TEST TLC, TLCA.  CHECK FOR SKIP/NO SKIP AND
  2763					;CORRECT DATA IN AC FOR NOT RAN TO RAN
  2764
  2765
  2766			000003			AC=3
  2767	033123				TLCA7:	SETUP	100,0^
  2768			000004			AC1=<AC+1>&17
  2769			000005			AC2=<AC+2>&17
  2770			000006			AC3=<AC+3>&17
  2771			000007			AC4=<AC+4>&17
  2772			000010			AC5=<AC+5>&17
  2773			000001			RAN1=<AC-2>&17
  2774	033123	201 02 0 00 033123 		MOVEI	AC-1,.
  2775	033124	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2776	033125	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2777	033126	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2778	033127	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2779	033130	240 02 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2780	033131	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2781	033132				TLCA8:	RANDOM^
  2782	033132	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2783	033133	270 03 0 00 040071 		ADD	AC,[142536475076]
  2784	033134	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2785	033135	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2786	033136	460 04 0 00 000003 	TLCA9:	SETCM	AC1,AC		;MAKE "E"=
  2787	033137	204 04 0 00 000004 		MOVS	AC1,AC1		;1'S COMP OF C(AC)L.
  2788	033140	641 03 0 04 000000 		TLC	AC,(AC1)	;SHOULD NOT SKIP
  2789	033141	254 00 0 00 033143 		JRST	.+2
  2790	033142	005 03 0 00 040072 		ER	AC,[ASCII /TST/];TLC SKIPPED.
  2791	033143	645 03 0 04 000000 		TLCA	AC,(AC1)	;SHOULD SKIP
  2792	033144	005 03 0 00 040072 		ER	AC,[ASCII /TST/]
  2793	033145	312 03 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD=ORIG C(AC)
  2794	033146	013 00 0 04 000000 		EERRI	,(AC1)
  2795						LOOP	TLCA8,TLCA9^
  2796	033147	367 02 0 00 033132 		SOJG	AC-1,TLCA8		;ITERATION COUNTER
  2797	033150	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2798	033151	321 02 0 00 033136 		JUMPL	AC-1,TLCA9		;LOOP ON ERROR SWITCH ^
  2799
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 53
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0084

  2800
  2801
  2802					;TEST TLCE, TLCN.  CHECK FOR SKIP/NO SKIP AND
  2803					;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
  2804
  2805
  2806			000004			AC=4
  2807	033152				TLCE1:	SETUP	100,0^
  2808			000005			AC1=<AC+1>&17
  2809			000006			AC2=<AC+2>&17
  2810			000007			AC3=<AC+3>&17
  2811			000010			AC4=<AC+4>&17
  2812			000011			AC5=<AC+5>&17
  2813			000002			RAN1=<AC-2>&17
  2814	033152	201 03 0 00 033152 		MOVEI	AC-1,.
  2815	033153	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2816	033154	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2817	033155	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2818	033156	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2819	033157	240 03 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2820	033160	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2821	033161				TLCE2:	RANDOM^
  2822	033161	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2823	033162	270 04 0 00 040071 		ADD	AC,[142536475076]
  2824	033163	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2825	033164	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2826	033165	647 04 0 00 000000 	TLCE3:	TLCN	AC,0		;E+C(AC)L=0. NO SKIP
  2827	033166	254 00 0 00 033170 		JRST	.+2
  2828	033167	005 04 0 00 040072 		ER	AC,[ASCII /TST/];TLCN SKIPPED.
  2829	033170	643 04 0 00 000000 		TLCE	AC,0		;E+C(AC)L=0. SKIP
  2830	033171	005 04 0 00 040072 		ER	AC,[ASCII /TST/]
  2831	033172	312 04 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD=ORIG C(AC).
  2832	033173	013 00 0 00 000000 		EERRI	,0
  2833						LOOP	TLCE2,TLCE3^
  2834	033174	367 03 0 00 033161 		SOJG	AC-1,TLCE2		;ITERATION COUNTER
  2835	033175	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2836	033176	321 03 0 00 033165 		JUMPL	AC-1,TLCE3		;LOOP ON ERROR SWITCH ^
  2837
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 54
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0085

  2838
  2839
  2840					;TEST TLCE, TLCN.  CHECK FOR SKIP/NO SKIP AND
  2841					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
  2842
  2843
  2844			000005			AC=5
  2845	033177				TLCE4:	SETUP	100,0^
  2846			000006			AC1=<AC+1>&17
  2847			000007			AC2=<AC+2>&17
  2848			000010			AC3=<AC+3>&17
  2849			000011			AC4=<AC+4>&17
  2850			000012			AC5=<AC+5>&17
  2851			000003			RAN1=<AC-2>&17
  2852	033177	201 04 0 00 033177 		MOVEI	AC-1,.
  2853	033200	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2854	033201	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2855	033202	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2856	033203	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2857	033204	240 04 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2858	033205	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2859	033206				TLCE5:	RANDOM^
  2860	033206	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2861	033207	270 05 0 00 040071 		ADD	AC,[142536475076]
  2862	033210	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2863	033211	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2864	033212	435 05 0 00 000001 	TLCE6:	IORI	AC,1		;MAKE SURE A BIT IS SET IN E.
  2865	033213	403 06 0 00 000003 		SETZB	AC1,RAN1	;CLEAR C(AC).
  2866	033214	647 06 0 05 000000 		TLCN	AC1,(AC)	;E+C(AC)L=0.  NO SKIP.
  2867	033215	254 00 0 00 033217 		JRST	.+2
  2868	033216	005 06 0 00 040072 		ER	AC1,[ASCII /TST/];TLCN SKIPPED.
  2869	033217	647 06 0 05 000000 		TLCN	AC1,(AC)	;E+C(AC)L NOT=0.  SKIP
  2870	033220	005 06 0 00 040072 		ER	AC1,[ASCII /TST/]
  2871	033221	312 06 0 00 040074 		CAME	AC1,[0]		;C(AC) SHOULD=ORIG C(AC).
  2872	033222	003 03 0 05 000000 		ERRI	RAN1,(AC)
  2873	033223	643 06 0 05 000000 		TLCE	AC1,(AC)	;E+C(AC)L=0. SKIP
  2874	033224	005 06 0 00 040072 		ER	AC1,[ASCII /TST/]
  2875	033225	643 06 0 05 000000 		TLCE	AC1,(AC)	;E+C(AC)L NOT=0  NO SKIP
  2876	033226	312 06 0 00 040074 		CAME	AC1,[0]		;C(AC) SHOULD=ORIG. C(AC)
  2877	033227	003 03 0 05 000000 		ERRI	RAN1,(AC)
  2878						LOOP	TLCE5,TLCE6^
  2879	033230	367 04 0 00 033206 		SOJG	AC-1,TLCE5		;ITERATION COUNTER
  2880	033231	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2881	033232	321 04 0 00 033212 		JUMPL	AC-1,TLCE6		;LOOP ON ERROR SWITCH ^
  2882
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 55
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0086

  2883
  2884
  2885					;TEST TLCE, TLCN  CHECK FOR SKIP/NO SKIP AND
  2886					;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
  2887
  2888
  2889			000006			AC=6
  2890	033233				TLCE7:	SETUP	100,0^
  2891			000007			AC1=<AC+1>&17
  2892			000010			AC2=<AC+2>&17
  2893			000011			AC3=<AC+3>&17
  2894			000012			AC4=<AC+4>&17
  2895			000013			AC5=<AC+5>&17
  2896			000004			RAN1=<AC-2>&17
  2897	033233	201 05 0 00 033233 		MOVEI	AC-1,.
  2898	033234	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2899	033235	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2900	033236	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2901	033237	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2902	033240	240 05 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2903	033241	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2904	033242				TLCE8:	RANDOM^
  2905	033242	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2906	033243	270 06 0 00 040071 		ADD	AC,[142536475076]
  2907	033244	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2908	033245	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2909	033246	434 06 0 00 030705 	TLCE9:	IOR	AC,TSTLFT	;SET A BIT IN AC LEFT.
  2910	033247	204 07 0 00 000006 		MOVS	AC1,AC		;CHECK TO MAKE
  2911	033250	201 07 0 07 000000 		MOVEI	AC1,(AC1)	;SURE C(AC)L DOES
  2912	033251	306 07 0 00 777777 		CAIN	AC1,-1		;NOT = -1.
  2913	033252	254 00 0 00 033242 		JRST	TLCE8		;REJECT IF IT DOES.
  2914	033253	200 04 0 00 000006 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR.
  2915	033254	643 06 0 00 777777 		TLCE	AC,-1		;E+C(AC) L NOT=0.  NO SKIP
  2916	033255	254 00 0 00 033257 		JRST	.+2
  2917	033256	005 06 0 00 040072 		ER	AC,[ASCII /TST/];TLCE SKIPPED.
  2918	033257	647 06 0 00 777777 		TLCN	AC,-1		;E+C(AC)L NOT=0.  SKIP
  2919	033260	005 06 0 00 040072 		ER	AC,[ASCII /TST/]
  2920	033261	312 06 0 00 000004 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  2921	033262	003 04 0 00 777777 		ERRI	RAN1,-1
  2922						LOOP	TLCE8,TLCE9^
  2923	033263	367 05 0 00 033242 		SOJG	AC-1,TLCE8		;ITERATION COUNTER
  2924	033264	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2925	033265	321 05 0 00 033246 		JUMPL	AC-1,TLCE9		;LOOP ON ERROR SWITCH ^
  2926
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 56
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0087

  2927
  2928
  2929					;TEST TLCE, TLCN.  CHECK FOR SKIP/NO SKIP AND
  2930					;CORRECT DATA IN AC FOR RAN TO-1 CONDITION
  2931
  2932
  2933			000007			AC=7
  2934	033266				TLCN1:	SETUP	100,0^
  2935			000010			AC1=<AC+1>&17
  2936			000011			AC2=<AC+2>&17
  2937			000012			AC3=<AC+3>&17
  2938			000013			AC4=<AC+4>&17
  2939			000014			AC5=<AC+5>&17
  2940			000005			RAN1=<AC-2>&17
  2941	033266	201 06 0 00 033266 		MOVEI	AC-1,.
  2942	033267	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2943	033270	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2944	033271	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2945	033272	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2946	033273	240 06 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2947	033274	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2948	033275				TLCN2:	RANDOM^
  2949	033275	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2950	033276	270 07 0 00 040071 		ADD	AC,[142536475076]
  2951	033277	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2952	033300	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2953	033301	435 07 0 00 000004 	TLCN3:	IORI	AC,4		;SET A BIT IN E.
  2954	033302	477 10 0 00 000005 		SETOB	AC1,RAN1	;MAKE C(AC)=-1
  2955	033303	647 10 0 07 000000 		TLCN	AC1,(AC)	;E+C(AC)L NOT=0. SKIP
  2956	033304	005 10 0 00 040072 		ER	AC1,[ASCII /TST/]
  2957	033305	643 10 0 07 000000 		TLCE	AC1,(AC)	;E+C(AC)L=0. SKIP
  2958	033306	005 10 0 00 040072 		ER	AC1,[ASCII /TST/]
  2959	033307	312 10 0 00 040073 		CAME	AC1,[-1]	;C(AC) SHOULD=ORIG C(AC).
  2960	033310	003 05 0 07 000000 		ERRI	RAN1,(AC)
  2961						LOOP	TLCN2,TLCN3^
  2962	033311	367 06 0 00 033275 		SOJG	AC-1,TLCN2		;ITERATION COUNTER
  2963	033312	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2964	033313	321 06 0 00 033301 		JUMPL	AC-1,TLCN3		;LOOP ON ERROR SWITCH ^
  2965
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 57
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0088

  2966
  2967
  2968					;TEST TLCE, TLCN.  CHECK FOR SKIP/NO SKIP AND
  2969					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
  2970
  2971
  2972			000010			AC=10
  2973	033314				TLCN4:	SETUP	100,0^
  2974			000011			AC1=<AC+1>&17
  2975			000012			AC2=<AC+2>&17
  2976			000013			AC3=<AC+3>&17
  2977			000014			AC4=<AC+4>&17
  2978			000015			AC5=<AC+5>&17
  2979			000006			RAN1=<AC-2>&17
  2980	033314	201 07 0 00 033314 		MOVEI	AC-1,.
  2981	033315	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2982	033316	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2983	033317	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2984	033320	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2985	033321	240 07 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2986	033322	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2987	033323				TLCN5:	RANDOM^
  2988	033323	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2989	033324	270 10 0 00 040071 		ADD	AC,[142536475076]
  2990	033325	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2991	033326	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  2992	033327	434 10 0 00 030706 	TLCN6:	IOR	AC,TLFT1	;MAKE SURE A BIT IS SET IN AC LEFT.
  2993	033330	200 06 0 00 000010 		MOVE	RAN1,AC		;SAVE C(AC) FOR FUTURE COMPARE.
  2994	033331	204 11 0 00 000010 		MOVS	AC1,AC		;MAKE "E"=C(AC)L
  2995	033332	643 10 0 11 000000 		TLCE	AC,(AC1)	;E+C(AC)L NOT=0. NO SKIP
  2996	033333	254 00 0 00 033335 		JRST	.+2
  2997	033334	005 10 0 00 040072 		ER	AC,[ASCII /TST/];TLCE SKIPPED.
  2998	033335	643 10 0 11 000000 		TLCE	AC,(AC1)	;E+C(AC)L=0 SKIP
  2999	033336	005 10 0 00 040072 		ER	AC,[ASCII /TST/]
  3000	033337	312 10 0 00 000006 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  3001	033340	003 06 0 11 000000 		ERRI	RAN1,(AC1)
  3002	033341	647 10 0 11 000000 		TLCN	AC,(AC1)	;E+C(AC)L NOT=0. SKIP
  3003	033342	005 10 0 00 040072 		ER	AC,[ASCII /TST/]
  3004	033343	647 10 0 11 000000 		TLCN	AC,(AC1)	;E+C(AC)L=0. NO SKIP
  3005	033344	312 10 0 00 000006 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  3006	033345	003 06 0 11 000000 		ERRI	RAN1,(AC1)
  3007						LOOP	TLCN5,TLCN6^
  3008	033346	367 07 0 00 033323 		SOJG	AC-1,TLCN5		;ITERATION COUNTER
  3009	033347	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3010	033350	321 07 0 00 033327 		JUMPL	AC-1,TLCN6		;LOOP ON ERROR SWITCH ^
  3011
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 58
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0089

  3012
  3013
  3014					;TEST TLCE, TLCN.  CHECK FOR SKIP/NO SKIP AND
  3015					;CORRECT DATA IN AC FOR E = TO A FLOATING ONE
  3016					;AND C(AC) = RAN. NUM. WITH THAT BIT CLEAR.
  3017
  3018
  3019			000011			AC=11
  3020	033351				TLCN7:	SETUP	100,0^
  3021			000012			AC1=<AC+1>&17
  3022			000013			AC2=<AC+2>&17
  3023			000014			AC3=<AC+3>&17
  3024			000015			AC4=<AC+4>&17
  3025			000016			AC5=<AC+5>&17
  3026			000007			RAN1=<AC-2>&17
  3027	033351	201 10 0 00 033351 		MOVEI	AC-1,.
  3028	033352	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3029	033353	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3030	033354	202 10 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3031	033355	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3032	033356	240 10 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3033	033357	240 10 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3034	033360	201 12 0 00 000001 		MOVEI	AC1,1		;SETUP E TO HAVE ONE BIT.
  3035	033361				TLCN8:	RANDOM^
  3036	033361	200 11 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3037	033362	270 11 0 00 040071 		ADD	AC,[142536475076]
  3038	033363	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3039	033364	447 11 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3040	033365	241 12 0 00 000001 		ROT	AC1,1		;ROT TO TEST NEXT BIT.
  3041	033366	316 12 0 00 040075 		CAMN	AC1,[XWD 1,0]	;IS BIT ON LEFT SIDE?
  3042	033367	201 12 0 00 000001 		MOVEI	AC1,1		;YES. REINITAILIZE E.
  3043	033370	204 13 0 00 000012 	TLCN9:	MOVS	AC2,AC1		;CLEAR THAT
  3044	033371	420 11 0 00 000013 		ANDCM	AC,AC2		;BIT IN AC.
  3045	033372	200 07 0 00 000011 		MOVE	RAN1,AC		;SAVE C(AC) FOR FUTURE COMPARE.
  3046	033373	647 11 0 12 000000 		TLCN	AC,(AC1)	;E + C(AC)L = 0...NO SKIP.
  3047	033374	254 00 0 00 033376 		JRST	.+2
  3048	033375	005 11 0 00 040072 		ER	AC,[ASCII /TST/];TLCN SKIPPED.
  3049	033376	647 11 0 12 000000 		TLCN	AC,(AC1)	;E + C(AC)L NOT = 0...SKIP.
  3050	033377	005 11 0 00 040072 		ER	AC,[ASCII /TST/]
  3051	033400	312 11 0 00 000007 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  3052	033401	003 07 0 12 000000 		ERRI	RAN1,(AC1)
  3053	033402	643 11 0 12 000000 		TLCE	AC,(AC1)	;E + C(AC)L = 0...SKIP.
  3054	033403	005 11 0 00 040072 		ER	AC,[ASCII /TST/]
  3055	033404	643 11 0 12 000000 		TLCE	AC,(AC1)	;E + C(AC)L NOT = 0...NO SKIP.
  3056	033405	312 11 0 00 000007 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  3057	033406	003 07 0 12 000000 		ERRI	RAN1,(AC1)
  3058						LOOP	TLCN8,TLCN9^
  3059	033407	367 10 0 00 033361 		SOJG	AC-1,TLCN8		;ITERATION COUNTER
  3060	033410	200 11 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3061	033411	321 10 0 00 033370 		JUMPL	AC-1,TLCN9		;LOOP ON ERROR SWITCH ^
  3062
  3063
  3064
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 59
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0090

  3065
  3066
  3067					;TEST SETZB.  CHECK C(AC)=C(E), AND C(AC)=CORRECT DATA
  3068					;RAN TO RAN1.
  3069
  3070
  3071			000002			AC=2
  3072	033412				SETZB1:	SETUP	100,0^
  3073			000003			AC1=<AC+1>&17
  3074			000004			AC2=<AC+2>&17
  3075			000005			AC3=<AC+3>&17
  3076			000006			AC4=<AC+4>&17
  3077			000007			AC5=<AC+5>&17
  3078			000000			RAN1=<AC-2>&17
  3079	033412	201 01 0 00 033412 		MOVEI	AC-1,.
  3080	033413	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3081	033414	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3082	033415	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3083	033416	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3084	033417	240 01 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3085	033420	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3086	033421				SETZB2:	RANDOM^
  3087	033421	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3088	033422	270 02 0 00 040071 		ADD	AC,[142536475076]
  3089	033423	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3090	033424	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3091	033425	207 00 0 00 000002 	SETZB3:	MOVSS	RAN1,AC		;C(AC) = SEC. RAN. NUM.
  3092	033426	200 03 0 00 040201 		MOVE	AC1,RAN		;C(E)=1'ST RAN NUM
  3093	033427	403 02 0 00 000003 		SETZB	AC,AC1		;DO A SETZB INST.
  3094	033430	312 02 0 00 000003 		CAME	AC,AC1		;C(AC) SHOULD=C(E).
  3095	033431	011 00 0 00 000000 		EERR	,RAN1
  3096	033432	312 02 0 00 040074 		CAME	AC,[0]		;C(AC) SHOULD=0.
  3097	033433	011 00 0 00 000000 		EERR	,RAN1
  3098						LOOP	SETZB2,SETZB3^
  3099	033434	367 01 0 00 033421 		SOJG	AC-1,SETZB2		;ITERATION COUNTER
  3100	033435	200 02 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3101	033436	321 01 0 00 033425 		JUMPL	AC-1,SETZB3		;LOOP ON ERROR SWITCH ^
  3102
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 60
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0091

  3103
  3104
  3105					;TEST ANDB.  CHECK C(AC)=C(E), AND C(AC)=CORRECT DATA
  3106					;RAN TO RAN1
  3107
  3108
  3109			000003			AC=3
  3110	033437				ANDB1:	SETUP	200,1^
  3111			000004			AC1=<AC+1>&17
  3112			000005			AC2=<AC+2>&17
  3113			000006			AC3=<AC+3>&17
  3114			000007			AC4=<AC+4>&17
  3115			000010			AC5=<AC+5>&17
  3116			000001			RAN1=<AC-2>&17
  3117	033437	201 02 0 00 033437 		MOVEI	AC-1,.
  3118	033440	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3119	033441	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3120	033442	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3121	033443	201 02 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  3122	033444	240 02 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  3123	033445	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3124	033446				ANDB2:	RANDOM^
  3125	033446	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3126	033447	270 03 0 00 040071 		ADD	AC,[142536475076]
  3127	033450	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3128	033451	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3129	033452	207 01 0 00 000003 	ANDB3:	MOVSS	RAN1,AC		;C(AC) = SEC. RAN. NUM.
  3130	033453	200 04 0 00 040201 		MOVE	AC1,RAN		;C(E)=1'ST RAN NUM
  3131	033454	200 05 0 00 040201 		MOVE	AC2,RAN		;SIMULATE
  3132	033455	470 05 0 00 000003 		ORCB	AC2,AC		;AN
  3133	033456	450 05 0 00 000000 		SETCA	AC2,		;"AND" INST.
  3134	033457	407 03 0 00 000004 		ANDB	AC,AC1		;DO AN ANDB INST.
  3135	033460	312 03 0 00 000004 		CAME	AC,AC1		;C(AC) SHOULD=C(E)
  3136	033461	011 00 0 00 000001 		EERR	,RAN1
  3137	033462	312 03 0 00 000005 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS.
  3138	033463	011 00 0 00 000001 		EERR	,RAN1
  3139						LOOP	ANDB2,ANDB3^
  3140	033464	367 02 0 00 033446 		SOJG	AC-1,ANDB2		;ITERATION COUNTER
  3141	033465	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3142	033466	321 02 0 00 033452 		JUMPL	AC-1,ANDB3		;LOOP ON ERROR SWITCH ^
  3143
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 61
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0092

  3144
  3145
  3146					;TEST ANDCAB.  CHECK FOR C(AC)=C(E) AND C(AC)=CORRECT DATA.
  3147					;RAN TO RAN1
  3148
  3149
  3150			000002			AC=2
  3151	033467				ANCAB1:	SETUP	200,1^
  3152			000003			AC1=<AC+1>&17
  3153			000004			AC2=<AC+2>&17
  3154			000005			AC3=<AC+3>&17
  3155			000006			AC4=<AC+4>&17
  3156			000007			AC5=<AC+5>&17
  3157			000000			RAN1=<AC-2>&17
  3158	033467	201 01 0 00 033467 		MOVEI	AC-1,.
  3159	033470	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3160	033471	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3161	033472	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3162	033473	201 01 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  3163	033474	240 01 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  3164	033475	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3165	033476				ANCAB2:	RANDOM^
  3166	033476	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3167	033477	270 02 0 00 040071 		ADD	AC,[142536475076]
  3168	033500	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3169	033501	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3170	033502	207 00 0 00 000002 	ANCAB3:	MOVSS	RAN1,AC		;C(AC) = SEC RAN NUM.
  3171	033503	200 03 0 00 040201 		MOVE	AC1,RAN		;C(E)=1'ST RAN. NUM
  3172	033504	200 04 0 00 040201 		MOVE	AC2,RAN		;SIMULATE
  3173	033505	454 04 0 00 000002 		ORCA	AC2,AC		;AN
  3174	033506	450 04 0 00 000000 		SETCA	AC2,		;ANDCA INST.
  3175	033507	413 02 0 00 000003 		ANDCAB	AC,AC1		;DO AN ANDCAB INST.
  3176	033510	312 02 0 00 000003 		CAME	AC,AC1		;C(AC) SHOULD=C(E)
  3177	033511	011 00 0 00 000000 		EERR	,RAN1
  3178	033512	312 02 0 00 000004 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS
  3179	033513	011 00 0 00 000000 		EERR	,RAN1
  3180						LOOP	ANCAB2,ANCAB3^
  3181	033514	367 01 0 00 033476 		SOJG	AC-1,ANCAB2		;ITERATION COUNTER
  3182	033515	200 02 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3183	033516	321 01 0 00 033502 		JUMPL	AC-1,ANCAB3		;LOOP ON ERROR SWITCH ^
  3184
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 62
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0093

  3185
  3186
  3187					;TEST SETMB. CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA.
  3188					;RAN TO RAN1.
  3189
  3190
  3191			000004			AC=4
  3192	033517				SETMB1:	SETUP	100,0^
  3193			000005			AC1=<AC+1>&17
  3194			000006			AC2=<AC+2>&17
  3195			000007			AC3=<AC+3>&17
  3196			000010			AC4=<AC+4>&17
  3197			000011			AC5=<AC+5>&17
  3198			000002			RAN1=<AC-2>&17
  3199	033517	201 03 0 00 033517 		MOVEI	AC-1,.
  3200	033520	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3201	033521	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3202	033522	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3203	033523	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3204	033524	240 03 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3205	033525	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3206	033526				SETMB2:	RANDOM^
  3207	033526	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3208	033527	270 04 0 00 040071 		ADD	AC,[142536475076]
  3209	033530	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3210	033531	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3211	033532	207 02 0 00 000004 	SETMB3:	MOVSS	RAN1,AC		;C(AC) = SEC RAN NUM.
  3212	033533	200 02 0 00 000004 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  3213	033534	200 05 0 00 040201 		MOVE	AC1,RAN
  3214	033535	417 04 0 00 000005 		SETMB	AC,AC1		;DO SETMB INST.
  3215	033536	312 04 0 00 000005 		CAME	AC,AC1		;C(AC) SHOULD=C(E)
  3216	033537	011 00 0 00 000002 		EERR	,RAN1
  3217	033540	312 04 0 00 040201 		CAME	AC,RAN		;C(AC) SHOULD=ORIG. C(E)
  3218	033541	011 00 0 00 000002 		EERR	,RAN1
  3219						LOOP	SETMB2,SETMB3^
  3220	033542	367 03 0 00 033526 		SOJG	AC-1,SETMB2		;ITERATION COUNTER
  3221	033543	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3222	033544	321 03 0 00 033532 		JUMPL	AC-1,SETMB3		;LOOP ON ERROR SWITCH ^
  3223
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 63
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0094

  3224
  3225
  3226					;TEST ANDCMB  CHECK FOR C(AC)=C(E), AND CORRECT DATA IN AC.
  3227					;RAN TO RAN1.
  3228
  3229
  3230			000004			AC=4
  3231	033545				ANCMB1:	SETUP	200,1^
  3232			000005			AC1=<AC+1>&17
  3233			000006			AC2=<AC+2>&17
  3234			000007			AC3=<AC+3>&17
  3235			000010			AC4=<AC+4>&17
  3236			000011			AC5=<AC+5>&17
  3237			000002			RAN1=<AC-2>&17
  3238	033545	201 03 0 00 033545 		MOVEI	AC-1,.
  3239	033546	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3240	033547	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3241	033550	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3242	033551	201 03 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  3243	033552	240 03 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  3244	033553	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3245	033554				ANCMB2:	RANDOM^
  3246	033554	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3247	033555	270 04 0 00 040071 		ADD	AC,[142536475076]
  3248	033556	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3249	033557	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3250	033560	207 02 0 00 000004 	ANCMB3:	MOVSS	RAN1,AC		;C(AC) = SEC RAN NUM.
  3251	033561	200 05 0 00 040201 		MOVE	AC1,RAN		;C(E)-1'ST RAN NUM
  3252	033562	200 06 0 00 040201 		MOVE	AC2,RAN		;SIMULATE
  3253	033563	464 06 0 00 000004 		ORCM	AC2,AC		;AN
  3254	033564	450 06 0 00 000000 		SETCA	AC2,		;ANDCM INST.
  3255	033565	423 04 0 00 000005 		ANDCMB	AC,AC1		;DO ANDCMB INST.
  3256	033566	312 04 0 00 000005 		CAME	AC,AC1		;C(AC) SHOULD=C(E).
  3257	033567	011 00 0 00 000002 		EERR	,RAN1
  3258	033570	312 04 0 00 000006 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS
  3259	033571	011 00 0 00 000002 		EERR	,RAN1
  3260						LOOP	ANCMB2,ANCMB3^
  3261	033572	367 03 0 00 033554 		SOJG	AC-1,ANCMB2		;ITERATION COUNTER
  3262	033573	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3263	033574	321 03 0 00 033560 		JUMPL	AC-1,ANCMB3		;LOOP ON ERROR SWITCH ^
  3264
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 64
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0095

  3265
  3266
  3267					;TEST SETAB.  CHECK FOR C(AC)=C(E), AND C(E)=CORRECT DATA
  3268					;RAN TO RAN1.
  3269
  3270
  3271			000005			AC=5
  3272	033575				SETAB1:	SETUP	100,0^
  3273			000006			AC1=<AC+1>&17
  3274			000007			AC2=<AC+2>&17
  3275			000010			AC3=<AC+3>&17
  3276			000011			AC4=<AC+4>&17
  3277			000012			AC5=<AC+5>&17
  3278			000003			RAN1=<AC-2>&17
  3279	033575	201 04 0 00 033575 		MOVEI	AC-1,.
  3280	033576	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3281	033577	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3282	033600	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3283	033601	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3284	033602	240 04 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3285	033603	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3286	033604				SETAB2:	RANDOM^
  3287	033604	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3288	033605	270 05 0 00 040071 		ADD	AC,[142536475076]
  3289	033606	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3290	033607	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3291	033610	207 03 0 00 000005 	SETAB3:	MOVSS	RAN1,AC		;C(AC) =SEC RAN NUM.
  3292	033611	200 06 0 00 040201 		MOVE	AC1,RAN		;C(E)=1'ST RAN. NUM.
  3293	033612	427 05 0 00 000006 		SETAB	AC,AC1		;DO A SETAB INST.
  3294	033613	312 05 0 00 000006 		CAME	AC,AC1		;C(AC) SHOULD=C(E).
  3295	033614	011 00 0 00 000003 		EERR	,RAN1
  3296	033615	312 06 0 00 000003 		CAME	AC1,RAN1	;C(E) SHOULD=ORIG. C(AC).
  3297	033616	011 00 0 00 000003 		EERR	,RAN1
  3298						LOOP	SETAB2,SETAB3^
  3299	033617	367 04 0 00 033604 		SOJG	AC-1,SETAB2		;ITERATION COUNTER
  3300	033620	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3301	033621	321 04 0 00 033610 		JUMPL	AC-1,SETAB3		;LOOP ON ERROR SWITCH ^
  3302
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 65
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0096

  3303
  3304
  3305					;TEST XORB.  CHECK FOR C(AC)=C(E),AND CORRECT DATA IN AC.
  3306					;RAN TO RAN1.
  3307
  3308
  3309			000006			AC=6
  3310	033622				XORB1:	SETUP	200,1^
  3311			000007			AC1=<AC+1>&17
  3312			000010			AC2=<AC+2>&17
  3313			000011			AC3=<AC+3>&17
  3314			000012			AC4=<AC+4>&17
  3315			000013			AC5=<AC+5>&17
  3316			000004			RAN1=<AC-2>&17
  3317	033622	201 05 0 00 033622 		MOVEI	AC-1,.
  3318	033623	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3319	033624	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3320	033625	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3321	033626	201 05 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  3322	033627	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  3323	033630	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3324	033631				XORB2:	RANDOM^
  3325	033631	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3326	033632	270 06 0 00 040071 		ADD	AC,[142536475076]
  3327	033633	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3328	033634	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3329	033635	207 04 0 00 000006 	XORB3:	MOVSS	RAN1,AC		;C(AC) = SEC RAN NUM.
  3330	033636	200 07 0 00 040201 		MOVE	AC1,RAN		;C(E)=1'ST RAN. NUM
  3331	033637	200 10 0 00 040201 		MOVE	AC2,RAN		;SIMULATE
  3332	033640	444 10 0 00 000006 		EQV	AC2,AC		;AN
  3333	033641	450 10 0 00 000000 		SETCA	AC2,		;XOR INST.
  3334	033642	433 06 0 00 000007 		XORB	AC,AC1		;DO AN XORB INST
  3335	033643	312 06 0 00 000007 		CAME	AC,AC1		;C(AC) SHOULD=C(E).
  3336	033644	011 00 0 00 000004 		EERR	,RAN1
  3337	033645	312 06 0 00 000010 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS
  3338	033646	011 00 0 00 000004 		EERR	,RAN1
  3339						LOOP	XORB2,XORB3^
  3340	033647	367 05 0 00 033631 		SOJG	AC-1,XORB2		;ITERATION COUNTER
  3341	033650	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3342	033651	321 05 0 00 033635 		JUMPL	AC-1,XORB3		;LOOP ON ERROR SWITCH ^
  3343
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 66
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0097

  3344
  3345
  3346					;TEST IORB.  CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA.
  3347					;RAN TO RAN1.
  3348
  3349
  3350			000007			AC=7
  3351	033652				IORB1:	SETUP	200,1^
  3352			000010			AC1=<AC+1>&17
  3353			000011			AC2=<AC+2>&17
  3354			000012			AC3=<AC+3>&17
  3355			000013			AC4=<AC+4>&17
  3356			000014			AC5=<AC+5>&17
  3357			000005			RAN1=<AC-2>&17
  3358	033652	201 06 0 00 033652 		MOVEI	AC-1,.
  3359	033653	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3360	033654	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3361	033655	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3362	033656	201 06 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  3363	033657	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  3364	033660	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3365	033661				IORB2:	RANDOM^
  3366	033661	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3367	033662	270 07 0 00 040071 		ADD	AC,[142536475076]
  3368	033663	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3369	033664	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3370	033665	207 05 0 00 000007 	IORB3:	MOVSS	RAN1,AC		;C(AC) = SEC RAN NUM.
  3371	033666	200 10 0 00 040201 		MOVE	AC1,RAN		;C(E)=1'ST RAN. NUM.
  3372	033667	200 11 0 00 040201 		MOVE	AC2,RAN		;SIMULATE
  3373	033670	420 11 0 00 000007 		ANDCM	AC2,AC		;AN
  3374	033671	430 11 0 00 000007 		XOR	AC2,AC		;IOR INST.
  3375	033672	437 07 0 00 000010 		IORB	AC,AC1		;DO AN IORB INST
  3376	033673	312 07 0 00 000010 		CAME	AC,AC1		;C(AC) SHOULD=C(E).
  3377	033674	011 00 0 00 000005 		EERR	,RAN1
  3378	033675	312 07 0 00 000011 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS.
  3379	033676	011 00 0 00 000005 		EERR	,RAN1
  3380						LOOP	IORB2,IORB3^
  3381	033677	367 06 0 00 033661 		SOJG	AC-1,IORB2		;ITERATION COUNTER
  3382	033700	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3383	033701	321 06 0 00 033665 		JUMPL	AC-1,IORB3		;LOOP ON ERROR SWITCH ^
  3384
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 67
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0098

  3385
  3386
  3387					;TEST ANDCBB.  CHECK C(AC)=C(E), AND C(AC)=CORRECT DATA.
  3388					;RAN TO RAN1
  3389
  3390
  3391			000010			AC=10
  3392	033702				ANCBB1:	SETUP	200,1^
  3393			000011			AC1=<AC+1>&17
  3394			000012			AC2=<AC+2>&17
  3395			000013			AC3=<AC+3>&17
  3396			000014			AC4=<AC+4>&17
  3397			000015			AC5=<AC+5>&17
  3398			000006			RAN1=<AC-2>&17
  3399	033702	201 07 0 00 033702 		MOVEI	AC-1,.
  3400	033703	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3401	033704	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3402	033705	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3403	033706	201 07 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  3404	033707	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  3405	033710	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3406	033711				ANCBB2:	RANDOM^
  3407	033711	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3408	033712	270 10 0 00 040071 		ADD	AC,[142536475076]
  3409	033713	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3410	033714	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3411	033715	207 06 0 00 000010 	ANCBB3:	MOVSS	RAN1,AC		;C(AC) = SEC RAN NUM.
  3412	033716	200 11 0 00 040201 		MOVE	AC1,RAN		;C(AC)=1'ST RAN. NUM
  3413	033717	200 12 0 00 040201 		MOVE	AC2,RAN		;SIMULATE
  3414	033720	434 12 0 00 000010 		IOR	AC2,AC		;AN
  3415	033721	450 12 0 00 000000 		SETCA	AC2,		;ANDCB INST
  3416	033722	443 10 0 00 000011 		ANDCBB	AC,AC1		;DO AN ANDCBB INST
  3417	033723	312 10 0 00 000011 		CAME	AC,AC1		;C(AC) SHOULD=C(E)
  3418	033724	011 00 0 00 000006 		EERR	,RAN1
  3419	033725	312 10 0 00 000012 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS
  3420	033726	011 00 0 00 000006 		EERR	,RAN1
  3421						LOOP	ANCBB2,ANCBB3^
  3422	033727	367 07 0 00 033711 		SOJG	AC-1,ANCBB2		;ITERATION COUNTER
  3423	033730	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3424	033731	321 07 0 00 033715 		JUMPL	AC-1,ANCBB3		;LOOP ON ERROR SWITCH ^
  3425
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 68
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0099

  3426
  3427
  3428					;TEST EQVB.  CHECK FOR C(AC)=C(E), AND CORRECT DATA IN AC.
  3429					;RAN TO RAN1
  3430
  3431
  3432			000011			AC=11
  3433	033732				EQVB1:	SETUP	200,1^
  3434			000012			AC1=<AC+1>&17
  3435			000013			AC2=<AC+2>&17
  3436			000014			AC3=<AC+3>&17
  3437			000015			AC4=<AC+4>&17
  3438			000016			AC5=<AC+5>&17
  3439			000007			RAN1=<AC-2>&17
  3440	033732	201 10 0 00 033732 		MOVEI	AC-1,.
  3441	033733	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3442	033734	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3443	033735	202 10 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3444	033736	201 10 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  3445	033737	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  3446	033740	240 10 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3447	033741				EQVB2:	RANDOM^
  3448	033741	200 11 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3449	033742	270 11 0 00 040071 		ADD	AC,[142536475076]
  3450	033743	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3451	033744	447 11 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3452	033745	207 07 0 00 000011 	EQVB3:	MOVSS	RAN1,AC		;C(AC) = SEC RAN NUM.
  3453	033746	200 12 0 00 040201 		MOVE	AC1,RAN		;C(E)=1'ST RAN. NUM.
  3454	033747	200 13 0 00 040201 		MOVE	AC2,RAN		;SIMULATE
  3455	033750	430 13 0 00 000011 		XOR	AC2,AC		;AN
  3456	033751	450 13 0 00 000000 		SETCA	AC2,		;EQV INST1
  3457	033752	447 11 0 00 000012 		EQVB	AC,AC1		;NO AN EQVB INST.
  3458	033753	312 11 0 00 000012 		CAME	AC,AC1		;C(AC) SHOULD=C(E).
  3459	033754	011 00 0 00 000007 		EERR	,RAN1
  3460	033755	312 11 0 00 000013 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS
  3461	033756	011 00 0 00 000007 		EERR	,RAN1
  3462						LOOP	EQVB2,EQVB3^
  3463	033757	367 10 0 00 033741 		SOJG	AC-1,EQVB2		;ITERATION COUNTER
  3464	033760	200 11 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3465	033761	321 10 0 00 033745 		JUMPL	AC-1,EQVB3		;LOOP ON ERROR SWITCH ^
  3466
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 69
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0100

  3467
  3468
  3469					;TEST SETCAB.  CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA.
  3470					;RAN TO RAN1
  3471
  3472
  3473			000004			AC=4
  3474	033762				STCAB1:	SETUP	100,0^
  3475			000005			AC1=<AC+1>&17
  3476			000006			AC2=<AC+2>&17
  3477			000007			AC3=<AC+3>&17
  3478			000010			AC4=<AC+4>&17
  3479			000011			AC5=<AC+5>&17
  3480			000002			RAN1=<AC-2>&17
  3481	033762	201 03 0 00 033762 		MOVEI	AC-1,.
  3482	033763	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3483	033764	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3484	033765	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3485	033766	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3486	033767	240 03 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3487	033770	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3488	033771				STCAB2:	RANDOM^
  3489	033771	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3490	033772	270 04 0 00 040071 		ADD	AC,[142536475076]
  3491	033773	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3492	033774	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3493	033775	207 02 0 00 000004 	STCAB3:	MOVSS	RAN1,AC		;C(AC) = SEC RAN NUM.
  3494	033776	200 05 0 00 040201 		MOVE	AC1,RAN		;C(E)=1'ST RAN. NUM
  3495	033777	460 06 0 00 000004 		SETCM	AC2,AC		;SIMULATE A SETCA INST.
  3496	034000	453 04 0 00 000005 		SETCAB	AC,AC1		;DO SETCAB INST
  3497	034001	312 04 0 00 000005 		CAME	AC,AC1		;C(AC) SHOULD=C(E).
  3498	034002	011 00 0 00 000002 		EERR	,RAN1
  3499	034003	312 04 0 00 000006 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS
  3500	034004	011 00 0 00 000002 		EERR	,RAN1
  3501						LOOP	STCAB2,STCAB3^
  3502	034005	367 03 0 00 033771 		SOJG	AC-1,STCAB2		;ITERATION COUNTER
  3503	034006	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3504	034007	321 03 0 00 033775 		JUMPL	AC-1,STCAB3		;LOOP ON ERROR SWITCH ^
  3505
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 70
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0101

  3506
  3507
  3508					;TEST ORCAB.  CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA
  3509					;RAN TO RAN1
  3510
  3511
  3512			000005			AC=5
  3513	034010				ORCAB1:	SETUP	200,1^
  3514			000006			AC1=<AC+1>&17
  3515			000007			AC2=<AC+2>&17
  3516			000010			AC3=<AC+3>&17
  3517			000011			AC4=<AC+4>&17
  3518			000012			AC5=<AC+5>&17
  3519			000003			RAN1=<AC-2>&17
  3520	034010	201 04 0 00 034010 		MOVEI	AC-1,.
  3521	034011	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3522	034012	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3523	034013	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3524	034014	201 04 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  3525	034015	240 04 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  3526	034016	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3527	034017				ORCAB2:	RANDOM^
  3528	034017	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3529	034020	270 05 0 00 040071 		ADD	AC,[142536475076]
  3530	034021	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3531	034022	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3532	034023	207 03 0 00 000005 	ORCAB3:	MOVSS	RAN1,AC		;C(AC) = SEC RAN NUM.
  3533	034024	200 06 0 00 040201 		MOVE	AC1,RAN		;C(E) =1'ST RAN. NUM
  3534	034025	460 07 0 00 000005 		SETCM	AC2,AC		;SIMULATE
  3535	034026	434 07 0 00 040201 		IOR	AC2,RAN		;AN ORCA INST.
  3536	034027	457 05 0 00 000006 		ORCAB	AC,AC1		;DO AN ORCAB INST
  3537	034030	312 05 0 00 000006 		CAME	AC,AC1		;C(AC) SHOULD=C(E).
  3538	034031	011 00 0 00 000003 		EERR	,RAN1
  3539	034032	312 05 0 00 000007 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS
  3540	034033	011 00 0 00 000003 		EERR	,RAN1
  3541						LOOP	ORCAB2,ORCAB3^
  3542	034034	367 04 0 00 034017 		SOJG	AC-1,ORCAB2		;ITERATION COUNTER
  3543	034035	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3544	034036	321 04 0 00 034023 		JUMPL	AC-1,ORCAB3		;LOOP ON ERROR SWITCH ^
  3545
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 71
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0102

  3546
  3547
  3548					;TEST SETCMB.  CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA
  3549					;RAN TO RAN1
  3550
  3551
  3552			000006			AC=6
  3553	034037				STCMB1:	SETUP	100,0^
  3554			000007			AC1=<AC+1>&17
  3555			000010			AC2=<AC+2>&17
  3556			000011			AC3=<AC+3>&17
  3557			000012			AC4=<AC+4>&17
  3558			000013			AC5=<AC+5>&17
  3559			000004			RAN1=<AC-2>&17
  3560	034037	201 05 0 00 034037 		MOVEI	AC-1,.
  3561	034040	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3562	034041	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3563	034042	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3564	034043	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3565	034044	240 05 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3566	034045	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3567	034046				STCMB2:	RANDOM^
  3568	034046	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3569	034047	270 06 0 00 040071 		ADD	AC,[142536475076]
  3570	034050	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3571	034051	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3572	034052	207 04 0 00 000006 	STCMB3:	MOVSS	RAN1,AC		;C(AC) = SEC RAN NUM.
  3573	034053	200 07 0 00 040201 		MOVE	AC1,RAN		;C(E)=1'ST RAN NUM.
  3574	034054	200 10 0 00 040201 		MOVE	AC2,RAN		;SIMULATE
  3575	034055	450 10 0 00 000000 		SETCA	AC2,		;A SETCM INST.
  3576	034056	463 06 0 00 000007 		SETCMB	AC,AC1		;DO A SETCMB INST.
  3577	034057	312 06 0 00 000007 		CAME	AC,AC1		;C(AC) SHOULD=C(E).
  3578	034060	011 00 0 00 000004 		EERR	,RAN1
  3579	034061	312 06 0 00 000010 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS.
  3580	034062	011 00 0 00 000004 		EERR	,RAN1
  3581						LOOP	STCMB2,STCMB3^
  3582	034063	367 05 0 00 034046 		SOJG	AC-1,STCMB2		;ITERATION COUNTER
  3583	034064	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3584	034065	321 05 0 00 034052 		JUMPL	AC-1,STCMB3		;LOOP ON ERROR SWITCH ^
  3585
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 72
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0103

  3586
  3587
  3588					;TEST ORCMB.  CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA.
  3589					;RAN TO RAN1
  3590
  3591
  3592			000007			AC=7
  3593	034066				ORCMB1:	SETUP	200,1^
  3594			000010			AC1=<AC+1>&17
  3595			000011			AC2=<AC+2>&17
  3596			000012			AC3=<AC+3>&17
  3597			000013			AC4=<AC+4>&17
  3598			000014			AC5=<AC+5>&17
  3599			000005			RAN1=<AC-2>&17
  3600	034066	201 06 0 00 034066 		MOVEI	AC-1,.
  3601	034067	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3602	034070	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3603	034071	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3604	034072	201 06 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  3605	034073	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  3606	034074	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3607	034075				ORCMB2:	RANDOM^
  3608	034075	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3609	034076	270 07 0 00 040071 		ADD	AC,[142536475076]
  3610	034077	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3611	034100	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3612	034101	207 05 0 00 000007 	ORCMB3:	MOVSS	RAN1,AC		;C(AC) = SEC RAN NUM.
  3613	034102	200 10 0 00 040201 		MOVE	AC1,RAN		;C(E)=1'ST RAN. NUM
  3614	034103	200 11 0 00 040201 		MOVE	AC2,RAN		;SIMULATE
  3615	034104	420 11 0 00 000007 		ANDCM	AC2,AC		;AN
  3616	034105	450 11 0 00 000000 		SETCA	AC2,		;ORCM INST.
  3617	034106	467 07 0 00 000010 		ORCMB	AC,AC1		;DO AN ORCMB INST.
  3618	034107	312 07 0 00 000010 		CAME	AC,AC1		;C(AC) SHOULD=C(E).
  3619	034110	011 00 0 00 000005 		EERR	,RAN1
  3620	034111	312 07 0 00 000011 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS.
  3621	034112	011 00 0 00 000005 		EERR	,RAN1
  3622						LOOP	ORCMB2,ORCMB3^
  3623	034113	367 06 0 00 034075 		SOJG	AC-1,ORCMB2		;ITERATION COUNTER
  3624	034114	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3625	034115	321 06 0 00 034101 		JUMPL	AC-1,ORCMB3		;LOOP ON ERROR SWITCH ^
  3626
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 73
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0104

  3627
  3628
  3629					;TEST ORCBB. CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA
  3630					;RAN TO RAN1.
  3631
  3632
  3633			000010			AC=10
  3634	034116				ORCBB1:	SETUP	200,1^
  3635			000011			AC1=<AC+1>&17
  3636			000012			AC2=<AC+2>&17
  3637			000013			AC3=<AC+3>&17
  3638			000014			AC4=<AC+4>&17
  3639			000015			AC5=<AC+5>&17
  3640			000006			RAN1=<AC-2>&17
  3641	034116	201 07 0 00 034116 		MOVEI	AC-1,.
  3642	034117	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3643	034120	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3644	034121	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3645	034122	201 07 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  3646	034123	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  3647	034124	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3648	034125				ORCBB2:	RANDOM^
  3649	034125	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3650	034126	270 10 0 00 040071 		ADD	AC,[142536475076]
  3651	034127	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3652	034130	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3653	034131	207 06 0 00 000010 	ORCBB3:	MOVSS	RAN1,AC		;C(AC) = SEC RAN NUM.
  3654	034132	200 11 0 00 040201 		MOVE	AC1,RAN		;C(E)=1'ST RAN NUM
  3655	034133	200 12 0 00 040201 		MOVE	AC2,RAN		;SIMULATE
  3656	034134	404 12 0 00 000010 		AND	AC2,AC		;AN
  3657	034135	450 12 0 00 000000 		SETCA	AC2,		;ORCB INST.
  3658	034136	473 10 0 00 000011 		ORCBB	AC,AC1		;DO AN ORCBB INST.
  3659	034137	312 10 0 00 000011 		CAME	AC,AC1		;C(AC) SHOULD=C(E).
  3660	034140	011 00 0 00 000006 		EERR	,RAN1
  3661	034141	312 10 0 00 000012 		CAME	AC,AC2		;C(AC) SHOULD=SIM. ANS
  3662	034142	011 00 0 00 000006 		EERR	,RAN1
  3663						LOOP	ORCBB2,ORCBB3^
  3664	034143	367 07 0 00 034125 		SOJG	AC-1,ORCBB2		;ITERATION COUNTER
  3665	034144	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3666	034145	321 07 0 00 034131 		JUMPL	AC-1,ORCBB3		;LOOP ON ERROR SWITCH ^
  3667
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 74
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0105

  3668
  3669
  3670					;TEST SETOB.  CHECK FOR C(AC)=C(E), AND C(AC)=-1.
  3671					;RAN TO RAN1
  3672
  3673
  3674			000010			AC=10
  3675	034146				STOB1:	SETUP	100,0^
  3676			000011			AC1=<AC+1>&17
  3677			000012			AC2=<AC+2>&17
  3678			000013			AC3=<AC+3>&17
  3679			000014			AC4=<AC+4>&17
  3680			000015			AC5=<AC+5>&17
  3681			000006			RAN1=<AC-2>&17
  3682	034146	201 07 0 00 034146 		MOVEI	AC-1,.
  3683	034147	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3684	034150	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3685	034151	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3686	034152	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3687	034153	240 07 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3688	034154	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3689	034155				STOB2:	RANDOM^
  3690	034155	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3691	034156	270 10 0 00 040071 		ADD	AC,[142536475076]
  3692	034157	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3693	034160	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3694	034161	207 06 0 00 000010 	STOB3:	MOVSS	RAN1,AC		;C(AC) = SEC RAN NUM.
  3695	034162	200 11 0 00 040201 		MOVE	AC1,RAN		;C(E)=1'ST RAN. NUM
  3696	034163	477 10 0 00 000011 		SETOB	AC,AC1		;DO A SETOB INST.
  3697	034164	312 10 0 00 000011 		CAME	AC,AC1		;C(AC) SHOULD=C(E).
  3698	034165	011 00 0 00 000006 		EERR	,RAN1
  3699	034166	312 10 0 00 040073 		CAME	AC,[-1]		;C(AC) SHOULD=-1
  3700	034167	011 00 0 00 000006 		EERR	,RAN1
  3701						LOOP	STOB2,STOB3^
  3702	034170	367 07 0 00 034155 		SOJG	AC-1,STOB2		;ITERATION COUNTER
  3703	034171	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3704	034172	321 07 0 00 034161 		JUMPL	AC-1,STOB3		;LOOP ON ERROR SWITCH ^
  3705
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 75
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0106

  3706
  3707
  3708					;TEST HLL. CHECK C(AC) FOR CORRECT DATA
  3709					;RAN TO RAN1.
  3710
  3711
  3712			000003			AC=3
  3713	034173				HLL1:	SETUP	100,0^
  3714			000004			AC1=<AC+1>&17
  3715			000005			AC2=<AC+2>&17
  3716			000006			AC3=<AC+3>&17
  3717			000007			AC4=<AC+4>&17
  3718			000010			AC5=<AC+5>&17
  3719			000001			RAN1=<AC-2>&17
  3720	034173	201 02 0 00 034173 		MOVEI	AC-1,.
  3721	034174	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3722	034175	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3723	034176	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3724	034177	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3725	034200	240 02 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3726	034201	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3727	034202				HLL2:	RANDOM^
  3728	034202	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3729	034203	270 03 0 00 040071 		ADD	AC,[142536475076]
  3730	034204	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3731	034205	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3732	034206	241 03 0 00 000011 	HLL3:	ROT	AC,11		;MAKE C(AC) A DIFFERENT RAN NUM.
  3733	034207	200 01 0 00 000003 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  3734	034210	201 04 0 03 000000 		MOVEI	AC1,(AC)	;SIMULATE
  3735	034211	204 05 0 00 040201 		MOVS	AC2,RAN		;A
  3736	034212	661 04 0 05 000000 		TLO	AC1,(AC2)	;HLL.
  3737	034213	500 03 0 00 040201 		HLL	AC,RAN		;DO HLL.
  3738	034214	312 03 0 00 000004 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  3739	034215	001 04 0 00 000001 		ERR	AC1,RAN1
  3740						LOOP	HLL2,HLL3^
  3741	034216	367 02 0 00 034202 		SOJG	AC-1,HLL2		;ITERATION COUNTER
  3742	034217	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3743	034220	321 02 0 00 034206 		JUMPL	AC-1,HLL3		;LOOP ON ERROR SWITCH ^
  3744
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 76
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0107

  3745
  3746
  3747					;TEST HLLI.  CHECK C(AC) FOR CORRECT DATA
  3748					;RAN TO RAN1.
  3749
  3750
  3751			000003			AC=3
  3752	034221				HLLI1:	SETUP	100,0^
  3753			000004			AC1=<AC+1>&17
  3754			000005			AC2=<AC+2>&17
  3755			000006			AC3=<AC+3>&17
  3756			000007			AC4=<AC+4>&17
  3757			000010			AC5=<AC+5>&17
  3758			000001			RAN1=<AC-2>&17
  3759	034221	201 02 0 00 034221 		MOVEI	AC-1,.
  3760	034222	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3761	034223	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3762	034224	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3763	034225	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3764	034226	240 02 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3765	034227	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3766	034230				HLLI2:	RANDOM^
  3767	034230	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3768	034231	270 03 0 00 040071 		ADD	AC,[142536475076]
  3769	034232	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3770	034233	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3771	034234	200 05 0 00 040201 		MOVE	AC2,RAN		;SAVE E.
  3772	034235	241 03 0 00 000011 	HLLI3:	ROT	AC,11		;MAKE C(AC) DIFF. RAN. NUM.
  3773	034236	200 01 0 00 000003 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  3774	034237	201 04 0 03 000000 		MOVEI	AC1,(AC)	;SIMULATE A HLLI.
  3775	034240	501 03 0 05 000000 		HLLI	AC,(AC2)	;DO HLLI.
  3776	034241	312 03 0 00 000004 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  3777	034242	003 01 0 05 000000 		ERRI	RAN1,(AC2)
  3778						LOOP	HLLI2,HLLI3^
  3779	034243	367 02 0 00 034230 		SOJG	AC-1,HLLI2		;ITERATION COUNTER
  3780	034244	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3781	034245	321 02 0 00 034235 		JUMPL	AC-1,HLLI3		;LOOP ON ERROR SWITCH ^
  3782
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 77
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0108

  3783
  3784
  3785					;TEST HLLM.  CHECK C(E) FOR CORRECT DATA.
  3786					;RAN1 TO RAN1.
  3787
  3788
  3789			000003			AC=3
  3790	034246				HLLM1:	SETUP	100,0^
  3791			000004			AC1=<AC+1>&17
  3792			000005			AC2=<AC+2>&17
  3793			000006			AC3=<AC+3>&17
  3794			000007			AC4=<AC+4>&17
  3795			000010			AC5=<AC+5>&17
  3796			000001			RAN1=<AC-2>&17
  3797	034246	201 02 0 00 034246 		MOVEI	AC-1,.
  3798	034247	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3799	034250	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3800	034251	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3801	034252	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3802	034253	240 02 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3803	034254	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3804	034255				HLLM2:	RANDOM^
  3805	034255	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3806	034256	270 03 0 00 040071 		ADD	AC,[142536475076]
  3807	034257	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3808	034260	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3809	034261	200 06 0 00 040201 		MOVE	AC3,RAN		;SAVE C(AC) IN CASE OF ERROR.
  3810	034262	241 03 0 00 000011 	HLLM3:	ROT	AC,11		;MAKE C (E) A DIFFERENT RAN NUM
  3811	034263	202 03 0 00 000001 		MOVEM	AC,RAN1		;SAVE IN CASE OF ERROR
  3812	034264	201 04 0 03 000000 		MOVEI	AC1,(AC)	;SIMULATE
  3813	034265	204 05 0 00 040201 		MOVS	AC2,RAN		;A
  3814	034266	661 04 0 05 000000 		TLO	AC1,(AC2)	;HLLM
  3815	034267	502 06 0 00 000003 		HLLM	AC3,AC		;DO HLLM.
  3816	034270	312 04 0 00 000003 		CAME	AC1,AC		;C(E) SHOULD=SIM ANS
  3817	034271	002 01 0 00 000006 		ERRM	RAN1,AC3
  3818						LOOP	HLLM2,HLLM3^
  3819	034272	367 02 0 00 034255 		SOJG	AC-1,HLLM2		;ITERATION COUNTER
  3820	034273	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3821	034274	321 02 0 00 034262 		JUMPL	AC-1,HLLM3		;LOOP ON ERROR SWITCH ^
  3822
  3823
  3824
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 78
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0109

  3825
  3826
  3827					;TEST HLLS.
  3828					;CHECK C(E), C(E) SHOULD NOT CHANGE, AND CORRECT
  3829					;LOADING OF C(E) INTO AC.
  3830					;RAN TO RAN.
  3831
  3832
  3833			000004			AC=4
  3834	034275				HLLS1:	SETUP	100,0^
  3835			000005			AC1=<AC+1>&17
  3836			000006			AC2=<AC+2>&17
  3837			000007			AC3=<AC+3>&17
  3838			000010			AC4=<AC+4>&17
  3839			000011			AC5=<AC+5>&17
  3840			000002			RAN1=<AC-2>&17
  3841	034275	201 03 0 00 034275 		MOVEI	AC-1,.
  3842	034276	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3843	034277	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3844	034300	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3845	034301	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3846	034302	240 03 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3847	034303	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3848	034304				HLLS2:	RANDOM^
  3849	034304	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3850	034305	270 04 0 00 040071 		ADD	AC,[142536475076]
  3851	034306	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3852	034307	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3853	034310	200 06 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN FOR FUTURE COMPARE.
  3854	034311	477 05 0 00 000002 	HLLS3:	SETOB	AC1,RAN1	;MAKE C (AC)=-1
  3855	034312	503 05 0 00 000004 		HLLS	AC1,AC		;DO HLLS
  3856	034313	312 05 0 00 000004 		CAME	AC1,AC		;C(AC) SHOULD=C(E)
  3857	034314	012 00 0 00 000002 		EERRM	,RAN1
  3858	034315	312 06 0 00 000004 		CAME	AC2,AC		;C(E) SHOULD = ORIG C(AC).
  3859	034316	012 00 0 00 000002 		EERRM	,RAN1
  3860						LOOP	HLLS2,HLLS3^
  3861	034317	367 03 0 00 034304 		SOJG	AC-1,HLLS2		;ITERATION COUNTER
  3862	034320	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3863	034321	321 03 0 00 034311 		JUMPL	AC-1,HLLS3		;LOOP ON ERROR SWITCH ^
  3864
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 79
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0110

  3865
  3866
  3867					;TEST HRR. CHECK C(AC) FOR CORRECT DATA
  3868					;RAN TO RAN1.
  3869
  3870
  3871			000005			AC=5
  3872	034322				HRR1:	SETUP	100,0^
  3873			000006			AC1=<AC+1>&17
  3874			000007			AC2=<AC+2>&17
  3875			000010			AC3=<AC+3>&17
  3876			000011			AC4=<AC+4>&17
  3877			000012			AC5=<AC+5>&17
  3878			000003			RAN1=<AC-2>&17
  3879	034322	201 04 0 00 034322 		MOVEI	AC-1,.
  3880	034323	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3881	034324	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3882	034325	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3883	034326	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3884	034327	240 04 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3885	034330	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3886	034331				HRR2:	RANDOM^
  3887	034331	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3888	034332	270 05 0 00 040071 		ADD	AC,[142536475076]
  3889	034333	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3890	034334	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3891	034335	200 07 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN ANOTHER AC.
  3892	034336	241 05 0 00 000011 	HRR3:	ROT	AC,11		;MAKE C(AC) A DIFFERENT RAN NUM
  3893	034337	200 03 0 00 000005 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR.
  3894	034340	200 06 0 00 000005 		MOVE	AC1,AC		;SIMULATE
  3895	034341	620 06 0 00 777777 		TRZ	AC1,-1		;A
  3896	034342	660 06 0 07 000000 		TRO	AC1,(AC2)	;HRR.
  3897	034343	540 05 0 00 040201 		HRR	AC,RAN		;DO HRR
  3898	034344	312 05 0 00 000006 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  3899	034345	001 07 0 00 000003 		ERR	AC2,RAN1
  3900						LOOP	HRR2,HRR3^
  3901	034346	367 04 0 00 034331 		SOJG	AC-1,HRR2		;ITERATION COUNTER
  3902	034347	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3903	034350	321 04 0 00 034336 		JUMPL	AC-1,HRR3		;LOOP ON ERROR SWITCH ^
  3904
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 80
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0111

  3905
  3906
  3907					;TEST HRRI. CHECK C(AC) FOR CORRECT DATA
  3908					;RAN TO RAN1
  3909
  3910
  3911			000006			AC=6
  3912	034351				HRRI1:	SETUP	100,0^
  3913			000007			AC1=<AC+1>&17
  3914			000010			AC2=<AC+2>&17
  3915			000011			AC3=<AC+3>&17
  3916			000012			AC4=<AC+4>&17
  3917			000013			AC5=<AC+5>&17
  3918			000004			RAN1=<AC-2>&17
  3919	034351	201 05 0 00 034351 		MOVEI	AC-1,.
  3920	034352	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3921	034353	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3922	034354	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3923	034355	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3924	034356	240 05 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3925	034357	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3926	034360				HRRI2:	RANDOM^
  3927	034360	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3928	034361	270 06 0 00 040071 		ADD	AC,[142536475076]
  3929	034362	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3930	034363	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3931	034364	200 10 0 00 040201 		MOVE	AC2,RAN		;SAVE E.
  3932	034365	241 06 0 00 000011 	HRRI3:	ROT	AC,11		;MAKE C(AC)=DIFFERENT RAN. NUM
  3933	034366	200 04 0 00 000006 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF AN ERROR
  3934	034367	200 07 0 00 000006 		MOVE	AC1,AC		;SIMULATE
  3935	034370	620 07 0 00 777777 		TRZ	AC1,-1		;A
  3936	034371	660 07 0 10 000000 		TRO	AC1,(AC2)	;HRRI.
  3937	034372	541 06 0 10 000000 		HRRI	AC,(AC2)	;DO HRRI.
  3938	034373	312 06 0 00 000007 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  3939	034374	003 04 0 10 000000 		ERRI	RAN1,(AC2)
  3940						LOOP	HRRI2,HRRI3^
  3941	034375	367 05 0 00 034360 		SOJG	AC-1,HRRI2		;ITERATION COUNTER
  3942	034376	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3943	034377	321 05 0 00 034365 		JUMPL	AC-1,HRRI3		;LOOP ON ERROR SWITCH ^
  3944
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 81
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0112

  3945
  3946
  3947					;TEST HRRM. CHECK C(E) FOR CORRECT DATA.
  3948					;RAN TO RAN1
  3949
  3950
  3951			000007			AC=7
  3952	034400				HRRM1:	SETUP	100,0^
  3953			000010			AC1=<AC+1>&17
  3954			000011			AC2=<AC+2>&17
  3955			000012			AC3=<AC+3>&17
  3956			000013			AC4=<AC+4>&17
  3957			000014			AC5=<AC+5>&17
  3958			000005			RAN1=<AC-2>&17
  3959	034400	201 06 0 00 034400 		MOVEI	AC-1,.
  3960	034401	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3961	034402	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3962	034403	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3963	034404	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3964	034405	240 06 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3965	034406	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3966	034407				HRRM2:	RANDOM^
  3967	034407	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3968	034410	270 07 0 00 040071 		ADD	AC,[142536475076]
  3969	034411	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3970	034412	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  3971	034413	200 11 0 00 040201 		MOVE	AC2,RAN		;SAVE C(AC).
  3972	034414	241 07 0 00 000011 	HRRM3:	ROT	AC,11		;MAKE C(E)=DIFFERENT RAN. NUM
  3973	034415	200 05 0 00 000007 		MOVE	RAN1,AC		;SAVE IN CASE OF ERROR
  3974	034416	200 10 0 00 000007 		MOVE	AC1,AC		;SIMULATE
  3975	034417	620 10 0 00 777777 		TRZ	AC1,-1		;A
  3976	034420	660 10 0 11 000000 		TRO	AC1,(AC2)	;HRRM.
  3977	034421	542 11 0 00 000007 		HRRM	AC2,AC		;DO HRRM.
  3978	034422	312 10 0 00 000007 		CAME	AC1,AC		;C(E) SHOULD=SIM. ANS.
  3979	034423	002 05 0 00 040201 		ERRM	RAN1,RAN
  3980						LOOP	HRRM2,HRRM3^
  3981	034424	367 06 0 00 034407 		SOJG	AC-1,HRRM2		;ITERATION COUNTER
  3982	034425	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3983	034426	321 06 0 00 034414 		JUMPL	AC-1,HRRM3		;LOOP ON ERROR SWITCH ^
  3984
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 82
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0113

  3985
  3986
  3987					;TEST HRRS.  CHECK C(E) FOR NOT CHANGING, AND
  3988					;CORRECT STORING OF C(E) INTO AC.
  3989					;RAN TO RAN
  3990
  3991
  3992			000010			AC=10
  3993	034427				HRRS1:	SETUP	100,0^
  3994			000011			AC1=<AC+1>&17
  3995			000012			AC2=<AC+2>&17
  3996			000013			AC3=<AC+3>&17
  3997			000014			AC4=<AC+4>&17
  3998			000015			AC5=<AC+5>&17
  3999			000006			RAN1=<AC-2>&17
  4000	034427	201 07 0 00 034427 		MOVEI	AC-1,.
  4001	034430	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4002	034431	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4003	034432	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4004	034433	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4005	034434	240 07 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4006	034435	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4007	034436				HRRS2:	RANDOM^
  4008	034436	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4009	034437	270 10 0 00 040071 		ADD	AC,[142536475076]
  4010	034440	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4011	034441	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4012	034442	200 12 0 00 040201 		MOVE	AC2,RAN		;SAVE C(AC).
  4013	034443	477 11 0 00 000006 	HRRS3:	SETOB	AC1,RAN1	;SET C(AC)=-1
  4014	034444	543 11 0 00 000010 		HRRS	AC1,AC		;DO HRRS
  4015	034445	312 11 0 00 000010 		CAME	AC1,AC		;C(AC) SHOULD=C(E)
  4016	034446	002 12 0 00 000006 		ERRM	AC2,RAN1
  4017	034447	312 12 0 00 000010 		CAME	AC2,AC		;C(E) SHOULD = ORIG. C(E).
  4018	034450	002 12 0 00 000006 		ERRM	AC2,RAN1
  4019						LOOP	HRRS2,HRRS3^
  4020	034451	367 07 0 00 034436 		SOJG	AC-1,HRRS2		;ITERATION COUNTER
  4021	034452	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4022	034453	321 07 0 00 034443 		JUMPL	AC-1,HRRS3		;LOOP ON ERROR SWITCH ^
  4023
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 83
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0114

  4024
  4025
  4026					;TEST HRL.  CHECK C(AC) FOR CORRECT DATA
  4027					;RAN TO RAN1.
  4028
  4029
  4030			000011			AC=11
  4031	034454				HRL1:	SETUP	140,0^
  4032			000012			AC1=<AC+1>&17
  4033			000013			AC2=<AC+2>&17
  4034			000014			AC3=<AC+3>&17
  4035			000015			AC4=<AC+4>&17
  4036			000016			AC5=<AC+5>&17
  4037			000007			RAN1=<AC-2>&17
  4038	034454	201 10 0 00 034454 		MOVEI	AC-1,.
  4039	034455	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4040	034456	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4041	034457	202 10 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4042	034460	201 10 0 00 000140 		MOVEI	AC-1,140		;ROUTINE WEIGHTING
  4043	034461	240 10 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4044	034462	240 10 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4045	034463				HRL2:	RANDOM^
  4046	034463	200 11 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4047	034464	270 11 0 00 040071 		ADD	AC,[142536475076]
  4048	034465	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4049	034466	447 11 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4050	034467	200 13 0 00 040201 		MOVE	AC2,RAN		;SAVE C(E).
  4051	034470	241 11 0 00 000011 	HRL3:	ROT	AC,11		;C(AC)=SECOND RANDOM NUM
  4052	034471	200 07 0 00 000011 		MOVE	RAN1,AC		;SAVE IN CASE OF ERROR.
  4053	034472	205 12 0 13 000000 		MOVSI	AC1,(AC2)	;SIMULATE
  4054	034473	660 12 0 11 000000 		TRO	AC1,(AC)	;A HRL
  4055	034474	504 11 0 00 040201 		HRL	AC,RAN		;DO HRL
  4056	034475	312 11 0 00 000012 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  4057	034476	001 13 0 00 000007 		ERR	AC2,RAN1
  4058						LOOP	HRL2,HRL3^
  4059	034477	367 10 0 00 034463 		SOJG	AC-1,HRL2		;ITERATION COUNTER
  4060	034500	200 11 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4061	034501	321 10 0 00 034470 		JUMPL	AC-1,HRL3		;LOOP ON ERROR SWITCH ^
  4062
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 84
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0115

  4063
  4064
  4065					;TEST HRLI.  CHECK C(AC)FOR CORRECT DATA.
  4066					;RAN TO RAN1
  4067
  4068
  4069			000004			AC=4
  4070	034502				HRLI1:	SETUP	140,0^
  4071			000005			AC1=<AC+1>&17
  4072			000006			AC2=<AC+2>&17
  4073			000007			AC3=<AC+3>&17
  4074			000010			AC4=<AC+4>&17
  4075			000011			AC5=<AC+5>&17
  4076			000002			RAN1=<AC-2>&17
  4077	034502	201 03 0 00 034502 		MOVEI	AC-1,.
  4078	034503	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4079	034504	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4080	034505	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4081	034506	201 03 0 00 000140 		MOVEI	AC-1,140		;ROUTINE WEIGHTING
  4082	034507	240 03 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4083	034510	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4084	034511				HRLI2:	RANDOM^
  4085	034511	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4086	034512	270 04 0 00 040071 		ADD	AC,[142536475076]
  4087	034513	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4088	034514	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4089	034515	200 06 0 00 040201 		MOVE	AC2,RAN		;SAVE E.
  4090	034516	241 04 0 00 000011 	HRLI3:	ROT	AC,11		;C(AC)=SECOND RAN NUM
  4091	034517	200 02 0 00 000004 		MOVE	RAN1,AC		;SAVE IN CASE OF ERROR.
  4092	034520	205 05 0 06 000000 		MOVSI	AC1,(AC2)	;SIMULATE
  4093	034521	660 05 0 04 000000 		TRO	AC1,(AC)	;A HRLI
  4094	034522	505 04 0 06 000000 		HRLI	AC,(AC2)	;DO HRLI.
  4095	034523	312 04 0 00 000005 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  4096	034524	003 02 0 06 000000 		ERRI	RAN1,(AC2)
  4097						LOOP	HRLI2,HRLI3^
  4098	034525	367 03 0 00 034511 		SOJG	AC-1,HRLI2		;ITERATION COUNTER
  4099	034526	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4100	034527	321 03 0 00 034516 		JUMPL	AC-1,HRLI3		;LOOP ON ERROR SWITCH ^
  4101
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 85
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0116

  4102
  4103
  4104					;TEST HRLM.  CHECK C(E) FOR CORRECT DATA.
  4105					;RAN TO RAN1
  4106
  4107
  4108			000005			AC=5
  4109	034530				HRLM1:	SETUP	140,0^
  4110			000006			AC1=<AC+1>&17
  4111			000007			AC2=<AC+2>&17
  4112			000010			AC3=<AC+3>&17
  4113			000011			AC4=<AC+4>&17
  4114			000012			AC5=<AC+5>&17
  4115			000003			RAN1=<AC-2>&17
  4116	034530	201 04 0 00 034530 		MOVEI	AC-1,.
  4117	034531	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4118	034532	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4119	034533	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4120	034534	201 04 0 00 000140 		MOVEI	AC-1,140		;ROUTINE WEIGHTING
  4121	034535	240 04 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4122	034536	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4123	034537				HRLM2:	RANDOM^
  4124	034537	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4125	034540	270 05 0 00 040071 		ADD	AC,[142536475076]
  4126	034541	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4127	034542	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4128	034543	200 07 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  4129	034544	241 05 0 00 000011 	HRLM3:	ROT	AC,11		;C(E)=SECOND RAN NUM
  4130	034545	200 03 0 00 000005 		MOVE	RAN1,AC		;SAVE IN CASE OF ERROR
  4131	034546	205 06 0 07 000000 		MOVSI	AC1,(AC2)	;SIMULATE
  4132	034547	660 06 0 05 000000 		TRO	AC1,(AC)	;A HRLM
  4133	034550	506 07 0 00 000005 		HRLM	AC2,AC		;DO HRLM.
  4134	034551	312 06 0 00 000005 		CAME	AC1,AC		;C(E) SHOULD=SIM. ANS.
  4135	034552	002 03 0 00 040201 		ERRM	RAN1,RAN
  4136						LOOP	HRLM2,HRLM3^
  4137	034553	367 04 0 00 034537 		SOJG	AC-1,HRLM2		;ITERATION COUNTER
  4138	034554	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4139	034555	321 04 0 00 034544 		JUMPL	AC-1,HRLM3		;LOOP ON ERROR SWITCH ^
  4140
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 86
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0117

  4141
  4142
  4143					;TEST HRLS.  CHECK C(E) FOR CORRECT DATA, AND
  4144					;CORRECT STORING OF C(E) INTO AC.
  4145					;RAN TO RAN
  4146
  4147
  4148			000006			AC=6
  4149	034556				HRLS1:	SETUP	140,0^
  4150			000007			AC1=<AC+1>&17
  4151			000010			AC2=<AC+2>&17
  4152			000011			AC3=<AC+3>&17
  4153			000012			AC4=<AC+4>&17
  4154			000013			AC5=<AC+5>&17
  4155			000004			RAN1=<AC-2>&17
  4156	034556	201 05 0 00 034556 		MOVEI	AC-1,.
  4157	034557	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4158	034560	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4159	034561	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4160	034562	201 05 0 00 000140 		MOVEI	AC-1,140		;ROUTINE WEIGHTING
  4161	034563	240 05 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4162	034564	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4163	034565				HRLS2:	RANDOM^
  4164	034565	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4165	034566	270 06 0 00 040071 		ADD	AC,[142536475076]
  4166	034567	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4167	034570	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4168	034571	477 07 0 00 000004 	HRLS3:	SETOB	AC1,RAN1	;SET C(AC) TO -1
  4169	034572	205 10 0 06 000000 		MOVSI	AC2,(AC)	;SIMULATE
  4170	034573	660 10 0 06 000000 		TRO	AC2,(AC)	;A HRLS
  4171	034574	507 07 0 00 000006 		HRLS	AC1,AC		;DO HRLS
  4172	034575	312 07 0 00 000006 		CAME	AC1,AC		;C(AC) SHOULD=C(F) AFTER HRLS
  4173	034576	012 00 0 00 000004 		EERRM	,RAN1
  4174	034577	312 10 0 00 000006 		CAME	AC2,AC		;C(E) SHOULD=SIM. ANS
  4175	034600	012 00 0 00 000004 		EERRM	,RAN1
  4176						LOOP	HRLS2,HRLS3^
  4177	034601	367 05 0 00 034565 		SOJG	AC-1,HRLS2		;ITERATION COUNTER
  4178	034602	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4179	034603	321 05 0 00 034571 		JUMPL	AC-1,HRLS3		;LOOP ON ERROR SWITCH ^
  4180
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 87
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0118

  4181
  4182
  4183					;TEST HLR.  CHECK C(AC) FOR CORRECT DATA
  4184					;RAN TO RAN1
  4185
  4186
  4187			000007			AC=7
  4188	034604				HLR1:	SETUP	140,0^
  4189			000010			AC1=<AC+1>&17
  4190			000011			AC2=<AC+2>&17
  4191			000012			AC3=<AC+3>&17
  4192			000013			AC4=<AC+4>&17
  4193			000014			AC5=<AC+5>&17
  4194			000005			RAN1=<AC-2>&17
  4195	034604	201 06 0 00 034604 		MOVEI	AC-1,.
  4196	034605	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4197	034606	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4198	034607	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4199	034610	201 06 0 00 000140 		MOVEI	AC-1,140		;ROUTINE WEIGHTING
  4200	034611	240 06 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4201	034612	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4202	034613				HLR2:	RANDOM^
  4203	034613	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4204	034614	270 07 0 00 040071 		ADD	AC,[142536475076]
  4205	034615	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4206	034616	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4207	034617	241 07 0 00 000011 	HLR3:	ROT	AC,11		;C(AC)=SECOND RAN NUM
  4208	034620	200 05 0 00 000007 		MOVE	RAN1,AC		;SAVE IN CASE OF ERROR
  4209	034621	200 10 0 00 000007 		MOVE	AC1,AC		;SIMULATE
  4210	034622	620 10 0 00 777777 		TRZ	AC1,-1		;A
  4211	034623	204 11 0 00 040201 		MOVS	AC2,RAN		;HLR
  4212	034624	660 10 0 11 000000 		TRO	AC1,(AC2)	;INST
  4213	034625	544 07 0 00 040201 		HLR	AC,RAN		;DO HLR
  4214	034626	312 07 0 00 000010 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  4215	034627	011 00 0 00 000005 		EERR	,RAN1
  4216						LOOP	HLR2,HLR3^
  4217	034630	367 06 0 00 034613 		SOJG	AC-1,HLR2		;ITERATION COUNTER
  4218	034631	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4219	034632	321 06 0 00 034617 		JUMPL	AC-1,HLR3		;LOOP ON ERROR SWITCH ^
  4220
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 88
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0119

  4221
  4222
  4223					;TEST HLRI.  CHECK C(AC) FOR CORRECT DATA
  4224					;RAN TO RAN1
  4225
  4226
  4227			000010			AC=10
  4228	034633				HLRI1:	SETUP	140,0^
  4229			000011			AC1=<AC+1>&17
  4230			000012			AC2=<AC+2>&17
  4231			000013			AC3=<AC+3>&17
  4232			000014			AC4=<AC+4>&17
  4233			000015			AC5=<AC+5>&17
  4234			000006			RAN1=<AC-2>&17
  4235	034633	201 07 0 00 034633 		MOVEI	AC-1,.
  4236	034634	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4237	034635	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4238	034636	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4239	034637	201 07 0 00 000140 		MOVEI	AC-1,140		;ROUTINE WEIGHTING
  4240	034640	240 07 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4241	034641	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4242	034642				HLRI2:	RANDOM^
  4243	034642	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4244	034643	270 10 0 00 040071 		ADD	AC,[142536475076]
  4245	034644	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4246	034645	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4247	034646	200 13 0 00 040201 		MOVE	AC3,RAN		;SAVE RAN IN AN AC.
  4248	034647	241 10 0 00 000011 	HLRI3:	ROT	AC,11		;C(AC)=SECOND RAN NUM
  4249	034650	200 06 0 00 000010 		MOVE	RAN1,AC		;SAVE IN CASE OF ERROR
  4250	034651	200 11 0 00 000010 		MOVE	AC1,AC		;SIMULATE
  4251	034652	620 11 0 00 777777 		TRZ	AC1,-1		;A HLRI
  4252	034653	545 10 0 13 000000 		HLRI	AC,(AC3)	;DO HLRI.
  4253	034654	312 10 0 00 000011 		CAME	AC,AC1		;C(AC) SHOULD=SIMULATED ANS
  4254	034655	003 06 0 13 000000 		ERRI	RAN1,(AC3)
  4255						LOOP	HLRI2,HLRI3^
  4256	034656	367 07 0 00 034642 		SOJG	AC-1,HLRI2		;ITERATION COUNTER
  4257	034657	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4258	034660	321 07 0 00 034647 		JUMPL	AC-1,HLRI3		;LOOP ON ERROR SWITCH ^
  4259
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 89
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0120

  4260
  4261
  4262					;TEST HLRM  CHECK C(E) FOR CORRECT DATA
  4263					;RAN TO RAN1.
  4264
  4265
  4266			000010			AC=10
  4267	034661				HLRM1:	SETUP	100,0^
  4268			000011			AC1=<AC+1>&17
  4269			000012			AC2=<AC+2>&17
  4270			000013			AC3=<AC+3>&17
  4271			000014			AC4=<AC+4>&17
  4272			000015			AC5=<AC+5>&17
  4273			000006			RAN1=<AC-2>&17
  4274	034661	201 07 0 00 034661 		MOVEI	AC-1,.
  4275	034662	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4276	034663	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4277	034664	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4278	034665	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4279	034666	240 07 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4280	034667	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4281	034670				HLRM2:	RANDOM^
  4282	034670	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4283	034671	270 10 0 00 040071 		ADD	AC,[142536475076]
  4284	034672	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4285	034673	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4286	034674	200 13 0 00 040201 		MOVE	AC3,RAN		;SAVE RAN IN AN AC.
  4287	034675	241 10 0 00 000011 	HLRM3:	ROT	AC,11		;C(AC)=SECOND RAN. NUM
  4288	034676	200 06 0 00 000010 		MOVE	RAN1,AC		;SAVE IN CASE OF ERROR
  4289	034677	200 11 0 00 000010 		MOVE	AC1,AC		;SIMULATE
  4290	034700	620 11 0 00 777777 		TRZ	AC1,-1		;A
  4291	034701	204 12 0 00 040201 		MOVS	AC2,RAN		;HLRM
  4292	034702	660 11 0 12 000000 		TRO	AC1,(AC2)	;INST
  4293	034703	546 13 0 00 000010 		HLRM	AC3,AC		;DO HLRM.
  4294	034704	312 11 0 00 000010 		CAME	AC1,AC		;C(E) SHOULD=SIM. ANS
  4295	034705	002 06 0 00 040201 		ERRM	RAN1,RAN
  4296						LOOP	HLRM2,HLRM3^
  4297	034706	367 07 0 00 034670 		SOJG	AC-1,HLRM2		;ITERATION COUNTER
  4298	034707	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4299	034710	321 07 0 00 034675 		JUMPL	AC-1,HLRM3		;LOOP ON ERROR SWITCH ^
  4300
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 90
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0121

  4301
  4302
  4303					;TEST HLRS.  CHECK C(E) FOR CORRECT DATA, AND
  4304					;CORRECT STORING OF C(E) INTO AC
  4305					;RAN TO RAN.
  4306
  4307
  4308			000002			AC=2
  4309	034711				HLRS1:	SETUP	140,0^
  4310			000003			AC1=<AC+1>&17
  4311			000004			AC2=<AC+2>&17
  4312			000005			AC3=<AC+3>&17
  4313			000006			AC4=<AC+4>&17
  4314			000007			AC5=<AC+5>&17
  4315			000000			RAN1=<AC-2>&17
  4316	034711	201 01 0 00 034711 		MOVEI	AC-1,.
  4317	034712	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4318	034713	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4319	034714	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4320	034715	201 01 0 00 000140 		MOVEI	AC-1,140		;ROUTINE WEIGHTING
  4321	034716	240 01 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4322	034717	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4323	034720				HLRS2:	RANDOM^
  4324	034720	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4325	034721	270 02 0 00 040071 		ADD	AC,[142536475076]
  4326	034722	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4327	034723	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4328	034724	477 03 0 00 000000 	HLRS3:	SETOB	AC1,RAN1	;SAVE IN CASE OF ERROR
  4329	034725	200 04 0 00 000002 		MOVE	AC2,AC		;SIMULATE
  4330	034726	620 04 0 00 777777 		TRZ	AC2,-1		;A
  4331	034727	204 05 0 00 000002 		MOVS	AC3,AC		;HLRS
  4332	034730	621 05 0 00 777777 		TLZ	AC3,-1
  4333	034731	434 04 0 00 000005 		IOR	AC2,AC3		;INST
  4334	034732	547 03 0 00 000002 		HLRS	AC1,AC		;DO HLRS
  4335	034733	312 03 0 00 000002 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER HLRS
  4336	034734	012 00 0 00 000000 		EERRM	,RAN1
  4337	034735	312 04 0 00 000002 		CAME	AC2,AC		;C(E) SHOULD=SIM. ANS.
  4338	034736	012 00 0 00 000000 		EERRM	,RAN1
  4339						LOOP	HLRS2,HLRS3^
  4340	034737	367 01 0 00 034720 		SOJG	AC-1,HLRS2		;ITERATION COUNTER
  4341	034740	200 02 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4342	034741	321 01 0 00 034724 		JUMPL	AC-1,HLRS3		;LOOP ON ERROR SWITCH ^
  4343
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 91
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0122

  4344
  4345
  4346					;TEST HLLZ.  CHECK C(AC) FOR  CORRECT DATA
  4347					;RAN TO RAN1.
  4348
  4349
  4350			000003			AC=3
  4351	034742				HLLZ1:	SETUP	200,0^
  4352			000004			AC1=<AC+1>&17
  4353			000005			AC2=<AC+2>&17
  4354			000006			AC3=<AC+3>&17
  4355			000007			AC4=<AC+4>&17
  4356			000010			AC5=<AC+5>&17
  4357			000001			RAN1=<AC-2>&17
  4358	034742	201 02 0 00 034742 		MOVEI	AC-1,.
  4359	034743	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4360	034744	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4361	034745	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4362	034746	201 02 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  4363	034747	240 02 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4364	034750	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4365	034751				HLLZ2:	RANDOM^
  4366	034751	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4367	034752	270 03 0 00 040071 		ADD	AC,[142536475076]
  4368	034753	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4369	034754	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4370	034755	241 03 0 00 000011 	HLLZ3:	ROT	AC,11		;C(AC)=SECOND RAN NUM
  4371	034756	200 01 0 00 000003 		MOVE	RAN1,AC		;SAVE IN CASE OF ERROR
  4372	034757	200 04 0 00 040201 		MOVE	AC1,RAN		;SIMULATE
  4373	034760	620 04 0 00 777777 		TRZ	AC1,-1		;A HLLZ
  4374	034761	510 03 0 00 040201 		HLLZ	AC,RAN		;DO HLLZ
  4375	034762	312 03 0 00 000004 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  4376	034763	011 00 0 00 000001 		EERR	,RAN1
  4377						LOOP	HLLZ2,HLLZ3^
  4378	034764	367 02 0 00 034751 		SOJG	AC-1,HLLZ2		;ITERATION COUNTER
  4379	034765	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4380	034766	321 02 0 00 034755 		JUMPL	AC-1,HLLZ3		;LOOP ON ERROR SWITCH ^
  4381
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 92
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0123

  4382
  4383
  4384					;TEST HLLZI.  CHECK C(AC) FOR 0
  4385					;RAN TO RAN1
  4386
  4387
  4388			000002			AC=2
  4389	034767				HLLZI1:	SETUP	200,0^
  4390			000003			AC1=<AC+1>&17
  4391			000004			AC2=<AC+2>&17
  4392			000005			AC3=<AC+3>&17
  4393			000006			AC4=<AC+4>&17
  4394			000007			AC5=<AC+5>&17
  4395			000000			RAN1=<AC-2>&17
  4396	034767	201 01 0 00 034767 		MOVEI	AC-1,.
  4397	034770	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4398	034771	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4399	034772	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4400	034773	201 01 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  4401	034774	240 01 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4402	034775	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4403	034776				HLLZI2:	RANDOM^
  4404	034776	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4405	034777	270 02 0 00 040071 		ADD	AC,[142536475076]
  4406	035000	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4407	035001	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4408	035002	200 03 0 00 040201 		MOVE	AC1,RAN		;SAVE RAN IN AN AC.
  4409	035003	241 02 0 00 000011 	HLLZI3:	ROT	AC,11		;C(AC)=SECOND RAN NUM
  4410	035004	200 00 0 00 000002 		MOVE	RAN1,AC		;SAVE IN CASE OF ERROR
  4411	035005	511 02 0 03 000000 		HLLZI	AC,(AC1)	;DO HLLZI.
  4412	035006	312 02 0 00 040074 		CAME	AC,[0]		;C(AC) SHOULD=0
  4413	035007	003 00 0 03 000000 		ERRI	RAN1,(AC1)
  4414						LOOP	HLLZI2,HLLZI3^
  4415	035010	367 01 0 00 034776 		SOJG	AC-1,HLLZI2		;ITERATION COUNTER
  4416	035011	200 02 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4417	035012	321 01 0 00 035003 		JUMPL	AC-1,HLLZI3		;LOOP ON ERROR SWITCH ^
  4418
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 93
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0124

  4419
  4420
  4421					;TEST HLLZM.  CHECK C(E) FOR CORRECT DATA
  4422					;RAN TO RAN1
  4423
  4424
  4425			000003			AC=3
  4426	035013				HLLZM1:	SETUP	200,0^
  4427			000004			AC1=<AC+1>&17
  4428			000005			AC2=<AC+2>&17
  4429			000006			AC3=<AC+3>&17
  4430			000007			AC4=<AC+4>&17
  4431			000010			AC5=<AC+5>&17
  4432			000001			RAN1=<AC-2>&17
  4433	035013	201 02 0 00 035013 		MOVEI	AC-1,.
  4434	035014	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4435	035015	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4436	035016	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4437	035017	201 02 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  4438	035020	240 02 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4439	035021	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4440	035022				HLLZM2:	RANDOM^
  4441	035022	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4442	035023	270 03 0 00 040071 		ADD	AC,[142536475076]
  4443	035024	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4444	035025	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4445	035026	200 05 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  4446	035027	241 03 0 00 000011 	HLLZM3:	ROT	AC,11		;C(E)=SECOND RAN NUM
  4447	035030	200 01 0 00 000003 		MOVE	RAN1,AC		;SAVE IN CASE OF ERROR
  4448	035031	200 04 0 00 040201 		MOVE	AC1,RAN		;SIMULATE
  4449	035032	620 04 0 00 777777 		TRZ	AC1,-1		;A HLLZM
  4450	035033	512 05 0 00 000003 		HLLZM	AC2,AC		;DO HLLZM.
  4451	035034	312 04 0 00 000003 		CAME	AC1,AC		;C(E) SHOULD=SIM.ANS
  4452	035035	002 01 0 00 040201 		ERRM	RAN1,RAN
  4453						LOOP	HLLZM2,HLLZM3^
  4454	035036	367 02 0 00 035022 		SOJG	AC-1,HLLZM2		;ITERATION COUNTER
  4455	035037	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4456	035040	321 02 0 00 035027 		JUMPL	AC-1,HLLZM3		;LOOP ON ERROR SWITCH ^
  4457
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 94
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0125

  4458
  4459
  4460					;TEST HLLZS.  CHECK C(E) FOR CORRECT DATA, AND
  4461					;CORRECT STORING OF C(E) INTO AC.
  4462					;RAN TO RAN.
  4463
  4464
  4465			000004			AC=4
  4466	035041				HLLZS1:	SETUP	200,0^
  4467			000005			AC1=<AC+1>&17
  4468			000006			AC2=<AC+2>&17
  4469			000007			AC3=<AC+3>&17
  4470			000010			AC4=<AC+4>&17
  4471			000011			AC5=<AC+5>&17
  4472			000002			RAN1=<AC-2>&17
  4473	035041	201 03 0 00 035041 		MOVEI	AC-1,.
  4474	035042	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4475	035043	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4476	035044	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4477	035045	201 03 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  4478	035046	240 03 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4479	035047	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4480	035050				HLLZS2:	RANDOM^
  4481	035050	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4482	035051	270 04 0 00 040071 		ADD	AC,[142536475076]
  4483	035052	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4484	035053	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4485	035054	477 05 0 00 000002 	HLLZS3:	SETOB	AC1,RAN1	;SET C(AC) TO A -1
  4486	035055	200 06 0 00 000004 		MOVE	AC2,AC		;SIMULATE
  4487	035056	620 06 0 00 777777 		TRZ	AC2,-1		;A HLLZS
  4488	035057	513 05 0 00 000004 		HLLZS	AC1,AC		;DO HLLZS
  4489	035060	312 05 0 00 000004 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER HLLZS
  4490	035061	012 00 0 00 000002 		EERRM	,RAN1
  4491	035062	312 05 0 00 000004 		CAME	AC1,AC		;C(E) SHOULD=SIM. ANS
  4492	035063	012 00 0 00 000002 		EERRM	,RAN1
  4493						LOOP	HLLZS2,HLLZS3^
  4494	035064	367 03 0 00 035050 		SOJG	AC-1,HLLZS2		;ITERATION COUNTER
  4495	035065	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4496	035066	321 03 0 00 035054 		JUMPL	AC-1,HLLZS3		;LOOP ON ERROR SWITCH ^
  4497
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 95
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0126

  4498
  4499
  4500					;TEST HRRZ.  CHECK C(AC) FOR CORRECT DATA.
  4501					;RAN TO RAN1
  4502
  4503
  4504			000005			AC=5
  4505	035067				HRRZ1:	SETUP	200,0^
  4506			000006			AC1=<AC+1>&17
  4507			000007			AC2=<AC+2>&17
  4508			000010			AC3=<AC+3>&17
  4509			000011			AC4=<AC+4>&17
  4510			000012			AC5=<AC+5>&17
  4511			000003			RAN1=<AC-2>&17
  4512	035067	201 04 0 00 035067 		MOVEI	AC-1,.
  4513	035070	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4514	035071	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4515	035072	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4516	035073	201 04 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  4517	035074	240 04 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4518	035075	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4519	035076				HRRZ2:	RANDOM^
  4520	035076	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4521	035077	270 05 0 00 040071 		ADD	AC,[142536475076]
  4522	035100	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4523	035101	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4524	035102	200 07 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  4525	035103	241 05 0 00 000011 	HRRZ3:	ROT	AC,11		;C(AC)=SECOND RAND NUM
  4526	035104	200 03 0 00 000005 		MOVE	RAN1,AC		;SAVE IN CASE OF ERROR
  4527	035105	201 06 0 07 000000 		MOVEI	AC1,(AC2)	;SIMULATE A HRRZ INST.
  4528	035106	550 05 0 00 040201 		HRRZ	AC,RAN		;DO HRRZ
  4529	035107	312 05 0 00 000006 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  4530	035110	001 07 0 00 000003 		ERR	AC2,RAN1
  4531						LOOP	HRRZ2,HRRZ3^
  4532	035111	367 04 0 00 035076 		SOJG	AC-1,HRRZ2		;ITERATION COUNTER
  4533	035112	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4534	035113	321 04 0 00 035103 		JUMPL	AC-1,HRRZ3		;LOOP ON ERROR SWITCH ^
  4535
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 96
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0127

  4536
  4537
  4538					;TEST HRRZI.  CHECK C(AC) FOR CORRECT DATA
  4539					;RAN TO RAN1
  4540
  4541
  4542			000006			AC=6
  4543	035114				HRRZI1:	SETUP	200,0^
  4544			000007			AC1=<AC+1>&17
  4545			000010			AC2=<AC+2>&17
  4546			000011			AC3=<AC+3>&17
  4547			000012			AC4=<AC+4>&17
  4548			000013			AC5=<AC+5>&17
  4549			000004			RAN1=<AC-2>&17
  4550	035114	201 05 0 00 035114 		MOVEI	AC-1,.
  4551	035115	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4552	035116	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4553	035117	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4554	035120	201 05 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  4555	035121	240 05 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4556	035122	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4557	035123				HRRZI2:	RANDOM^
  4558	035123	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4559	035124	270 06 0 00 040071 		ADD	AC,[142536475076]
  4560	035125	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4561	035126	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4562	035127	200 10 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  4563	035130	241 06 0 00 000011 	HRRZI3:	ROT	AC,11		;C(AC)=SECOND RAN NUM
  4564	035131	200 04 0 00 000006 		MOVE	RAN1,AC		;SAVE IN CASE OF ERROR
  4565	035132	201 07 0 10 000000 		MOVEI	AC1,(AC2)	;SIMULATE A HRRZI INST.
  4566	035133	551 06 0 10 000000 		HRRZI	AC,(AC2)	;DO HRRZI.
  4567	035134	312 06 0 00 000007 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  4568	035135	003 04 0 10 000000 		ERRI	RAN1,(AC2)
  4569						LOOP	HRRZI2,HRRZI3^
  4570	035136	367 05 0 00 035123 		SOJG	AC-1,HRRZI2		;ITERATION COUNTER
  4571	035137	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4572	035140	321 05 0 00 035130 		JUMPL	AC-1,HRRZI3		;LOOP ON ERROR SWITCH ^
  4573
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 97
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0128

  4574
  4575
  4576					;TEST HRRZM.  CHECK C(E) FOR CORRECT DATA
  4577					;RAN TO RAN1
  4578
  4579
  4580			000007			AC=7
  4581	035141				HRRZM1:	SETUP	200,0^
  4582			000010			AC1=<AC+1>&17
  4583			000011			AC2=<AC+2>&17
  4584			000012			AC3=<AC+3>&17
  4585			000013			AC4=<AC+4>&17
  4586			000014			AC5=<AC+5>&17
  4587			000005			RAN1=<AC-2>&17
  4588	035141	201 06 0 00 035141 		MOVEI	AC-1,.
  4589	035142	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4590	035143	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4591	035144	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4592	035145	201 06 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  4593	035146	240 06 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4594	035147	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4595	035150				HRRZM2:	RANDOM^
  4596	035150	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4597	035151	270 07 0 00 040071 		ADD	AC,[142536475076]
  4598	035152	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4599	035153	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4600	035154	200 11 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  4601	035155	241 07 0 00 000011 	HRRZM3:	ROT	AC,11		;C(E)=SECOND RAN. NUM
  4602	035156	200 05 0 00 000007 		MOVE	RAN1,AC		;SAVE IN CASE OF ERROR
  4603	035157	201 10 0 11 000000 		MOVEI	AC1,(AC2)	;SIMULATE A HRRZM INST.
  4604	035160	552 11 0 00 000007 		HRRZM	AC2,AC		;DO HRRZM.
  4605	035161	312 10 0 00 000007 		CAME	AC1,AC		;C(E) SHOULD=SIM. ANS
  4606	035162	002 05 0 00 040201 		ERRM	RAN1,RAN
  4607						LOOP	HRRZM2,HRRZM3^
  4608	035163	367 06 0 00 035150 		SOJG	AC-1,HRRZM2		;ITERATION COUNTER
  4609	035164	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4610	035165	321 06 0 00 035155 		JUMPL	AC-1,HRRZM3		;LOOP ON ERROR SWITCH ^
  4611
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 98
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0129

  4612
  4613
  4614					;TEST HRRZS.  CHECK C(E) FOR CORRECT DATA, AND
  4615					;CORRECT STORING OF C(E) INTO AC.
  4616					;RAN TO RAN.
  4617
  4618
  4619			000010			AC=10
  4620	035166				HRRZS1:	SETUP	200,0^
  4621			000011			AC1=<AC+1>&17
  4622			000012			AC2=<AC+2>&17
  4623			000013			AC3=<AC+3>&17
  4624			000014			AC4=<AC+4>&17
  4625			000015			AC5=<AC+5>&17
  4626			000006			RAN1=<AC-2>&17
  4627	035166	201 07 0 00 035166 		MOVEI	AC-1,.
  4628	035167	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4629	035170	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4630	035171	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4631	035172	201 07 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  4632	035173	240 07 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4633	035174	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4634	035175				HRRZS2:	RANDOM^
  4635	035175	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4636	035176	270 10 0 00 040071 		ADD	AC,[142536475076]
  4637	035177	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4638	035200	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4639	035201	477 11 0 00 000006 	HRRZS3:	SETOB	AC1,RAN1	;SETC(AC) TO A-1
  4640	035202	201 12 0 10 000000 		MOVEI	AC2,(AC)	;SIMULATE A HRRZS
  4641	035203	553 11 0 00 000010 		HRRZS	AC1,AC		;DO HRRZS
  4642	035204	312 11 0 00 000010 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER HRRZS
  4643	035205	012 00 0 00 000006 		EERRM	,RAN1
  4644	035206	312 12 0 00 000010 		CAME	AC2,AC		;C(E) SHOULD=SIM. ANS
  4645	035207	012 00 0 00 000006 		EERRM	,RAN1
  4646						LOOP	HRRZS2,HRRZS3^
  4647	035210	367 07 0 00 035175 		SOJG	AC-1,HRRZS2		;ITERATION COUNTER
  4648	035211	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4649	035212	321 07 0 00 035201 		JUMPL	AC-1,HRRZS3		;LOOP ON ERROR SWITCH ^
  4650
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 99
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0130

  4651
  4652
  4653					;TEST HLLO. CHECK C(AC) FOR CORRECT DATA
  4654					;RAN TO RAN1
  4655
  4656
  4657			000011			AC=11
  4658	035213				HLLO1:	SETUP	200,0^
  4659			000012			AC1=<AC+1>&17
  4660			000013			AC2=<AC+2>&17
  4661			000014			AC3=<AC+3>&17
  4662			000015			AC4=<AC+4>&17
  4663			000016			AC5=<AC+5>&17
  4664			000007			RAN1=<AC-2>&17
  4665	035213	201 10 0 00 035213 		MOVEI	AC-1,.
  4666	035214	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4667	035215	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4668	035216	202 10 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4669	035217	201 10 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  4670	035220	240 10 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4671	035221	240 10 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4672	035222				HLLO2:	RANDOM^
  4673	035222	200 11 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4674	035223	270 11 0 00 040071 		ADD	AC,[142536475076]
  4675	035224	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4676	035225	447 11 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4677	035226	241 11 0 00 000011 	HLLO3:	ROT	AC,11		;C(AC)=SECOND RAN NUM
  4678	035227	200 07 0 00 000011 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR.
  4679	035230	200 12 0 00 040201 		MOVE	AC1,RAN		;SIMULATE
  4680	035231	660 12 0 00 777777 		TRO	AC1,-1		;A HLLO
  4681	035232	520 11 0 00 040201 		HLLO	AC,RAN		;DO HLLO
  4682	035233	312 11 0 00 000012 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  4683	035234	011 00 0 00 000007 		EERR	,RAN1
  4684						LOOP	HLLO2,HLLO3^
  4685	035235	367 10 0 00 035222 		SOJG	AC-1,HLLO2		;ITERATION COUNTER
  4686	035236	200 11 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4687	035237	321 10 0 00 035226 		JUMPL	AC-1,HLLO3		;LOOP ON ERROR SWITCH ^
  4688
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 100
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0131

  4689
  4690
  4691
  4692
  4693					;TEST HLLOI  CHECK C(AC) FOR CORRECT DATA
  4694					;RAN TO RAN1
  4695
  4696
  4697			000004			AC=4
  4698	035240				HLLOI1:	SETUP	200,0^
  4699			000005			AC1=<AC+1>&17
  4700			000006			AC2=<AC+2>&17
  4701			000007			AC3=<AC+3>&17
  4702			000010			AC4=<AC+4>&17
  4703			000011			AC5=<AC+5>&17
  4704			000002			RAN1=<AC-2>&17
  4705	035240	201 03 0 00 035240 		MOVEI	AC-1,.
  4706	035241	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4707	035242	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4708	035243	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4709	035244	201 03 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  4710	035245	240 03 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4711	035246	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4712	035247				HLLOI2:	RANDOM^
  4713	035247	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4714	035250	270 04 0 00 040071 		ADD	AC,[142536475076]
  4715	035251	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4716	035252	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4717	035253	200 06 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  4718	035254	241 04 0 00 000011 	HLLOI3:	ROT	AC,11		;C(AC)=SECOND RAN. NUM
  4719	035255	200 02 0 00 000004 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  4720	035256	400 05 0 00 000000 		SETZ	AC1,		;SIMULATE
  4721	035257	660 05 0 00 777777 		TRO	AC1,-1		;A HLLOI
  4722	035260	521 04 0 06 000000 		HLLOI	AC,(AC2)	;DO HLLOI.
  4723	035261	312 04 0 00 000005 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  4724	035262	003 02 0 06 000000 		ERRI	RAN1,(AC2)
  4725						LOOP	HLLOI2,HLLOI3^
  4726	035263	367 03 0 00 035247 		SOJG	AC-1,HLLOI2		;ITERATION COUNTER
  4727	035264	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4728	035265	321 03 0 00 035254 		JUMPL	AC-1,HLLOI3		;LOOP ON ERROR SWITCH ^
  4729
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 101
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0132

  4730
  4731
  4732					;TEST HLLOM. CHECK C(E) FOR CORRECT DATA
  4733					;RAN TO RAO1
  4734
  4735
  4736			000005			AC=5
  4737	035266				HLLOM1:	SETUP	200,0^
  4738			000006			AC1=<AC+1>&17
  4739			000007			AC2=<AC+2>&17
  4740			000010			AC3=<AC+3>&17
  4741			000011			AC4=<AC+4>&17
  4742			000012			AC5=<AC+5>&17
  4743			000003			RAN1=<AC-2>&17
  4744	035266	201 04 0 00 035266 		MOVEI	AC-1,.
  4745	035267	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4746	035270	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4747	035271	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4748	035272	201 04 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  4749	035273	240 04 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4750	035274	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4751	035275				HLLOM2:	RANDOM^
  4752	035275	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4753	035276	270 05 0 00 040071 		ADD	AC,[142536475076]
  4754	035277	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4755	035300	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4756	035301	200 07 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  4757	035302	241 05 0 00 000011 	HLLOM3:	ROT	AC,11		;C(E) =SECOND RANDOM NUM.
  4758	035303	200 03 0 00 000005 		MOVE	RAN1,AC		;SAVE C(E) IN CASE OF ERROR
  4759	035304	200 06 0 00 040201 		MOVE	AC1,RAN		;SIMULATE
  4760	035305	660 06 0 00 777777 		TRO	AC1,-1		;A HLLOM
  4761	035306	522 07 0 00 000005 		HLLOM	AC2,AC		;DO A HLLOM.
  4762	035307	312 06 0 00 000005 		CAME	AC1,AC		;C(E) SHOULD=SIM. ANS
  4763	035310	002 03 0 00 040201 		ERRM	RAN1,RAN
  4764						LOOP	HLLOM2,HLLOM3^
  4765	035311	367 04 0 00 035275 		SOJG	AC-1,HLLOM2		;ITERATION COUNTER
  4766	035312	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4767	035313	321 04 0 00 035302 		JUMPL	AC-1,HLLOM3		;LOOP ON ERROR SWITCH ^
  4768
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 102
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0133

  4769
  4770
  4771					;TEST HLLOS.  CHECK C(E) FOR CORRECT DATA, AND
  4772					;CORRECT STORING OF C(E) INTO AC.
  4773					;RAN TO RAN
  4774
  4775
  4776			000006			AC=6
  4777	035314				HLLOS1:	SETUP	200,0^
  4778			000007			AC1=<AC+1>&17
  4779			000010			AC2=<AC+2>&17
  4780			000011			AC3=<AC+3>&17
  4781			000012			AC4=<AC+4>&17
  4782			000013			AC5=<AC+5>&17
  4783			000004			RAN1=<AC-2>&17
  4784	035314	201 05 0 00 035314 		MOVEI	AC-1,.
  4785	035315	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4786	035316	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4787	035317	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4788	035320	201 05 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  4789	035321	240 05 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4790	035322	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4791	035323				HLLOS2:	RANDOM^
  4792	035323	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4793	035324	270 06 0 00 040071 		ADD	AC,[142536475076]
  4794	035325	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4795	035326	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4796	035327	477 07 0 00 000004 	HLLOS3:	SETOB	AC1,RAN1	;SET C(AC) TO A -1
  4797	035330	200 10 0 00 000006 		MOVE	AC2,AC		;SIMULATE
  4798	035331	660 10 0 00 777777 		TRO	AC2,-1		;A HLLOS
  4799	035332	523 07 0 00 000006 		HLLOS	AC1,AC		;DO HLLOS
  4800	035333	312 07 0 00 000006 		CAME	AC1,AC		;C(AC) SHOULD=C(AC) AFTER HLLOS
  4801	035334	012 00 0 00 000004 		EERRM	,RAN1
  4802	035335	312 10 0 00 000006 		CAME	AC2,AC		;C(E) SHOULD=SIM ANS
  4803	035336	012 00 0 00 000004 		EERRM	,RAN1
  4804						LOOP	HLLOS2,HLLOS3^
  4805	035337	367 05 0 00 035323 		SOJG	AC-1,HLLOS2		;ITERATION COUNTER
  4806	035340	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4807	035341	321 05 0 00 035327 		JUMPL	AC-1,HLLOS3		;LOOP ON ERROR SWITCH ^
  4808
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 103
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0134

  4809
  4810
  4811					;TEST HRRO.  CHECK C(AC) FOR CORRECT DATA
  4812					;RAN TO RAN1
  4813
  4814
  4815			000007			AC=7
  4816	035342				HRRO1:	SETUP	200,0^
  4817			000010			AC1=<AC+1>&17
  4818			000011			AC2=<AC+2>&17
  4819			000012			AC3=<AC+3>&17
  4820			000013			AC4=<AC+4>&17
  4821			000014			AC5=<AC+5>&17
  4822			000005			RAN1=<AC-2>&17
  4823	035342	201 06 0 00 035342 		MOVEI	AC-1,.
  4824	035343	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4825	035344	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4826	035345	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4827	035346	201 06 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  4828	035347	240 06 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4829	035350	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4830	035351				HRRO2:	RANDOM^
  4831	035351	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4832	035352	270 07 0 00 040071 		ADD	AC,[142536475076]
  4833	035353	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4834	035354	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4835	035355	241 07 0 00 000011 	HRRO3:	ROT	AC,11		;C(AC)=SECOND RAN NUM
  4836	035356	200 05 0 00 000007 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  4837	035357	200 10 0 00 040201 		MOVE	AC1,RAN		;SIMULATE
  4838	035360	661 10 0 00 777777 		TLO	AC1,-1		;A HRRO
  4839	035361	560 07 0 00 040201 		HRRO	AC,RAN		;DO HRRO
  4840	035362	312 07 0 00 000010 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  4841	035363	011 00 0 00 000005 		EERR	,RAN1
  4842						LOOP	HRRO2,HRRO3^
  4843	035364	367 06 0 00 035351 		SOJG	AC-1,HRRO2		;ITERATION COUNTER
  4844	035365	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4845	035366	321 06 0 00 035355 		JUMPL	AC-1,HRRO3		;LOOP ON ERROR SWITCH ^
  4846
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 104
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0135

  4847
  4848
  4849					;TEST HRROI.  CHECK C(AC) FOR CORRECT DATA
  4850					;RAN TO RAN1
  4851
  4852
  4853			000010			AC=10
  4854	035367				HRROI1:	SETUP	200,0^
  4855			000011			AC1=<AC+1>&17
  4856			000012			AC2=<AC+2>&17
  4857			000013			AC3=<AC+3>&17
  4858			000014			AC4=<AC+4>&17
  4859			000015			AC5=<AC+5>&17
  4860			000006			RAN1=<AC-2>&17
  4861	035367	201 07 0 00 035367 		MOVEI	AC-1,.
  4862	035370	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4863	035371	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4864	035372	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4865	035373	201 07 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  4866	035374	240 07 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4867	035375	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4868	035376				HRROI2:	RANDOM^
  4869	035376	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4870	035377	270 10 0 00 040071 		ADD	AC,[142536475076]
  4871	035400	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4872	035401	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4873	035402	200 13 0 00 040201 		MOVE	AC3,RAN		;SAVE RAN IN AN AC.
  4874	035403	241 10 0 00 000011 	HRROI3:	ROT	AC,11		;C(AC)=SECOND RAN. NUM
  4875	035404	200 06 0 00 000010 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  4876	035405	200 11 0 00 040201 		MOVE	AC1,RAN		;SIMULATE
  4877	035406	661 11 0 00 777777 		TLO	AC1,-1		;A HRROI
  4878	035407	561 10 0 13 000000 		HRROI	AC,(AC3)	;DO HRROI.
  4879	035410	312 10 0 00 000011 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  4880	035411	003 06 0 13 000000 		ERRI	RAN1,(AC3)
  4881						LOOP	HRROI2,HRROI3^
  4882	035412	367 07 0 00 035376 		SOJG	AC-1,HRROI2		;ITERATION COUNTER
  4883	035413	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4884	035414	321 07 0 00 035403 		JUMPL	AC-1,HRROI3		;LOOP ON ERROR SWITCH ^
  4885
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 105
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0136

  4886
  4887
  4888					;TEST HRROM.  CHECK C(E) FOR CORRECT DATA.
  4889					;RAN TO RAN1
  4890
  4891
  4892			000010			AC=10
  4893	035415				HRROM1:	SETUP	200,0^
  4894			000011			AC1=<AC+1>&17
  4895			000012			AC2=<AC+2>&17
  4896			000013			AC3=<AC+3>&17
  4897			000014			AC4=<AC+4>&17
  4898			000015			AC5=<AC+5>&17
  4899			000006			RAN1=<AC-2>&17
  4900	035415	201 07 0 00 035415 		MOVEI	AC-1,.
  4901	035416	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4902	035417	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4903	035420	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4904	035421	201 07 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  4905	035422	240 07 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4906	035423	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4907	035424				HRROM2:	RANDOM^
  4908	035424	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4909	035425	270 10 0 00 040071 		ADD	AC,[142536475076]
  4910	035426	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4911	035427	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4912	035430	200 12 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  4913	035431	241 10 0 00 000011 	HRROM3:	ROT	AC,11		;C(E)=SECOND RAN NUM
  4914	035432	200 06 0 00 000010 		MOVE	RAN1,AC		;SAVE C(E) IN CASE OF ERROR
  4915	035433	200 11 0 00 040201 		MOVE	AC1,RAN		;SIMULATE
  4916	035434	661 11 0 00 777777 		TLO	AC1,-1		;A HRROM
  4917	035435	562 12 0 00 000010 		HRROM	AC2,AC		;DO HRROM.
  4918	035436	312 11 0 00 000010 		CAME	AC1,AC		;C(E) SHOULD=SIM. ANS
  4919	035437	002 06 0 00 040201 		ERRM	RAN1,RAN
  4920						LOOP	HRROM2,HRROM3^
  4921	035440	367 07 0 00 035424 		SOJG	AC-1,HRROM2		;ITERATION COUNTER
  4922	035441	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4923	035442	321 07 0 00 035431 		JUMPL	AC-1,HRROM3		;LOOP ON ERROR SWITCH ^
  4924
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 106
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0137

  4925
  4926
  4927					;TEST HRROS.  CHECK C(E) FOR CORRECT DATA, AND
  4928					;CORRECT STORING OF C(E) INTO AC.
  4929					;RAN TO RAN
  4930
  4931
  4932			000002			AC=2
  4933	035443				HRROS1:	SETUP	200,0^
  4934			000003			AC1=<AC+1>&17
  4935			000004			AC2=<AC+2>&17
  4936			000005			AC3=<AC+3>&17
  4937			000006			AC4=<AC+4>&17
  4938			000007			AC5=<AC+5>&17
  4939			000000			RAN1=<AC-2>&17
  4940	035443	201 01 0 00 035443 		MOVEI	AC-1,.
  4941	035444	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4942	035445	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4943	035446	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4944	035447	201 01 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  4945	035450	240 01 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4946	035451	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4947	035452				HRROS2:	RANDOM^
  4948	035452	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4949	035453	270 02 0 00 040071 		ADD	AC,[142536475076]
  4950	035454	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4951	035455	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4952	035456	477 03 0 00 000000 	HRROS3:	SETOB	AC1,RAN1	;SET C(AC) TO A -1
  4953	035457	200 04 0 00 000002 		MOVE	AC2,AC		;SIMULATE
  4954	035460	661 04 0 00 777777 		TLO	AC2,-1		;A HRROS
  4955	035461	563 03 0 00 000002 		HRROS	AC1,AC		;DO HRROS
  4956	035462	312 03 0 00 000002 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER HRROS
  4957	035463	012 00 0 00 000000 		EERRM	,RAN1
  4958	035464	312 04 0 00 000002 		CAME	AC2,AC		;C(E) SHOULD=SIM. ANS
  4959	035465	012 00 0 00 000000 		EERRM	,RAN1
  4960						LOOP	HRROS2,HRROS3^
  4961	035466	367 01 0 00 035452 		SOJG	AC-1,HRROS2		;ITERATION COUNTER
  4962	035467	200 02 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4963	035470	321 01 0 00 035456 		JUMPL	AC-1,HRROS3		;LOOP ON ERROR SWITCH ^
  4964
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 107
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0138

  4965
  4966
  4967					;TEST HRLO.  CHECK C(AC) FOR CORRECT DATA
  4968					;RAN TO RAN1
  4969
  4970
  4971			000003			AC=3
  4972	035471				HRLO1:	SETUP	200,1^
  4973			000004			AC1=<AC+1>&17
  4974			000005			AC2=<AC+2>&17
  4975			000006			AC3=<AC+3>&17
  4976			000007			AC4=<AC+4>&17
  4977			000010			AC5=<AC+5>&17
  4978			000001			RAN1=<AC-2>&17
  4979	035471	201 02 0 00 035471 		MOVEI	AC-1,.
  4980	035472	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4981	035473	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4982	035474	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4983	035475	201 02 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  4984	035476	240 02 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  4985	035477	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4986	035500				HRLO2:	RANDOM^
  4987	035500	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4988	035501	270 03 0 00 040071 		ADD	AC,[142536475076]
  4989	035502	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4990	035503	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  4991	035504	200 05 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  4992	035505	241 03 0 00 000011 	HRLO3:	ROT	AC,11		;C(AC)=SECOND RAN NUM
  4993	035506	200 01 0 00 000003 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  4994	035507	205 04 0 05 000000 		MOVSI	AC1,(AC2)	;SIMULATE
  4995	035510	660 04 0 00 777777 		TRO	AC1,-1		;A HRLO
  4996	035511	524 03 0 00 040201 		HRLO	AC,RAN		;DO HRLO
  4997	035512	312 03 0 00 000004 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  4998	035513	001 05 0 00 000001 		ERR	AC2,RAN1
  4999						LOOP	HRLO2,HRLO3^
  5000	035514	367 02 0 00 035500 		SOJG	AC-1,HRLO2		;ITERATION COUNTER
  5001	035515	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5002	035516	321 02 0 00 035505 		JUMPL	AC-1,HRLO3		;LOOP ON ERROR SWITCH ^
  5003
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 108
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0139

  5004
  5005
  5006					;TEST HRLOI.  CHECK C(AC) FOR CORRECT DATA
  5007					;RAN TO RAN1
  5008
  5009
  5010			000002			AC=2
  5011	035517				HRLOI1:	SETUP	200,1^
  5012			000003			AC1=<AC+1>&17
  5013			000004			AC2=<AC+2>&17
  5014			000005			AC3=<AC+3>&17
  5015			000006			AC4=<AC+4>&17
  5016			000007			AC5=<AC+5>&17
  5017			000000			RAN1=<AC-2>&17
  5018	035517	201 01 0 00 035517 		MOVEI	AC-1,.
  5019	035520	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5020	035521	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5021	035522	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5022	035523	201 01 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5023	035524	240 01 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5024	035525	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5025	035526				HRLOI2:	RANDOM^
  5026	035526	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5027	035527	270 02 0 00 040071 		ADD	AC,[142536475076]
  5028	035530	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5029	035531	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5030	035532	200 04 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  5031	035533	241 02 0 00 000011 	HRLOI3:	ROT	AC,11		;C(AC)=SECOND RANDOM NUM
  5032	035534	200 00 0 00 000002 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  5033	035535	205 03 0 04 000000 		MOVSI	AC1,(AC2)	;SIMULATE
  5034	035536	660 03 0 00 777777 		TRO	AC1,-1		;A HRLOI
  5035	035537	525 02 0 04 000000 		HRLOI	AC,(AC2)	;DO HRLOI.
  5036	035540	312 02 0 00 000003 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  5037	035541	003 00 0 04 000000 		ERRI	RAN1,(AC2)
  5038						LOOP	HRLOI2,HRLOI3^
  5039	035542	367 01 0 00 035526 		SOJG	AC-1,HRLOI2		;ITERATION COUNTER
  5040	035543	200 02 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5041	035544	321 01 0 00 035533 		JUMPL	AC-1,HRLOI3		;LOOP ON ERROR SWITCH ^
  5042
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 109
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0140

  5043
  5044
  5045					;TEST HRLOM.  CHECK C(E) FOR CORRECT DATA
  5046					;RAN TO RAN1
  5047
  5048
  5049			000003			AC=3
  5050	035545				HRLOM1:	SETUP	200,1^
  5051			000004			AC1=<AC+1>&17
  5052			000005			AC2=<AC+2>&17
  5053			000006			AC3=<AC+3>&17
  5054			000007			AC4=<AC+4>&17
  5055			000010			AC5=<AC+5>&17
  5056			000001			RAN1=<AC-2>&17
  5057	035545	201 02 0 00 035545 		MOVEI	AC-1,.
  5058	035546	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5059	035547	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5060	035550	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5061	035551	201 02 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5062	035552	240 02 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5063	035553	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5064	035554				HRLOM2:	RANDOM^
  5065	035554	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5066	035555	270 03 0 00 040071 		ADD	AC,[142536475076]
  5067	035556	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5068	035557	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5069	035560	200 05 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  5070	035561	241 03 0 00 000011 	HRLOM3:	ROT	AC,11		;C(E)=SECOND RAN. NUM
  5071	035562	200 01 0 00 000003 		MOVE	RAN1,AC		;SAVE C(E) IN CASE OF ERROR
  5072	035563	205 04 0 05 000000 		MOVSI	AC1,(AC2)	;SIMULATE
  5073	035564	660 04 0 00 777777 		TRO	AC1,-1		;A HRLOM
  5074	035565	526 05 0 00 000003 		HRLOM	AC2,AC		;DO HRLOM.
  5075	035566	312 04 0 00 000003 		CAME	AC1,AC		;C(E) SHOULD=SIM. ANS
  5076	035567	002 01 0 00 040201 		ERRM	RAN1,RAN
  5077						LOOP	HRLOM2,HRLOM3^
  5078	035570	367 02 0 00 035554 		SOJG	AC-1,HRLOM2		;ITERATION COUNTER
  5079	035571	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5080	035572	321 02 0 00 035561 		JUMPL	AC-1,HRLOM3		;LOOP ON ERROR SWITCH ^
  5081
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 110
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0141

  5082
  5083
  5084					;TEST HRLOS.  CHECK C(E) FOR CORRECT DATA AND IF
  5085					;C(AC) IS BEING LOADED WITH C(E) FOR RAN TO RAN CONDITION.
  5086
  5087
  5088			000004			AC=4
  5089	035573				HRLOS1:	SETUP	200,1^
  5090			000005			AC1=<AC+1>&17
  5091			000006			AC2=<AC+2>&17
  5092			000007			AC3=<AC+3>&17
  5093			000010			AC4=<AC+4>&17
  5094			000011			AC5=<AC+5>&17
  5095			000002			RAN1=<AC-2>&17
  5096	035573	201 03 0 00 035573 		MOVEI	AC-1,.
  5097	035574	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5098	035575	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5099	035576	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5100	035577	201 03 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5101	035600	240 03 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5102	035601	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5103	035602				HRLOS2:	RANDOM^
  5104	035602	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5105	035603	270 04 0 00 040071 		ADD	AC,[142536475076]
  5106	035604	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5107	035605	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5108	035606	477 05 0 00 000002 	HRLOS3:	SETOB	AC1,RAN1	;SET C(AC) TO A -1
  5109	035607	205 06 0 04 000000 		MOVSI	AC2,(AC)	;SIMULATE
  5110	035610	660 06 0 00 777777 		TRO	AC2,-1		;A HRLOS
  5111	035611	527 05 0 00 000004 		HRLOS	AC1,AC		;DO HRLOS
  5112	035612	312 05 0 00 000004 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER HRLOS
  5113	035613	012 00 0 00 000002 		EERRM	,RAN1
  5114	035614	312 06 0 00 000004 		CAME	AC2,AC		;C(E) SHOULD=SIM. ANS
  5115	035615	012 00 0 00 000002 		EERRM	,RAN1
  5116						LOOP	HRLOS2,HRLOS3^
  5117	035616	367 03 0 00 035602 		SOJG	AC-1,HRLOS2		;ITERATION COUNTER
  5118	035617	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5119	035620	321 03 0 00 035606 		JUMPL	AC-1,HRLOS3		;LOOP ON ERROR SWITCH ^
  5120
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 111
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0142

  5121
  5122
  5123					;TEST HLLE.  CHECK C(AC) FOR CORRECT DATA
  5124					;RAN TO RAN1.
  5125
  5126
  5127			000005			AC=5
  5128	035621				HLLE1:	SETUP	200,2^
  5129			000006			AC1=<AC+1>&17
  5130			000007			AC2=<AC+2>&17
  5131			000010			AC3=<AC+3>&17
  5132			000011			AC4=<AC+4>&17
  5133			000012			AC5=<AC+5>&17
  5134			000003			RAN1=<AC-2>&17
  5135	035621	201 04 0 00 035621 		MOVEI	AC-1,.
  5136	035622	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5137	035623	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5138	035624	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5139	035625	201 04 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5140	035626	240 04 1 00 030667 		ASH	AC-1,@CMPLXT+2	;ROUTINE COMPLEXITY
  5141	035627	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5142	035630				HLLE2:	RANDOM^
  5143	035630	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5144	035631	270 05 0 00 040071 		ADD	AC,[142536475076]
  5145	035632	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5146	035633	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5147	035634	200 07 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  5148	035635	241 05 0 00 000011 	HLLE3:	ROT	AC,11		;C(AC)=SECOND RAN. NUM
  5149	035636	200 03 0 00 000005 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  5150	035637	200 06 0 00 040201 		MOVE	AC1,RAN		;SIMULATE
  5151	035640	620 06 0 00 777777 		TRZ	AC1,-1		;A
  5152	035641	603 07 0 00 400000 		TLNE	AC2,400000	;HLLE
  5153	035642	660 06 0 00 777777 		TRO	AC1,-1		;INST
  5154	035643	530 05 0 00 040201 		HLLE	AC,RAN		;DO HLLE
  5155	035644	312 05 0 00 000006 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  5156	035645	001 07 0 00 000003 		ERR	AC2,RAN1
  5157						LOOP	HLLE2,HLLE3^
  5158	035646	367 04 0 00 035630 		SOJG	AC-1,HLLE2		;ITERATION COUNTER
  5159	035647	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5160	035650	321 04 0 00 035635 		JUMPL	AC-1,HLLE3		;LOOP ON ERROR SWITCH ^
  5161
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 112
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0143

  5162
  5163
  5164					;TEST HLLEI.  CHECK C(AC) FOR 0
  5165					;RAN TO RAN1
  5166
  5167
  5168			000006			AC=6
  5169	035651				HLLEI1:	SETUP	200,2^
  5170			000007			AC1=<AC+1>&17
  5171			000010			AC2=<AC+2>&17
  5172			000011			AC3=<AC+3>&17
  5173			000012			AC4=<AC+4>&17
  5174			000013			AC5=<AC+5>&17
  5175			000004			RAN1=<AC-2>&17
  5176	035651	201 05 0 00 035651 		MOVEI	AC-1,.
  5177	035652	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5178	035653	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5179	035654	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5180	035655	201 05 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5181	035656	240 05 1 00 030667 		ASH	AC-1,@CMPLXT+2	;ROUTINE COMPLEXITY
  5182	035657	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5183	035660				HLLEI2:	RANDOM^
  5184	035660	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5185	035661	270 06 0 00 040071 		ADD	AC,[142536475076]
  5186	035662	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5187	035663	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5188	035664	200 07 0 00 040201 		MOVE	AC1,RAN		;SAVE RAN IN AN AC.
  5189	035665	241 06 0 00 000011 	HLLEI3:	ROT	AC,11		;C(AC)=SECOND RAN NUM
  5190	035666	200 04 0 00 000006 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  5191	035667	531 06 0 07 000000 		HLLEI	AC,(AC1)	;DO HLLEI.
  5192	035670	312 06 0 00 040074 		CAME	AC,[0]		;C(AC) SHOULD=0
  5193	035671	003 04 0 07 000000 		ERRI	RAN1,(AC1)
  5194						LOOP	HLLEI2,HLLEI3^
  5195	035672	367 05 0 00 035660 		SOJG	AC-1,HLLEI2		;ITERATION COUNTER
  5196	035673	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5197	035674	321 05 0 00 035665 		JUMPL	AC-1,HLLEI3		;LOOP ON ERROR SWITCH ^
  5198
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 113
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0144

  5199
  5200
  5201					;TEST HLLEM.  CHECK C(E) FOR CORRECT DATA
  5202					;RAN TO RAN1.
  5203
  5204
  5205			000007			AC=7
  5206	035675				HLLEM1:	SETUP	200,2^
  5207			000010			AC1=<AC+1>&17
  5208			000011			AC2=<AC+2>&17
  5209			000012			AC3=<AC+3>&17
  5210			000013			AC4=<AC+4>&17
  5211			000014			AC5=<AC+5>&17
  5212			000005			RAN1=<AC-2>&17
  5213	035675	201 06 0 00 035675 		MOVEI	AC-1,.
  5214	035676	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5215	035677	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5216	035700	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5217	035701	201 06 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5218	035702	240 06 1 00 030667 		ASH	AC-1,@CMPLXT+2	;ROUTINE COMPLEXITY
  5219	035703	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5220	035704				HLLEM2:	RANDOM^
  5221	035704	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5222	035705	270 07 0 00 040071 		ADD	AC,[142536475076]
  5223	035706	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5224	035707	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5225	035710	200 11 0 00 040201 		MOVE	AC2,RAN		;SAVE AC IN AN AC.
  5226	035711	241 07 0 00 000011 	HLLEM3:	ROT	AC,11		;C(E)=SECOND RANDOM NUMBER
  5227	035712	200 05 0 00 000007 		MOVE	RAN1,AC		;SAVE C(E) IN CASE OF ERROR
  5228	035713	200 10 0 00 040201 		MOVE	AC1,RAN		;SIMULATE
  5229	035714	620 10 0 00 777777 		TRZ	AC1,-1		;A
  5230	035715	603 11 0 00 400000 		TLNE	AC2,400000	;HLLEM
  5231	035716	660 10 0 00 777777 		TRO	AC1,-1		;INST
  5232	035717	532 11 0 00 000007 		HLLEM	AC2,AC		;DO HLLEM.
  5233	035720	312 10 0 00 000007 		CAME	AC1,AC		;C(E) SHOULD=SIM ANS
  5234	035721	002 05 0 00 040201 		ERRM	RAN1,RAN
  5235						LOOP	HLLEM2,HLLEM3^
  5236	035722	367 06 0 00 035704 		SOJG	AC-1,HLLEM2		;ITERATION COUNTER
  5237	035723	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5238	035724	321 06 0 00 035711 		JUMPL	AC-1,HLLEM3		;LOOP ON ERROR SWITCH ^
  5239
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 114
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0145

  5240
  5241
  5242					;TEST HLLES.  CHECK C(E) FOR CORRECT DATA AND
  5243					;PROPER STORING THE C(E) INTO C(AC) FOR RAN TO RAN CONDITION
  5244
  5245
  5246			000010			AC=10
  5247	035725				HLLES1:	SETUP	200,2^
  5248			000011			AC1=<AC+1>&17
  5249			000012			AC2=<AC+2>&17
  5250			000013			AC3=<AC+3>&17
  5251			000014			AC4=<AC+4>&17
  5252			000015			AC5=<AC+5>&17
  5253			000006			RAN1=<AC-2>&17
  5254	035725	201 07 0 00 035725 		MOVEI	AC-1,.
  5255	035726	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5256	035727	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5257	035730	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5258	035731	201 07 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5259	035732	240 07 1 00 030667 		ASH	AC-1,@CMPLXT+2	;ROUTINE COMPLEXITY
  5260	035733	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5261	035734				HLLES2:	RANDOM^
  5262	035734	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5263	035735	270 10 0 00 040071 		ADD	AC,[142536475076]
  5264	035736	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5265	035737	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5266	035740	477 11 0 00 000006 	HLLES3:	SETOB	AC1,RAN1	;SET C(AC)=-1
  5267	035741	200 12 0 00 000010 		MOVE	AC2,AC		;SIMULATE
  5268	035742	620 12 0 00 777777 		TRZ	AC2,-1		;A
  5269	035743	603 10 0 00 400000 		TLNE	AC,400000	;HLLES
  5270	035744	660 12 0 00 777777 		TRO	AC2,-1		;INST
  5271	035745	533 11 0 00 000010 		HLLES	AC1,AC		;DO HLLES
  5272	035746	312 11 0 00 000010 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER HLLES
  5273	035747	012 00 0 00 000006 		EERRM	,RAN1
  5274	035750	312 12 0 00 000010 		CAME	AC2,AC		;C(E) SHOULD= SIM. ANS
  5275	035751	012 00 0 00 000006 		EERRM	,RAN1
  5276						LOOP	HLLES2,HLLES3^
  5277	035752	367 07 0 00 035734 		SOJG	AC-1,HLLES2		;ITERATION COUNTER
  5278	035753	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5279	035754	321 07 0 00 035740 		JUMPL	AC-1,HLLES3		;LOOP ON ERROR SWITCH ^
  5280
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 115
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0146

  5281
  5282
  5283					;TEST HRRE.  CHECK C(AC) FOR CORRECT DATA
  5284					;RAN TO RAN1.
  5285
  5286
  5287			000011			AC=11
  5288	035755				HRRE1:	SETUP	200,2^
  5289			000012			AC1=<AC+1>&17
  5290			000013			AC2=<AC+2>&17
  5291			000014			AC3=<AC+3>&17
  5292			000015			AC4=<AC+4>&17
  5293			000016			AC5=<AC+5>&17
  5294			000007			RAN1=<AC-2>&17
  5295	035755	201 10 0 00 035755 		MOVEI	AC-1,.
  5296	035756	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5297	035757	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5298	035760	202 10 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5299	035761	201 10 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5300	035762	240 10 1 00 030667 		ASH	AC-1,@CMPLXT+2	;ROUTINE COMPLEXITY
  5301	035763	240 10 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5302	035764				HRRE2:	RANDOM^
  5303	035764	200 11 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5304	035765	270 11 0 00 040071 		ADD	AC,[142536475076]
  5305	035766	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5306	035767	447 11 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5307	035770	200 13 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  5308	035771	241 11 0 00 000011 	HRRE3:	ROT	AC,11		;C(AC)=SECOND RAN NUM
  5309	035772	200 07 0 00 000011 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  5310	035773	200 12 0 00 040201 		MOVE	AC1,RAN		;SIMULATE
  5311	035774	621 12 0 00 777777 		TLZ	AC1,-1		;A
  5312	035775	602 13 0 00 400000 		TRNE	AC2,400000	;HRRE
  5313	035776	661 12 0 00 777777 		TLO	AC1,-1		;INST
  5314	035777	570 11 0 00 040201 		HRRE	AC,RAN		;DO HRRE
  5315	036000	312 11 0 00 000012 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  5316	036001	001 13 0 00 000007 		ERR	AC2,RAN1
  5317						LOOP	HRRE2,HRRE3^
  5318	036002	367 10 0 00 035764 		SOJG	AC-1,HRRE2		;ITERATION COUNTER
  5319	036003	200 11 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5320	036004	321 10 0 00 035771 		JUMPL	AC-1,HRRE3		;LOOP ON ERROR SWITCH ^
  5321
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 116
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0147

  5322
  5323
  5324					;TEST HRREI. CHECK C(AC) FOR CORRECT DATA
  5325					;RAN TO RAN1
  5326
  5327
  5328			000004			AC=4
  5329	036005				HRREI1:	SETUP	200,2^
  5330			000005			AC1=<AC+1>&17
  5331			000006			AC2=<AC+2>&17
  5332			000007			AC3=<AC+3>&17
  5333			000010			AC4=<AC+4>&17
  5334			000011			AC5=<AC+5>&17
  5335			000002			RAN1=<AC-2>&17
  5336	036005	201 03 0 00 036005 		MOVEI	AC-1,.
  5337	036006	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5338	036007	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5339	036010	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5340	036011	201 03 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5341	036012	240 03 1 00 030667 		ASH	AC-1,@CMPLXT+2	;ROUTINE COMPLEXITY
  5342	036013	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5343	036014				HRREI2:	RANDOM^
  5344	036014	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5345	036015	270 04 0 00 040071 		ADD	AC,[142536475076]
  5346	036016	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5347	036017	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5348	036020	200 06 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  5349	036021	241 04 0 00 000011 	HRREI3:	ROT	AC,11		;C(AC)=SECOND RANDOM NUM
  5350	036022	200 02 0 00 000004 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  5351	036023	200 05 0 00 040201 		MOVE	AC1,RAN		;SIMULATE
  5352	036024	621 05 0 00 777777 		TLZ	AC1,-1		;A
  5353	036025	602 06 0 00 400000 		TRNE	AC2,400000	;HRREI
  5354	036026	661 05 0 00 777777 		TLO	AC1,-1		;INST
  5355	036027	571 04 0 06 000000 		HRREI	AC,(AC2)	;DO HRREI.
  5356	036030	312 04 0 00 000005 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  5357	036031	003 02 0 06 000000 		ERRI	RAN1,(AC2)
  5358						LOOP	HRREI2,HRREI3^
  5359	036032	367 03 0 00 036014 		SOJG	AC-1,HRREI2		;ITERATION COUNTER
  5360	036033	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5361	036034	321 03 0 00 036021 		JUMPL	AC-1,HRREI3		;LOOP ON ERROR SWITCH ^
  5362
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 117
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0148

  5363
  5364
  5365					;TEST HRREM  CHECK C(E) FOR CORRECT DATA
  5366					;RAN TO RAN1
  5367
  5368
  5369			000005			AC=5
  5370	036035				HRREM1:	SETUP	200,2^
  5371			000006			AC1=<AC+1>&17
  5372			000007			AC2=<AC+2>&17
  5373			000010			AC3=<AC+3>&17
  5374			000011			AC4=<AC+4>&17
  5375			000012			AC5=<AC+5>&17
  5376			000003			RAN1=<AC-2>&17
  5377	036035	201 04 0 00 036035 		MOVEI	AC-1,.
  5378	036036	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5379	036037	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5380	036040	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5381	036041	201 04 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5382	036042	240 04 1 00 030667 		ASH	AC-1,@CMPLXT+2	;ROUTINE COMPLEXITY
  5383	036043	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5384	036044				HRREM2:	RANDOM^
  5385	036044	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5386	036045	270 05 0 00 040071 		ADD	AC,[142536475076]
  5387	036046	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5388	036047	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5389	036050	200 07 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  5390	036051	241 05 0 00 000011 	HRREM3:	ROT	AC,11		;C(E)=SECOND RAN NUMBER
  5391	036052	200 03 0 00 000005 		MOVE	RAN1,AC		;SAVE C(E) IN CASE OF ERROR
  5392	036053	200 06 0 00 040201 		MOVE	AC1,RAN		;SIMULATE
  5393	036054	621 06 0 00 777777 		TLZ	AC1,-1		;A
  5394	036055	602 07 0 00 400000 		TRNE	AC2,400000	;HRREM
  5395	036056	661 06 0 00 777777 		TLO	AC1,-1		;INST
  5396	036057	572 07 0 00 000005 		HRREM	AC2,AC		;DO HRREM.
  5397	036060	312 06 0 00 000005 		CAME	AC1,AC		;C(E) SHOULD=SIM. ANS
  5398	036061	002 03 0 00 040201 		ERRM	RAN1,RAN
  5399						LOOP	HRREM2,HRREM3^
  5400	036062	367 04 0 00 036044 		SOJG	AC-1,HRREM2		;ITERATION COUNTER
  5401	036063	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5402	036064	321 04 0 00 036051 		JUMPL	AC-1,HRREM3		;LOOP ON ERROR SWITCH ^
  5403
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 118
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0149

  5404
  5405
  5406					;TEST HRRES.  CHECK C(E) FOR CORRECT DATA AND
  5407					;PROPER STORING OF C(E) INTO AC FOR RAN TO RAN CONDITION
  5408
  5409
  5410			000006			AC=6
  5411	036065				HRRES1:	SETUP	200,2^
  5412			000007			AC1=<AC+1>&17
  5413			000010			AC2=<AC+2>&17
  5414			000011			AC3=<AC+3>&17
  5415			000012			AC4=<AC+4>&17
  5416			000013			AC5=<AC+5>&17
  5417			000004			RAN1=<AC-2>&17
  5418	036065	201 05 0 00 036065 		MOVEI	AC-1,.
  5419	036066	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5420	036067	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5421	036070	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5422	036071	201 05 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5423	036072	240 05 1 00 030667 		ASH	AC-1,@CMPLXT+2	;ROUTINE COMPLEXITY
  5424	036073	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5425	036074				HRRES2:	RANDOM^
  5426	036074	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5427	036075	270 06 0 00 040071 		ADD	AC,[142536475076]
  5428	036076	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5429	036077	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5430	036100	477 07 0 00 000004 	HRRES3:	SETOB	AC1,RAN1	;SET C(AC) TO -1
  5431	036101	200 10 0 00 000006 		MOVE	AC2,AC		;SIMULATE
  5432	036102	621 10 0 00 777777 		TLZ	AC2,-1		;A
  5433	036103	602 06 0 00 400000 		TRNE	AC,400000	;HRRES
  5434	036104	661 10 0 00 777777 		TLO	AC2,-1		;INST
  5435	036105	573 07 0 00 000006 		HRRES	AC1,AC		;DO HRRES
  5436	036106	312 07 0 00 000006 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER HRRES
  5437	036107	012 00 0 00 000004 		EERRM	,RAN1
  5438	036110	312 10 0 00 000006 		CAME	AC2,AC		;C(E) SHOULD = SIM. ANS.
  5439	036111	012 00 0 00 000004 		EERRM	,RAN1
  5440						LOOP	HRRES2,HRRES3^
  5441	036112	367 05 0 00 036074 		SOJG	AC-1,HRRES2		;ITERATION COUNTER
  5442	036113	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5443	036114	321 05 0 00 036100 		JUMPL	AC-1,HRRES3		;LOOP ON ERROR SWITCH ^
  5444
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 119
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0150

  5445
  5446
  5447					;TEST HRLZ.  CHECK C(AC) FOR CORRECT DATA
  5448					;RAN TO RAN1.
  5449
  5450
  5451			000007			AC=7
  5452	036115				HRLZ1:	SETUP	200,1^
  5453			000010			AC1=<AC+1>&17
  5454			000011			AC2=<AC+2>&17
  5455			000012			AC3=<AC+3>&17
  5456			000013			AC4=<AC+4>&17
  5457			000014			AC5=<AC+5>&17
  5458			000005			RAN1=<AC-2>&17
  5459	036115	201 06 0 00 036115 		MOVEI	AC-1,.
  5460	036116	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5461	036117	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5462	036120	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5463	036121	201 06 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5464	036122	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5465	036123	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5466	036124				HRLZ2:	RANDOM^
  5467	036124	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5468	036125	270 07 0 00 040071 		ADD	AC,[142536475076]
  5469	036126	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5470	036127	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5471	036130	200 11 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  5472	036131	241 07 0 00 000011 	HRLZ3:	ROT	AC,11		;C(AC)=SECOND RAN. NUM
  5473	036132	200 05 0 00 000007 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR.
  5474	036133	205 10 0 11 000000 		MOVSI	AC1,(AC2)	;SIMULATE A HRLZ INST.
  5475	036134	514 07 0 00 040201 		HRLZ	AC,RAN		;DO HRLZ
  5476	036135	312 07 0 00 000010 		CAME	AC,AC1		;C(E) SHOULD=SIM.ANS
  5477	036136	001 11 0 00 000005 		ERR	AC2,RAN1
  5478						LOOP	HRLZ2,HRLZ3^
  5479	036137	367 06 0 00 036124 		SOJG	AC-1,HRLZ2		;ITERATION COUNTER
  5480	036140	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5481	036141	321 06 0 00 036131 		JUMPL	AC-1,HRLZ3		;LOOP ON ERROR SWITCH ^
  5482
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 120
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0151

  5483
  5484
  5485					;TEST HRLZI.  CHECK C(AC) FOR CORRECT DATA
  5486					;RAN TO RAN1
  5487
  5488
  5489			000010			AC=10
  5490	036142				HRLZI1:	SETUP	200,1^
  5491			000011			AC1=<AC+1>&17
  5492			000012			AC2=<AC+2>&17
  5493			000013			AC3=<AC+3>&17
  5494			000014			AC4=<AC+4>&17
  5495			000015			AC5=<AC+5>&17
  5496			000006			RAN1=<AC-2>&17
  5497	036142	201 07 0 00 036142 		MOVEI	AC-1,.
  5498	036143	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5499	036144	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5500	036145	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5501	036146	201 07 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5502	036147	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5503	036150	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5504	036151				HRLZI2:	RANDOM^
  5505	036151	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5506	036152	270 10 0 00 040071 		ADD	AC,[142536475076]
  5507	036153	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5508	036154	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5509	036155	200 13 0 00 040201 		MOVE	AC3,RAN		;SAVE RAN IN AN AC.
  5510	036156	241 10 0 00 000011 	HRLZI3:	ROT	AC,11		;C(AC)=SECOND RAN. NUM
  5511	036157	200 06 0 00 000010 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  5512	036160	205 11 0 13 000000 		MOVSI	AC1,(AC3)	;SIMULATE A HRLZI INST.
  5513	036161	515 10 0 13 000000 		HRLZI	AC,(AC3)	;DO HRLZI.
  5514	036162	312 10 0 00 000011 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  5515	036163	003 06 0 13 000000 		ERRI	RAN1,(AC3)
  5516						LOOP	HRLZI2,HRLZI3^
  5517	036164	367 07 0 00 036151 		SOJG	AC-1,HRLZI2		;ITERATION COUNTER
  5518	036165	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5519	036166	321 07 0 00 036156 		JUMPL	AC-1,HRLZI3		;LOOP ON ERROR SWITCH ^
  5520
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 121
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0152

  5521
  5522
  5523					;TEST HRLZM. CHECK C(E) FOR CORRECT DATA.
  5524					;RAN TO RAN1
  5525
  5526
  5527			000010			AC=10
  5528	036167				HRLZM1:	SETUP	200,1^
  5529			000011			AC1=<AC+1>&17
  5530			000012			AC2=<AC+2>&17
  5531			000013			AC3=<AC+3>&17
  5532			000014			AC4=<AC+4>&17
  5533			000015			AC5=<AC+5>&17
  5534			000006			RAN1=<AC-2>&17
  5535	036167	201 07 0 00 036167 		MOVEI	AC-1,.
  5536	036170	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5537	036171	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5538	036172	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5539	036173	201 07 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5540	036174	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5541	036175	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5542	036176				HRLZM2:	RANDOM^
  5543	036176	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5544	036177	270 10 0 00 040071 		ADD	AC,[142536475076]
  5545	036200	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5546	036201	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5547	036202	200 12 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  5548	036203	241 10 0 00 000011 	HRLZM3:	ROT	AC,11		;C(E)=SECOND RAN. NUM
  5549	036204	200 06 0 00 000010 		MOVE	RAN1,AC		;SAVE C(E) IN CASE OF ERROR
  5550	036205	205 11 0 12 000000 		MOVSI	AC1,(AC2)	;SIMULATE A HRLZM INST.
  5551	036206	516 12 0 00 000010 		HRLZM	AC2,AC		;DO HRLZM.
  5552	036207	312 11 0 00 000010 		CAME	AC1,AC		;C(E) SHOULD=SIM. ANS.
  5553	036210	002 06 0 00 040201 		ERRM	RAN1,RAN
  5554						LOOP	HRLZM2,HRLZM3^
  5555	036211	367 07 0 00 036176 		SOJG	AC-1,HRLZM2		;ITERATION COUNTER
  5556	036212	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5557	036213	321 07 0 00 036203 		JUMPL	AC-1,HRLZM3		;LOOP ON ERROR SWITCH ^
  5558
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 122
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0153

  5559
  5560
  5561					;TEST HRLZS.  CHECK C(E) FOR CORRECT DATA AND
  5562					;PROPER STORING OF C(E) INTO AC FOR RAN TO RAN CONDITION
  5563
  5564
  5565			000002			AC=2
  5566	036214				HRLZS1:	SETUP	200,1^
  5567			000003			AC1=<AC+1>&17
  5568			000004			AC2=<AC+2>&17
  5569			000005			AC3=<AC+3>&17
  5570			000006			AC4=<AC+4>&17
  5571			000007			AC5=<AC+5>&17
  5572			000000			RAN1=<AC-2>&17
  5573	036214	201 01 0 00 036214 		MOVEI	AC-1,.
  5574	036215	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5575	036216	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5576	036217	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5577	036220	201 01 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5578	036221	240 01 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5579	036222	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5580	036223				HRLZS2:	RANDOM^
  5581	036223	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5582	036224	270 02 0 00 040071 		ADD	AC,[142536475076]
  5583	036225	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5584	036226	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5585	036227	200 05 0 00 040201 		MOVE	AC3,RAN		;SAVE RAN IN AN AC.
  5586	036230	477 03 0 00 000000 	HRLZS3:	SETOB	AC1,RAN1	;SET C(AC) TO -1
  5587	036231	205 04 0 05 000000 		MOVSI	AC2,(AC3)	;SIMULATE A HRLZ INST.
  5588	036232	517 03 0 00 000002 		HRLZS	AC1,AC		;DO HRLZS
  5589	036233	312 03 0 00 000002 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER HRLZS
  5590	036234	002 05 0 00 000000 		ERRM	AC3,RAN1
  5591	036235	312 04 0 00 000002 		CAME	AC2,AC		;C(E) SHOULD=SIM ANS
  5592	036236	002 05 0 00 000000 		ERRM	AC3,RAN1
  5593						LOOP	HRLZS2,HRLZS3^
  5594	036237	367 01 0 00 036223 		SOJG	AC-1,HRLZS2		;ITERATION COUNTER
  5595	036240	200 02 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5596	036241	321 01 0 00 036230 		JUMPL	AC-1,HRLZS3		;LOOP ON ERROR SWITCH ^
  5597
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 123
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0154

  5598
  5599
  5600					;TEST HLRZ CHECK C(AC) FOR CORRECT DATA
  5601					;RAN TO RAN1
  5602
  5603
  5604			000003			AC=3
  5605	036242				HLRZ1:	SETUP	200,1^
  5606			000004			AC1=<AC+1>&17
  5607			000005			AC2=<AC+2>&17
  5608			000006			AC3=<AC+3>&17
  5609			000007			AC4=<AC+4>&17
  5610			000010			AC5=<AC+5>&17
  5611			000001			RAN1=<AC-2>&17
  5612	036242	201 02 0 00 036242 		MOVEI	AC-1,.
  5613	036243	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5614	036244	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5615	036245	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5616	036246	201 02 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5617	036247	240 02 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5618	036250	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5619	036251				HLRZ2:	RANDOM^
  5620	036251	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5621	036252	270 03 0 00 040071 		ADD	AC,[142536475076]
  5622	036253	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5623	036254	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5624	036255	241 03 0 00 000011 	HLRZ3:	ROT	AC,11		;C(AC)=SECOND RAN. NUM
  5625	036256	200 01 0 00 000003 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  5626	036257	204 04 0 00 040201 		MOVS	AC1,RAN		;SIMULATE
  5627	036260	621 04 0 00 777777 		TLZ	AC1,-1		;A HLRZ INST.
  5628	036261	554 03 0 00 040201 		HLRZ	AC,RAN		;DO HLRZ
  5629	036262	312 03 0 00 000004 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS.
  5630	036263	011 00 0 00 000001 		EERR	,RAN1
  5631						LOOP	HLRZ2,HLRZ3^
  5632	036264	367 02 0 00 036251 		SOJG	AC-1,HLRZ2		;ITERATION COUNTER
  5633	036265	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5634	036266	321 02 0 00 036255 		JUMPL	AC-1,HLRZ3		;LOOP ON ERROR SWITCH ^
  5635
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 124
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0155

  5636
  5637
  5638					;TEST HLRZI.  CHECK C(AC) FOR 0
  5639					;RAN TO RAN1.
  5640
  5641
  5642			000003			AC=3
  5643	036267				HLRZI1:	SETUP	200,1^
  5644			000004			AC1=<AC+1>&17
  5645			000005			AC2=<AC+2>&17
  5646			000006			AC3=<AC+3>&17
  5647			000007			AC4=<AC+4>&17
  5648			000010			AC5=<AC+5>&17
  5649			000001			RAN1=<AC-2>&17
  5650	036267	201 02 0 00 036267 		MOVEI	AC-1,.
  5651	036270	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5652	036271	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5653	036272	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5654	036273	201 02 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5655	036274	240 02 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5656	036275	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5657	036276				HLRZI2:	RANDOM^
  5658	036276	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5659	036277	270 03 0 00 040071 		ADD	AC,[142536475076]
  5660	036300	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5661	036301	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5662	036302	200 04 0 00 040201 		MOVE	AC1,RAN		;SAVE RAN IN AN AC.
  5663	036303	241 03 0 00 000011 	HLRZI3:	ROT	AC,11		;C(AC)=SECOND RAN. NUM
  5664	036304	200 01 0 00 000003 		MOVE	RAN1,AC		;SAVE C (AC) IN CASE OF ERROR
  5665	036305	555 03 0 04 000000 		HLRZI	AC,(AC1)	;DO HLRZI.
  5666	036306	312 03 0 00 040074 		CAME	AC,[0]		;C(AC) SHOULD=0
  5667	036307	003 01 0 04 000000 		ERRI	RAN1,(AC1)
  5668						LOOP	HLRZI2,HLRZI3^
  5669	036310	367 02 0 00 036276 		SOJG	AC-1,HLRZI2		;ITERATION COUNTER
  5670	036311	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5671	036312	321 02 0 00 036303 		JUMPL	AC-1,HLRZI3		;LOOP ON ERROR SWITCH ^
  5672
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 125
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0156

  5673
  5674
  5675					;TEST HLRZM.  CHECK C(E) FOR CORRECT DATA
  5676					;RAN TO RAN1
  5677
  5678
  5679			000003			AC=3
  5680	036313				HLRZM1:	SETUP	200,1^
  5681			000004			AC1=<AC+1>&17
  5682			000005			AC2=<AC+2>&17
  5683			000006			AC3=<AC+3>&17
  5684			000007			AC4=<AC+4>&17
  5685			000010			AC5=<AC+5>&17
  5686			000001			RAN1=<AC-2>&17
  5687	036313	201 02 0 00 036313 		MOVEI	AC-1,.
  5688	036314	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5689	036315	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5690	036316	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5691	036317	201 02 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5692	036320	240 02 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5693	036321	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5694	036322				HLRZM2:	RANDOM^
  5695	036322	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5696	036323	270 03 0 00 040071 		ADD	AC,[142536475076]
  5697	036324	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5698	036325	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5699	036326	200 05 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  5700	036327	241 03 0 00 000011 	HLRZM3:	ROT	AC,11		;C(E)=SECOND RAN. NUM
  5701	036330	200 01 0 00 000003 		MOVE	RAN1,AC		;SAVE C(E) IN CASE OF ERROR
  5702	036331	204 04 0 00 040201 		MOVS	AC1,RAN		;SIMULATE
  5703	036332	621 04 0 00 777777 		TLZ	AC1,-1		;A HLRZ INST
  5704	036333	556 05 0 00 000003 		HLRZM	AC2,AC		;DO A HLRZM.
  5705	036334	312 04 0 00 000003 		CAME	AC1,AC		;C(E) SHOULD=SIM ANS
  5706	036335	002 01 0 00 040201 		ERRM	RAN1,RAN
  5707						LOOP	HLRZM2,HLRZM3^
  5708	036336	367 02 0 00 036322 		SOJG	AC-1,HLRZM2		;ITERATION COUNTER
  5709	036337	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5710	036340	321 02 0 00 036327 		JUMPL	AC-1,HLRZM3		;LOOP ON ERROR SWITCH ^
  5711
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 126
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0157

  5712
  5713
  5714					;TEST HLRZS. CHECK C(E) FOR CORRECT DATA AND
  5715					;PROPER STORING C(E) INTO AC FOR RAN TO RAN CONDITION
  5716
  5717
  5718			000004			AC=4
  5719	036341				HLRZS1:	SETUP	200,1^
  5720			000005			AC1=<AC+1>&17
  5721			000006			AC2=<AC+2>&17
  5722			000007			AC3=<AC+3>&17
  5723			000010			AC4=<AC+4>&17
  5724			000011			AC5=<AC+5>&17
  5725			000002			RAN1=<AC-2>&17
  5726	036341	201 03 0 00 036341 		MOVEI	AC-1,.
  5727	036342	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5728	036343	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5729	036344	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5730	036345	201 03 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5731	036346	240 03 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5732	036347	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5733	036350				HLRZS2:	RANDOM^
  5734	036350	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5735	036351	270 04 0 00 040071 		ADD	AC,[142536475076]
  5736	036352	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5737	036353	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5738	036354	477 05 0 00 000002 	HLRZS3:	SETOB	AC1,RAN1	;SET C(AC) TO = -1
  5739	036355	204 06 0 00 000004 		MOVS	AC2,AC		;SIMULATE
  5740	036356	621 06 0 00 777777 		TLZ	AC2,-1		;A HLRZ
  5741	036357	557 05 0 00 000004 		HLRZS	AC1,AC		;DO HLRZS
  5742	036360	312 05 0 00 000004 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER HLRZS
  5743	036361	012 00 0 00 000002 		EERRM	,RAN1
  5744	036362	312 06 0 00 000004 		CAME	AC2,AC		;C(E) SHOULD=SIM. ANS.
  5745	036363	012 00 0 00 000002 		EERRM	,RAN1
  5746						LOOP	HLRZS2,HLRZS3^
  5747	036364	367 03 0 00 036350 		SOJG	AC-1,HLRZS2		;ITERATION COUNTER
  5748	036365	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5749	036366	321 03 0 00 036354 		JUMPL	AC-1,HLRZS3		;LOOP ON ERROR SWITCH ^
  5750
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 127
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0158

  5751
  5752
  5753					;TEST HLRO CHECK C(AC) FOR CORRECT DATA
  5754					;RAN TO RAN1
  5755
  5756
  5757			000005			AC=5
  5758	036367				HLRO1:	SETUP	200,1^
  5759			000006			AC1=<AC+1>&17
  5760			000007			AC2=<AC+2>&17
  5761			000010			AC3=<AC+3>&17
  5762			000011			AC4=<AC+4>&17
  5763			000012			AC5=<AC+5>&17
  5764			000003			RAN1=<AC-2>&17
  5765	036367	201 04 0 00 036367 		MOVEI	AC-1,.
  5766	036370	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5767	036371	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5768	036372	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5769	036373	201 04 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5770	036374	240 04 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5771	036375	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5772	036376				HLRO2:	RANDOM^
  5773	036376	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5774	036377	270 05 0 00 040071 		ADD	AC,[142536475076]
  5775	036400	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5776	036401	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5777	036402	241 05 0 00 000011 	HLRO3:	ROT	AC,11
  5778	036403	200 03 0 00 000005 		MOVE	RAN1,AC		;C(AC)=SECOND RAND. NUM
  5779	036404	204 06 0 00 040201 		MOVS	AC1,RAN		;SIMULAE
  5780	036405	661 06 0 00 777777 		TLO	AC1,-1		;A HLRO
  5781	036406	564 05 0 00 040201 		HLRO	AC,RAN		;DO HLRO
  5782	036407	312 05 0 00 000006 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  5783	036410	011 00 0 00 000003 		EERR	,RAN1
  5784						LOOP	HLRO2,HLRO3^
  5785	036411	367 04 0 00 036376 		SOJG	AC-1,HLRO2		;ITERATION COUNTER
  5786	036412	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5787	036413	321 04 0 00 036402 		JUMPL	AC-1,HLRO3		;LOOP ON ERROR SWITCH ^
  5788
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 128
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0159

  5789
  5790
  5791					;TEST HLROI.  CHECK C(AC) FOR CORRECT DATA
  5792					;RAN TO RAN1
  5793
  5794
  5795			000006			AC=6
  5796	036414				HLROI1:	SETUP	200,1^
  5797			000007			AC1=<AC+1>&17
  5798			000010			AC2=<AC+2>&17
  5799			000011			AC3=<AC+3>&17
  5800			000012			AC4=<AC+4>&17
  5801			000013			AC5=<AC+5>&17
  5802			000004			RAN1=<AC-2>&17
  5803	036414	201 05 0 00 036414 		MOVEI	AC-1,.
  5804	036415	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5805	036416	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5806	036417	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5807	036420	201 05 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5808	036421	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5809	036422	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5810	036423				HLROI2:	RANDOM^
  5811	036423	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5812	036424	270 06 0 00 040071 		ADD	AC,[142536475076]
  5813	036425	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5814	036426	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5815	036427	200 10 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  5816	036430	241 06 0 00 000011 	HLROI3:	ROT	AC,11		;C(AC)=SECOND RAN. NUM
  5817	036431	200 04 0 00 000006 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  5818	036432	205 07 0 00 777777 		MOVSI	AC1,-1		;SIMULATE A HLROI
  5819	036433	565 06 0 10 000000 		HLROI	AC,(AC2)	;DO HLROI.
  5820	036434	312 06 0 00 000007 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  5821	036435	003 04 0 10 000000 		ERRI	RAN1,(AC2)
  5822						LOOP	HLROI2,HLROI3^
  5823	036436	367 05 0 00 036423 		SOJG	AC-1,HLROI2		;ITERATION COUNTER
  5824	036437	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5825	036440	321 05 0 00 036430 		JUMPL	AC-1,HLROI3		;LOOP ON ERROR SWITCH ^
  5826
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 129
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0160

  5827
  5828
  5829					;TEST HLROM CHECK C(E) FOR CORRECT DATA.
  5830					;RAN TO RAN1
  5831
  5832
  5833			000007			AC=7
  5834	036441				HLROM1:	SETUP	200,1^
  5835			000010			AC1=<AC+1>&17
  5836			000011			AC2=<AC+2>&17
  5837			000012			AC3=<AC+3>&17
  5838			000013			AC4=<AC+4>&17
  5839			000014			AC5=<AC+5>&17
  5840			000005			RAN1=<AC-2>&17
  5841	036441	201 06 0 00 036441 		MOVEI	AC-1,.
  5842	036442	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5843	036443	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5844	036444	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5845	036445	201 06 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5846	036446	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5847	036447	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5848	036450				HLROM2:	RANDOM^
  5849	036450	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5850	036451	270 07 0 00 040071 		ADD	AC,[142536475076]
  5851	036452	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5852	036453	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5853	036454	200 11 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  5854	036455	241 07 0 00 000011 	HLROM3:	ROT	AC,11		;C(E)=SECOND RAN. NUM
  5855	036456	200 05 0 00 000007 		MOVE	RAN1,AC		;SAVE C(E) IN CASE OF ERROR
  5856	036457	204 10 0 00 040201 		MOVS	AC1,RAN		;SIMULATE
  5857	036460	661 10 0 00 777777 		TLO	AC1,-1		;A HLRO
  5858	036461	566 11 0 00 000007 		HLROM	AC2,AC		;DO HLROM.
  5859	036462	312 10 0 00 000007 		CAME	AC1,AC		;C(E) SHOULD=SIM. ANS
  5860	036463	002 05 0 00 040201 		ERRM	RAN1,RAN
  5861						LOOP	HLROM2,HLROM3^
  5862	036464	367 06 0 00 036450 		SOJG	AC-1,HLROM2		;ITERATION COUNTER
  5863	036465	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5864	036466	321 06 0 00 036455 		JUMPL	AC-1,HLROM3		;LOOP ON ERROR SWITCH ^
  5865
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 130
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0161

  5866
  5867
  5868					;TEST HLROS.  CHECK C(E) FOR CORRECT DATA AND
  5869					;PROPER STORING OF C(E) INTO AC FOR RAN TO RAN CONDITION
  5870
  5871
  5872			000010			AC=10
  5873	036467				HLROS1:	SETUP	200,1^
  5874			000011			AC1=<AC+1>&17
  5875			000012			AC2=<AC+2>&17
  5876			000013			AC3=<AC+3>&17
  5877			000014			AC4=<AC+4>&17
  5878			000015			AC5=<AC+5>&17
  5879			000006			RAN1=<AC-2>&17
  5880	036467	201 07 0 00 036467 		MOVEI	AC-1,.
  5881	036470	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5882	036471	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5883	036472	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5884	036473	201 07 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5885	036474	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5886	036475	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5887	036476				HLROS2:	RANDOM^
  5888	036476	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5889	036477	270 10 0 00 040071 		ADD	AC,[142536475076]
  5890	036500	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5891	036501	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5892	036502	477 11 0 00 000006 	HLROS3:	SETOB	AC1,RAN1	;SET C(AC) TO ALL ONES
  5893	036503	204 12 0 00 000010 		MOVS	AC2,AC		;SIMULATE
  5894	036504	661 12 0 00 777777 		TLO	AC2,-1		;A HLRO
  5895	036505	567 11 0 00 000010 		HLROS	AC1,AC		;DO HLROS
  5896	036506	312 11 0 00 000010 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER HLROS.
  5897	036507	012 00 0 00 000006 		EERRM	,RAN1
  5898	036510	312 12 0 00 000010 		CAME	AC2,AC		;C(E) SHOULD=SIM. ANS
  5899	036511	012 00 0 00 000006 		EERRM	,RAN1
  5900						LOOP	HLROS2,HLROS3^
  5901	036512	367 07 0 00 036476 		SOJG	AC-1,HLROS2		;ITERATION COUNTER
  5902	036513	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5903	036514	321 07 0 00 036502 		JUMPL	AC-1,HLROS3		;LOOP ON ERROR SWITCH ^
  5904
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 131
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0162

  5905
  5906
  5907					;TEST HRLE  CHECK C(AC) FOR CORRECT DATA
  5908					;RAN TO RAN1.
  5909
  5910
  5911			000011			AC=11
  5912	036515				HRLE1:	SETUP	200,4^
  5913			000012			AC1=<AC+1>&17
  5914			000013			AC2=<AC+2>&17
  5915			000014			AC3=<AC+3>&17
  5916			000015			AC4=<AC+4>&17
  5917			000016			AC5=<AC+5>&17
  5918			000007			RAN1=<AC-2>&17
  5919	036515	201 10 0 00 036515 		MOVEI	AC-1,.
  5920	036516	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5921	036517	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5922	036520	202 10 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5923	036521	201 10 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5924	036522	240 10 1 00 030671 		ASH	AC-1,@CMPLXT+4	;ROUTINE COMPLEXITY
  5925	036523	240 10 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5926	036524				HRLE2:	RANDOM^
  5927	036524	200 11 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5928	036525	270 11 0 00 040071 		ADD	AC,[142536475076]
  5929	036526	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5930	036527	447 11 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5931	036530	200 13 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  5932	036531	241 11 0 00 000011 	HRLE3:	ROT	AC,11		;C(AC)=SECOND RAN. NUM
  5933	036532	200 07 0 00 000011 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  5934	036533	204 12 0 00 040201 		MOVS	AC1,RAN		;SIULATE
  5935	036534	620 12 0 00 777777 		TRZ	AC1,-1		;A
  5936	036535	602 13 0 00 400000 		TRNE	AC2,400000	;HRLE
  5937	036536	660 12 0 00 777777 		TRO	AC1,-1		;INST
  5938	036537	534 11 0 00 040201 		HRLE	AC,RAN		;NO HRLE
  5939	036540	312 11 0 00 000012 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  5940	036541	001 13 0 00 000007 		ERR	AC2,RAN1
  5941						LOOP	HRLE2,HRLE3^
  5942	036542	367 10 0 00 036524 		SOJG	AC-1,HRLE2		;ITERATION COUNTER
  5943	036543	200 11 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5944	036544	321 10 0 00 036531 		JUMPL	AC-1,HRLE3		;LOOP ON ERROR SWITCH ^
  5945
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 132
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0163

  5946
  5947
  5948					;TEST HRLEI.  CHECK C(AC) FOR CORRECT DATA
  5949					;RAN TO RAN1
  5950
  5951
  5952			000004			AC=4
  5953	036545				HRLEI1:	SETUP	200,4^
  5954			000005			AC1=<AC+1>&17
  5955			000006			AC2=<AC+2>&17
  5956			000007			AC3=<AC+3>&17
  5957			000010			AC4=<AC+4>&17
  5958			000011			AC5=<AC+5>&17
  5959			000002			RAN1=<AC-2>&17
  5960	036545	201 03 0 00 036545 		MOVEI	AC-1,.
  5961	036546	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5962	036547	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5963	036550	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5964	036551	201 03 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5965	036552	240 03 1 00 030671 		ASH	AC-1,@CMPLXT+4	;ROUTINE COMPLEXITY
  5966	036553	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5967	036554				HRLEI2:	RANDOM^
  5968	036554	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5969	036555	270 04 0 00 040071 		ADD	AC,[142536475076]
  5970	036556	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5971	036557	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  5972	036560	200 06 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  5973	036561	241 04 0 00 000011 	HRLEI3:	ROT	AC,11		;C(AC)=SECOND RAN NUM
  5974	036562	200 02 0 00 000004 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  5975	036563	204 05 0 00 040201 		MOVS	AC1,RAN		;SIMULATE
  5976	036564	620 05 0 00 777777 		TRZ	AC1,-1		;A
  5977	036565	602 06 0 00 400000 		TRNE	AC2,400000	;HRLE
  5978	036566	660 05 0 00 777777 		TRO	AC1,-1		;INST
  5979	036567	535 04 0 06 000000 		HRLEI	AC,(AC2)	;DO HRLEI.
  5980	036570	312 04 0 00 000005 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  5981	036571	003 02 0 06 000000 		ERRI	RAN1,(AC2)
  5982						LOOP	HRLEI2,HRLEI3^
  5983	036572	367 03 0 00 036554 		SOJG	AC-1,HRLEI2		;ITERATION COUNTER
  5984	036573	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5985	036574	321 03 0 00 036561 		JUMPL	AC-1,HRLEI3		;LOOP ON ERROR SWITCH ^
  5986
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 133
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0164

  5987
  5988
  5989					;TEST HRLEM.  CHECK C(E) FOR CORRECT DATA
  5990					;RAN TO RAN1
  5991
  5992
  5993			000005			AC=5
  5994	036575				HRLEM1:	SETUP	200,4^
  5995			000006			AC1=<AC+1>&17
  5996			000007			AC2=<AC+2>&17
  5997			000010			AC3=<AC+3>&17
  5998			000011			AC4=<AC+4>&17
  5999			000012			AC5=<AC+5>&17
  6000			000003			RAN1=<AC-2>&17
  6001	036575	201 04 0 00 036575 		MOVEI	AC-1,.
  6002	036576	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6003	036577	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6004	036600	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6005	036601	201 04 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  6006	036602	240 04 1 00 030671 		ASH	AC-1,@CMPLXT+4	;ROUTINE COMPLEXITY
  6007	036603	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6008	036604				HRLEM2:	RANDOM^
  6009	036604	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6010	036605	270 05 0 00 040071 		ADD	AC,[142536475076]
  6011	036606	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6012	036607	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6013	036610	200 07 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  6014	036611	241 05 0 00 000011 	HRLEM3:	ROT	AC,11		;C(E)=SECOND RAN. NUM
  6015	036612	200 03 0 00 000005 		MOVE	RAN1,AC		;SAVE C(E) IN CASE OF ERROR
  6016	036613	204 06 0 00 040201 		MOVS	AC1,RAN		;SIMULATE
  6017	036614	620 06 0 00 777777 		TRZ	AC1,-1		;A
  6018	036615	602 07 0 00 400000 		TRNE	AC2,400000	;HRLE
  6019	036616	660 06 0 00 777777 		TRO	AC1,-1		;INST
  6020	036617	536 07 0 00 000005 		HRLEM	AC2,AC		;DO HRLEM.
  6021	036620	312 06 0 00 000005 		CAME	AC1,AC		;C(AC) SHOULD=SIM. ANS
  6022	036621	002 03 0 00 040201 		ERRM	RAN1,RAN
  6023						LOOP	HRLEM2,HRLEM3^
  6024	036622	367 04 0 00 036604 		SOJG	AC-1,HRLEM2		;ITERATION COUNTER
  6025	036623	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6026	036624	321 04 0 00 036611 		JUMPL	AC-1,HRLEM3		;LOOP ON ERROR SWITCH ^
  6027
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 134
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0165

  6028
  6029
  6030					;TEST HRLES.  CHECK C(E) FOR CORRECT DATA AND
  6031					;PROPER STORING OF C(E) INTO AC FOR RAN TO RAN CONDITION
  6032
  6033
  6034			000006			AC=6
  6035	036625				HRLES1:	SETUP	200,4^
  6036			000007			AC1=<AC+1>&17
  6037			000010			AC2=<AC+2>&17
  6038			000011			AC3=<AC+3>&17
  6039			000012			AC4=<AC+4>&17
  6040			000013			AC5=<AC+5>&17
  6041			000004			RAN1=<AC-2>&17
  6042	036625	201 05 0 00 036625 		MOVEI	AC-1,.
  6043	036626	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6044	036627	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6045	036630	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6046	036631	201 05 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  6047	036632	240 05 1 00 030671 		ASH	AC-1,@CMPLXT+4	;ROUTINE COMPLEXITY
  6048	036633	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6049	036634				HRLES2:	RANDOM^
  6050	036634	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6051	036635	270 06 0 00 040071 		ADD	AC,[142536475076]
  6052	036636	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6053	036637	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6054	036640	477 07 0 00 000004 	HRLES3:	SETOB	AC1,RAN1	;SET C(AC) TO ALL ONES.
  6055	036641	204 10 0 00 000006 		MOVS	AC2,AC		;SIMULATE
  6056	036642	620 10 0 00 777777 		TRZ	AC2,-1		;A
  6057	036643	602 06 0 00 400000 		TRNE	AC,400000	;HRLE
  6058	036644	660 10 0 00 777777 		TRO	AC2,-1		;INST
  6059	036645	537 07 0 00 000006 		HRLES	AC1,AC		;DO HRLES
  6060	036646	312 07 0 00 000006 		CAME	AC1,AC		;C(AC) HOULD=C(E) AFTER HRLES.
  6061	036647	012 00 0 00 000004 		EERRM	,RAN1
  6062	036650	312 10 0 00 000006 		CAME	AC2,AC		;C(E) SHOULD=SIM. ANS
  6063	036651	012 00 0 00 000004 		EERRM	,RAN1
  6064						LOOP	HRLES2,HRLES3^
  6065	036652	367 05 0 00 036634 		SOJG	AC-1,HRLES2		;ITERATION COUNTER
  6066	036653	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6067	036654	321 05 0 00 036640 		JUMPL	AC-1,HRLES3		;LOOP ON ERROR SWITCH ^
  6068
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 135
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0166

  6069
  6070
  6071					;TEST HLRE CHECK C(AC) FOR CORRECT DATA
  6072					;RAN TO RAN1
  6073
  6074
  6075			000007			AC=7
  6076	036655				HLRE1:	SETUP	200,4^
  6077			000010			AC1=<AC+1>&17
  6078			000011			AC2=<AC+2>&17
  6079			000012			AC3=<AC+3>&17
  6080			000013			AC4=<AC+4>&17
  6081			000014			AC5=<AC+5>&17
  6082			000005			RAN1=<AC-2>&17
  6083	036655	201 06 0 00 036655 		MOVEI	AC-1,.
  6084	036656	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6085	036657	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6086	036660	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6087	036661	201 06 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  6088	036662	240 06 1 00 030671 		ASH	AC-1,@CMPLXT+4	;ROUTINE COMPLEXITY
  6089	036663	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6090	036664				HLRE2:	RANDOM^
  6091	036664	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6092	036665	270 07 0 00 040071 		ADD	AC,[142536475076]
  6093	036666	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6094	036667	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6095	036670	200 11 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  6096	036671	241 07 0 00 000011 	HLRE3:	ROT	AC,11		;C(AC)=SECOND RAN. NUM
  6097	036672	200 05 0 00 000007 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  6098	036673	204 10 0 00 040201 		MOVS	AC1,RAN		;SIMULATE
  6099	036674	621 10 0 00 777777 		TLZ	AC1,-1		;A
  6100	036675	603 11 0 00 400000 		TLNE	AC2,400000	;HLRE
  6101	036676	661 10 0 00 777777 		TLO	AC1,-1		;INST
  6102	036677	574 07 0 00 040201 		HLRE	AC,RAN		;DO HLRE
  6103	036700	312 07 0 00 000010 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS
  6104	036701	001 11 0 00 000005 		ERR	AC2,RAN1
  6105						LOOP	HLRE2,HLRE3^
  6106	036702	367 06 0 00 036664 		SOJG	AC-1,HLRE2		;ITERATION COUNTER
  6107	036703	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6108	036704	321 06 0 00 036671 		JUMPL	AC-1,HLRE3		;LOOP ON ERROR SWITCH ^
  6109
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 136
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0167

  6110
  6111
  6112					;TEST HLREI.  CHECK C(AC) FOR 0
  6113					;RAN TO RAN1
  6114
  6115
  6116			000010			AC=10
  6117	036705				HLREI1:	SETUP	200,4^
  6118			000011			AC1=<AC+1>&17
  6119			000012			AC2=<AC+2>&17
  6120			000013			AC3=<AC+3>&17
  6121			000014			AC4=<AC+4>&17
  6122			000015			AC5=<AC+5>&17
  6123			000006			RAN1=<AC-2>&17
  6124	036705	201 07 0 00 036705 		MOVEI	AC-1,.
  6125	036706	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6126	036707	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6127	036710	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6128	036711	201 07 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  6129	036712	240 07 1 00 030671 		ASH	AC-1,@CMPLXT+4	;ROUTINE COMPLEXITY
  6130	036713	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6131	036714				HLREI2:	RANDOM^
  6132	036714	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6133	036715	270 10 0 00 040071 		ADD	AC,[142536475076]
  6134	036716	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6135	036717	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6136	036720	200 11 0 00 040201 		MOVE	AC1,RAN		;SAVE RAN IN AN AC.
  6137	036721	241 10 0 00 000001 	HLREI3:	ROT	AC,1		;C(AC)=SECOND RAN. NUM
  6138	036722	200 06 0 00 000010 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  6139	036723	575 10 0 11 000000 		HLREI	AC,(AC1)	;DO HLREI INST.
  6140	036724	312 10 0 00 040074 		CAME	AC,[0]		;C(AC) SHOULD = 0.
  6141	036725	003 06 0 11 000000 		ERRI	RAN1,(AC1)
  6142						LOOP	HLREI2,HLREI3^
  6143	036726	367 07 0 00 036714 		SOJG	AC-1,HLREI2		;ITERATION COUNTER
  6144	036727	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6145	036730	321 07 0 00 036721 		JUMPL	AC-1,HLREI3		;LOOP ON ERROR SWITCH ^
  6146
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 137
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0168

  6147
  6148
  6149					;TEST HLREM.  CHECK C(E) FOR CORRECT DATA
  6150					;RAN TO RAN1
  6151
  6152
  6153			000010			AC=10
  6154	036731				HLREM1:	SETUP	200,4^
  6155			000011			AC1=<AC+1>&17
  6156			000012			AC2=<AC+2>&17
  6157			000013			AC3=<AC+3>&17
  6158			000014			AC4=<AC+4>&17
  6159			000015			AC5=<AC+5>&17
  6160			000006			RAN1=<AC-2>&17
  6161	036731	201 07 0 00 036731 		MOVEI	AC-1,.
  6162	036732	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6163	036733	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6164	036734	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6165	036735	201 07 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  6166	036736	240 07 1 00 030671 		ASH	AC-1,@CMPLXT+4	;ROUTINE COMPLEXITY
  6167	036737	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6168	036740				HLREM2:	RANDOM^
  6169	036740	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6170	036741	270 10 0 00 040071 		ADD	AC,[142536475076]
  6171	036742	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6172	036743	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6173	036744	200 12 0 00 040201 		MOVE	AC2,RAN		;SAVE RAN IN AN AC.
  6174	036745	241 10 0 00 000011 	HLREM3:	ROT	AC,11		;C(E)=SECOND RAN. NUM
  6175	036746	200 06 0 00 000010 		MOVE	RAN1,AC		;SAVE C(E) IN CASE OF ERROR
  6176	036747	204 11 0 00 040201 		MOVS	AC1,RAN		;SIMULATE
  6177	036750	621 11 0 00 777777 		TLZ	AC1,-1		;A
  6178	036751	603 12 0 00 400000 		TLNE	AC2,400000	;HLRE
  6179	036752	661 11 0 00 777777 		TLO	AC1,-1		;INST
  6180	036753	576 12 0 00 000010 		HLREM	AC2,AC		;DO HLREM.
  6181	036754	312 11 0 00 000010 		CAME	AC1,AC		;C(E) SHOULD=SIM. ANS
  6182	036755	002 06 0 00 040201 		ERRM	RAN1,RAN
  6183						LOOP	HLREM2,HLREM3^
  6184	036756	367 07 0 00 036740 		SOJG	AC-1,HLREM2		;ITERATION COUNTER
  6185	036757	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6186	036760	321 07 0 00 036745 		JUMPL	AC-1,HLREM3		;LOOP ON ERROR SWITCH ^
  6187
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 138
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0169

  6188
  6189
  6190					;TEST HLRES.  CHECK C(E) FOR CORRECT DATA AND
  6191					;PROPER STORING OF C(E) INTO AC FOR RAN TO RAN CONDITION
  6192
  6193
  6194			000002			AC=2
  6195	036761				HLRES1:	SETUP	200,4^
  6196			000003			AC1=<AC+1>&17
  6197			000004			AC2=<AC+2>&17
  6198			000005			AC3=<AC+3>&17
  6199			000006			AC4=<AC+4>&17
  6200			000007			AC5=<AC+5>&17
  6201			000000			RAN1=<AC-2>&17
  6202	036761	201 01 0 00 036761 		MOVEI	AC-1,.
  6203	036762	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6204	036763	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6205	036764	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6206	036765	201 01 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  6207	036766	240 01 1 00 030671 		ASH	AC-1,@CMPLXT+4	;ROUTINE COMPLEXITY
  6208	036767	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6209	036770				HLRES2:	RANDOM^
  6210	036770	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6211	036771	270 02 0 00 040071 		ADD	AC,[142536475076]
  6212	036772	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6213	036773	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6214	036774	477 03 0 00 000000 	HLRES3:	SETOB	AC1,RAN1	;SET C(E) TO ALL ONES
  6215	036775	204 04 0 00 000002 		MOVS	AC2,AC		;SIMULATE
  6216	036776	621 04 0 00 777777 		TLZ	AC2,-1		;A
  6217	036777	603 02 0 00 400000 		TLNE	AC,400000	;HLRE
  6218	037000	661 04 0 00 777777 		TLO	AC2,-1		;INST
  6219	037001	577 03 0 00 000002 		HLRES	AC1,AC		;DO HLRES
  6220	037002	312 03 0 00 000002 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER HLRES
  6221	037003	012 00 0 00 000000 		EERRM	,RAN1
  6222	037004	312 04 0 00 000002 		CAME	AC2,AC		;C(E) SHOULD=SIM ANS
  6223	037005	012 00 0 00 000000 		EERRM	,RAN1
  6224						LOOP	HLRES2,HLRES3^
  6225	037006	367 01 0 00 036770 		SOJG	AC-1,HLRES2		;ITERATION COUNTER
  6226	037007	200 02 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6227	037010	321 01 0 00 036774 		JUMPL	AC-1,HLRES3		;LOOP ON ERROR SWITCH ^
  6228
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 139
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0170

  6229
  6230
  6231					DEFINE ADSBSM <
  6232						MOVE	AC1,AC		;PUT SEC. NUM. INTO AC1.
  6233						MOVE	AC3,AC1		;PUT SEC. NUM. INTO AC3 AND
  6234						AND	AC3,AC2		;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
  6235						XOR	AC1,AC2		;PRODUCE SAME 1'S + 0'S AN ADD WOULD
  6236									;PRODUCE, WITHOUT CARRY BITS.
  6237						LSH	AC3,1		;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
  6238						MOVE	AC4,AC1		;SAVE FOR FUTURE "AND".
  6239						TDCN	AC1,AC3		;A 0,1 CONDITION (NO FURTHUR CARRY)
  6240						JRST	.+3		;WILL LEAVE WITH ANY CRY BIT(S) SET,
  6241						AND	AC3,AC4		;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
  6242						JRST	.-5		;PRODUCE OTHER CRY BIT(S). >
  6243
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 140
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0171

  6244
  6245
  6246					;TEST ADD.  CHECK FOR CORRECT DATA IN AC BY
  6247					;SIMULATING AN ADD, DOING AN ADD, AND COMPARING C(AC) WITH
  6248					;SIMULATED ANS.
  6249					;RAN TO RAN1.
  6250			000003			AC=3
  6251	037011				ADDA1:	SETUP	200,2^
  6252			000004			AC1=<AC+1>&17
  6253			000005			AC2=<AC+2>&17
  6254			000006			AC3=<AC+3>&17
  6255			000007			AC4=<AC+4>&17
  6256			000010			AC5=<AC+5>&17
  6257			000001			RAN1=<AC-2>&17
  6258	037011	201 02 0 00 037011 		MOVEI	AC-1,.
  6259	037012	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6260	037013	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6261	037014	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6262	037015	201 02 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  6263	037016	240 02 1 00 030667 		ASH	AC-1,@CMPLXT+2	;ROUTINE COMPLEXITY
  6264	037017	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6265	037020				ADDA2:	RANDOM^
  6266	037020	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6267	037021	270 03 0 00 040071 		ADD	AC,[142536475076]
  6268	037022	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6269	037023	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6270	037024	207 01 0 00 000003 	ADDA3:	MOVSS	RAN1,AC		;C(AC)=SECOND RAN. NUM.
  6271	037025	200 05 0 00 040201 		MOVE	AC2,RAN		;PUT 1ST NUM. INTO AC2.
  6272					;SIMULATE AN ADD INSTRUCTION.
  6273						ADSBSM^
  6274	037026	200 04 0 00 000003 		MOVE	AC1,AC		;PUT SEC. NUM. INTO AC1.
  6275	037027	200 06 0 00 000004 		MOVE	AC3,AC1		;PUT SEC. NUM. INTO AC3 AND
  6276	037030	404 06 0 00 000005 		AND	AC3,AC2		;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
  6277	037031	430 04 0 00 000005 		XOR	AC1,AC2		;PRODUCE SAME 1'S + 0'S AN ADD WOULD
  6278									;PRODUCE, WITHOUT CARRY BITS.
  6279	037032	242 06 0 00 000001 		LSH	AC3,1		;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
  6280	037033	200 07 0 00 000004 		MOVE	AC4,AC1		;SAVE FOR FUTURE "AND".
  6281	037034	656 04 0 00 000006 		TDCN	AC1,AC3		;A 0,1 CONDITION (NO FURTHUR CARRY)
  6282	037035	254 00 0 00 037040 		JRST	.+3		;WILL LEAVE WITH ANY CRY BIT(S) SET,
  6283	037036	404 06 0 00 000007 		AND	AC3,AC4		;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
  6284	037037	254 00 0 00 037032 		JRST	.-5		;PRODUCE OTHER CRY BIT(S). ^
  6285	037040	270 03 0 00 040201 		ADD	AC,RAN		;DO AN ADD.
  6286	037041	312 03 0 00 000004 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS.
  6287	037042	011 00 0 00 000001 		EERR	,RAN1
  6288						LOOP	ADDA2,ADDA3^
  6289	037043	367 02 0 00 037020 		SOJG	AC-1,ADDA2		;ITERATION COUNTER
  6290	037044	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6291	037045	321 02 0 00 037024 		JUMPL	AC-1,ADDA3		;LOOP ON ERROR SWITCH ^
  6292
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 141
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0172

  6293					;TEST ADDM. CHECK FOR CORRECT DATA IN E BY
  6294					;SIMULATING AN ADDM, DOING AN ADDM, AND COMPARING C(E)
  6295					;WITH SIMULATED ANS.
  6296					;RAN TO RAN1.
  6297			000002			AC=2
  6298	037046				ADDMA1:	SETUP	200,2^
  6299			000003			AC1=<AC+1>&17
  6300			000004			AC2=<AC+2>&17
  6301			000005			AC3=<AC+3>&17
  6302			000006			AC4=<AC+4>&17
  6303			000007			AC5=<AC+5>&17
  6304			000000			RAN1=<AC-2>&17
  6305	037046	201 01 0 00 037046 		MOVEI	AC-1,.
  6306	037047	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6307	037050	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6308	037051	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6309	037052	201 01 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  6310	037053	240 01 1 00 030667 		ASH	AC-1,@CMPLXT+2	;ROUTINE COMPLEXITY
  6311	037054	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6312	037055				ADDMA2:	RANDOM^
  6313	037055	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6314	037056	270 02 0 00 040071 		ADD	AC,[142536475076]
  6315	037057	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6316	037060	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6317	037061	200 07 0 00 040201 		MOVE	AC5,RAN		;SAVE RAN IN AN AC.
  6318	037062	207 00 0 00 000002 	ADDMA3:	MOVSS	RAN1,AC		;C(E)=SECOND RAN NUM.
  6319	037063	200 04 0 00 040201 		MOVE	AC2,RAN		;PUT 1ST NUMBER INTO AC2
  6320					;SIMULATE AN ADD INSTRUCTION
  6321						ADSBSM^
  6322	037064	200 03 0 00 000002 		MOVE	AC1,AC		;PUT SEC. NUM. INTO AC1.
  6323	037065	200 05 0 00 000003 		MOVE	AC3,AC1		;PUT SEC. NUM. INTO AC3 AND
  6324	037066	404 05 0 00 000004 		AND	AC3,AC2		;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
  6325	037067	430 03 0 00 000004 		XOR	AC1,AC2		;PRODUCE SAME 1'S + 0'S AN ADD WOULD
  6326									;PRODUCE, WITHOUT CARRY BITS.
  6327	037070	242 05 0 00 000001 		LSH	AC3,1		;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
  6328	037071	200 06 0 00 000003 		MOVE	AC4,AC1		;SAVE FOR FUTURE "AND".
  6329	037072	656 03 0 00 000005 		TDCN	AC1,AC3		;A 0,1 CONDITION (NO FURTHUR CARRY)
  6330	037073	254 00 0 00 037076 		JRST	.+3		;WILL LEAVE WITH ANY CRY BIT(S) SET,
  6331	037074	404 05 0 00 000006 		AND	AC3,AC4		;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
  6332	037075	254 00 0 00 037070 		JRST	.-5		;PRODUCE OTHER CRY BIT(S). ^
  6333	037076	272 07 0 00 000002 		ADDM	AC5,AC		;DO AN ADDM.
  6334	037077	312 03 0 00 000002 		CAME	AC1,AC		;C(E) SHOULD=SIM. ANS.
  6335	037100	002 00 0 00 040201 		ERRM	RAN1,RAN
  6336						LOOP	ADDMA2,ADDMA3^
  6337	037101	367 01 0 00 037055 		SOJG	AC-1,ADDMA2		;ITERATION COUNTER
  6338	037102	200 02 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6339	037103	321 01 0 00 037062 		JUMPL	AC-1,ADDMA3		;LOOP ON ERROR SWITCH ^
  6340
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 142
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0173

  6341
  6342
  6343					;TEST ADDI.  CHECK FOR CORRECT DATA IN AC BY
  6344					;SIMULATING AN ADDI, DOING AN ADDI, AND COMPARING
  6345					;C(AC) WITH SIMULATED ANS.
  6346					;RAN TO RAN1 CONDITION
  6347			000003			AC=3
  6348	037104				ADDIA1:	SETUP	200,2^
  6349			000004			AC1=<AC+1>&17
  6350			000005			AC2=<AC+2>&17
  6351			000006			AC3=<AC+3>&17
  6352			000007			AC4=<AC+4>&17
  6353			000010			AC5=<AC+5>&17
  6354			000001			RAN1=<AC-2>&17
  6355	037104	201 02 0 00 037104 		MOVEI	AC-1,.
  6356	037105	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6357	037106	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6358	037107	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6359	037110	201 02 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  6360	037111	240 02 1 00 030667 		ASH	AC-1,@CMPLXT+2	;ROUTINE COMPLEXITY
  6361	037112	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6362	037113				ADDIA2:	RANDOM^
  6363	037113	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6364	037114	270 03 0 00 040071 		ADD	AC,[142536475076]
  6365	037115	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6366	037116	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6367	037117	200 10 0 00 040201 		MOVE	AC5,RAN		;SAVE RAN IN AN AC.
  6368	037120	207 01 0 00 000003 	ADDIA3:	MOVSS	RAN1,AC		;C(AC)=SECOND RAN. NUM.
  6369	037121	201 05 0 10 000000 		MOVEI	AC2,(AC5)	;PUT 1ST NUM INTO AC2.
  6370					;SIMULATE ADDI INSTRUCTION
  6371						ADSBSM^
  6372	037122	200 04 0 00 000003 		MOVE	AC1,AC		;PUT SEC. NUM. INTO AC1.
  6373	037123	200 06 0 00 000004 		MOVE	AC3,AC1		;PUT SEC. NUM. INTO AC3 AND
  6374	037124	404 06 0 00 000005 		AND	AC3,AC2		;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
  6375	037125	430 04 0 00 000005 		XOR	AC1,AC2		;PRODUCE SAME 1'S + 0'S AN ADD WOULD
  6376									;PRODUCE, WITHOUT CARRY BITS.
  6377	037126	242 06 0 00 000001 		LSH	AC3,1		;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
  6378	037127	200 07 0 00 000004 		MOVE	AC4,AC1		;SAVE FOR FUTURE "AND".
  6379	037130	656 04 0 00 000006 		TDCN	AC1,AC3		;A 0,1 CONDITION (NO FURTHUR CARRY)
  6380	037131	254 00 0 00 037134 		JRST	.+3		;WILL LEAVE WITH ANY CRY BIT(S) SET,
  6381	037132	404 06 0 00 000007 		AND	AC3,AC4		;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
  6382	037133	254 00 0 00 037126 		JRST	.-5		;PRODUCE OTHER CRY BIT(S). ^
  6383	037134	271 03 0 10 000000 		ADDI	AC,(AC5)	;DO AN ADDI.
  6384	037135	312 03 0 00 000004 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS.
  6385	037136	003 01 0 10 000000 		ERRI	RAN1,(AC5)
  6386						LOOP	ADDIA2,ADDIA3^
  6387	037137	367 02 0 00 037113 		SOJG	AC-1,ADDIA2		;ITERATION COUNTER
  6388	037140	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6389	037141	321 02 0 00 037120 		JUMPL	AC-1,ADDIA3		;LOOP ON ERROR SWITCH ^
  6390
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 143
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0174

  6391					;TEST ADDB. CHECK FOR C(E)=C(AC), AND CORRECT DATA IN AC
  6392					;BY SIMULATING AN ADD, DOING AN ADDB, AND COMPARING C(AC)
  6393					;WITH SIMULATED ANS.
  6394					;RAN TO RAN1 CONDITION.
  6395			000004			AC=4
  6396	037142				ADDBA1:	SETUP	200,2^
  6397			000005			AC1=<AC+1>&17
  6398			000006			AC2=<AC+2>&17
  6399			000007			AC3=<AC+3>&17
  6400			000010			AC4=<AC+4>&17
  6401			000011			AC5=<AC+5>&17
  6402			000002			RAN1=<AC-2>&17
  6403	037142	201 03 0 00 037142 		MOVEI	AC-1,.
  6404	037143	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6405	037144	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6406	037145	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6407	037146	201 03 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  6408	037147	240 03 1 00 030667 		ASH	AC-1,@CMPLXT+2	;ROUTINE COMPLEXITY
  6409	037150	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6410	037151				ADDBA2:	RANDOM^
  6411	037151	200 04 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6412	037152	270 04 0 00 040071 		ADD	AC,[142536475076]
  6413	037153	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6414	037154	447 04 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6415	037155	207 02 0 00 000004 	ADDBA3:	MOVSS	RAN1,AC		;C(AC)=SECOND RAN NUM.
  6416	037156	200 11 0 00 040201 		MOVE	AC5,RAN		;PUT 1ST NUM INTO C(E).
  6417	037157	200 06 0 00 040201 		MOVE	AC2,RAN		;PUT C(E) (1ST NUM.) INTO AC2.
  6418					;SIMULATE AN ADD INSTRUCTION
  6419						ADSBSM^
  6420	037160	200 05 0 00 000004 		MOVE	AC1,AC		;PUT SEC. NUM. INTO AC1.
  6421	037161	200 07 0 00 000005 		MOVE	AC3,AC1		;PUT SEC. NUM. INTO AC3 AND
  6422	037162	404 07 0 00 000006 		AND	AC3,AC2		;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
  6423	037163	430 05 0 00 000006 		XOR	AC1,AC2		;PRODUCE SAME 1'S + 0'S AN ADD WOULD
  6424									;PRODUCE, WITHOUT CARRY BITS.
  6425	037164	242 07 0 00 000001 		LSH	AC3,1		;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
  6426	037165	200 10 0 00 000005 		MOVE	AC4,AC1		;SAVE FOR FUTURE "AND".
  6427	037166	656 05 0 00 000007 		TDCN	AC1,AC3		;A 0,1 CONDITION (NO FURTHUR CARRY)
  6428	037167	254 00 0 00 037172 		JRST	.+3		;WILL LEAVE WITH ANY CRY BIT(S) SET,
  6429	037170	404 07 0 00 000010 		AND	AC3,AC4		;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
  6430	037171	254 00 0 00 037164 		JRST	.-5		;PRODUCE OTHER CRY BIT(S). ^
  6431	037172	273 04 0 00 000011 		ADDB	AC,AC5		;DO AN ADDB.
  6432	037173	312 04 0 00 000011 		CAME	AC,AC5		;C(AC) SHOULD=C(E)
  6433	037174	011 00 0 00 000002 		EERR	,RAN1
  6434	037175	312 04 0 00 000005 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS.
  6435	037176	011 00 0 00 000002 		EERR	,RAN1
  6436						LOOP	ADDBA2,ADDBA3^
  6437	037177	367 03 0 00 037151 		SOJG	AC-1,ADDBA2		;ITERATION COUNTER
  6438	037200	200 04 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6439	037201	321 03 0 00 037155 		JUMPL	AC-1,ADDBA3		;LOOP ON ERROR SWITCH ^
  6440
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 144
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0175

  6441
  6442
  6443					;TEST SUB. CHECK FOR CORRECT DATA IN AC BY
  6444					;SIMULATING A SUB, DOING A SUB, AND COMPARING C(AC)
  6445					;WITH THE SIMULATED ANSWER
  6446					;RAN TO RAN1
  6447			000005			AC=5
  6448	037202				SUBA1:	SETUP	200,2^
  6449			000006			AC1=<AC+1>&17
  6450			000007			AC2=<AC+2>&17
  6451			000010			AC3=<AC+3>&17
  6452			000011			AC4=<AC+4>&17
  6453			000012			AC5=<AC+5>&17
  6454			000003			RAN1=<AC-2>&17
  6455	037202	201 04 0 00 037202 		MOVEI	AC-1,.
  6456	037203	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6457	037204	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6458	037205	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6459	037206	201 04 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  6460	037207	240 04 1 00 030667 		ASH	AC-1,@CMPLXT+2	;ROUTINE COMPLEXITY
  6461	037210	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6462	037211				SUBA2:	RANDOM^
  6463	037211	200 05 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6464	037212	270 05 0 00 040071 		ADD	AC,[142536475076]
  6465	037213	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6466	037214	447 05 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6467	037215	207 03 0 00 000005 	SUBA3:	MOVSS	RAN1,AC		;C(AC)=SECOND RAN. NUM.
  6468	037216	210 07 0 00 040201 		MOVN	AC2,RAN		;PUT 2'S COMP OF 1ST NUM INTO AC2.
  6469					;SIMULATE A SUB INSTRUCTION
  6470						ADSBSM^
  6471	037217	200 06 0 00 000005 		MOVE	AC1,AC		;PUT SEC. NUM. INTO AC1.
  6472	037220	200 10 0 00 000006 		MOVE	AC3,AC1		;PUT SEC. NUM. INTO AC3 AND
  6473	037221	404 10 0 00 000007 		AND	AC3,AC2		;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
  6474	037222	430 06 0 00 000007 		XOR	AC1,AC2		;PRODUCE SAME 1'S + 0'S AN ADD WOULD
  6475									;PRODUCE, WITHOUT CARRY BITS.
  6476	037223	242 10 0 00 000001 		LSH	AC3,1		;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
  6477	037224	200 11 0 00 000006 		MOVE	AC4,AC1		;SAVE FOR FUTURE "AND".
  6478	037225	656 06 0 00 000010 		TDCN	AC1,AC3		;A 0,1 CONDITION (NO FURTHUR CARRY)
  6479	037226	254 00 0 00 037231 		JRST	.+3		;WILL LEAVE WITH ANY CRY BIT(S) SET,
  6480	037227	404 10 0 00 000011 		AND	AC3,AC4		;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
  6481	037230	254 00 0 00 037223 		JRST	.-5		;PRODUCE OTHER CRY BIT(S). ^
  6482	037231	274 05 0 00 040201 		SUB	AC,RAN		;DO A SUB.
  6483	037232	312 05 0 00 000006 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS.
  6484	037233	011 00 0 00 000003 		EERR	,RAN1
  6485						LOOP	SUBA2,SUBA3^
  6486	037234	367 04 0 00 037211 		SOJG	AC-1,SUBA2		;ITERATION COUNTER
  6487	037235	200 05 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6488	037236	321 04 0 00 037215 		JUMPL	AC-1,SUBA3		;LOOP ON ERROR SWITCH ^
  6489
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 145
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0176

  6490
  6491
  6492					;TEST SUBM. CHECK FOR CORRECT DATA IN E BY
  6493					;SIMULATING A SUBM, DOING A SUBM, AND COMPARING C(E)
  6494					;WITH THE SIMULATED ANSWER
  6495					;RAN TO RAN1.
  6496			000006			AC=6
  6497	037237				SUBMA1:	SETUP	200,2^
  6498			000007			AC1=<AC+1>&17
  6499			000010			AC2=<AC+2>&17
  6500			000011			AC3=<AC+3>&17
  6501			000012			AC4=<AC+4>&17
  6502			000013			AC5=<AC+5>&17
  6503			000004			RAN1=<AC-2>&17
  6504	037237	201 05 0 00 037237 		MOVEI	AC-1,.
  6505	037240	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6506	037241	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6507	037242	202 05 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6508	037243	201 05 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  6509	037244	240 05 1 00 030667 		ASH	AC-1,@CMPLXT+2	;ROUTINE COMPLEXITY
  6510	037245	240 05 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6511	037246				SUBMA2:	RANDOM^
  6512	037246	200 06 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6513	037247	270 06 0 00 040071 		ADD	AC,[142536475076]
  6514	037250	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6515	037251	447 06 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6516	037252	207 04 0 00 000006 	SUBMA3:	MOVSS	RAN1,AC		;C(AC)=SECOND RAN. NUM.
  6517	037253	200 13 0 00 040201 		MOVE	AC5,RAN		;C(E)=1ST RAN. NUM.
  6518	037254	210 10 0 00 000013 		MOVN	AC2,AC5		;PUT 1ST RAN. NUM INTO AC2
  6519					;SIMULATE A SUB INSTRUCTION
  6520						ADSBSM^
  6521	037255	200 07 0 00 000006 		MOVE	AC1,AC		;PUT SEC. NUM. INTO AC1.
  6522	037256	200 11 0 00 000007 		MOVE	AC3,AC1		;PUT SEC. NUM. INTO AC3 AND
  6523	037257	404 11 0 00 000010 		AND	AC3,AC2		;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
  6524	037260	430 07 0 00 000010 		XOR	AC1,AC2		;PRODUCE SAME 1'S + 0'S AN ADD WOULD
  6525									;PRODUCE, WITHOUT CARRY BITS.
  6526	037261	242 11 0 00 000001 		LSH	AC3,1		;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
  6527	037262	200 12 0 00 000007 		MOVE	AC4,AC1		;SAVE FOR FUTURE "AND".
  6528	037263	656 07 0 00 000011 		TDCN	AC1,AC3		;A 0,1 CONDITION (NO FURTHUR CARRY)
  6529	037264	254 00 0 00 037267 		JRST	.+3		;WILL LEAVE WITH ANY CRY BIT(S) SET,
  6530	037265	404 11 0 00 000012 		AND	AC3,AC4		;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
  6531	037266	254 00 0 00 037261 		JRST	.-5		;PRODUCE OTHER CRY BIT(S). ^
  6532	037267	276 06 0 00 000013 		SUBM	AC,AC5		;DO A SUBM.
  6533	037270	312 07 0 00 000013 		CAME	AC1,AC5		;C(E) SHOULD=SIM. ANS.
  6534	037271	012 00 0 00 000004 		EERRM	,RAN1
  6535						LOOP	SUBMA2,SUBMA3^
  6536	037272	367 05 0 00 037246 		SOJG	AC-1,SUBMA2		;ITERATION COUNTER
  6537	037273	200 06 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6538	037274	321 05 0 00 037252 		JUMPL	AC-1,SUBMA3		;LOOP ON ERROR SWITCH ^
  6539
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 146
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0177

  6540
  6541
  6542					;TEST SUBI.  CHECK FOR CORRECT DATA IN AC BY
  6543					;SIMULATING A SUBI, DOING A SUBI, AND COMPARING
  6544					;C(AC) WITH THE SIMULATED ANSWER
  6545					;RAN TO RAN1
  6546			000007			AC=7
  6547	037275				SUBIA1:	SETUP	200,2^
  6548			000010			AC1=<AC+1>&17
  6549			000011			AC2=<AC+2>&17
  6550			000012			AC3=<AC+3>&17
  6551			000013			AC4=<AC+4>&17
  6552			000014			AC5=<AC+5>&17
  6553			000005			RAN1=<AC-2>&17
  6554	037275	201 06 0 00 037275 		MOVEI	AC-1,.
  6555	037276	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6556	037277	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6557	037300	202 06 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6558	037301	201 06 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  6559	037302	240 06 1 00 030667 		ASH	AC-1,@CMPLXT+2	;ROUTINE COMPLEXITY
  6560	037303	240 06 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6561	037304				SUBIA2:	RANDOM^
  6562	037304	200 07 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6563	037305	270 07 0 00 040071 		ADD	AC,[142536475076]
  6564	037306	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6565	037307	447 07 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6566	037310	200 14 0 00 040201 		MOVE	AC5,RAN		;SAVE RAN IN AN AC.
  6567	037311	207 05 0 00 000007 	SUBIA3:	MOVSS	RAN1,AC		;C(AC)=SECOND RAN. NUM.
  6568	037312	211 11 0 14 000000 		MOVNI	AC2,(AC5)	;PUT 2'S COMP OF 1ST RAN NUM INTO AC2.
  6569					;SIMULATE A SUB INSTRUCTION
  6570						ADSBSM^
  6571	037313	200 10 0 00 000007 		MOVE	AC1,AC		;PUT SEC. NUM. INTO AC1.
  6572	037314	200 12 0 00 000010 		MOVE	AC3,AC1		;PUT SEC. NUM. INTO AC3 AND
  6573	037315	404 12 0 00 000011 		AND	AC3,AC2		;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
  6574	037316	430 10 0 00 000011 		XOR	AC1,AC2		;PRODUCE SAME 1'S + 0'S AN ADD WOULD
  6575									;PRODUCE, WITHOUT CARRY BITS.
  6576	037317	242 12 0 00 000001 		LSH	AC3,1		;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
  6577	037320	200 13 0 00 000010 		MOVE	AC4,AC1		;SAVE FOR FUTURE "AND".
  6578	037321	656 10 0 00 000012 		TDCN	AC1,AC3		;A 0,1 CONDITION (NO FURTHUR CARRY)
  6579	037322	254 00 0 00 037325 		JRST	.+3		;WILL LEAVE WITH ANY CRY BIT(S) SET,
  6580	037323	404 12 0 00 000013 		AND	AC3,AC4		;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
  6581	037324	254 00 0 00 037317 		JRST	.-5		;PRODUCE OTHER CRY BIT(S). ^
  6582	037325	275 07 0 14 000000 		SUBI	AC,(AC5)	;DO A SUBI.
  6583	037326	312 07 0 00 000010 		CAME	AC,AC1		;C(AC) SHOULD=SIM. ANS.
  6584	037327	003 05 0 14 000000 		ERRI	RAN1,(AC5)
  6585						LOOP	SUBIA2,SUBIA3^
  6586	037330	367 06 0 00 037304 		SOJG	AC-1,SUBIA2		;ITERATION COUNTER
  6587	037331	200 07 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6588	037332	321 06 0 00 037311 		JUMPL	AC-1,SUBIA3		;LOOP ON ERROR SWITCH ^
  6589
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 147
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0178

  6590					;TEST SUBB.  CHECK FOR C(AC)=C(E), AND CORRECT DATA
  6591					;IN AC BY SIMULATING A SUB, DOING A SUBB, AND COMPARING
  6592					;C(AC) WITH SIMULATED ANSWER.
  6593					;RAN TO RAN1 CONDITION.
  6594			000010			AC=10
  6595	037333				SUBBA1:	SETUP	200,2^
  6596			000011			AC1=<AC+1>&17
  6597			000012			AC2=<AC+2>&17
  6598			000013			AC3=<AC+3>&17
  6599			000014			AC4=<AC+4>&17
  6600			000015			AC5=<AC+5>&17
  6601			000006			RAN1=<AC-2>&17
  6602	037333	201 07 0 00 037333 		MOVEI	AC-1,.
  6603	037334	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6604	037335	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6605	037336	202 07 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6606	037337	201 07 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  6607	037340	240 07 1 00 030667 		ASH	AC-1,@CMPLXT+2	;ROUTINE COMPLEXITY
  6608	037341	240 07 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6609	037342				SUBBA2:	RANDOM^
  6610	037342	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6611	037343	270 10 0 00 040071 		ADD	AC,[142536475076]
  6612	037344	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6613	037345	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6614	037346	207 06 0 00 000010 	SUBBA3:	MOVSS	RAN1,AC		;C(AC)=SECOND RAN. NUM.
  6615	037347	200 15 0 00 040201 		MOVE	AC5,RAN		;C(E)=1ST RAN. NUM.
  6616	037350	210 12 0 00 000015 		MOVN	AC2,AC5		;PUT 2'S COMP OF 1ST NUM. INTO C2
  6617					;SIMULATE A SUB INSTRUCTION
  6618						ADSBSM^
  6619	037351	200 11 0 00 000010 		MOVE	AC1,AC		;PUT SEC. NUM. INTO AC1.
  6620	037352	200 13 0 00 000011 		MOVE	AC3,AC1		;PUT SEC. NUM. INTO AC3 AND
  6621	037353	404 13 0 00 000012 		AND	AC3,AC2		;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
  6622	037354	430 11 0 00 000012 		XOR	AC1,AC2		;PRODUCE SAME 1'S + 0'S AN ADD WOULD
  6623									;PRODUCE, WITHOUT CARRY BITS.
  6624	037355	242 13 0 00 000001 		LSH	AC3,1		;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
  6625	037356	200 14 0 00 000011 		MOVE	AC4,AC1		;SAVE FOR FUTURE "AND".
  6626	037357	656 11 0 00 000013 		TDCN	AC1,AC3		;A 0,1 CONDITION (NO FURTHUR CARRY)
  6627	037360	254 00 0 00 037363 		JRST	.+3		;WILL LEAVE WITH ANY CRY BIT(S) SET,
  6628	037361	404 13 0 00 000014 		AND	AC3,AC4		;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
  6629	037362	254 00 0 00 037355 		JRST	.-5		;PRODUCE OTHER CRY BIT(S). ^
  6630	037363	277 10 0 00 000015 		SUBB	AC,AC5		;DO A SUBB.
  6631	037364	312 10 0 00 000015 		CAME	AC,AC5		;C(AC) SHOULD=C(E)
  6632	037365	011 00 0 00 000006 		EERR	,RAN1
  6633	037366	312 10 0 00 000011 		CAME	AC,AC1		;C(AC) SHOULD=SIM ANS
  6634	037367	011 00 0 00 000006 		EERR	,RAN1
  6635						LOOP	SUBBA2,SUBBA3^
  6636	037370	367 07 0 00 037342 		SOJG	AC-1,SUBBA2		;ITERATION COUNTER
  6637	037371	200 10 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6638	037372	321 07 0 00 037346 		JUMPL	AC-1,SUBBA3		;LOOP ON ERROR SWITCH ^
  6639
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 148
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0179

  6640
  6641
  6642					;TEST AOBJP. CHECK FOR CORRECT DATA IN AC.
  6643					;C(AC) = RAN.
  6644
  6645
  6646			000002			AC=2
  6647	037373				ABJP1:	SETUP	100,0^
  6648			000003			AC1=<AC+1>&17
  6649			000004			AC2=<AC+2>&17
  6650			000005			AC3=<AC+3>&17
  6651			000006			AC4=<AC+4>&17
  6652			000007			AC5=<AC+5>&17
  6653			000000			RAN1=<AC-2>&17
  6654	037373	201 01 0 00 037373 		MOVEI	AC-1,.
  6655	037374	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6656	037375	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6657	037376	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6658	037377	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6659	037400	240 01 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6660	037401	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6661	037402				ABJP2:	RANDOM^
  6662	037402	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6663	037403	270 02 0 00 040071 		ADD	AC,[142536475076]
  6664	037404	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6665	037405	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6666	037406	200 03 0 00 000002 	ABJP3:	MOVE	AC1,AC		;SIMULATE
  6667	037407	270 03 0 00 040102 		ADD	AC1,[XWD 1,1]	;AN AOBJP INST.
  6668	037410	606 03 0 00 777777 		TRNN	AC1,777777	;IF CARRY ACROSS OCCURS
  6669	037411	274 03 0 00 040075 		SUB	AC1,[XWD 1,0]	;DELETE CARRY 18 TO 17 EFFECT
  6670	037412	252 02 0 00 037413 		AOBJP	AC,.+1		;DO AN AOBJP INST.
  6671	037413	312 02 0 00 000003 		CAME	AC,AC1		;C(AC) SHOULD = SIM. ANS.
  6672	037414	013 00 0 00 037413 		EERRI	,.-1
  6673						LOOP	ABJP2,ABJP3^
  6674	037415	367 01 0 00 037402 		SOJG	AC-1,ABJP2		;ITERATION COUNTER
  6675	037416	200 02 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6676	037417	321 01 0 00 037406 		JUMPL	AC-1,ABJP3		;LOOP ON ERROR SWITCH ^
  6677
  6678
  6679
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 149
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0180

  6680
  6681
  6682					;TEST AOBJN. CHEC C(AC) FOR CORRECT DATA.
  6683					;C(AC) = RAN.
  6684
  6685
  6686			000003			AC=3
  6687	037420				ABJN1:	SETUP	100,0^
  6688			000004			AC1=<AC+1>&17
  6689			000005			AC2=<AC+2>&17
  6690			000006			AC3=<AC+3>&17
  6691			000007			AC4=<AC+4>&17
  6692			000010			AC5=<AC+5>&17
  6693			000001			RAN1=<AC-2>&17
  6694	037420	201 02 0 00 037420 		MOVEI	AC-1,.
  6695	037421	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6696	037422	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6697	037423	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6698	037424	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6699	037425	240 02 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6700	037426	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6701	037427				ABJN2:	RANDOM^
  6702	037427	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6703	037430	270 03 0 00 040071 		ADD	AC,[142536475076]
  6704	037431	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6705	037432	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6706	037433	200 04 0 00 000003 	ABJN3:	MOVE	AC1,AC		;SIMULATE
  6707	037434	270 04 0 00 040102 		ADD	AC1,[XWD 1,1]	;AN AOBJN.
  6708	037435	606 04 0 00 777777 		TRNN	AC1,777777	;IF CARRY ACROSS OCCURS
  6709	037436	274 04 0 00 040075 		SUB	AC1,[XWD 1,0]	;DELETE CARRY 18 TO 17 EFFECT
  6710	037437	253 03 0 00 037440 		AOBJN	AC,.+1		;DO AN AOBJN INST.
  6711	037440	312 03 0 00 000004 		CAME	AC,AC1		;C(AC) SHOULD = SIM. ANS.
  6712	037441	013 00 0 00 037440 		EERRI	,.-1
  6713						LOOP	ABJN2,ABJN3^
  6714	037442	367 02 0 00 037427 		SOJG	AC-1,ABJN2		;ITERATION COUNTER
  6715	037443	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6716	037444	321 02 0 00 037433 		JUMPL	AC-1,ABJN3		;LOOP ON ERROR SWITCH ^
  6717
  6718
  6719
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 150
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0181

  6720
  6721
  6722					;TEST AOBJN, AOBJP. CHECK FOR JUMP/ NO JUMP AND
  6723					;CORRECT DAT IN AC.
  6724					;C(AC) = RAN.
  6725
  6726
  6727			000002			AC=2
  6728	037445				ABJP1A:	SETUP	100,0^
  6729			000003			AC1=<AC+1>&17
  6730			000004			AC2=<AC+2>&17
  6731			000005			AC3=<AC+3>&17
  6732			000006			AC4=<AC+4>&17
  6733			000007			AC5=<AC+5>&17
  6734			000000			RAN1=<AC-2>&17
  6735	037445	201 01 0 00 037445 		MOVEI	AC-1,.
  6736	037446	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6737	037447	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6738	037450	202 01 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6739	037451	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6740	037452	240 01 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6741	037453	240 01 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6742	037454				ABJP1B:	RANDOM^
  6743	037454	200 02 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6744	037455	270 02 0 00 040071 		ADD	AC,[142536475076]
  6745	037456	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6746	037457	447 02 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6747	037460	630 02 0 00 040103 	ABJP1C:	TDZ	AC,[XWD 400002,2];MAKE C(AC) SO AOBJP WILL ALWAYS JUMP.
  6748	037461	200 00 0 00 000002 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR.
  6749	037462	200 03 0 00 000002 		MOVE	AC1,AC		;SIMULATE AN
  6750	037463	270 03 0 00 040104 		ADD	AC1,[XWD 2,2]	;AOBJP INST.
  6751	037464	253 02 0 00 037466 		AOBJN	AC,.+2		;C(AC) IS POS...NO JUMP.
  6752	037465	252 02 0 00 037467 		AOBJP	AC,.+2		;C(AC) IS POS...JUMP.
  6753	037466	005 02 0 00 040105 		ER	AC,[ASCII /AOBJP/]
  6754	037467	312 02 0 00 000003 		CAME	AC,AC1		;C(AC) SHOULD = SIM. ANS.
  6755	037470	003 00 0 00 037467 		ERRI	RAN1,.-1
  6756						LOOP	ABJP1B,ABJP1C^
  6757	037471	367 01 0 00 037454 		SOJG	AC-1,ABJP1B		;ITERATION COUNTER
  6758	037472	200 02 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6759	037473	321 01 0 00 037460 		JUMPL	AC-1,ABJP1C		;LOOP ON ERROR SWITCH ^
  6760
  6761
  6762
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 151
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0182

  6763
  6764
  6765					;TEST AOBJP, AOBJN. CHECK FOR JUMP/ NO JUMP AND
  6766					;CORRECT DATA IN AC.
  6767					;C(AC) = RAN.
  6768
  6769
  6770			000003			AC=3
  6771	037474				ABJN1A:	SETUP	100,0^
  6772			000004			AC1=<AC+1>&17
  6773			000005			AC2=<AC+2>&17
  6774			000006			AC3=<AC+3>&17
  6775			000007			AC4=<AC+4>&17
  6776			000010			AC5=<AC+5>&17
  6777			000001			RAN1=<AC-2>&17
  6778	037474	201 02 0 00 037474 		MOVEI	AC-1,.
  6779	037475	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6780	037476	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6781	037477	202 02 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6782	037500	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6783	037501	240 02 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6784	037502	240 02 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6785	037503				ABJN1B:	RANDOM^
  6786	037503	200 03 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6787	037504	270 03 0 00 040071 		ADD	AC,[142536475076]
  6788	037505	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6789	037506	447 03 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6790	037507	630 03 0 00 040104 	ABJN1C:	TDZ	AC,[XWD 2,2]	;MAKE C(AC) SO
  6791	037510	661 03 0 00 400000 		TLO	AC,400000	;AOBJN WILL ALWAYS JUMP.
  6792	037511	200 01 0 00 000003 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR.
  6793	037512	200 04 0 00 000003 		MOVE	AC1,AC		;SIMULATE AN
  6794	037513	270 04 0 00 040104 		ADD	AC1,[XWD 2,2]	;AOBJN INST.
  6795	037514	252 03 0 00 037516 		AOBJP	AC,.+2		;C(AC) IS NEG...NO JUMP.
  6796	037515	253 03 0 00 037517 		AOBJN	AC,.+2		;C(AC) IS NEG...JUMP.
  6797	037516	005 03 0 00 040106 		ER	AC,[ASCII /AOBJN/]
  6798	037517	312 03 0 00 000004 		CAME	AC,AC1		;C(AC) SHOULD = SIM. ANS.
  6799	037520	003 01 0 00 037517 		ERRI	RAN1,.-1
  6800						LOOP	ABJN1B,ABJN1C^
  6801	037521	367 02 0 00 037503 		SOJG	AC-1,ABJN1B		;ITERATION COUNTER
  6802	037522	200 03 0 00 040201 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6803	037523	321 02 0 00 037507 		JUMPL	AC-1,ABJN1C		;LOOP ON ERROR SWITCH ^
  6804
  6805
  6806
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 152
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0183

  6807
  6808
  6809					;TEST AOBJP. CHECK TO SEE THAT AOBJP STOPS JUMPING
  6810					;AT THE RIGHT TIME.
  6811					;C(AC) = (377677,377677) ON FIRST AOBJP.
  6812
  6813
  6814			000004			AC=4
  6815	037524				ABJP2A:	SETUP	1,0^
  6816			000005			AC1=<AC+1>&17
  6817			000006			AC2=<AC+2>&17
  6818			000007			AC3=<AC+3>&17
  6819			000010			AC4=<AC+4>&17
  6820			000011			AC5=<AC+5>&17
  6821			000002			RAN1=<AC-2>&17
  6822	037524	201 03 0 00 037524 		MOVEI	AC-1,.
  6823	037525	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6824	037526	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6825	037527	202 03 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6826	037530	201 03 0 00 000001 		MOVEI	AC-1,1		;ROUTINE WEIGHTING
  6827	037531	240 03 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6828	037532	240 03 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6829	037533	200 04 0 00 040107 	ABJP2B:	MOVE	AC,[XWD 377677,377677]
  6830	037534	200 02 0 00 000004 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR.
  6831	037535	252 04 0 00 037535 		AOBJP	AC,.		;STAY HERE UNTIL C(AC) IS NEG.
  6832	037536	312 04 0 00 040101 		CAME	AC,[XWD 400000,400000];C(AC) SHOULD = THIS CONSTANT.
  6833	037537	004 04 0 00 040101 		ERROR	AC,[XWD 400000,400000]
  6834	037540	367 03 0 00 037533 		SOJG	AC-1,ABJP2B	;ITERATION COUNTER.
  6835	037541	321 03 0 00 037533 		JUMPL	AC-1,ABJP2B	;LOOP ON ERROR SWITCH.
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 153
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0184

  6836					;TEST AOBJN. CHECK TO SEE THAT AOBJN STOPS JUMPING
  6837					;AT THE RIGHT TIME.
  6838					;C(AC) = (777700,777700) ON FIRST AOBJN.
  6839
  6840
  6841			000005			AC=5
  6842	037542				ABJN2A:	SETUP	1,0^
  6843			000006			AC1=<AC+1>&17
  6844			000007			AC2=<AC+2>&17
  6845			000010			AC3=<AC+3>&17
  6846			000011			AC4=<AC+4>&17
  6847			000012			AC5=<AC+5>&17
  6848			000003			RAN1=<AC-2>&17
  6849	037542	201 04 0 00 037542 		MOVEI	AC-1,.
  6850	037543	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6851	037544	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6852	037545	202 04 0 00 040175 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6853	037546	201 04 0 00 000001 		MOVEI	AC-1,1		;ROUTINE WEIGHTING
  6854	037547	240 04 1 00 030665 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6855	037550	240 04 1 00 030664 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6856	037551	200 05 0 00 040110 	ABJN2B:	MOVE	AC,[XWD -100,-100]
  6857	037552	253 05 0 00 037552 		AOBJN	AC,.		;STAY HERE UNTIL C(AC) IS POS.
  6858	037553	312 05 0 00 040075 		CAME	AC,[XWD 1,0]	;C(AC) SHOULD = THIS CONSTANT.
  6859	037554	004 05 0 00 040075 		ERROR	AC,[XWD 1,0]	;(WITH CARRY FROM RH TO LH)
  6860	037555	367 04 0 00 037551 		SOJG	AC-1,ABJN2B	;ITERATION COUNTER.
  6861	037556	321 04 0 00 037551 		JUMPL	AC-1,ABJN2B	;LOOP ON ERROR SWITCH.
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 154
DAKBCM	MAC	21-JAN-77 16:49		DIAGNOSTIC SECTION                                                                 SEQ 0185

  6862					;JFFO RELIABILITY TEST
  6863
  6864			000001		YY=1
  6865			000010			AC=10
  6866			000015		RAN1=15
  6867	037557	201 05 0 00 000005 	JFOT0:	MOVEI	5,5
  6868	037560	202 05 0 00 040175 		MOVEM	5,ERRLOP
  6869	037561	201 00 0 00 001000 		MOVEI	0,1000
  6870	037562	202 00 0 00 040176 		MOVEM	0,JFCNTR#
  6871	037563				JFOT0A:	RANDOM^
  6872	037563	200 10 0 00 040201 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6873	037564	270 10 0 00 040071 		ADD	AC,[142536475076]
  6874	037565	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6875	037566	447 10 0 00 040201 		EQVB	AC,RAN		;REGISTER RAN ^
  6876	037567	241 10 0 00 000001 		ROT	AC,1
  6877	037570	447 10 0 00 000015 		EQVB	AC,RAN1
  6878	037571	200 02 0 00 040201 	JFOT1:	MOVE	2,RAN
  6879	037572	403 03 0 00 000004 		SETZB	3,4
  6880	037573	332 00 0 00 000002 		SKIPE	2
  6881	037574	603 02 0 00 400000 	JFOT2:	TLNE	2,400000
  6882	037575	254 00 0 00 037601 		JRST	JFOT3
  6883	037576	241 02 0 00 000001 		ROT	2,1
  6884	037577	201 04 0 00 000001 		MOVEI	4,1
  6885	037600	344 03 0 00 037574 		AOJA	3,JFOT2
  6886	037601	200 01 0 00 040201 	JFOT3:	MOVE	1,RAN
  6887	037602	200 02 0 00 000015 		MOVE	2,RAN1
  6888	037603	243 01 1 04 037617 		JFFO	1,@JFTAB(4)
  6889	037604	332 00 0 00 040201 		SKIPE	RAN
  6890	037605	007 01 0 00 000001 		ERM	1,YY		;C(AC) HAD A BIT SET SO PC SHOULD
  6891	037606	321 05 0 00 037571 		JUMPL	5,JFOT1	;HAVE GONE TO E.
  6892	037607	254 00 0 00 037622 		JRST	JFOND
  6893
  6894	037610	332 00 0 00 000002 	JFOT4:	SKIPE	2		;C(AC+1) GET CLEARED?
  6895	037611	007 02 0 00 000002 		ERM	2,YY+1		;NO.
  6896	037612	254 00 0 00 037615 		JRST	JFOT6
  6897	037613	312 02 0 00 000003 	JFOT5:	CAME	2,3		;C(AC+1) GET CORECT NUMBER OF LEADING ZERO BITS IN AC?
  6898	037614	007 02 0 00 000003 		ERM	2,YY+2		;NO.
  6899	037615	321 05 0 00 037571 	JFOT6:	JUMPL	5,JFOT1
  6900	037616	254 00 0 00 037622 		JRST	JFOND
  6901	037617	000000	037610		JFTAB:	XWD	0,JFOT4
  6902	037620	000000	037613			XWD	0,JFOT5
  6903
  6904	037621	252525	252525		K1:	252525252525
  6905
  6906	037622	372 00 0 00 040176 	JFOND:	SOSE	JFCNTR		;DECREMENT JFFO RAN NUM CNT.
  6907	037623	254 00 0 00 037563 		JRST	JFOT0A		;CONTINUE IF NON 0.
  6908
  6909
  6910
  6911	037624	254 00 0 00 030057 		JRST	BEGEND		;REPEAT TEST
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 1
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0186

  6912					SUBTTL	*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975
  6913
  6914					;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
  6915
  6916	037625	202 00 0 00 040210 	ERRMES:	MOVEM	0,%ERAC0#	;SAVE AC0
  6917						IFDEF	EXCASB,<IFDEF	KI10,<
  6918						SKIPN	KAIFLG
  6919						JRST	.+5
  6920						SKIPE	USER		;USER MODE ?
  6921						JRST	.+3
  6922						SKIPE	MARGIN
  6923						DATAO	APR,[IMGNOF,,ISPDOF] ;CLR MARGINS >>
  6924	037626	202 01 0 00 040211 		MOVEM	1,%ERAC1#	;SAVE AC1
  6925	037627	202 02 0 00 040212 		MOVEM	2,%ERAC2#	;SAVE AC2
  6926	037630	350 00 0 00 030053 		AOS	ERRTLS		;INCREMENT ERROR TOTALS
  6927	037631	550 00 0 00 030114 		HRRZ	0,$SVUPC	;GET PC OF UUO
  6928	037632	316 00 0 00 030052 		CAMN	0,ERRPC		;PC = PC OF LAST ERROR ?
  6929	037633	350 00 0 00 040177 		AOS	MICNT#		;YES, ADD 1 TO ERROR COUNT
  6930	037634	200 00 0 00 040177 		MOVE	0,MICNT
  6931	037635	504 00 0 00 030114 		HRL	0,$SVUPC
  6932	037636	336 00 0 00 030041 		SKIPN	KLFLG		;NOT KL10
  6933	037637	332 00 0 00 030037 		SKIPE	USER		;AND NOT USER?
  6934	037640	254 00 0 00 037642 		JRST	.+2
  6935	037641	7 004 14 0 00 000000 		DATAO	PI,0		;YES, DISPLAY ERROR PC,ERROR COUNT
  6936	037642	402 00 0 00 040200 		SETZM	PROCED#		;CLEAR PROCEED FLAG
  6937	037643	037 10 0 00 000002 		SWITCH
  6938	037644	603 00 0 00 040000 		TLNE	NOPNT		;PRINTOUT ?
  6939	037645	254 00 0 00 040031 		JRST	%ERRS1		;NO, RESTORE AC'S AND RETURN
  6940	037646	200 01 0 00 030113 		MOVE	1,$SVUUO
  6941	037647	242 01 0 00 777745 		LSH	1,-^D27
  6942	037650	202 01 0 00 040202 		MOVEM	1,%ACS1A#	;SAVE UUO NUMBER
  6943	037651	200 00 0 00 040210 		MOVE	0,%ERAC0
  6944	037652	200 01 0 00 040211 		MOVE	1,%ERAC1
  6945	037653	335 00 1 00 040175 		SKIPGE	@ERRLOP		;ERR LOOP AC > OR = 0 ?
  6946	037654	254 00 0 00 040063 		JRST	%ERRS4		;NO, SEE IF PRINT ALL
  6947	037655	402 00 0 00 040177 	%ERMS1:	SETZM	MICNT		;CLEAR ERROR COUNT
  6948	037656	331 00 0 00 030043 		SKIPL	MONCTL		;DIAG MON OR SYS EXER ?
  6949	037657	254 00 0 00 037663 		JRST	.+4		;NO, DON'T NEED TITLE
  6950	037660	336 00 0 00 040213 		SKIPN	%ERFST#		;FIRST ERROR ?
  6951	037661	037 04 0 00 000002 		PNTNM			;YES, PRINT PROGRAM TITLE
  6952	037662	476 00 0 00 040213 		SETOM	%ERFST
  6953	037663	336 00 0 00 030047 		SKIPN	PASCNT		;FIRST PASS ?
  6954	037664	254 00 0 00 037670 		JRST	.+4		;YES
  6955						PMSG	<^TEST PASS COUNT = >^
  6956	037665	037 02 0 00 040111 		PSIXM	[SIXBIT\^TEST PASS COUNT = _\]^
  6957	037666	200 00 0 00 030047 		MOVE	PASCNT
  6958	037667	037 15 0 00 000000 		PNTDEC
  6959						PMSG	<^PC =   >^
  6960	037670	037 02 0 00 040115 		PSIXM	[SIXBIT\^PC =   _\]^
  6961	037671	550 00 0 00 030114 		HRRZ	0,$SVUPC	;GET PC OF UUO
  6962	037672	202 00 0 00 030052 		MOVEM	0,ERRPC		;SAVE FOR COMPARE
  6963	037673	037 06 0 00 000000 		PNT6			;PRINT UUO ADDRESS
  6964						XLIST
  6965						LIST
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 4
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0187

  6966					;RELIABILITY FORMAT ERROR PRINTER
  6967
  6968	037674	402 00 0 00 040214 	%ERMS2:	SETZM	%RAND#		;CLEAR PNT C(RAN) FLAG
  6969	037675	200 01 0 00 040202 		MOVE	1,%ACS1A
  6970	037676	301 01 0 00 000011 		CAIL	1,11		;UUO # 11-13
  6971	037677	476 00 0 00 040214 		SETOM	%RAND		;YES, SET PNT C(RAN) FLAG
  6972	037700	620 01 0 00 000010 		TRZ	1,10		;MAKE UUO # 1-7
  6973	037701	202 01 0 00 040202 		MOVEM	1,%ACS1A
  6974	037702	200 02 0 00 030052 		MOVE	2,ERRPC		;GET UUO ADDRESS
  6975	037703	200 02 0 02 777777 		MOVE	2,-1(2)		;GET INST IN UUO-1
  6976	037704	301 01 0 00 000004 		CAIL	1,4		;UUO # < THAN 4 ?
  6977	037705	200 02 0 00 030113 		MOVE	2,$SVUUO	;YES, GET UUO
  6978	037706	202 02 0 00 040203 		MOVEM	2,%CNTE#	;SAVE E ADDRESS
  6979	037707	200 02 0 00 040212 		MOVE	2,%ERAC2
  6980	037710	200 01 0 00 040211 		MOVE	1,%ERAC1
  6981	037711	200 00 0 00 040210 		MOVE	0,%ERAC0
  6982	037712	201 01 1 00 040203 		MOVEI	1,@%CNTE	;GET ADRS FIELD OF UUO OR UUO-1
  6983	037713	202 01 0 00 040204 		MOVEM	1,%EE1#
  6984	037714	200 01 0 00 040211 		MOVE	1,%ERAC1
  6985	037715	200 01 1 00 040204 		MOVE	1,@%EE1		;GET C(E)
  6986	037716	202 01 0 00 040205 		MOVEM	1,%EE1A#
  6987	037717	200 01 0 00 040211 		MOVE	1,%ERAC1
  6988	037720	201 01 1 00 030113 		MOVEI	1,@$SVUUO	;GET ADDRESS FIELD OF UUO
  6989	037721	202 01 0 00 040206 		MOVEM	1,%EE2#
  6990	037722	200 01 0 00 040202 		MOVE	1,%ACS1A
  6991	037723	306 01 0 00 000003 		CAIN	1,3		;UUO # 3 ?
  6992	037724	254 00 0 00 037730 		JRST	.+4		;YES
  6993	037725	200 01 0 00 040211 		MOVE	1,%ERAC1
  6994	037726	200 01 1 00 040206 		MOVE	1,@%EE2		;GET C(E) OF UUO
  6995	037727	202 01 0 00 040207 		MOVEM	1,%EE2A#
  6996	037730	200 02 0 00 040202 		MOVE	2,%ACS1A	;GET UUO #
  6997	037731	200 01 0 00 040203 		MOVE	1,%CNTE
  6998	037732	242 01 0 00 777751 		LSH	1,-27		;GET AC NUMBER
  6999	037733	405 01 0 00 000017 		ANDI	1,17
  7000	037734	307 02 0 00 000005 		CAIG	2,5		;UUO # 6,7 OR 2
  7001	037735	306 02 0 00 000002 		CAIN	2,2
  7002	037736	254 00 0 00 040005 		JRST	%ERR2		;YES, GO PNT E AND C(E)
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 5
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0188

  7003					;PRINT ERROR AC
  7004
  7005						PMSG	<^AC =   >^
  7006	037737	037 02 0 00 040117 		PSIXM	[SIXBIT\^AC =   _\]^
  7007	037740	200 00 0 00 000001 		MOVE	0,1
  7008	037741	037 02 0 00 000000 		PNT2			;PRINT AC NUMBER
  7009						PMSG	<^C(AC)= >^
  7010	037742	037 02 0 00 040121 		PSIXM	[SIXBIT\^C(AC)= _\]^
  7011	037743	200 00 0 01 000000 		MOVE	0,(1)		;GET C(AC)
  7012	037744	307 01 0 00 000002 		CAIG	1,2		;IS AC # = SAVED AC ?
  7013	037745	200 00 0 01 040210 		MOVE	0,%ERAC0(1)	;YES, GET SAVED AC
  7014	037746	037 13 0 00 000000 	%ERRB:	PNTHW			;PRINT C(AC) OR UUO2 (E)
  7015
  7016					;PRINT ERROR INFO
  7017
  7018	037747	306 02 0 00 000005 		CAIN	2,5		;UUO # 5
  7019	037750	254 00 0 00 040021 		JRST	%ERR4		;YES, GO PNT 'TST','SKP', OR ETC.
  7020
  7021						PMSG	<^COR =  >^
  7022	037751	037 02 0 00 040123 		PSIXM	[SIXBIT\^COR =  _\]^
  7023	037752	200 00 0 01 000000 		MOVE	0,(1)		;GET C(AC)
  7024	037753	307 01 0 00 000002 		CAIG	1,2		;IS AC # = SAVED AC ?
  7025	037754	200 00 0 01 040210 		MOVE	0,%ERAC0(1)	;YES, GET SAVED AC
  7026	037755	302 02 0 00 000002 		CAIE	2,2
  7027	037756	200 00 0 00 040205 		MOVE	0,%EE1A		;UUO # 2, GET C(E)
  7028	037757	037 13 0 00 000000 		PNTHW			;PRINT C(E) OR UUO2 C(AC)
  7029	037760	301 02 0 00 000004 		CAIL	2,4		;UUO # >3 ?
  7030	037761	254 00 0 00 040024 		JRST	%ERRC		;YES, RESTORE AC'S AND RETURN
  7031
  7032						PMSG	<^    ORIGINAL>^
  7033	037762	037 02 0 00 040125 		PSIXM	[SIXBIT\^    ORIGINAL_\]^
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 6
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0189

  7034	037763	200 01 0 00 030113 	%ERRB1:	MOVE	1,$SVUUO
  7035	037764	242 01 0 00 777751 		LSH	1,-27		;GET AC # OF UUO
  7036	037765	405 01 0 00 000017 		ANDI	1,17
  7037						PMSG	<^C(AC)= >^
  7038	037766	037 02 0 00 040121 		PSIXM	[SIXBIT\^C(AC)= _\]^
  7039	037767	200 00 0 01 000000 		MOVE	0,(1)		;GET C(AC)
  7040	037770	307 01 0 00 000002 		CAIG	1,2		;IS AC # = SAVED AC ?
  7041	037771	200 00 0 01 040210 		MOVE	0,%ERAC0(1)	;YES, GET SAVED AC
  7042	037772	332 00 0 00 040214 		SKIPE	%RAND		;PRINT C(RAN) FLAG SET ?
  7043	037773	200 00 0 00 040201 		MOVE	0,RAN#		;YES
  7044	037774	037 13 0 00 000000 		PNTHW			;PRINT C(AC) OR C(RAN)
  7045	037775	306 02 0 00 000003 		CAIN	2,3		;UUO # 3 ?
  7046	037776	254 00 0 00 040005 		JRST	%ERR2		;YES, PRINT E, RESTORE AC'S AND RETURN
  7047	037777	306 02 0 00 000007 		CAIN	2,7		;UUO # 7 ?
  7048	040000	254 00 0 00 040024 		JRST	%ERRC		;YES, BYPASS PRINTING C(E)
  7049						PMSG	<^C(E) = >^
  7050	040001	037 02 0 00 040130 		PSIXM	[SIXBIT\^C(E) = _\]^
  7051	040002	200 00 0 00 040207 		MOVE	0,%EE2A
  7052	040003	037 13 0 00 000000 		PNTHW			;PRINT C(E)
  7053	040004	254 00 0 00 040024 		JRST	%ERRC
  7054
  7055	040005				%ERR2:	PMSG	<^E =    >^
  7056	040005	037 02 0 00 040132 		PSIXM	[SIXBIT\^E =    _\]^
  7057	040006	200 00 0 00 040206 		MOVE	0,%EE2
  7058	040007	306 02 0 00 000002 		CAIN	2,2		;UUO # 2 ?
  7059	040010	200 00 0 00 040204 		MOVE	0,%EE1
  7060	040011	037 06 0 00 000000 		PNT6			;PRINT E OF UUO OR UUO-1
  7061	040012	301 02 0 00 000006 		CAIL	2,6		;UUO 6 OR 7 ?
  7062	040013	254 00 0 00 037763 		JRST	%ERRB1		;YES, GO PNT C(AC), C(E) AND RETURN
  7063	040014	306 02 0 00 000003 		CAIN	2,3		;UUO # 3 ?
  7064	040015	254 00 0 00 040024 		JRST	%ERRC		;YES, RESTORE AC'S AND RETURN
  7065
  7066						PMSG	<^C(E) = >^
  7067	040016	037 02 0 00 040130 		PSIXM	[SIXBIT\^C(E) = _\]^
  7068	040017	200 00 0 00 040205 		MOVE	0,%EE1A		;GET C(E)
  7069	040020	254 00 0 00 037746 		JRST	%ERRB
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 7
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0190

  7070					;PRINT ASCII COMMENT
  7071
  7072	040021	551 00 1 00 030113 	%ERR4:	HRRZI	0,@$SVUUO
  7073	040022	037 00 0 00 000000 		PNTA			;PRINT 'TST','SKP', OR ETC.
  7074	040023	254 00 0 00 040024 		JRST	%ERRC
  7075
  7076					;COMPLETE PRINTOUT
  7077
  7078	040024	037 00 0 00 030242 	%ERRC:	PCRL
  7079
  7080						XLIST
  7081						LIST
  7082	040025	254 00 0 00 040026 		JRST	%ERMORE
  7083
  7084					>
  7085						LIST
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 8
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0191

  7086					;RESTORE AC'S AND RETURN OR HALT
  7087
  7088	040026	256 00 0 00 030101 	%ERMORE:XCT	ERMORE
  7089	040027	037 16 0 00 000002 		PNTMGN			;PRINT MARGINS	
  7090	040030	037 10 0 00 000002 		SWITCH
  7091
  7092	040031	037 07 0 00 000003 	%ERRS1:	TTALTM			;ALTMODE CHECK
  7093	040032	254 00 0 00 040036 		JRST	.+4		;NONE
  7094	040033	201 00 0 00 040036 		MOVEI	.+3		;SAVE CONT ADDRESS
  7095	040034	202 00 0 00 000130 		MOVEM	JOBOPC
  7096	040035	254 00 1 00 030063 		JRST	@ALTMGO		;PERFORM TRANSFER
  7097	040036	200 00 0 00 030046 		MOVE	CONSW
  7098	040037	603 00 0 00 002000 		TLNE	0,ERSTOP	;HALT ON ERROR SWITCH SET ?
  7099	040040	037 14 0 00 000004 		ERRHLT			;YES
  7100	040041	607 00 0 00 004000 		TLNN	0,LOOPER	;LOOP ON ERROR SWITCH SET ?
  7101	040042	476 00 0 00 040200 		SETOM	PROCED		;NO, SET THE PROCEED FLAG
  7102	040043	603 00 0 00 010000 		TLNE	0,DING		;RING BELL SWITCH SET ?
  7103	040044	037 01 0 00 000007 		PBELL			;YES, GO RING BELL
  7104
  7105	040045	200 02 0 00 040212 	%ERRS2:	MOVE	2,%ERAC2	;RESTORE AC'S
  7106	040046	200 01 0 00 040211 		MOVE	1,%ERAC1
  7107	040047	476 00 1 00 040175 		SETOM	@ERRLOP		;SET C(ERR LOOP AC) TO -1
  7108	040050	336 00 0 00 040200 		SKIPN	PROCED		;LOOP ON ERROR ?
  7109	040051	254 00 0 00 040061 		JRST	%ERRS5		;YES
  7110	040052	350 00 1 00 040175 		AOS	@ERRLOP		;NO, INC C(ERR LOOP AC)
  7111	040053	350 00 1 00 040175 		AOS	@ERRLOP		;SO IT ='S 1
  7112	040054	331 00 0 00 030043 		SKIPL	MONCTL		;UNDER DIAGNOSTIC MONITOR ?
  7113	040055	254 00 0 00 040061 		JRST	%ERRS5		;NO, CONTINUE PROGRAM
  7114	040056	200 00 0 00 030053 		MOVE	0,ERRTLS	;YES
  7115	040057	301 00 0 00 000005 		CAIL	0,5		;PRINTED ALLOWED ERRORS ?
  7116	040060	254 00 0 00 030061 		JRST	$BEND2
  7117
  7118	040061	200 00 0 00 040210 	%ERRS5:	MOVE	0,%ERAC0	;NO, CONTINUE PROGRAM
  7119						IFDEF	EXCASB,<IFDEF KI10,<
  7120						SKIPN	KAIFLG
  7121						JRST	.+5
  7122						SKIPE	USER
  7123						JRST	.+3
  7124						SKIPE	MARGIN
  7125						DATAO	APR,MARGIN	;RESET MARGIN SYSTEM >>
  7126	040062	254 00 0 00 030065 		JRST	UUOEXT
  7127
  7128	040063	200 00 0 00 030046 	%ERRS4:	MOVE	0,CONSW
  7129	040064	607 00 0 00 001000 		TLNN	PALERS		;PRINT ALL ERRORS ?
  7130	040065	254 00 0 00 040031 		JRST	%ERRS1		;NO
  7131	040066	254 00 0 00 037655 		JRST	%ERMS1		;YES
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0192

  7132					SUBTTL	*STOR* RESERVED STORAGE, JAN 18,1977
  7133
  7134					;PROGRAM LITERALS
  7135
  7136						XLIST
  7137					IFNDEF	$LPAPER,<LIST>
  7138	040067					LIT
  7139	040067	64 51 55 45 62 00 
  7140	040070	45 70 51 64 00 00 
  7141	040071	142536	475076
  7142	040072	124 123 124 000 000 
  7143	040073	777777	777777
  7144	040074	000000	000000
  7145	040075	000001	000000
  7146	040076	000100	000100
  7147	040077	010000	010000
  7148	040100	777777	000000
  7149	040101	400000	400000
  7150	040102	000001	000001
  7151	040103	400002	000002
  7152	040104	000002	000002
  7153	040105	101 117 102 112 120 
  7154	040106	101 117 102 112 116 
  7155	040107	377677	377677
  7156	040110	777700	777700
  7157	040111	76 64 45 63 64 00 
  7158	040112	60 41 63 63 00 43 
  7159	040113	57 65 56 64 00 35 
  7160	040114	00 77 00 00 00 00 
  7161	040115	76 60 43 00 35 00 
  7162	040116	00 00 77 00 00 00 
  7163	040117	76 41 43 00 35 00 
  7164	040120	00 00 77 00 00 00 
  7165	040121	76 43 10 41 43 11 
  7166	040122	35 00 77 00 00 00 
  7167	040123	76 43 57 62 00 35 
  7168	040124	00 00 77 00 00 00 
  7169	040125	76 00 00 00 00 57 
  7170	040126	62 51 47 51 56 41 
  7171	040127	54 77 00 00 00 00 
  7172	040130	76 43 10 45 11 00 
  7173	040131	35 00 77 00 00 00 
  7174	040132	76 45 00 35 00 00 
  7175	040133	00 00 77 00 00 00 
  7176						LIST
  7177	040134	000000	000000		ENDSLD:	0
  7178
  7179					IFDEF	DEBUG,<
  7180	040135				PATCH:	BLOCK DEBUG		;PATCHING AREA
  7181					>
  7182
  7183					;PROGRAM VARIABLES
  7184	040175					VAR
  7185
  7186					IFDEF	PGMEND,<
DAKBC  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 	MACRO %52(537) 17:35 21-JAN-77 PAGE 1-1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0193

  7187	040215	000000	000000		END:	0
  7188			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 040216
CPU TIME USED 00:32.328

11K CORE USED

A	   678#	   688	   690	   690#	   691	   693	   693#	   694	   696	   696#	   697	   699	   699#	   700
	   702	   702#	   703	   705	   705#	   706	   708	   708#                                                    SEQ 0194
AABCLR	   345#
AADRBK	   345#
AAPRC1	   345#
ABJN1	  6687#
ABJN1A	  6771#
ABJN1B	  6785#	  6801
ABJN1C	  6790#	  6803
ABJN2	  6701#	  6714
ABJN2A	  6842#
ABJN2B	  6856#	  6860	  6861
ABJN3	  6706#	  6716
ABJP1	  6647#
ABJP1A	  6728#
ABJP1B	  6742#	  6757
ABJP1C	  6747#	  6759
ABJP2	  6661#	  6674
ABJP2A	  6815#
ABJP2B	  6829#	  6834	  6835
ABJP3	  6666#	  6676
ABORT	   116#
AC	   761#	   763	   764	   765	   766	   767	   768	   769	   770	   771	   772	   773	   774	   775
	   777	   778	   779	   780	   781	   783	   784	   785	   786	   789	   790	   791	   799#	   801
	   802	   803	   804	   805	   806	   807	   808	   809	   810	   811	   812	   813	   815	   816
	   817	   818	   820	   823	   826	   828	   829	   830	   838#	   840	   841	   842	   843	   844
	   845	   846	   847	   848	   849	   850	   851	   852	   854	   855	   856	   857	   858	   859
	   861	   862	   863	   864	   867	   868	   869	   877#	   879	   880	   881	   882	   883	   884
	   885	   886	   887	   888	   889	   890	   891	   893	   894	   895	   896	   897	   898	   900
	   901	   902	   903	   906	   907	   908	   916#	   918	   919	   920	   921	   922	   923	   924
	   925	   926	   927	   928	   929	   930	   932	   933	   934	   935	   936	   938	   939	   940
	   941	   944	   945	   946	   954#	   956	   957	   958	   959	   960	   961	   962	   963	   964
	   965	   966	   967	   968	   970	   971	   972	   973	   974	   977	   980	   983	   984	   986
	   988	   990	   991	   992	  1000#	  1002	  1003	  1004	  1005	  1006	  1007	  1008	  1009	  1010
	  1011	  1012	  1013	  1014	  1016	  1017	  1018	  1019	  1020	  1021	  1024	  1025	  1027	  1028
	  1029	  1030	  1033	  1034	  1035	  1043#	  1045	  1046	  1047	  1048	  1049	  1050	  1051	  1052
	  1053	  1054	  1055	  1056	  1057	  1059	  1060	  1061	  1062	  1063	  1065	  1068	  1071	  1072
	  1074	  1076	  1078	  1079	  1080	  1088#	  1090	  1091	  1092	  1093	  1094	  1095	  1096	  1097
	  1098	  1099	  1100	  1101	  1102	  1104	  1105	  1106	  1107	  1108	  1109	  1110	  1111	  1113
	  1114	  1115	  1116	  1118	  1119	  1120	  1121	  1124	  1125	  1126	  1133#	  1135	  1136	  1137
	  1138	  1139	  1140	  1141	  1142	  1143	  1144	  1145	  1146	  1147	  1150	  1151	  1152	  1153
	  1157	  1158	  1159	  1161	  1162	  1163	  1164	  1166	  1167	  1168	  1169	  1172	  1173	  1174
	  1182#	  1184	  1185	  1186	  1187	  1188	  1189	  1190	  1191	  1192	  1193	  1194	  1195	  1196
	  1198	  1199	  1200	  1201	  1202	  1204	  1205	  1206	  1207	  1210	  1211	  1212	  1220#	  1222
	  1223	  1224	  1225	  1226	  1227	  1228	  1229	  1230	  1231	  1232	  1233	  1234	  1236	  1237
	  1238	  1239	  1241	  1244	  1247	  1249	  1250	  1251	  1259#	  1261	  1262	  1263	  1264	  1265
	  1266	  1267	  1268	  1269	  1270	  1271	  1272	  1273	  1275	  1276	  1277	  1278	  1279	  1281
	  1282	  1283	  1284	  1287	  1288	  1289	  1297#	  1299	  1300	  1301	  1302	  1303	  1304	  1305
	  1306	  1307	  1308	  1309	  1310	  1311	  1313	  1314	  1315	  1316	  1318	  1321	  1324	  1326
	  1327	  1328	  1336#	  1338	  1339	  1340	  1341	  1342	  1343	  1344	  1345	  1346	  1347	  1348
	  1349	  1350	  1352	  1353	  1354	  1355	  1356	  1357	  1359	  1360	  1361	  1362	  1365	  1366
	  1367	  1375#	  1377	  1378	  1379	  1380	  1381	  1382	  1383	  1384	  1385	  1386	  1387	  1388
	  1389	  1391	  1392	  1393	  1394	  1395	  1397	  1399	  1400	  1401	  1402	  1405	  1406	  1407
	  1415#	  1417	  1418	  1419	  1420	  1421	  1422	  1423	  1424	  1425	  1426	  1427	  1428	  1429
	  1431	  1432	  1433	  1434	  1435	  1437	  1438	  1439	  1440	  1443	  1444	  1445	  1453#	  1455     SEQ 0195
	  1456	  1457	  1458	  1459	  1460	  1461	  1462	  1463	  1464	  1465	  1466	  1467	  1469	  1470
	  1471	  1472	  1474	  1477	  1480	  1482	  1483	  1484	  1492#	  1494	  1495	  1496	  1497	  1498
	  1499	  1500	  1501	  1502	  1503	  1504	  1505	  1506	  1508	  1509	  1510	  1511	  1512	  1513
	  1514	  1516	  1517	  1518	  1519	  1522	  1523	  1524	  1532#	  1534	  1535	  1536	  1537	  1538
	  1539	  1540	  1541	  1542	  1543	  1544	  1545	  1546	  1548	  1549	  1550	  1551	  1552	  1554
	  1557	  1560	  1562	  1563	  1564	  1572#	  1574	  1575	  1576	  1577	  1578	  1579	  1580	  1581
	  1582	  1583	  1584	  1585	  1586	  1588	  1589	  1590	  1591	  1592	  1593	  1594	  1595	  1597
	  1598	  1599	  1600	  1603	  1604	  1605	  1613#	  1615	  1616	  1617	  1618	  1619	  1620	  1621
	  1622	  1623	  1624	  1625	  1626	  1627	  1629	  1630	  1631	  1632	  1633	  1634	  1635	  1636
	  1638	  1639	  1640	  1641	  1644	  1645	  1646	  1654#	  1656	  1657	  1658	  1659	  1660	  1661
	  1662	  1663	  1664	  1665	  1666	  1667	  1668	  1670	  1671	  1672	  1673	  1674	  1676	  1677
	  1678	  1679	  1682	  1683	  1684	  1692#	  1694	  1695	  1696	  1697	  1698	  1699	  1700	  1701
	  1702	  1703	  1704	  1705	  1706	  1708	  1709	  1710	  1711	  1713	  1716	  1719	  1721	  1722
	  1723	  1731#	  1733	  1734	  1735	  1736	  1737	  1738	  1739	  1740	  1741	  1742	  1743	  1744
	  1745	  1747	  1748	  1749	  1750	  1751	  1753	  1755	  1756	  1757	  1758	  1761	  1762	  1763
	  1771#	  1773	  1774	  1775	  1776	  1777	  1778	  1779	  1780	  1781	  1782	  1783	  1784	  1785
	  1787	  1788	  1789	  1790	  1792	  1794	  1800#	  1802	  1803	  1804	  1805	  1806	  1807	  1808
	  1809	  1810	  1811	  1812	  1813	  1814	  1816	  1817	  1818	  1819	  1820	  1823	  1824	  1826
	  1827	  1828	  1829	  1832	  1833	  1834	  1842#	  1844	  1845	  1846	  1847	  1848	  1849	  1850
	  1851	  1852	  1853	  1854	  1855	  1856	  1858	  1859	  1860	  1861	  1862	  1864	  1865	  1866
	  1867	  1870	  1871	  1872	  1880#	  1882	  1883	  1884	  1885	  1886	  1887	  1888	  1889	  1890
	  1891	  1892	  1893	  1894	  1896	  1897	  1898	  1899	  1901	  1904	  1907	  1909	  1910	  1911
	  1919#	  1921	  1922	  1923	  1924	  1925	  1926	  1927	  1928	  1929	  1930	  1931	  1932	  1933
	  1935	  1936	  1937	  1938	  1939	  1940	  1941	  1943	  1944	  1946	  1947	  1948	  1949	  1952
	  1953	  1954	  1962#	  1964	  1965	  1966	  1967	  1968	  1969	  1970	  1971	  1972	  1973	  1974
	  1975	  1976	  1978	  1979	  1980	  1981	  1982	  1984	  1986	  1988	  1990	  1993	  1995	  1996
	  1997	  2005#	  2007	  2008	  2009	  2010	  2011	  2012	  2013	  2014	  2015	  2016	  2017	  2018
	  2019	  2021	  2022	  2023	  2024	  2025	  2026	  2027	  2028	  2030	  2031	  2033	  2034	  2035
	  2036	  2039	  2040	  2041	  2049#	  2051	  2052	  2053	  2054	  2055	  2056	  2057	  2058	  2059
	  2060	  2061	  2062	  2063	  2065	  2066	  2067	  2068	  2069	  2070	  2071	  2073	  2074	  2075
	  2077	  2078	  2079	  2080	  2083	  2084	  2085	  2093#	  2095	  2096	  2097	  2098	  2099	  2100
	  2101	  2102	  2103	  2104	  2105	  2106	  2107	  2109	  2110	  2111	  2112	  2113	  2115	  2116
	  2117	  2118	  2121	  2122	  2123	  2131#	  2133	  2134	  2135	  2136	  2137	  2138	  2139	  2140
	  2141	  2142	  2143	  2144	  2145	  2147	  2148	  2149	  2150	  2152	  2153	  2156	  2159	  2161
	  2162	  2163	  2171#	  2173	  2174	  2175	  2176	  2177	  2178	  2179	  2180	  2181	  2182	  2183
	  2184	  2185	  2187	  2188	  2189	  2190	  2191	  2193	  2195	  2196	  2197	  2198	  2201	  2202
	  2203	  2211#	  2213	  2214	  2215	  2216	  2217	  2218	  2219	  2220	  2221	  2222	  2223	  2224
	  2225	  2227	  2228	  2229	  2230	  2232	  2235	  2238	  2240	  2241	  2242	  2250#	  2252	  2253
	  2254	  2255	  2256	  2257	  2258	  2259	  2260	  2261	  2262	  2263	  2264	  2266	  2267	  2268
	  2269	  2270	  2271	  2273	  2274	  2275	  2276	  2279	  2280	  2281	  2289#	  2291	  2292	  2293
	  2294	  2295	  2296	  2297	  2298	  2299	  2300	  2301	  2302	  2303	  2305	  2306	  2307	  2308
	  2309	  2312	  2313	  2315	  2316	  2317	  2318	  2321	  2322	  2323	  2331#	  2333	  2334	  2335
	  2336	  2337	  2338	  2339	  2340	  2341	  2342	  2343	  2344	  2345	  2347	  2348	  2349	  2350
	  2351	  2353	  2354	  2355	  2356	  2359	  2360	  2361	  2369#	  2371	  2372	  2373	  2374	  2375
	  2376	  2377	  2378	  2379	  2380	  2381	  2382	  2383	  2385	  2386	  2387	  2388	  2389	  2391
	  2392	  2394	  2397	  2399	  2400	  2401	  2409#	  2411	  2412	  2413	  2414	  2415	  2416	  2417
	  2418	  2419	  2420	  2421	  2422	  2423	  2425	  2426	  2427	  2428	  2429	  2430	  2432	  2433
	  2435	  2436	  2437	  2438	  2441	  2442	  2443	  2451#	  2453	  2454	  2455	  2456	  2457	  2458
	  2459	  2460	  2461	  2462	  2463	  2464	  2465	  2467	  2468	  2469	  2470	  2471	  2473	  2476
	  2479	  2481	  2482	  2483	  2491#	  2493	  2494	  2495	  2496	  2497	  2498	  2499	  2500	  2501
	  2502	  2503	  2504	  2505	  2507	  2508	  2509	  2510	  2511	  2512	  2513	  2514	  2516	  2517
	  2518	  2519	  2522	  2523	  2524	  2532#	  2534	  2535	  2536	  2537	  2538	  2539	  2540	  2541
	  2542	  2543	  2544	  2545	  2546	  2548	  2549	  2550	  2551	  2552	  2553	  2554	  2556	  2557     SEQ 0196
	  2559	  2560	  2561	  2562	  2565	  2566	  2567	  2575#	  2577	  2578	  2579	  2580	  2581	  2582
	  2583	  2584	  2585	  2586	  2587	  2588	  2589	  2591	  2592	  2593	  2594	  2595	  2597	  2598
	  2599	  2600	  2603	  2604	  2605	  2613#	  2615	  2616	  2617	  2618	  2619	  2620	  2621	  2622
	  2623	  2624	  2625	  2626	  2627	  2629	  2630	  2631	  2632	  2634	  2637	  2640	  2642	  2643
	  2644	  2650#	  2652	  2653	  2654	  2655	  2656	  2657	  2658	  2659	  2660	  2661	  2662	  2663
	  2664	  2666	  2667	  2668	  2669	  2670	  2672	  2673	  2674	  2675	  2678	  2679	  2680	  2688#
	  2690	  2691	  2692	  2693	  2694	  2695	  2696	  2697	  2698	  2699	  2700	  2701	  2702	  2704
	  2705	  2706	  2707	  2709	  2712	  2715	  2717	  2718	  2719	  2727#	  2729	  2730	  2731	  2732
	  2733	  2734	  2735	  2736	  2737	  2738	  2739	  2740	  2741	  2743	  2744	  2745	  2746	  2747
	  2748	  2750	  2751	  2752	  2753	  2756	  2757	  2758	  2766#	  2768	  2769	  2770	  2771	  2772
	  2773	  2774	  2775	  2776	  2777	  2778	  2779	  2780	  2782	  2783	  2784	  2785	  2786	  2788
	  2790	  2791	  2792	  2793	  2796	  2797	  2798	  2806#	  2808	  2809	  2810	  2811	  2812	  2813
	  2814	  2815	  2816	  2817	  2818	  2819	  2820	  2822	  2823	  2824	  2825	  2826	  2828	  2829
	  2830	  2831	  2834	  2835	  2836	  2844#	  2846	  2847	  2848	  2849	  2850	  2851	  2852	  2853
	  2854	  2855	  2856	  2857	  2858	  2860	  2861	  2862	  2863	  2864	  2866	  2869	  2872	  2873
	  2875	  2877	  2879	  2880	  2881	  2889#	  2891	  2892	  2893	  2894	  2895	  2896	  2897	  2898
	  2899	  2900	  2901	  2902	  2903	  2905	  2906	  2907	  2908	  2909	  2910	  2914	  2915	  2917
	  2918	  2919	  2920	  2923	  2924	  2925	  2933#	  2935	  2936	  2937	  2938	  2939	  2940	  2941
	  2942	  2943	  2944	  2945	  2946	  2947	  2949	  2950	  2951	  2952	  2953	  2955	  2957	  2960
	  2962	  2963	  2964	  2972#	  2974	  2975	  2976	  2977	  2978	  2979	  2980	  2981	  2982	  2983
	  2984	  2985	  2986	  2988	  2989	  2990	  2991	  2992	  2993	  2994	  2995	  2997	  2998	  2999
	  3000	  3002	  3003	  3004	  3005	  3008	  3009	  3010	  3019#	  3021	  3022	  3023	  3024	  3025
	  3026	  3027	  3028	  3029	  3030	  3031	  3032	  3033	  3036	  3037	  3038	  3039	  3044	  3045
	  3046	  3048	  3049	  3050	  3051	  3053	  3054	  3055	  3056	  3059	  3060	  3061	  3071#	  3073
	  3074	  3075	  3076	  3077	  3078	  3079	  3080	  3081	  3082	  3083	  3084	  3085	  3087	  3088
	  3089	  3090	  3091	  3093	  3094	  3096	  3099	  3100	  3101	  3109#	  3111	  3112	  3113	  3114
	  3115	  3116	  3117	  3118	  3119	  3120	  3121	  3122	  3123	  3125	  3126	  3127	  3128	  3129
	  3132	  3134	  3135	  3137	  3140	  3141	  3142	  3150#	  3152	  3153	  3154	  3155	  3156	  3157
	  3158	  3159	  3160	  3161	  3162	  3163	  3164	  3166	  3167	  3168	  3169	  3170	  3173	  3175
	  3176	  3178	  3181	  3182	  3183	  3191#	  3193	  3194	  3195	  3196	  3197	  3198	  3199	  3200
	  3201	  3202	  3203	  3204	  3205	  3207	  3208	  3209	  3210	  3211	  3212	  3214	  3215	  3217
	  3220	  3221	  3222	  3230#	  3232	  3233	  3234	  3235	  3236	  3237	  3238	  3239	  3240	  3241
	  3242	  3243	  3244	  3246	  3247	  3248	  3249	  3250	  3253	  3255	  3256	  3258	  3261	  3262
	  3263	  3271#	  3273	  3274	  3275	  3276	  3277	  3278	  3279	  3280	  3281	  3282	  3283	  3284
	  3285	  3287	  3288	  3289	  3290	  3291	  3293	  3294	  3299	  3300	  3301	  3309#	  3311	  3312
	  3313	  3314	  3315	  3316	  3317	  3318	  3319	  3320	  3321	  3322	  3323	  3325	  3326	  3327
	  3328	  3329	  3332	  3334	  3335	  3337	  3340	  3341	  3342	  3350#	  3352	  3353	  3354	  3355
	  3356	  3357	  3358	  3359	  3360	  3361	  3362	  3363	  3364	  3366	  3367	  3368	  3369	  3370
	  3373	  3374	  3375	  3376	  3378	  3381	  3382	  3383	  3391#	  3393	  3394	  3395	  3396	  3397
	  3398	  3399	  3400	  3401	  3402	  3403	  3404	  3405	  3407	  3408	  3409	  3410	  3411	  3414
	  3416	  3417	  3419	  3422	  3423	  3424	  3432#	  3434	  3435	  3436	  3437	  3438	  3439	  3440
	  3441	  3442	  3443	  3444	  3445	  3446	  3448	  3449	  3450	  3451	  3452	  3455	  3457	  3458
	  3460	  3463	  3464	  3465	  3473#	  3475	  3476	  3477	  3478	  3479	  3480	  3481	  3482	  3483
	  3484	  3485	  3486	  3487	  3489	  3490	  3491	  3492	  3493	  3495	  3496	  3497	  3499	  3502
	  3503	  3504	  3512#	  3514	  3515	  3516	  3517	  3518	  3519	  3520	  3521	  3522	  3523	  3524
	  3525	  3526	  3528	  3529	  3530	  3531	  3532	  3534	  3536	  3537	  3539	  3542	  3543	  3544
	  3552#	  3554	  3555	  3556	  3557	  3558	  3559	  3560	  3561	  3562	  3563	  3564	  3565	  3566
	  3568	  3569	  3570	  3571	  3572	  3576	  3577	  3579	  3582	  3583	  3584	  3592#	  3594	  3595
	  3596	  3597	  3598	  3599	  3600	  3601	  3602	  3603	  3604	  3605	  3606	  3608	  3609	  3610
	  3611	  3612	  3615	  3617	  3618	  3620	  3623	  3624	  3625	  3633#	  3635	  3636	  3637	  3638
	  3639	  3640	  3641	  3642	  3643	  3644	  3645	  3646	  3647	  3649	  3650	  3651	  3652	  3653
	  3656	  3658	  3659	  3661	  3664	  3665	  3666	  3674#	  3676	  3677	  3678	  3679	  3680	  3681
	  3682	  3683	  3684	  3685	  3686	  3687	  3688	  3690	  3691	  3692	  3693	  3694	  3696	  3697     SEQ 0197
	  3699	  3702	  3703	  3704	  3712#	  3714	  3715	  3716	  3717	  3718	  3719	  3720	  3721	  3722
	  3723	  3724	  3725	  3726	  3728	  3729	  3730	  3731	  3732	  3733	  3734	  3737	  3738	  3741
	  3742	  3743	  3751#	  3753	  3754	  3755	  3756	  3757	  3758	  3759	  3760	  3761	  3762	  3763
	  3764	  3765	  3767	  3768	  3769	  3770	  3772	  3773	  3774	  3775	  3776	  3779	  3780	  3781
	  3789#	  3791	  3792	  3793	  3794	  3795	  3796	  3797	  3798	  3799	  3800	  3801	  3802	  3803
	  3805	  3806	  3807	  3808	  3810	  3811	  3812	  3815	  3816	  3819	  3820	  3821	  3833#	  3835
	  3836	  3837	  3838	  3839	  3840	  3841	  3842	  3843	  3844	  3845	  3846	  3847	  3849	  3850
	  3851	  3852	  3855	  3856	  3858	  3861	  3862	  3863	  3871#	  3873	  3874	  3875	  3876	  3877
	  3878	  3879	  3880	  3881	  3882	  3883	  3884	  3885	  3887	  3888	  3889	  3890	  3892	  3893
	  3894	  3897	  3898	  3901	  3902	  3903	  3911#	  3913	  3914	  3915	  3916	  3917	  3918	  3919
	  3920	  3921	  3922	  3923	  3924	  3925	  3927	  3928	  3929	  3930	  3932	  3933	  3934	  3937
	  3938	  3941	  3942	  3943	  3951#	  3953	  3954	  3955	  3956	  3957	  3958	  3959	  3960	  3961
	  3962	  3963	  3964	  3965	  3967	  3968	  3969	  3970	  3972	  3973	  3974	  3977	  3978	  3981
	  3982	  3983	  3992#	  3994	  3995	  3996	  3997	  3998	  3999	  4000	  4001	  4002	  4003	  4004
	  4005	  4006	  4008	  4009	  4010	  4011	  4014	  4015	  4017	  4020	  4021	  4022	  4030#	  4032
	  4033	  4034	  4035	  4036	  4037	  4038	  4039	  4040	  4041	  4042	  4043	  4044	  4046	  4047
	  4048	  4049	  4051	  4052	  4054	  4055	  4056	  4059	  4060	  4061	  4069#	  4071	  4072	  4073
	  4074	  4075	  4076	  4077	  4078	  4079	  4080	  4081	  4082	  4083	  4085	  4086	  4087	  4088
	  4090	  4091	  4093	  4094	  4095	  4098	  4099	  4100	  4108#	  4110	  4111	  4112	  4113	  4114
	  4115	  4116	  4117	  4118	  4119	  4120	  4121	  4122	  4124	  4125	  4126	  4127	  4129	  4130
	  4132	  4133	  4134	  4137	  4138	  4139	  4148#	  4150	  4151	  4152	  4153	  4154	  4155	  4156
	  4157	  4158	  4159	  4160	  4161	  4162	  4164	  4165	  4166	  4167	  4169	  4170	  4171	  4172
	  4174	  4177	  4178	  4179	  4187#	  4189	  4190	  4191	  4192	  4193	  4194	  4195	  4196	  4197
	  4198	  4199	  4200	  4201	  4203	  4204	  4205	  4206	  4207	  4208	  4209	  4213	  4214	  4217
	  4218	  4219	  4227#	  4229	  4230	  4231	  4232	  4233	  4234	  4235	  4236	  4237	  4238	  4239
	  4240	  4241	  4243	  4244	  4245	  4246	  4248	  4249	  4250	  4252	  4253	  4256	  4257	  4258
	  4266#	  4268	  4269	  4270	  4271	  4272	  4273	  4274	  4275	  4276	  4277	  4278	  4279	  4280
	  4282	  4283	  4284	  4285	  4287	  4288	  4289	  4293	  4294	  4297	  4298	  4299	  4308#	  4310
	  4311	  4312	  4313	  4314	  4315	  4316	  4317	  4318	  4319	  4320	  4321	  4322	  4324	  4325
	  4326	  4327	  4329	  4331	  4334	  4335	  4337	  4340	  4341	  4342	  4350#	  4352	  4353	  4354
	  4355	  4356	  4357	  4358	  4359	  4360	  4361	  4362	  4363	  4364	  4366	  4367	  4368	  4369
	  4370	  4371	  4374	  4375	  4378	  4379	  4380	  4388#	  4390	  4391	  4392	  4393	  4394	  4395
	  4396	  4397	  4398	  4399	  4400	  4401	  4402	  4404	  4405	  4406	  4407	  4409	  4410	  4411
	  4412	  4415	  4416	  4417	  4425#	  4427	  4428	  4429	  4430	  4431	  4432	  4433	  4434	  4435
	  4436	  4437	  4438	  4439	  4441	  4442	  4443	  4444	  4446	  4447	  4450	  4451	  4454	  4455
	  4456	  4465#	  4467	  4468	  4469	  4470	  4471	  4472	  4473	  4474	  4475	  4476	  4477	  4478
	  4479	  4481	  4482	  4483	  4484	  4486	  4488	  4489	  4491	  4494	  4495	  4496	  4504#	  4506
	  4507	  4508	  4509	  4510	  4511	  4512	  4513	  4514	  4515	  4516	  4517	  4518	  4520	  4521
	  4522	  4523	  4525	  4526	  4528	  4529	  4532	  4533	  4534	  4542#	  4544	  4545	  4546	  4547
	  4548	  4549	  4550	  4551	  4552	  4553	  4554	  4555	  4556	  4558	  4559	  4560	  4561	  4563
	  4564	  4566	  4567	  4570	  4571	  4572	  4580#	  4582	  4583	  4584	  4585	  4586	  4587	  4588
	  4589	  4590	  4591	  4592	  4593	  4594	  4596	  4597	  4598	  4599	  4601	  4602	  4604	  4605
	  4608	  4609	  4610	  4619#	  4621	  4622	  4623	  4624	  4625	  4626	  4627	  4628	  4629	  4630
	  4631	  4632	  4633	  4635	  4636	  4637	  4638	  4640	  4641	  4642	  4644	  4647	  4648	  4649
	  4657#	  4659	  4660	  4661	  4662	  4663	  4664	  4665	  4666	  4667	  4668	  4669	  4670	  4671
	  4673	  4674	  4675	  4676	  4677	  4678	  4681	  4682	  4685	  4686	  4687	  4697#	  4699	  4700
	  4701	  4702	  4703	  4704	  4705	  4706	  4707	  4708	  4709	  4710	  4711	  4713	  4714	  4715
	  4716	  4718	  4719	  4722	  4723	  4726	  4727	  4728	  4736#	  4738	  4739	  4740	  4741	  4742
	  4743	  4744	  4745	  4746	  4747	  4748	  4749	  4750	  4752	  4753	  4754	  4755	  4757	  4758
	  4761	  4762	  4765	  4766	  4767	  4776#	  4778	  4779	  4780	  4781	  4782	  4783	  4784	  4785
	  4786	  4787	  4788	  4789	  4790	  4792	  4793	  4794	  4795	  4797	  4799	  4800	  4802	  4805
	  4806	  4807	  4815#	  4817	  4818	  4819	  4820	  4821	  4822	  4823	  4824	  4825	  4826	  4827
	  4828	  4829	  4831	  4832	  4833	  4834	  4835	  4836	  4839	  4840	  4843	  4844	  4845	  4853#    SEQ 0198
	  4855	  4856	  4857	  4858	  4859	  4860	  4861	  4862	  4863	  4864	  4865	  4866	  4867	  4869
	  4870	  4871	  4872	  4874	  4875	  4878	  4879	  4882	  4883	  4884	  4892#	  4894	  4895	  4896
	  4897	  4898	  4899	  4900	  4901	  4902	  4903	  4904	  4905	  4906	  4908	  4909	  4910	  4911
	  4913	  4914	  4917	  4918	  4921	  4922	  4923	  4932#	  4934	  4935	  4936	  4937	  4938	  4939
	  4940	  4941	  4942	  4943	  4944	  4945	  4946	  4948	  4949	  4950	  4951	  4953	  4955	  4956
	  4958	  4961	  4962	  4963	  4971#	  4973	  4974	  4975	  4976	  4977	  4978	  4979	  4980	  4981
	  4982	  4983	  4984	  4985	  4987	  4988	  4989	  4990	  4992	  4993	  4996	  4997	  5000	  5001
	  5002	  5010#	  5012	  5013	  5014	  5015	  5016	  5017	  5018	  5019	  5020	  5021	  5022	  5023
	  5024	  5026	  5027	  5028	  5029	  5031	  5032	  5035	  5036	  5039	  5040	  5041	  5049#	  5051
	  5052	  5053	  5054	  5055	  5056	  5057	  5058	  5059	  5060	  5061	  5062	  5063	  5065	  5066
	  5067	  5068	  5070	  5071	  5074	  5075	  5078	  5079	  5080	  5088#	  5090	  5091	  5092	  5093
	  5094	  5095	  5096	  5097	  5098	  5099	  5100	  5101	  5102	  5104	  5105	  5106	  5107	  5109
	  5111	  5112	  5114	  5117	  5118	  5119	  5127#	  5129	  5130	  5131	  5132	  5133	  5134	  5135
	  5136	  5137	  5138	  5139	  5140	  5141	  5143	  5144	  5145	  5146	  5148	  5149	  5154	  5155
	  5158	  5159	  5160	  5168#	  5170	  5171	  5172	  5173	  5174	  5175	  5176	  5177	  5178	  5179
	  5180	  5181	  5182	  5184	  5185	  5186	  5187	  5189	  5190	  5191	  5192	  5195	  5196	  5197
	  5205#	  5207	  5208	  5209	  5210	  5211	  5212	  5213	  5214	  5215	  5216	  5217	  5218	  5219
	  5221	  5222	  5223	  5224	  5226	  5227	  5232	  5233	  5236	  5237	  5238	  5246#	  5248	  5249
	  5250	  5251	  5252	  5253	  5254	  5255	  5256	  5257	  5258	  5259	  5260	  5262	  5263	  5264
	  5265	  5267	  5269	  5271	  5272	  5274	  5277	  5278	  5279	  5287#	  5289	  5290	  5291	  5292
	  5293	  5294	  5295	  5296	  5297	  5298	  5299	  5300	  5301	  5303	  5304	  5305	  5306	  5308
	  5309	  5314	  5315	  5318	  5319	  5320	  5328#	  5330	  5331	  5332	  5333	  5334	  5335	  5336
	  5337	  5338	  5339	  5340	  5341	  5342	  5344	  5345	  5346	  5347	  5349	  5350	  5355	  5356
	  5359	  5360	  5361	  5369#	  5371	  5372	  5373	  5374	  5375	  5376	  5377	  5378	  5379	  5380
	  5381	  5382	  5383	  5385	  5386	  5387	  5388	  5390	  5391	  5396	  5397	  5400	  5401	  5402
	  5410#	  5412	  5413	  5414	  5415	  5416	  5417	  5418	  5419	  5420	  5421	  5422	  5423	  5424
	  5426	  5427	  5428	  5429	  5431	  5433	  5435	  5436	  5438	  5441	  5442	  5443	  5451#	  5453
	  5454	  5455	  5456	  5457	  5458	  5459	  5460	  5461	  5462	  5463	  5464	  5465	  5467	  5468
	  5469	  5470	  5472	  5473	  5475	  5476	  5479	  5480	  5481	  5489#	  5491	  5492	  5493	  5494
	  5495	  5496	  5497	  5498	  5499	  5500	  5501	  5502	  5503	  5505	  5506	  5507	  5508	  5510
	  5511	  5513	  5514	  5517	  5518	  5519	  5527#	  5529	  5530	  5531	  5532	  5533	  5534	  5535
	  5536	  5537	  5538	  5539	  5540	  5541	  5543	  5544	  5545	  5546	  5548	  5549	  5551	  5552
	  5555	  5556	  5557	  5565#	  5567	  5568	  5569	  5570	  5571	  5572	  5573	  5574	  5575	  5576
	  5577	  5578	  5579	  5581	  5582	  5583	  5584	  5588	  5589	  5591	  5594	  5595	  5596	  5604#
	  5606	  5607	  5608	  5609	  5610	  5611	  5612	  5613	  5614	  5615	  5616	  5617	  5618	  5620
	  5621	  5622	  5623	  5624	  5625	  5628	  5629	  5632	  5633	  5634	  5642#	  5644	  5645	  5646
	  5647	  5648	  5649	  5650	  5651	  5652	  5653	  5654	  5655	  5656	  5658	  5659	  5660	  5661
	  5663	  5664	  5665	  5666	  5669	  5670	  5671	  5679#	  5681	  5682	  5683	  5684	  5685	  5686
	  5687	  5688	  5689	  5690	  5691	  5692	  5693	  5695	  5696	  5697	  5698	  5700	  5701	  5704
	  5705	  5708	  5709	  5710	  5718#	  5720	  5721	  5722	  5723	  5724	  5725	  5726	  5727	  5728
	  5729	  5730	  5731	  5732	  5734	  5735	  5736	  5737	  5739	  5741	  5742	  5744	  5747	  5748
	  5749	  5757#	  5759	  5760	  5761	  5762	  5763	  5764	  5765	  5766	  5767	  5768	  5769	  5770
	  5771	  5773	  5774	  5775	  5776	  5777	  5778	  5781	  5782	  5785	  5786	  5787	  5795#	  5797
	  5798	  5799	  5800	  5801	  5802	  5803	  5804	  5805	  5806	  5807	  5808	  5809	  5811	  5812
	  5813	  5814	  5816	  5817	  5819	  5820	  5823	  5824	  5825	  5833#	  5835	  5836	  5837	  5838
	  5839	  5840	  5841	  5842	  5843	  5844	  5845	  5846	  5847	  5849	  5850	  5851	  5852	  5854
	  5855	  5858	  5859	  5862	  5863	  5864	  5872#	  5874	  5875	  5876	  5877	  5878	  5879	  5880
	  5881	  5882	  5883	  5884	  5885	  5886	  5888	  5889	  5890	  5891	  5893	  5895	  5896	  5898
	  5901	  5902	  5903	  5911#	  5913	  5914	  5915	  5916	  5917	  5918	  5919	  5920	  5921	  5922
	  5923	  5924	  5925	  5927	  5928	  5929	  5930	  5932	  5933	  5938	  5939	  5942	  5943	  5944
	  5952#	  5954	  5955	  5956	  5957	  5958	  5959	  5960	  5961	  5962	  5963	  5964	  5965	  5966
	  5968	  5969	  5970	  5971	  5973	  5974	  5979	  5980	  5983	  5984	  5985	  5993#	  5995	  5996
	  5997	  5998	  5999	  6000	  6001	  6002	  6003	  6004	  6005	  6006	  6007	  6009	  6010	  6011     SEQ 0199
	  6012	  6014	  6015	  6020	  6021	  6024	  6025	  6026	  6034#	  6036	  6037	  6038	  6039	  6040
	  6041	  6042	  6043	  6044	  6045	  6046	  6047	  6048	  6050	  6051	  6052	  6053	  6055	  6057
	  6059	  6060	  6062	  6065	  6066	  6067	  6075#	  6077	  6078	  6079	  6080	  6081	  6082	  6083
	  6084	  6085	  6086	  6087	  6088	  6089	  6091	  6092	  6093	  6094	  6096	  6097	  6102	  6103
	  6106	  6107	  6108	  6116#	  6118	  6119	  6120	  6121	  6122	  6123	  6124	  6125	  6126	  6127
	  6128	  6129	  6130	  6132	  6133	  6134	  6135	  6137	  6138	  6139	  6140	  6143	  6144	  6145
	  6153#	  6155	  6156	  6157	  6158	  6159	  6160	  6161	  6162	  6163	  6164	  6165	  6166	  6167
	  6169	  6170	  6171	  6172	  6174	  6175	  6180	  6181	  6184	  6185	  6186	  6194#	  6196	  6197
	  6198	  6199	  6200	  6201	  6202	  6203	  6204	  6205	  6206	  6207	  6208	  6210	  6211	  6212
	  6213	  6215	  6217	  6219	  6220	  6222	  6225	  6226	  6227	  6250#	  6252	  6253	  6254	  6255
	  6256	  6257	  6258	  6259	  6260	  6261	  6262	  6263	  6264	  6266	  6267	  6268	  6269	  6270
	  6274	  6285	  6286	  6289	  6290	  6291	  6297#	  6299	  6300	  6301	  6302	  6303	  6304	  6305
	  6306	  6307	  6308	  6309	  6310	  6311	  6313	  6314	  6315	  6316	  6318	  6322	  6333	  6334
	  6337	  6338	  6339	  6347#	  6349	  6350	  6351	  6352	  6353	  6354	  6355	  6356	  6357	  6358
	  6359	  6360	  6361	  6363	  6364	  6365	  6366	  6368	  6372	  6383	  6384	  6387	  6388	  6389
	  6395#	  6397	  6398	  6399	  6400	  6401	  6402	  6403	  6404	  6405	  6406	  6407	  6408	  6409
	  6411	  6412	  6413	  6414	  6415	  6420	  6431	  6432	  6434	  6437	  6438	  6439	  6447#	  6449
	  6450	  6451	  6452	  6453	  6454	  6455	  6456	  6457	  6458	  6459	  6460	  6461	  6463	  6464
	  6465	  6466	  6467	  6471	  6482	  6483	  6486	  6487	  6488	  6496#	  6498	  6499	  6500	  6501
	  6502	  6503	  6504	  6505	  6506	  6507	  6508	  6509	  6510	  6512	  6513	  6514	  6515	  6516
	  6521	  6532	  6536	  6537	  6538	  6546#	  6548	  6549	  6550	  6551	  6552	  6553	  6554	  6555
	  6556	  6557	  6558	  6559	  6560	  6562	  6563	  6564	  6565	  6567	  6571	  6582	  6583	  6586
	  6587	  6588	  6594#	  6596	  6597	  6598	  6599	  6600	  6601	  6602	  6603	  6604	  6605	  6606
	  6607	  6608	  6610	  6611	  6612	  6613	  6614	  6619	  6630	  6631	  6633	  6636	  6637	  6638
	  6646#	  6648	  6649	  6650	  6651	  6652	  6653	  6654	  6655	  6656	  6657	  6658	  6659	  6660
	  6662	  6663	  6664	  6665	  6666	  6670	  6671	  6674	  6675	  6676	  6686#	  6688	  6689	  6690
	  6691	  6692	  6693	  6694	  6695	  6696	  6697	  6698	  6699	  6700	  6702	  6703	  6704	  6705
	  6706	  6710	  6711	  6714	  6715	  6716	  6727#	  6729	  6730	  6731	  6732	  6733	  6734	  6735
	  6736	  6737	  6738	  6739	  6740	  6741	  6743	  6744	  6745	  6746	  6747	  6748	  6749	  6751
	  6752	  6753	  6754	  6757	  6758	  6759	  6770#	  6772	  6773	  6774	  6775	  6776	  6777	  6778
	  6779	  6780	  6781	  6782	  6783	  6784	  6786	  6787	  6788	  6789	  6790	  6791	  6792	  6793
	  6795	  6796	  6797	  6798	  6801	  6802	  6803	  6814#	  6816	  6817	  6818	  6819	  6820	  6821
	  6822	  6823	  6824	  6825	  6826	  6827	  6828	  6829	  6830	  6831	  6832	  6833	  6834	  6835
	  6841#	  6843	  6844	  6845	  6846	  6847	  6848	  6849	  6850	  6851	  6852	  6853	  6854	  6855
	  6856	  6857	  6858	  6859	  6860	  6861	  6865#	  6872	  6873	  6874	  6875	  6876	  6877
AC1	   763#	   801#	   819	   820	   822	   823	   824	   825	   840#	   858	   859	   862	   865	   879#
	   897	   898	   901	   904	   918#	   956#	   976	   977	   979	   980	   981	   982	   984	   985
	   986	   987	  1002#	  1021	  1022	  1045#	  1064	  1065	  1067	  1068	  1069	  1070	  1072	  1073
	  1074	  1075	  1090#	  1110	  1111	  1114	  1117	  1118	  1120	  1122	  1135#	  1148	  1154	  1155
	  1156	  1157	  1159	  1162	  1165	  1166	  1168	  1170	  1184#	  1222#	  1240	  1241	  1243	  1244
	  1245	  1246	  1261#	  1299#	  1317	  1318	  1320	  1321	  1322	  1323	  1338#	  1356	  1357	  1360
	  1363	  1377#	  1395	  1396	  1397	  1400	  1403	  1417#	  1455#	  1473	  1474	  1476	  1477	  1478
	  1479	  1494#	  1534#	  1553	  1554	  1556	  1557	  1558	  1559	  1574#	  1594	  1595	  1598	  1601
	  1615#	  1635	  1636	  1639	  1642	  1656#	  1694#	  1712	  1713	  1715	  1716	  1717	  1718	  1733#
	  1751	  1752	  1758	  1773#	  1791	  1794	  1796	  1802#	  1820	  1821	  1822	  1824	  1827	  1830
	  1844#	  1882#	  1900	  1901	  1903	  1904	  1905	  1906	  1921#	  1964#	  1983	  1986	  1987	  1989
	  1990	  1991	  1992	  2007#	  2027	  2030	  2032	  2033	  2034	  2037	  2051#	  2071	  2072	  2074
	  2076	  2078	  2081	  2095#	  2133#	  2151	  2153	  2155	  2156	  2157	  2158	  2173#	  2191	  2192
	  2198	  2213#	  2231	  2232	  2234	  2235	  2236	  2237	  2252#	  2270	  2271	  2274	  2277	  2291#
	  2309	  2310	  2311	  2313	  2316	  2319	  2333#	  2371#	  2390	  2392	  2393	  2394	  2395	  2396
	  2411#	  2431	  2432	  2438	  2453#	  2472	  2473	  2475	  2476	  2477	  2478	  2493#	  2513	  2514
	  2517	  2520	  2534#	  2554	  2555	  2557	  2560	  2563	  2577#	  2615#	  2633	  2634	  2636	  2637
	  2638	  2639	  2652#	  2690#	  2708	  2709	  2711	  2712	  2713	  2714	  2729#	  2747	  2748	  2751     SEQ 0200
	  2754	  2768#	  2786	  2787	  2788	  2791	  2794	  2808#	  2846#	  2865	  2866	  2868	  2869	  2870
	  2871	  2873	  2874	  2875	  2876	  2891#	  2910	  2911	  2912	  2935#	  2954	  2955	  2956	  2957
	  2958	  2959	  2974#	  2994	  2995	  2998	  3001	  3002	  3004	  3006	  3021#	  3034	  3040	  3041
	  3042	  3043	  3046	  3049	  3052	  3053	  3055	  3057	  3073#	  3092	  3093	  3094	  3111#	  3130
	  3134	  3135	  3152#	  3171	  3175	  3176	  3193#	  3213	  3214	  3215	  3232#	  3251	  3255	  3256
	  3273#	  3292	  3293	  3294	  3296	  3311#	  3330	  3334	  3335	  3352#	  3371	  3375	  3376	  3393#
	  3412	  3416	  3417	  3434#	  3453	  3457	  3458	  3475#	  3494	  3496	  3497	  3514#	  3533	  3536
	  3537	  3554#	  3573	  3576	  3577	  3594#	  3613	  3617	  3618	  3635#	  3654	  3658	  3659	  3676#
	  3695	  3696	  3697	  3714#	  3734	  3736	  3738	  3739	  3753#	  3774	  3776	  3791#	  3812	  3814
	  3816	  3835#	  3854	  3855	  3856	  3873#	  3894	  3895	  3896	  3898	  3913#	  3934	  3935	  3936
	  3938	  3953#	  3974	  3975	  3976	  3978	  3994#	  4013	  4014	  4015	  4032#	  4053	  4054	  4056
	  4071#	  4092	  4093	  4095	  4110#	  4131	  4132	  4134	  4150#	  4168	  4171	  4172	  4189#	  4209
	  4210	  4212	  4214	  4229#	  4250	  4251	  4253	  4268#	  4289	  4290	  4292	  4294	  4310#	  4328
	  4334	  4335	  4352#	  4372	  4373	  4375	  4390#	  4408	  4411	  4413	  4427#	  4448	  4449	  4451
	  4467#	  4485	  4488	  4489	  4491	  4506#	  4527	  4529	  4544#	  4565	  4567	  4582#	  4603	  4605
	  4621#	  4639	  4641	  4642	  4659#	  4679	  4680	  4682	  4699#	  4720	  4721	  4723	  4738#	  4759
	  4760	  4762	  4778#	  4796	  4799	  4800	  4817#	  4837	  4838	  4840	  4855#	  4876	  4877	  4879
	  4894#	  4915	  4916	  4918	  4934#	  4952	  4955	  4956	  4973#	  4994	  4995	  4997	  5012#	  5033
	  5034	  5036	  5051#	  5072	  5073	  5075	  5090#	  5108	  5111	  5112	  5129#	  5150	  5151	  5153
	  5155	  5170#	  5188	  5191	  5193	  5207#	  5228	  5229	  5231	  5233	  5248#	  5266	  5271	  5272
	  5289#	  5310	  5311	  5313	  5315	  5330#	  5351	  5352	  5354	  5356	  5371#	  5392	  5393	  5395
	  5397	  5412#	  5430	  5435	  5436	  5453#	  5474	  5476	  5491#	  5512	  5514	  5529#	  5550	  5552
	  5567#	  5586	  5588	  5589	  5606#	  5626	  5627	  5629	  5644#	  5662	  5665	  5667	  5681#	  5702
	  5703	  5705	  5720#	  5738	  5741	  5742	  5759#	  5779	  5780	  5782	  5797#	  5818	  5820	  5835#
	  5856	  5857	  5859	  5874#	  5892	  5895	  5896	  5913#	  5934	  5935	  5937	  5939	  5954#	  5975
	  5976	  5978	  5980	  5995#	  6016	  6017	  6019	  6021	  6036#	  6054	  6059	  6060	  6077#	  6098
	  6099	  6101	  6103	  6118#	  6136	  6139	  6141	  6155#	  6176	  6177	  6179	  6181	  6196#	  6214
	  6219	  6220	  6252#	  6274	  6275	  6277	  6280	  6281	  6286	  6299#	  6322	  6323	  6325	  6328
	  6329	  6334	  6349#	  6372	  6373	  6375	  6378	  6379	  6384	  6397#	  6420	  6421	  6423	  6426
	  6427	  6434	  6449#	  6471	  6472	  6474	  6477	  6478	  6483	  6498#	  6521	  6522	  6524	  6527
	  6528	  6533	  6548#	  6571	  6572	  6574	  6577	  6578	  6583	  6596#	  6619	  6620	  6622	  6625
	  6626	  6633	  6648#	  6666	  6667	  6668	  6669	  6671	  6688#	  6706	  6707	  6708	  6709	  6711
	  6729#	  6749	  6750	  6754	  6772#	  6793	  6794	  6798	  6816#	  6843#
AC2	   764#	   802#	   841#	   880#	   919#	   957#	  1003#	  1046#	  1091#	  1136#	  1185#	  1223#	  1262#	  1300#
	  1339#	  1378#	  1418#	  1456#	  1495#	  1535#	  1575#	  1616#	  1657#	  1695#	  1734#	  1774#	  1792	  1793
	  1803#	  1822	  1823	  1829	  1845#	  1883#	  1922#	  1941	  1942	  1944	  1949	  1965#	  1984	  1985
	  1987	  1992	  2008#	  2028	  2029	  2031	  2036	  2052#	  2072	  2073	  2075	  2080	  2096#	  2134#
	  2152	  2158	  2174#	  2214#	  2253#	  2292#	  2311	  2312	  2318	  2334#	  2372#	  2391	  2396	  2412#
	  2454#	  2494#	  2535#	  2555	  2556	  2562	  2578#	  2616#	  2653#	  2691#	  2730#	  2769#	  2809#	  2847#
	  2892#	  2936#	  2975#	  3022#	  3043	  3044	  3074#	  3112#	  3131	  3132	  3133	  3137	  3153#	  3172
	  3173	  3174	  3178	  3194#	  3233#	  3252	  3253	  3254	  3258	  3274#	  3312#	  3331	  3332	  3333
	  3337	  3353#	  3372	  3373	  3374	  3378	  3394#	  3413	  3414	  3415	  3419	  3435#	  3454	  3455
	  3456	  3460	  3476#	  3495	  3499	  3515#	  3534	  3535	  3539	  3555#	  3574	  3575	  3579	  3595#
	  3614	  3615	  3616	  3620	  3636#	  3655	  3656	  3657	  3661	  3677#	  3715#	  3735	  3736	  3754#
	  3771	  3775	  3777	  3792#	  3813	  3814	  3836#	  3853	  3858	  3874#	  3891	  3896	  3899	  3914#
	  3931	  3936	  3937	  3939	  3954#	  3971	  3976	  3977	  3995#	  4012	  4016	  4017	  4018	  4033#
	  4050	  4053	  4057	  4072#	  4089	  4092	  4094	  4096	  4111#	  4128	  4131	  4133	  4151#	  4169
	  4170	  4174	  4190#	  4211	  4212	  4230#	  4269#	  4291	  4292	  4311#	  4329	  4330	  4333	  4337
	  4353#	  4391#	  4428#	  4445	  4450	  4468#	  4486	  4487	  4507#	  4524	  4527	  4530	  4545#	  4562
	  4565	  4566	  4568	  4583#	  4600	  4603	  4604	  4622#	  4640	  4644	  4660#	  4700#	  4717	  4722
	  4724	  4739#	  4756	  4761	  4779#	  4797	  4798	  4802	  4818#	  4856#	  4895#	  4912	  4917	  4935#
	  4953	  4954	  4958	  4974#	  4991	  4994	  4998	  5013#	  5030	  5033	  5035	  5037	  5052#	  5069
	  5072	  5074	  5091#	  5109	  5110	  5114	  5130#	  5147	  5152	  5156	  5171#	  5208#	  5225	  5230     SEQ 0201
	  5232	  5249#	  5267	  5268	  5270	  5274	  5290#	  5307	  5312	  5316	  5331#	  5348	  5353	  5355
	  5357	  5372#	  5389	  5394	  5396	  5413#	  5431	  5432	  5434	  5438	  5454#	  5471	  5474	  5477
	  5492#	  5530#	  5547	  5550	  5551	  5568#	  5587	  5591	  5607#	  5645#	  5682#	  5699	  5704	  5721#
	  5739	  5740	  5744	  5760#	  5798#	  5815	  5819	  5821	  5836#	  5853	  5858	  5875#	  5893	  5894
	  5898	  5914#	  5931	  5936	  5940	  5955#	  5972	  5977	  5979	  5981	  5996#	  6013	  6018	  6020
	  6037#	  6055	  6056	  6058	  6062	  6078#	  6095	  6100	  6104	  6119#	  6156#	  6173	  6178	  6180
	  6197#	  6215	  6216	  6218	  6222	  6253#	  6271	  6276	  6277	  6300#	  6319	  6324	  6325	  6350#
	  6369	  6374	  6375	  6398#	  6417	  6422	  6423	  6450#	  6468	  6473	  6474	  6499#	  6518	  6523
	  6524	  6549#	  6568	  6573	  6574	  6597#	  6616	  6621	  6622	  6649#	  6689#	  6730#	  6773#	  6817#
	  6844#
AC3	   765#	   803#	   842#	   881#	   920#	   958#	  1004#	  1047#	  1092#	  1137#	  1186#	  1224#	  1263#	  1301#
	  1340#	  1379#	  1419#	  1457#	  1496#	  1536#	  1576#	  1617#	  1658#	  1696#	  1735#	  1775#	  1804#	  1846#
	  1884#	  1923#	  1966#	  2009#	  2053#	  2097#	  2135#	  2175#	  2215#	  2254#	  2293#	  2335#	  2373#	  2413#
	  2455#	  2495#	  2536#	  2579#	  2617#	  2654#	  2692#	  2731#	  2770#	  2810#	  2848#	  2893#	  2937#	  2976#
	  3023#	  3075#	  3113#	  3154#	  3195#	  3234#	  3275#	  3313#	  3354#	  3395#	  3436#	  3477#	  3516#	  3556#
	  3596#	  3637#	  3678#	  3716#	  3755#	  3793#	  3809	  3815	  3817	  3837#	  3875#	  3915#	  3955#	  3996#
	  4034#	  4073#	  4112#	  4152#	  4191#	  4231#	  4247	  4252	  4254	  4270#	  4286	  4293	  4312#	  4331
	  4332	  4333	  4354#	  4392#	  4429#	  4469#	  4508#	  4546#	  4584#	  4623#	  4661#	  4701#	  4740#	  4780#
	  4819#	  4857#	  4873	  4878	  4880	  4896#	  4936#	  4975#	  5014#	  5053#	  5092#	  5131#	  5172#	  5209#
	  5250#	  5291#	  5332#	  5373#	  5414#	  5455#	  5493#	  5509	  5512	  5513	  5515	  5531#	  5569#	  5585
	  5587	  5590	  5592	  5608#	  5646#	  5683#	  5722#	  5761#	  5799#	  5837#	  5876#	  5915#	  5956#	  5997#
	  6038#	  6079#	  6120#	  6157#	  6198#	  6254#	  6275	  6276	  6279	  6281	  6283	  6301#	  6323	  6324
	  6327	  6329	  6331	  6351#	  6373	  6374	  6377	  6379	  6381	  6399#	  6421	  6422	  6425	  6427
	  6429	  6451#	  6472	  6473	  6476	  6478	  6480	  6500#	  6522	  6523	  6526	  6528	  6530	  6550#
	  6572	  6573	  6576	  6578	  6580	  6598#	  6620	  6621	  6624	  6626	  6628	  6650#	  6690#	  6731#
	  6774#	  6818#	  6845#
AC4	   766#	   804#	   843#	   882#	   921#	   959#	  1005#	  1048#	  1093#	  1138#	  1187#	  1225#	  1264#	  1302#
	  1341#	  1380#	  1420#	  1458#	  1497#	  1537#	  1577#	  1618#	  1659#	  1697#	  1736#	  1776#	  1805#	  1847#
	  1885#	  1924#	  1967#	  2010#	  2054#	  2098#	  2136#	  2176#	  2216#	  2255#	  2294#	  2336#	  2374#	  2414#
	  2456#	  2496#	  2537#	  2580#	  2618#	  2655#	  2693#	  2732#	  2771#	  2811#	  2849#	  2894#	  2938#	  2977#
	  3024#	  3076#	  3114#	  3155#	  3196#	  3235#	  3276#	  3314#	  3355#	  3396#	  3437#	  3478#	  3517#	  3557#
	  3597#	  3638#	  3679#	  3717#	  3756#	  3794#	  3838#	  3876#	  3916#	  3956#	  3997#	  4035#	  4074#	  4113#
	  4153#	  4192#	  4232#	  4271#	  4313#	  4355#	  4393#	  4430#	  4470#	  4509#	  4547#	  4585#	  4624#	  4662#
	  4702#	  4741#	  4781#	  4820#	  4858#	  4897#	  4937#	  4976#	  5015#	  5054#	  5093#	  5132#	  5173#	  5210#
	  5251#	  5292#	  5333#	  5374#	  5415#	  5456#	  5494#	  5532#	  5570#	  5609#	  5647#	  5684#	  5723#	  5762#
	  5800#	  5838#	  5877#	  5916#	  5957#	  5998#	  6039#	  6080#	  6121#	  6158#	  6199#	  6255#	  6280	  6283
	  6302#	  6328	  6331	  6352#	  6378	  6381	  6400#	  6426	  6429	  6452#	  6477	  6480	  6501#	  6527
	  6530	  6551#	  6577	  6580	  6599#	  6625	  6628	  6651#	  6691#	  6732#	  6775#	  6819#	  6846#
AC5	   767#	   805#	   844#	   883#	   922#	   960#	  1006#	  1049#	  1094#	  1139#	  1188#	  1226#	  1265#	  1303#
	  1342#	  1381#	  1421#	  1459#	  1498#	  1538#	  1578#	  1619#	  1660#	  1698#	  1737#	  1777#	  1806#	  1848#
	  1886#	  1925#	  1968#	  2011#	  2055#	  2099#	  2137#	  2177#	  2217#	  2256#	  2295#	  2337#	  2375#	  2415#
	  2457#	  2497#	  2538#	  2581#	  2619#	  2656#	  2694#	  2733#	  2772#	  2812#	  2850#	  2895#	  2939#	  2978#
	  3025#	  3077#	  3115#	  3156#	  3197#	  3236#	  3277#	  3315#	  3356#	  3397#	  3438#	  3479#	  3518#	  3558#
	  3598#	  3639#	  3680#	  3718#	  3757#	  3795#	  3839#	  3877#	  3917#	  3957#	  3998#	  4036#	  4075#	  4114#
	  4154#	  4193#	  4233#	  4272#	  4314#	  4356#	  4394#	  4431#	  4471#	  4510#	  4548#	  4586#	  4625#	  4663#
	  4703#	  4742#	  4782#	  4821#	  4859#	  4898#	  4938#	  4977#	  5016#	  5055#	  5094#	  5133#	  5174#	  5211#
	  5252#	  5293#	  5334#	  5375#	  5416#	  5457#	  5495#	  5533#	  5571#	  5610#	  5648#	  5685#	  5724#	  5763#
	  5801#	  5839#	  5878#	  5917#	  5958#	  5999#	  6040#	  6081#	  6122#	  6159#	  6200#	  6256#	  6303#	  6317
	  6333	  6353#	  6367	  6369	  6383	  6385	  6401#	  6416	  6431	  6432	  6453#	  6502#	  6517	  6518
	  6532	  6533	  6552#	  6566	  6568	  6582	  6584	  6600#	  6615	  6616	  6630	  6631	  6652#	  6692#
	  6733#	  6776#	  6820#	  6847#
ADDA1	  6251#
ADDA2	  6265#	  6289                                                                                                     SEQ 0202
ADDA3	  6270#	  6291
ADDBA1	  6396#
ADDBA2	  6410#	  6437
ADDBA3	  6415#	  6439
ADDIA1	  6348#
ADDIA2	  6362#	  6387
ADDIA3	  6368#	  6389
ADDMA1	  6298#
ADDMA2	  6312#	  6337
ADDMA3	  6318#	  6339
AFOCLR	   345#
AFODIS	   345#
AFOENB	   345#
AFOV	   345#
ALTMGO	   431#	  7096
AMPCLR	   345#
AMPV	   345#
ANCAB1	  3151#
ANCAB2	  3165#	  3181
ANCAB3	  3170#	  3183
ANCBB1	  3392#
ANCBB2	  3406#	  3422
ANCBB3	  3411#	  3424
ANCMB1	  3231#
ANCMB2	  3245#	  3261
ANCMB3	  3250#	  3263
ANDB1	  3110#
ANDB2	  3124#	  3140
ANDB3	  3129#	  3142
ANXCLR	   345#
ANXM	   345#
AOVCLR	   345#
AOVDIS	   345#
AOVENB	   345#
AOVFLO	   345#
APAREN	   345#
APARER	   345#
APDCLR	   345#
APDLOV	   345#
APWRFL	   345#
AROV	   345#
AROVU	   345#
AST	   546#
ATRPOS	   345#
ATSIN	   547#
AUSRIO	   345#
BEGEND	   427#	  6911
BEGIN	    61	    64	    65	    66	    67	    68	    69	    70	    71	   330	   331	   358#	  7188
BEGIN1	   374#	   428
BELL	   550#
BIS	   345#
CCA	   345#
CHAIN	   136#                                                                                                            SEQ 0203
CHNOFF	   345#
CHNON	   345#
CLK	   345#
CLKCLR	   345#
CLKDIS	   345#
CLKENB	   345#
CLKU	   345#
CLOCKF	   413#
CMPLXT	   679	   688	   691	   694	   697	   700	   703	   706	   748#	   774	   812	   851	   890	   929
	   967	  1013	  1056	  1101	  1146	  1195	  1233	  1272	  1310	  1349	  1388	  1428	  1466	  1505
	  1545	  1585	  1626	  1667	  1705	  1744	  1784	  1813	  1855	  1893	  1932	  1975	  2018	  2062
	  2106	  2144	  2184	  2224	  2263	  2302	  2344	  2382	  2422	  2464	  2504	  2545	  2588	  2626
	  2663	  2701	  2740	  2779	  2819	  2857	  2902	  2946	  2985	  3032	  3084	  3122	  3163	  3204
	  3243	  3284	  3322	  3363	  3404	  3445	  3486	  3525	  3565	  3605	  3646	  3687	  3725	  3764
	  3802	  3846	  3884	  3924	  3964	  4005	  4043	  4082	  4121	  4161	  4200	  4240	  4279	  4321
	  4363	  4401	  4438	  4478	  4517	  4555	  4593	  4632	  4670	  4710	  4749	  4789	  4828	  4866
	  4905	  4945	  4984	  5023	  5062	  5101	  5140	  5181	  5218	  5259	  5300	  5341	  5382	  5423
	  5464	  5502	  5540	  5578	  5617	  5655	  5692	  5731	  5770	  5808	  5846	  5885	  5924	  5965
	  6006	  6047	  6088	  6129	  6166	  6207	  6263	  6310	  6360	  6408	  6460	  6509	  6559	  6607
	  6659	  6699	  6740	  6783	  6827	  6854
CNTLC	   430#
COMMA	   539#
CONSW	   414#	  7097	  7128
CPOPJ	   434#
CPOPJ1	   432#
CRLF	   265	   266	   534#
CRLF2	   269	   270	   536#
CRY0	   345#
CRY1	   345#
CSHFLG	   593#
CSHMEM	   594#
CYCL60	   587#
DCK	   345#
DDTLNK	   150#	   372
DDTSRT	   372#
DEBUG	    58#	  7179	  7180
DECVER	     3#	    10	    26	   393
DF22F	   498#
DIAGMN	   361#
DING	   122#	  7102
DOLLAR	   553#
DSKUPD	   398
END	  7187#
ENDFIX	   667#
ENDSLD	  7177#
EQVB1	  3433#
EQVB2	  3447#	  3463
EQVB3	  3452#	  3465
ERDIAG	  6965
ERMORE	   447#	  7088
ERRELB	    59#	  6965
ERRLOP	   772#	   772	   810#	   810	   849#	   849	   888#	   888	   927#	   927	   965#	   965	  1011#	  1011
	  1054#	  1054	  1099#	  1099	  1144#	  1144	  1193#	  1193	  1231#	  1231	  1270#	  1270	  1308#	  1308     SEQ 0204
	  1347#	  1347	  1386#	  1386	  1426#	  1426	  1464#	  1464	  1503#	  1503	  1543#	  1543	  1583#	  1583
	  1624#	  1624	  1665#	  1665	  1703#	  1703	  1742#	  1742	  1782#	  1782	  1811#	  1811	  1853#	  1853
	  1891#	  1891	  1930#	  1930	  1973#	  1973	  2016#	  2016	  2060#	  2060	  2104#	  2104	  2142#	  2142
	  2182#	  2182	  2222#	  2222	  2261#	  2261	  2300#	  2300	  2342#	  2342	  2380#	  2380	  2420#	  2420
	  2462#	  2462	  2502#	  2502	  2543#	  2543	  2586#	  2586	  2624#	  2624	  2661#	  2661	  2699#	  2699
	  2738#	  2738	  2777#	  2777	  2817#	  2817	  2855#	  2855	  2900#	  2900	  2944#	  2944	  2983#	  2983
	  3030#	  3030	  3082#	  3082	  3120#	  3120	  3161#	  3161	  3202#	  3202	  3241#	  3241	  3282#	  3282
	  3320#	  3320	  3361#	  3361	  3402#	  3402	  3443#	  3443	  3484#	  3484	  3523#	  3523	  3563#	  3563
	  3603#	  3603	  3644#	  3644	  3685#	  3685	  3723#	  3723	  3762#	  3762	  3800#	  3800	  3844#	  3844
	  3882#	  3882	  3922#	  3922	  3962#	  3962	  4003#	  4003	  4041#	  4041	  4080#	  4080	  4119#	  4119
	  4159#	  4159	  4198#	  4198	  4238#	  4238	  4277#	  4277	  4319#	  4319	  4361#	  4361	  4399#	  4399
	  4436#	  4436	  4476#	  4476	  4515#	  4515	  4553#	  4553	  4591#	  4591	  4630#	  4630	  4668#	  4668
	  4708#	  4708	  4747#	  4747	  4787#	  4787	  4826#	  4826	  4864#	  4864	  4903#	  4903	  4943#	  4943
	  4982#	  4982	  5021#	  5021	  5060#	  5060	  5099#	  5099	  5138#	  5138	  5179#	  5179	  5216#	  5216
	  5257#	  5257	  5298#	  5298	  5339#	  5339	  5380#	  5380	  5421#	  5421	  5462#	  5462	  5500#	  5500
	  5538#	  5538	  5576#	  5576	  5615#	  5615	  5653#	  5653	  5690#	  5690	  5729#	  5729	  5768#	  5768
	  5806#	  5806	  5844#	  5844	  5883#	  5883	  5922#	  5922	  5963#	  5963	  6004#	  6004	  6045#	  6045
	  6086#	  6086	  6127#	  6127	  6164#	  6164	  6205#	  6205	  6261#	  6261	  6308#	  6308	  6358#	  6358
	  6406#	  6406	  6458#	  6458	  6507#	  6507	  6557#	  6557	  6605#	  6605	  6657#	  6657	  6697#	  6697
	  6738#	  6738	  6781#	  6781	  6825#	  6825	  6852#	  6852	  6868	  6945	  7107	  7110	  7111
ERRMES	    42	    43	    44	    45	    46	    47	    48	    49	    50	  6916#
ERRPC	   418#	  6928	  6962	  6974
ERRTLS	   419#	  6926	  7114
ERSTOP	   125#	  7098
EXCASB	    54#	   396	  6917	  7119
EXIOT	   345#
FOV	   345#
FOVU	   345#
FRDLNK	   148#
FSELNK	   147#
FXU	   345#
HLL1	  3713#
HLL2	  3727#	  3741
HLL3	  3732#	  3743
HLLE1	  5128#
HLLE2	  5142#	  5158
HLLE3	  5148#	  5160
HLLEI1	  5169#
HLLEI2	  5183#	  5195
HLLEI3	  5189#	  5197
HLLEM1	  5206#
HLLEM2	  5220#	  5236
HLLEM3	  5226#	  5238
HLLES1	  5247#
HLLES2	  5261#	  5277
HLLES3	  5266#	  5279
HLLI1	  3752#
HLLI2	  3766#	  3779
HLLI3	  3772#	  3781
HLLM1	  3790#
HLLM2	  3804#	  3819
HLLM3	  3810#	  3821
HLLO1	  4658#                                                                                                            SEQ 0205
HLLO2	  4672#	  4685
HLLO3	  4677#	  4687
HLLOI1	  4698#
HLLOI2	  4712#	  4726
HLLOI3	  4718#	  4728
HLLOM1	  4737#
HLLOM2	  4751#	  4765
HLLOM3	  4757#	  4767
HLLOS1	  4777#
HLLOS2	  4791#	  4805
HLLOS3	  4796#	  4807
HLLS1	  3834#
HLLS2	  3848#	  3861
HLLS3	  3854#	  3863
HLLZ1	  4351#
HLLZ2	  4365#	  4378
HLLZ3	  4370#	  4380
HLLZI1	  4389#
HLLZI2	  4403#	  4415
HLLZI3	  4409#	  4417
HLLZM1	  4426#
HLLZM2	  4440#	  4454
HLLZM3	  4446#	  4456
HLLZS1	  4466#
HLLZS2	  4480#	  4494
HLLZS3	  4485#	  4496
HLR1	  4188#
HLR2	  4202#	  4217
HLR3	  4207#	  4219
HLRE1	  6076#
HLRE2	  6090#	  6106
HLRE3	  6096#	  6108
HLREI1	  6117#
HLREI2	  6131#	  6143
HLREI3	  6137#	  6145
HLREM1	  6154#
HLREM2	  6168#	  6184
HLREM3	  6174#	  6186
HLRES1	  6195#
HLRES2	  6209#	  6225
HLRES3	  6214#	  6227
HLRI1	  4228#
HLRI2	  4242#	  4256
HLRI3	  4248#	  4258
HLRM1	  4267#
HLRM2	  4281#	  4297
HLRM3	  4287#	  4299
HLRO1	  5758#
HLRO2	  5772#	  5785
HLRO3	  5777#	  5787
HLROI1	  5796#
HLROI2	  5810#	  5823
HLROI3	  5816#	  5825                                                                                                     SEQ 0206
HLROM1	  5834#
HLROM2	  5848#	  5862
HLROM3	  5854#	  5864
HLROS1	  5873#
HLROS2	  5887#	  5901
HLROS3	  5892#	  5903
HLRS1	  4309#
HLRS2	  4323#	  4340
HLRS3	  4328#	  4342
HLRZ1	  5605#
HLRZ2	  5619#	  5632
HLRZ3	  5624#	  5634
HLRZI1	  5643#
HLRZI2	  5657#	  5669
HLRZI3	  5663#	  5671
HLRZM1	  5680#
HLRZM2	  5694#	  5708
HLRZM3	  5700#	  5710
HLRZS1	  5719#
HLRZS2	  5733#	  5747
HLRZS3	  5738#	  5749
HRL1	  4031#
HRL2	  4045#	  4059
HRL3	  4051#	  4061
HRLE1	  5912#
HRLE2	  5926#	  5942
HRLE3	  5932#	  5944
HRLEI1	  5953#
HRLEI2	  5967#	  5983
HRLEI3	  5973#	  5985
HRLEM1	  5994#
HRLEM2	  6008#	  6024
HRLEM3	  6014#	  6026
HRLES1	  6035#
HRLES2	  6049#	  6065
HRLES3	  6054#	  6067
HRLI1	  4070#
HRLI2	  4084#	  4098
HRLI3	  4090#	  4100
HRLM1	  4109#
HRLM2	  4123#	  4137
HRLM3	  4129#	  4139
HRLO1	  4972#
HRLO2	  4986#	  5000
HRLO3	  4992#	  5002
HRLOI1	  5011#
HRLOI2	  5025#	  5039
HRLOI3	  5031#	  5041
HRLOM1	  5050#
HRLOM2	  5064#	  5078
HRLOM3	  5070#	  5080
HRLOS1	  5089#
HRLOS2	  5103#	  5117                                                                                                     SEQ 0207
HRLOS3	  5108#	  5119
HRLS1	  4149#
HRLS2	  4163#	  4177
HRLS3	  4168#	  4179
HRLZ1	  5452#
HRLZ2	  5466#	  5479
HRLZ3	  5472#	  5481
HRLZI1	  5490#
HRLZI2	  5504#	  5517
HRLZI3	  5510#	  5519
HRLZM1	  5528#
HRLZM2	  5542#	  5555
HRLZM3	  5548#	  5557
HRLZS1	  5566#
HRLZS2	  5580#	  5594
HRLZS3	  5586#	  5596
HRR1	  3872#
HRR2	  3886#	  3901
HRR3	  3892#	  3903
HRRE1	  5288#
HRRE2	  5302#	  5318
HRRE3	  5308#	  5320
HRREI1	  5329#
HRREI2	  5343#	  5359
HRREI3	  5349#	  5361
HRREM1	  5370#
HRREM2	  5384#	  5400
HRREM3	  5390#	  5402
HRRES1	  5411#
HRRES2	  5425#	  5441
HRRES3	  5430#	  5443
HRRI1	  3912#
HRRI2	  3926#	  3941
HRRI3	  3932#	  3943
HRRM1	  3952#
HRRM2	  3966#	  3981
HRRM3	  3972#	  3983
HRRO1	  4816#
HRRO2	  4830#	  4843
HRRO3	  4835#	  4845
HRROI1	  4854#
HRROI2	  4868#	  4882
HRROI3	  4874#	  4884
HRROM1	  4893#
HRROM2	  4907#	  4921
HRROM3	  4913#	  4923
HRROS1	  4933#
HRROS2	  4947#	  4961
HRROS3	  4952#	  4963
HRRS1	  3993#
HRRS2	  4007#	  4020
HRRS3	  4013#	  4022
HRRZ1	  4505#                                                                                                            SEQ 0208
HRRZ2	  4519#	  4532
HRRZ3	  4525#	  4534
HRRZI1	  4543#
HRRZI2	  4557#	  4570
HRRZI3	  4563#	  4572
HRRZM1	  4581#
HRRZM2	  4595#	  4608
HRRZM3	  4601#	  4610
HRRZS1	  4620#
HRRZS2	  4634#	  4647
HRRZS3	  4639#	  4649
HYPEN	   544#
INHCSH	   133#
INHPAG	   130#
INXM	   345#
IOCLR	   345#
IORB1	  3351#
IORB2	  3365#	  3381
IORB3	  3370#	  3383
ITERAT	    78#	   391
ITRCH1	   451#
ITRCNT	   391#
JFCNTR	  6870#	  6870	  6906
JFOND	  6892	  6900	  6906#
JFOT0	  6867#
JFOT0A	  6871#	  6907
JFOT1	  6878#	  6891	  6899
JFOT2	  6881#	  6885
JFOT3	  6882	  6886#
JFOT4	  6894#	  6901
JFOT5	  6897#	  6902
JFOT6	  6896	  6899#
JFTAB	  6888	  6901#
JOB41	   345#
JOBAPR	   345#
JOBCNI	   345#
JOBDDT	   345#
JOBFF	   345#
JOBOPC	   345#	  7095
JOBREL	   345#
JOBREN	   345#
JOBSA	   345#
JOBSYM	   345#
JOBTPC	   345#
JOBUSY	   345#
JOBUUO	   345#
JOBVER	   345#
K1	  6904#
KA10	    56#	   345
KAHZ50	   138#
KAIFLG	   408#
KI10	   345	  6917	  7119
KL10	   345                                                                                                             SEQ 0209
KLFLG	   409#	  6932
KLOLD	    60#	   345
KLTYP	   625#
LDLNK	   149#	   361	   363
LFP	   548#
LOOPER	   124#	  7100
LUUO	   345#
LUUO1	    42#	   478	   479
LUUO10	   478	   483
LUUO11	    48#	   478	   483
LUUO12	    49#	   478	   484
LUUO13	    50#	   478	   484
LUUO14	   478	   485
LUUO15	   478	   485
LUUO16	   478	   486
LUUO17	   478	   486
LUUO2	    43#	   478	   480
LUUO20	   478	   487
LUUO21	   478	   487
LUUO22	   478	   488
LUUO23	   478	   488
LUUO24	   478	   489
LUUO25	   478	   489
LUUO26	   478	   490
LUUO27	   478	   490
LUUO3	    44#	   478	   480
LUUO30	   478	   491
LUUO31	   478	   491
LUUO32	   478	   492
LUUO33	   478	   492
LUUO4	    45#	   478	   481
LUUO5	    46#	   478	   481
LUUO6	   478	   482
LUUO7	    47#	   478	   482
LUUOI	   345#
MAPNEW	   499#
MARGIN	   421#
MCNVER	     4#	    10	    26	   393
MEMLOW	   501#
MEMMAP	   399
MEMSIZ	   502#
MEMTOT	   500#
MICNT	  6929#	  6929	  6930	  6947
MINUS	   543#
MODDVC	   132#
MODDVL	   330	   330#	   394
MODDVU	   331	   331#	   395
MODLNK	   151#	   358
MONCTL	   411#	  6948	  7112
MONFLG	   410#
MONTEN	   412#
MPVU	   345#
NOPNT	   120#	  6938                                                                                                     SEQ 0210
NXMU	   345#
OPRSEL	   134#
OPTIME	   513#
ORCAB1	  3513#
ORCAB2	  3527#	  3542
ORCAB3	  3532#	  3544
ORCBB1	  3634#
ORCBB2	  3648#	  3664
ORCBB3	  3653#	  3666
ORCMB1	  3593#
ORCMB2	  3607#	  3623
ORCMB3	  3612#	  3625
P	   177	   178	   179	   180	   345#	   433
PAG	   345#
PALERS	   126#	  7129
PARCLR	   345#
PARDIS	   345#
PAREA1	    72#	   389
PAREA2	    73#	   390
PAREA3	    74#	   387
PAREA4	    75#	   388
PAREA5	    76#	   400
PAREA6	    77#	   401
PAREA7	   400#
PAREA8	   401#
PARENB	   345#
PARU	   345#
PASCNT	   415#	  6953	  6957
PATCH	  7180#
PDISF	   510#
PDLOVU	   345#
PERIOD	   540#
PFSTRT	   367#
PGMEND	    27#	    57#	  7186
PGMNAM	   392	   722#
PI	  6935
PICHN1	   345#
PICHN2	   345#
PICHN3	   345#
PICHN4	   345#
PICHN5	   345#
PICHN6	   345#
PICHN7	   345#
PICHNA	   345#
PICLR	   345#
PIOFF	   345#
PION	   345#
PLIST	   579#	   579
PLISTE	   579	   581#	   665
PLISTS	   580#
PLUS	   545#
PNTENB	   509#
PNTEXT	   388#                                                                                                            SEQ 0211
PNTFLG	   508#
PNTINH	   511#
PNTLPT	   121#
PNTNAM	   387#
PNTSPC	   512#
PROCED	  6936#	  6936	  7101	  7108
PVPAGI	   606#
PWFCLR	   345#
QUEST	   551#
RADIX	   554#
RADLSC	   556#
RADLSP	   555#
RAN	   674	   777#	   777	   780	   786	   790	   815#	   815	   818	   829	   854#	   854	   857	   864
	   868	   893#	   893	   896	   903	   907	   932#	   932	   935	   941	   945	   970#	   970	   973
	   991	  1016#	  1016	  1019	  1034	  1059#	  1059	  1062	  1079	  1104#	  1104	  1107	  1125	  1150#
	  1150	  1153	  1173	  1198#	  1198	  1201	  1207	  1211	  1236#	  1236	  1239	  1250	  1275#	  1275
	  1278	  1284	  1288	  1313#	  1313	  1316	  1327	  1352#	  1352	  1355	  1362	  1366	  1391#	  1391
	  1394	  1402	  1406	  1431#	  1431	  1434	  1440	  1444	  1469#	  1469	  1472	  1483	  1508#	  1508
	  1511	  1523	  1548#	  1548	  1551	  1563	  1588#	  1588	  1591	  1604	  1629#	  1629	  1632	  1645
	  1670#	  1670	  1673	  1679	  1683	  1708#	  1708	  1711	  1722	  1747#	  1747	  1750	  1762	  1787#
	  1787	  1790	  1816#	  1816	  1819	  1833	  1858#	  1858	  1861	  1867	  1871	  1896#	  1896	  1899
	  1910	  1935#	  1935	  1938	  1953	  1978#	  1978	  1981	  1996	  2021#	  2021	  2024	  2040	  2065#
	  2065	  2068	  2084	  2109#	  2109	  2112	  2118	  2122	  2147#	  2147	  2150	  2162	  2187#	  2187
	  2190	  2202	  2227#	  2227	  2230	  2241	  2266#	  2266	  2269	  2276	  2280	  2305#	  2305	  2308
	  2322	  2347#	  2347	  2350	  2356	  2360	  2385#	  2385	  2388	  2400	  2425#	  2425	  2428	  2442
	  2467#	  2467	  2470	  2482	  2507#	  2507	  2510	  2523	  2548#	  2548	  2551	  2566	  2591#	  2591
	  2594	  2600	  2604	  2629#	  2629	  2632	  2643	  2666#	  2666	  2669	  2675	  2679	  2704#	  2704
	  2707	  2718	  2743#	  2743	  2746	  2753	  2757	  2782#	  2782	  2785	  2793	  2797	  2822#	  2822
	  2825	  2831	  2835	  2860#	  2860	  2863	  2880	  2905#	  2905	  2908	  2924	  2949#	  2949	  2952
	  2963	  2988#	  2988	  2991	  3009	  3036#	  3036	  3039	  3060	  3087#	  3087	  3090	  3092	  3100
	  3125#	  3125	  3128	  3130	  3131	  3141	  3166#	  3166	  3169	  3171	  3172	  3182	  3207#	  3207
	  3210	  3213	  3217	  3221	  3246#	  3246	  3249	  3251	  3252	  3262	  3287#	  3287	  3290	  3292
	  3300	  3325#	  3325	  3328	  3330	  3331	  3341	  3366#	  3366	  3369	  3371	  3372	  3382	  3407#
	  3407	  3410	  3412	  3413	  3423	  3448#	  3448	  3451	  3453	  3454	  3464	  3489#	  3489	  3492
	  3494	  3503	  3528#	  3528	  3531	  3533	  3535	  3543	  3568#	  3568	  3571	  3573	  3574	  3583
	  3608#	  3608	  3611	  3613	  3614	  3624	  3649#	  3649	  3652	  3654	  3655	  3665	  3690#	  3690
	  3693	  3695	  3703	  3728#	  3728	  3731	  3735	  3737	  3742	  3767#	  3767	  3770	  3771	  3780
	  3805#	  3805	  3808	  3809	  3813	  3820	  3849#	  3849	  3852	  3853	  3862	  3887#	  3887	  3890
	  3891	  3897	  3902	  3927#	  3927	  3930	  3931	  3942	  3967#	  3967	  3970	  3971	  3979	  3982
	  4008#	  4008	  4011	  4012	  4021	  4046#	  4046	  4049	  4050	  4055	  4060	  4085#	  4085	  4088
	  4089	  4099	  4124#	  4124	  4127	  4128	  4135	  4138	  4164#	  4164	  4167	  4178	  4203#	  4203
	  4206	  4211	  4213	  4218	  4243#	  4243	  4246	  4247	  4257	  4282#	  4282	  4285	  4286	  4291
	  4295	  4298	  4324#	  4324	  4327	  4341	  4366#	  4366	  4369	  4372	  4374	  4379	  4404#	  4404
	  4407	  4408	  4416	  4441#	  4441	  4444	  4445	  4448	  4452	  4455	  4481#	  4481	  4484	  4495
	  4520#	  4520	  4523	  4524	  4528	  4533	  4558#	  4558	  4561	  4562	  4571	  4596#	  4596	  4599
	  4600	  4606	  4609	  4635#	  4635	  4638	  4648	  4673#	  4673	  4676	  4679	  4681	  4686	  4713#
	  4713	  4716	  4717	  4727	  4752#	  4752	  4755	  4756	  4759	  4763	  4766	  4792#	  4792	  4795
	  4806	  4831#	  4831	  4834	  4837	  4839	  4844	  4869#	  4869	  4872	  4873	  4876	  4883	  4908#
	  4908	  4911	  4912	  4915	  4919	  4922	  4948#	  4948	  4951	  4962	  4987#	  4987	  4990	  4991
	  4996	  5001	  5026#	  5026	  5029	  5030	  5040	  5065#	  5065	  5068	  5069	  5076	  5079	  5104#
	  5104	  5107	  5118	  5143#	  5143	  5146	  5147	  5150	  5154	  5159	  5184#	  5184	  5187	  5188
	  5196	  5221#	  5221	  5224	  5225	  5228	  5234	  5237	  5262#	  5262	  5265	  5278	  5303#	  5303
	  5306	  5307	  5310	  5314	  5319	  5344#	  5344	  5347	  5348	  5351	  5360	  5385#	  5385	  5388     SEQ 0212
	  5389	  5392	  5398	  5401	  5426#	  5426	  5429	  5442	  5467#	  5467	  5470	  5471	  5475	  5480
	  5505#	  5505	  5508	  5509	  5518	  5543#	  5543	  5546	  5547	  5553	  5556	  5581#	  5581	  5584
	  5585	  5595	  5620#	  5620	  5623	  5626	  5628	  5633	  5658#	  5658	  5661	  5662	  5670	  5695#
	  5695	  5698	  5699	  5702	  5706	  5709	  5734#	  5734	  5737	  5748	  5773#	  5773	  5776	  5779
	  5781	  5786	  5811#	  5811	  5814	  5815	  5824	  5849#	  5849	  5852	  5853	  5856	  5860	  5863
	  5888#	  5888	  5891	  5902	  5927#	  5927	  5930	  5931	  5934	  5938	  5943	  5968#	  5968	  5971
	  5972	  5975	  5984	  6009#	  6009	  6012	  6013	  6016	  6022	  6025	  6050#	  6050	  6053	  6066
	  6091#	  6091	  6094	  6095	  6098	  6102	  6107	  6132#	  6132	  6135	  6136	  6144	  6169#	  6169
	  6172	  6173	  6176	  6182	  6185	  6210#	  6210	  6213	  6226	  6266#	  6266	  6269	  6271	  6285
	  6290	  6313#	  6313	  6316	  6317	  6319	  6335	  6338	  6363#	  6363	  6366	  6367	  6388	  6411#
	  6411	  6414	  6416	  6417	  6438	  6463#	  6463	  6466	  6468	  6482	  6487	  6512#	  6512	  6515
	  6517	  6537	  6562#	  6562	  6565	  6566	  6587	  6610#	  6610	  6613	  6615	  6637	  6662#	  6662
	  6665	  6675	  6702#	  6702	  6705	  6715	  6743#	  6743	  6746	  6758	  6786#	  6786	  6789	  6802
	  6872#	  6872	  6875	  6878	  6886	  6889	  7043#	  7043
RAN1	   768#	   806#	   819	   826	   845#	   884#	   923#	   961#	   976	   983	   988	  1007#	  1024	  1030
	  1031	  1050#	  1064	  1071	  1076	  1095#	  1109	  1116	  1121	  1140#	  1158	  1164	  1165	  1169
	  1170	  1189#	  1227#	  1240	  1247	  1266#	  1304#	  1317	  1323	  1324	  1343#	  1382#	  1422#	  1460#
	  1473	  1479	  1480	  1499#	  1513	  1519	  1520	  1539#	  1553	  1559	  1560	  1579#	  1593	  1600
	  1601	  1620#	  1634	  1641	  1642	  1661#	  1699#	  1712	  1718	  1719	  1738#	  1778#	  1791	  1807#
	  1849#	  1887#	  1900	  1907	  1926#	  1940	  1945	  1946	  1950	  1969#	  1983	  1988	  1993	  2012#
	  2026	  2032	  2037	  2056#	  2070	  2076	  2077	  2081	  2100#	  2138#	  2151	  2159	  2178#	  2218#
	  2231	  2238	  2257#	  2296#	  2338#	  2376#	  2390	  2397	  2416#	  2430	  2439	  2458#	  2472	  2479
	  2498#	  2512	  2519	  2520	  2539#	  2553	  2563	  2582#	  2620#	  2633	  2640	  2657#	  2695#	  2708
	  2715	  2734#	  2773#	  2813#	  2851#	  2865	  2872	  2877	  2896#	  2914	  2920	  2921	  2940#	  2954
	  2960	  2979#	  2993	  3000	  3001	  3005	  3006	  3026#	  3045	  3051	  3052	  3056	  3057	  3078#
	  3091	  3095	  3097	  3116#	  3129	  3136	  3138	  3157#	  3170	  3177	  3179	  3198#	  3211	  3212
	  3216	  3218	  3237#	  3250	  3257	  3259	  3278#	  3291	  3295	  3296	  3297	  3316#	  3329	  3336
	  3338	  3357#	  3370	  3377	  3379	  3398#	  3411	  3418	  3420	  3439#	  3452	  3459	  3461	  3480#
	  3493	  3498	  3500	  3519#	  3532	  3538	  3540	  3559#	  3572	  3578	  3580	  3599#	  3612	  3619
	  3621	  3640#	  3653	  3660	  3662	  3681#	  3694	  3698	  3700	  3719#	  3733	  3739	  3758#	  3773
	  3777	  3796#	  3811	  3817	  3840#	  3854	  3857	  3859	  3878#	  3893	  3899	  3918#	  3933	  3939
	  3958#	  3973	  3979	  3999#	  4013	  4016	  4018	  4037#	  4052	  4057	  4076#	  4091	  4096	  4115#
	  4130	  4135	  4155#	  4168	  4173	  4175	  4194#	  4208	  4215	  4234#	  4249	  4254	  4273#	  4288
	  4295	  4315#	  4328	  4336	  4338	  4357#	  4371	  4376	  4395#	  4410	  4413	  4432#	  4447	  4452
	  4472#	  4485	  4490	  4492	  4511#	  4526	  4530	  4549#	  4564	  4568	  4587#	  4602	  4606	  4626#
	  4639	  4643	  4645	  4664#	  4678	  4683	  4704#	  4719	  4724	  4743#	  4758	  4763	  4783#	  4796
	  4801	  4803	  4822#	  4836	  4841	  4860#	  4875	  4880	  4899#	  4914	  4919	  4939#	  4952	  4957
	  4959	  4978#	  4993	  4998	  5017#	  5032	  5037	  5056#	  5071	  5076	  5095#	  5108	  5113	  5115
	  5134#	  5149	  5156	  5175#	  5190	  5193	  5212#	  5227	  5234	  5253#	  5266	  5273	  5275	  5294#
	  5309	  5316	  5335#	  5350	  5357	  5376#	  5391	  5398	  5417#	  5430	  5437	  5439	  5458#	  5473
	  5477	  5496#	  5511	  5515	  5534#	  5549	  5553	  5572#	  5586	  5590	  5592	  5611#	  5625	  5630
	  5649#	  5664	  5667	  5686#	  5701	  5706	  5725#	  5738	  5743	  5745	  5764#	  5778	  5783	  5802#
	  5817	  5821	  5840#	  5855	  5860	  5879#	  5892	  5897	  5899	  5918#	  5933	  5940	  5959#	  5974
	  5981	  6000#	  6015	  6022	  6041#	  6054	  6061	  6063	  6082#	  6097	  6104	  6123#	  6138	  6141
	  6160#	  6175	  6182	  6201#	  6214	  6221	  6223	  6257#	  6270	  6287	  6304#	  6318	  6335	  6354#
	  6368	  6385	  6402#	  6415	  6433	  6435	  6454#	  6467	  6484	  6503#	  6516	  6534	  6553#	  6567
	  6584	  6601#	  6614	  6632	  6634	  6653#	  6693#	  6734#	  6748	  6755	  6777#	  6792	  6799	  6821#
	  6830	  6848#	  6866#	  6877	  6887
RANDBS	   389#	   671
REENTR	   369#
RELIAB	   128#	   682	   713
RENTR1	    63	   719#
REPT	   345#                                                                                                            SEQ 0213
REPT1	   345#
REPTU	   467#
REQSET	   345#
RESRT1	    62	   444#
RESRT2	   445#
RETURN	   376#
RSTART	   117#
RTIME	   715	   747#	   775	   813	   852	   891	   930	   968	  1014	  1057	  1102	  1147	  1196	  1234
	  1273	  1311	  1350	  1389	  1429	  1467	  1506	  1546	  1586	  1627	  1668	  1706	  1745	  1785
	  1814	  1856	  1894	  1933	  1976	  2019	  2063	  2107	  2145	  2185	  2225	  2264	  2303	  2345
	  2383	  2423	  2465	  2505	  2546	  2589	  2627	  2664	  2702	  2741	  2780	  2820	  2858	  2903
	  2947	  2986	  3033	  3085	  3123	  3164	  3205	  3244	  3285	  3323	  3364	  3405	  3446	  3487
	  3526	  3566	  3606	  3647	  3688	  3726	  3765	  3803	  3847	  3885	  3925	  3965	  4006	  4044
	  4083	  4122	  4162	  4201	  4241	  4280	  4322	  4364	  4402	  4439	  4479	  4518	  4556	  4594
	  4633	  4671	  4711	  4750	  4790	  4829	  4867	  4906	  4946	  4985	  5024	  5063	  5102	  5141
	  5182	  5219	  5260	  5301	  5342	  5383	  5424	  5465	  5503	  5541	  5579	  5618	  5656	  5693
	  5732	  5771	  5809	  5847	  5886	  5925	  5966	  6007	  6048	  6089	  6130	  6167	  6208	  6264
	  6311	  6361	  6409	  6461	  6510	  6560	  6608	  6660	  6700	  6741	  6784	  6828	  6855
RTP	   549#
RUNFLG	   416#
SADR1	    61#	   365
SADR10	    70#	   381
SADR11	    71#	   382
SADR2	    62#	   367
SADR3	    63#	   369
SADR4	    64#
SADR5	    65#	   430
SADR6	    66#	   431
SADR7	    67#	   378
SADR8	    68#	   379
SADR9	    69#	   380
SBINIT	   190	   375#
SCOPE	   468#
SETAB1	  3272#
SETAB2	  3286#	  3299
SETAB3	  3291#	  3301
SETMB1	  3192#
SETMB2	  3206#	  3220
SETMB3	  3211#	  3222
SETZB1	  3072#
SETZB2	  3086#	  3099
SETZB3	  3091#	  3101
SFSTRT	   365#
SLASH	   552#
SPACE	   541#
SRTDDT	   371#
START	   359	   670#
START1	   378#
START2	   379#
START3	   380#
START4	   381#
START5	   382#
STARTA	   374	   679#                                                                                                    SEQ 0214
STCAB1	  3474#
STCAB2	  3488#	  3502
STCAB3	  3493#	  3504
STCMB1	  3553#
STCMB2	  3567#	  3582
STCMB3	  3572#	  3584
STOB1	  3675#
STOB2	  3689#	  3702
STOB3	  3694#	  3704
SUBA1	  6448#
SUBA2	  6462#	  6486
SUBA3	  6467#	  6488
SUBBA1	  6595#
SUBBA2	  6609#	  6636
SUBBA3	  6614#	  6638
SUBIA1	  6547#
SUBIA2	  6561#	  6586
SUBIA3	  6567#	  6588
SUBLNK	   152#	   375
SUBMA1	  6497#
SUBMA2	  6511#	  6536
SUBMA3	  6516#	  6538
SWTEXR	   390#
SYSEXR	   363#
TAB	   542#
TESTPC	   417#	   770	   808	   847	   886	   925	   963	  1009	  1052	  1097	  1142	  1191	  1229	  1268
	  1306	  1345	  1384	  1424	  1462	  1501	  1541	  1581	  1622	  1663	  1701	  1740	  1780	  1809
	  1851	  1889	  1928	  1971	  2014	  2058	  2102	  2140	  2180	  2220	  2259	  2298	  2340	  2378
	  2418	  2460	  2500	  2541	  2584	  2622	  2659	  2697	  2736	  2775	  2815	  2853	  2898	  2942
	  2981	  3028	  3080	  3118	  3159	  3200	  3239	  3280	  3318	  3359	  3400	  3441	  3482	  3521
	  3561	  3601	  3642	  3683	  3721	  3760	  3798	  3842	  3880	  3920	  3960	  4001	  4039	  4078
	  4117	  4157	  4196	  4236	  4275	  4317	  4359	  4397	  4434	  4474	  4513	  4551	  4589	  4628
	  4666	  4706	  4745	  4785	  4824	  4862	  4901	  4941	  4980	  5019	  5058	  5097	  5136	  5177
	  5214	  5255	  5296	  5337	  5378	  5419	  5460	  5498	  5536	  5574	  5613	  5651	  5688	  5727
	  5766	  5804	  5842	  5881	  5920	  5961	  6002	  6043	  6084	  6125	  6162	  6203	  6259	  6306
	  6356	  6404	  6456	  6505	  6555	  6603	  6655	  6695	  6736	  6779	  6823	  6850
TICKS	   420#
TLC1	  2576#
TLC2	  2590#	  2603
TLC3	  2595#	  2605
TLC4	  2614#
TLC5	  2628#	  2642
TLC6	  2633#	  2644
TLC7	  2651#
TLC8	  2665#	  2678
TLC9	  2670#	  2680
TLCA1	  2689#
TLCA2	  2703#	  2717
TLCA3	  2708#	  2719
TLCA4	  2728#
TLCA5	  2742#	  2756
TLCA6	  2747#	  2758
TLCA7	  2767#                                                                                                            SEQ 0215
TLCA8	  2781#	  2796
TLCA9	  2786#	  2798
TLCE1	  2807#
TLCE2	  2821#	  2834
TLCE3	  2826#	  2836
TLCE4	  2845#
TLCE5	  2859#	  2879
TLCE6	  2864#	  2881
TLCE7	  2890#
TLCE8	  2904#	  2913	  2923
TLCE9	  2909#	  2925
TLCN1	  2934#
TLCN2	  2948#	  2962
TLCN3	  2953#	  2964
TLCN4	  2973#
TLCN5	  2987#	  3008
TLCN6	  2992#	  3010
TLCN7	  3020#
TLCN8	  3035#	  3059
TLCN9	  3043#	  3061
TLFT1	   753#	  1939	  2511	  2992
TLFT2	   754#	  2025
TLN1	  1183#
TLN2	  1197#	  1210
TLN3	  1202#	  1212
TLN4	  1221#
TLN5	  1235#	  1249
TLN6	  1240#	  1251
TLN7	  1260#
TLN8	  1274#	  1287
TLN9	  1279#	  1289
TLNA1	  1298#
TLNA2	  1312#	  1326
TLNA3	  1317#	  1328
TLNA4	  1337#
TLNA5	  1351#	  1365
TLNA6	  1356#	  1367
TLNA7	  1376#
TLNA8	  1390#	  1405
TLNA9	  1395#	  1407
TLNE1	  1416#
TLNE2	  1430#	  1443
TLNE3	  1435#	  1445
TLNE4	  1454#
TLNE5	  1468#	  1482
TLNE6	  1473#	  1484
TLNE7	  1493#
TLNE8	  1507#	  1522
TLNE9	  1512#	  1524
TLNN1	  1533#
TLNN2	  1547#	  1562
TLNN3	  1553#	  1564
TLNN4	  1573#                                                                                                            SEQ 0216
TLNN5	  1587#	  1603
TLNN6	  1592#	  1605
TLNN7	  1614#
TLNN8	  1628#	  1644
TLNN9	  1633#	  1646
TLO1	  2094#
TLO2	  2108#	  2121
TLO3	  2113#	  2123
TLO4	  2132#
TLO5	  2146#	  2161
TLO6	  2151#	  2163
TLO7	  2172#
TLO8	  2186#	  2201
TLO9	  2191#	  2203
TLOA1	  2212#
TLOA2	  2226#	  2240
TLOA3	  2231#	  2242
TLOA4	  2251#
TLOA5	  2265#	  2279
TLOA6	  2270#	  2281
TLOA7	  2290#
TLOA8	  2304#	  2321
TLOA9	  2309#	  2323
TLOE1	  2332#
TLOE2	  2346#	  2359
TLOE3	  2351#	  2361
TLOE4	  2370#
TLOE5	  2384#	  2399
TLOE6	  2389#	  2401
TLOE7	  2410#
TLOE8	  2424#	  2441
TLOE9	  2429#	  2443
TLON1	  2452#
TLON2	  2466#	  2481
TLON3	  2471#	  2483
TLON4	  2492#
TLON5	  2506#	  2522
TLON6	  2511#	  2524
TLON7	  2533#
TLON8	  2547#	  2565
TLON9	  2552#	  2567
TLZ1	  1655#
TLZ2	  1669#	  1682
TLZ3	  1674#	  1684
TLZ4	  1693#
TLZ5	  1707#	  1721
TLZ6	  1712#	  1723
TLZ7	  1732#
TLZ8	  1746#	  1761
TLZ9	  1751#	  1763
TLZA1	  1772#
TLZA2	  1786#
TLZA3	  1791#                                                                                                            SEQ 0217
TLZA7	  1801#
TLZA8	  1815#	  1832
TLZA9	  1820#	  1834
TLZE1	  1843#
TLZE2	  1857#	  1870
TLZE3	  1862#	  1872
TLZE4	  1881#
TLZE5	  1895#	  1909
TLZE6	  1900#	  1911
TLZE7	  1920#
TLZE8	  1934#	  1952
TLZE9	  1939#	  1954
TLZN1	  1963#
TLZN2	  1977#	  1995
TLZN3	  1982#	  1997
TLZN4	  2006#
TLZN5	  2020#	  2039
TLZN6	  2025#	  2041
TLZN7	  2050#
TLZN8	  2064#	  2083
TLZN9	  2069#	  2085
TOTALS	   118#
TRC4	   717	   762#
TRC5	   776#	   789
TRC6	   781#	   791
TRC7	   839#
TRC8	   853#	   867
TRC9	   858#	   869
TRCA4	   800#
TRCA5	   814#	   828
TRCA6	   819#	   830
TRCA7	   878#
TRCA8	   892#	   906
TRCA9	   897#	   908
TRCE1	   917#
TRCE2	   931#	   944
TRCE3	   936#	   946
TRCE4	  1001#
TRCE5	  1015#	  1023	  1033
TRCE6	  1020#	  1035
TRCEA1	   955#
TRCEA2	   969#	   975	   990
TRCEA3	   976#	   992
TRCEA4	  1044#
TRCEA5	  1058#	  1078
TRCEA6	  1063#	  1080
TRCN1	  1089#
TRCN2	  1103#	  1124
TRCN3	  1108#	  1126
TRCNA	  1134#
TRCNB	  1149#	  1172
TRCNC	  1157#	  1174
TSTLFT	   752#	  1512	  1592	  2429	  2909                                                                             SEQ 0218
TTNBRF	   600#
TTYFIL	   516#
TTYSPD	   517#
TXTINH	   129#
USER	   407#	   672	  6933
USERF	   345#
USRASB	    55#	   397
USRCRF	   526#
USRLFF	   525#
UUODIS	   479#
UUOEXT	   435#	  7126
UUORTN	   436#
UUOSKP	   433#
UUOTXT	  7081
XORB1	  3310#
XORB2	  3324#	  3340
XORB3	  3329#	  3342
YY	  6864#	  6890	  6895	  6898
$$MUUO	   631#
$$OUTE	   637#
$$TAX1	   649#
$$TAX2	   650#
$$TOGG	   643#
$$UUO	   620#
$ACC0	   458#
$BEND1	   428#
$BEND2	   429#	  7116
$CHRIN	   519#
$CRLF	   521#
$DEVCH	   345#
$DSKUP	   398#
$DVCH1	   345#
$DVOFF	   515#
$EMODE	   396#
$ENDFX	   665#	   666
$FFF	   523#
$IBUF	   571#
$INEXT	   573#
$INNM	   572#
$ITRHL	   439#
$ITRX1	   440#
$LPAPE	  7137
$MMAP	   399#
$MODVL	   394#
$MODVU	   395#
$OBUF	   562#
$ONETM	   422#
$OUTEX	   564#
$OUTNM	   563#
$PAPER	   345
$PARER	   446#
$PNAME	   392#
$PSHER	   450#                                                                                                            SEQ 0219
$PVER	   393#
$RSRTX	   442#
$RSRTY	   443#
$SPAG1	   462#
$START	   359#
$SVAPR	   460#
$SVPAG	   461#
$SVPI	   459#
$SVUPC	   465#	  6927	  6931	  6961
$SVUUO	   464#	  6940	  6977	  6988	  7034	  7072
$TABF	   522#
$TTCHR	   518#
$TWCNT	   514#
$TYPNB	   520#
$UMODE	   397#
$UORTX	   437#
$USRHL	   441#
$UUOER	   438#	   479
$VTF	   524#
%ACS1A	  6942#	  6942	  6969	  6973	  6990	  6996
%ACTFL	   471#
%ACTUL	   472#
%CNTE	  6978#	  6978	  6982	  6997
%COREC	   470#
%CORFL	   469#
%DISCR	   473#
%EE1	  6983#	  6983	  6985	  7059
%EE1A	  6986#	  6986	  7027	  7068
%EE2	  6989#	  6989	  6994	  7057
%EE2A	  6995#	  6995	  7051
%ERAC0	  6916#	  6916	  6943	  6981	  7013	  7025	  7041	  7118
%ERAC1	  6924#	  6924	  6944	  6980	  6984	  6987	  6993	  7106
%ERAC2	  6925#	  6925	  6979	  7105
%ERFST	  6950#	  6950	  6952
%ERHI1	   612#
%ERHI2	   613#
%ERHI3	   614#
%ERMOR	  7082	  7088#
%ERMS1	  6947#	  7131
%ERMS2	  6968#
%ERR2	  7002	  7046	  7055#
%ERR4	  7019	  7072#
%ERRB	  7014#	  7069
%ERRB1	  7034#	  7062
%ERRC	  7030	  7048	  7053	  7064	  7074	  7078#
%ERRS1	  6939	  7092#	  7130
%ERRS2	  7105#
%ERRS4	  6946	  7128#
%ERRS5	  7109	  7113	  7118#
%RAND	  6968#	  6968	  6971	  7042
.JB41	   345#
.JBAPR	   345#
.JBCNI	   345#                                                                                                            SEQ 0220
.JBDDT	   345#
.JBFF	   345#
.JBOPC	   345#
.JBREL	   345#
.JBREN	   345#
.JBSA	   345#
.JBSYM	   345#
.JBTPC	   345#
.JBUSY	   345#
.JBUUO	   345#
.JBVER	   345#
ADSBSM	  6231#	  6273	  6321	  6371	  6419	  6470	  6520	  6570	  6618
CFLUSH	   301#                                                                                                            SEQ 0221
CINVAL	   300#
CLOKOP	   295#
CWRTBI	   302#
DROPDV	   262#	   719
EERR	    39#	  3095	  3097	  3136	  3138	  3177	  3179	  3216	  3218	  3257	  3259	  3295	  3297	  3336
	  3338	  3377	  3379	  3418	  3420	  3459	  3461	  3498	  3500	  3538	  3540	  3578	  3580	  3619
	  3621	  3660	  3662	  3698	  3700	  4215	  4376	  4683	  4841	  5630	  5783	  6287	  6433	  6435
	  6484	  6632	  6634
EERRI	    41#	   787	   865	   942	  1208	  1285	  1403	  1441	  1680	  1759	  1830	  1868	  2119	  2199
	  2277	  2319	  2357	  2601	  2676	  2754	  2794	  2832	  6672	  6712
EERRM	    40#	  3857	  3859	  4173	  4175	  4336	  4338	  4490	  4492	  4643	  4645	  4801	  4803	  4957
	  4959	  5113	  5115	  5273	  5275	  5437	  5439	  5743	  5745	  5897	  5899	  6061	  6063	  6221
	  6223	  6534
ENDUUO	   308#	   427
EOPUUO	   309#	   429
ER	    37#	   783	   785	   822	   824	   861	   863	   900	   902	   938	   940	   979	   981	   985
	  1027	  1029	  1067	  1069	  1073	  1113	  1115	  1119	  1161	  1163	  1167	  1204	  1206	  1243
	  1245	  1281	  1283	  1320	  1322	  1359	  1361	  1399	  1401	  1437	  1439	  1476	  1478	  1516
	  1518	  1556	  1558	  1597	  1599	  1638	  1640	  1676	  1678	  1715	  1717	  1755	  1757	  1796
	  1826	  1828	  1864	  1866	  1903	  1905	  1948	  1991	  2035	  2079	  2115	  2117	  2155	  2157
	  2195	  2197	  2234	  2236	  2273	  2275	  2315	  2317	  2353	  2355	  2393	  2395	  2435	  2437
	  2475	  2477	  2516	  2518	  2559	  2561	  2597	  2599	  2636	  2638	  2672	  2674	  2711	  2713
	  2750	  2752	  2790	  2792	  2828	  2830	  2868	  2870	  2874	  2917	  2919	  2956	  2958	  2997
	  2999	  3003	  3048	  3050	  3054	  6753	  6797
ERM	    38#	  6890	  6895	  6898
ERR	    33#	  3739	  3899	  4057	  4530	  4998	  5156	  5316	  5477	  5940	  6104
ERRHLT	   197#	  7099
ERRI	    35#	   826	   904	   983	   988	  1031	  1071	  1076	  1117	  1122	  1165	  1170	  1247	  1324
	  1363	  1480	  1520	  1560	  1601	  1642	  1719	  1907	  1945	  1950	  1988	  1993	  2032	  2037
	  2076	  2081	  2159	  2238	  2397	  2439	  2479	  2520	  2563	  2640	  2715	  2872	  2877	  2921
	  2960	  3001	  3006	  3052	  3057	  3777	  3939	  4096	  4254	  4413	  4568	  4724	  4880	  5037
	  5193	  5357	  5515	  5667	  5821	  5981	  6141	  6385	  6584	  6755	  6799
ERRM	    34#	  3817	  3979	  4016	  4018	  4135	  4295	  4452	  4606	  4763	  4919	  5076	  5234	  5398
	  5553	  5590	  5592	  5706	  5860	  6022	  6182	  6335
ERROR	    36#	  6833	  6859
FATAL	   196#
FRD36	   337#
FRD8	   338#
FREAD	   336#
FSELEC	   335#
GET	   180#
GO	   177#
HALT	    67	    68	    69	    70	    71	   182#	   448
JEN	   184#
JRSTF	   183#
LOOP	   102#	   788	   827	   866	   905	   943	   989	  1032	  1077	  1123	  1171	  1209	  1248	  1286
	  1325	  1364	  1404	  1442	  1481	  1521	  1561	  1602	  1643	  1681	  1720	  1760	  1831	  1869
	  1908	  1951	  1994	  2038	  2082	  2120	  2160	  2200	  2239	  2278	  2320	  2358	  2398	  2440
	  2480	  2521	  2564	  2602	  2641	  2677	  2716	  2755	  2795	  2833	  2878	  2922	  2961	  3007
	  3058	  3098	  3139	  3180	  3219	  3260	  3298	  3339	  3380	  3421	  3462	  3501	  3541	  3581
	  3622	  3663	  3701	  3740	  3778	  3818	  3860	  3900	  3940	  3980	  4019	  4058	  4097	  4136
	  4176	  4216	  4255	  4296	  4339	  4377	  4414	  4453	  4493	  4531	  4569	  4607	  4646	  4684
	  4725	  4764	  4804	  4842	  4881	  4920	  4960	  4999	  5038	  5077	  5116	  5157	  5194	  5235     SEQ 0222
	  5276	  5317	  5358	  5399	  5440	  5478	  5516	  5554	  5593	  5631	  5668	  5707	  5746	  5784
	  5822	  5861	  5900	  5941	  5982	  6023	  6064	  6105	  6142	  6183	  6224	  6288	  6336	  6386
	  6436	  6485	  6535	  6585	  6635	  6673	  6713	  6756	  6800
MAPADR	   318#
MAPCNK	   319#
MAPMEM	   315#
MAPPNT	   321#
MAPSET	   320#
MEMSEG	   317#
MEMZRO	   316#
MODPCP	   328#
MODPCU	   327#
MTROP	   296#
NAME	     7#	    10
PBELL	   271#	  7103
PCRL	   265#	  7078
PCRL2	   269#
PCRL2F	   270#
PCRLF	   266#
PFORCE	   273#
PGMINT	   190#	   670
PJRST	   181#
PMSG	   275#	  6955	  6959	  7005	  7009	  7021	  7032	  7037	  7049	  7055	  7066
PMSGF	   278#
PNT1	   231#
PNT11	   245#
PNT11F	   246#
PNT1F	   232#
PNT2	   233#	  7008
PNT2F	   234#
PNT3	   235#
PNT3F	   236#
PNT4	   237#
PNT4F	   238#
PNT5	   239#
PNT5F	   240#
PNT6	   241#	  6963	  7060
PNT6F	   242#
PNT7	   243#
PNT7F	   244#
PNTA	   217#	  7073
PNTADF	   248#
PNTADR	   247#
PNTAF	   218#
PNTAL	   219#
PNTALF	   220#
PNTCHF	   230#
PNTCHR	   229#
PNTCI	   227#
PNTCIF	   228#
PNTCW	   263#
PNTCWF	   264#
PNTDCF	   256#                                                                                                            SEQ 0223
PNTDEC	   255#	  6958
PNTDS	   257#
PNTDSF	   258#
PNTHW	   251#	  7014	  7028	  7044	  7052
PNTHWF	   252#
PNTMGN	   342#	  7089
PNTMSF	   224#
PNTMSG	   223#
PNTNM	   259#	  6951
PNTOCF	   254#
PNTOCS	   253#
PNTOCT	   249#
PNTOTF	   250#
PNTSIX	   260#
PNTSXF	   261#
PSIXL	   221#
PSIXLF	   222#
PSIXM	   225#	  6956	  6960	  7006	  7010	  7022	  7033	  7038	  7050	  7056	  7067
PSIXMF	   226#
PSP	   267#
PSPF	   268#
PUT	   179#
RANDOM	    96#	   776	   814	   853	   892	   931	   969	  1015	  1058	  1103	  1149	  1197	  1235	  1274
	  1312	  1351	  1390	  1430	  1468	  1507	  1547	  1587	  1628	  1669	  1707	  1746	  1786	  1815
	  1857	  1895	  1934	  1977	  2020	  2064	  2108	  2146	  2186	  2226	  2265	  2304	  2346	  2384
	  2424	  2466	  2506	  2547	  2590	  2628	  2665	  2703	  2742	  2781	  2821	  2859	  2904	  2948
	  2987	  3035	  3086	  3124	  3165	  3206	  3245	  3286	  3324	  3365	  3406	  3447	  3488	  3527
	  3567	  3607	  3648	  3689	  3727	  3766	  3804	  3848	  3886	  3926	  3966	  4007	  4045	  4084
	  4123	  4163	  4202	  4242	  4281	  4323	  4365	  4403	  4440	  4480	  4519	  4557	  4595	  4634
	  4672	  4712	  4751	  4791	  4830	  4868	  4907	  4947	  4986	  5025	  5064	  5103	  5142	  5183
	  5220	  5261	  5302	  5343	  5384	  5425	  5466	  5504	  5542	  5580	  5619	  5657	  5694	  5733
	  5772	  5810	  5848	  5887	  5926	  5967	  6008	  6049	  6090	  6131	  6168	  6209	  6265	  6312
	  6362	  6410	  6462	  6511	  6561	  6609	  6661	  6701	  6742	  6785	  6871
RTN	   178#	   435
S	   108#	   110	   114	   143	   145	   154	   157	   172	   173	   175	   186	   188	   192	   194
	   199	   203	   345	   350	   356	   383	   385	   403	   405	   423	   425	   454	   456	   474
	   476	   494	   496	   504	   506	   527	   532	   558	   560	   567	   569	   575	   577	   583
	   585	   589	   591	   596	   598	   602	   604	   608	   610	   616	   618	   621	   623	   627
	   629	   633	   635	   639	   641	   645	   647	   652	   657	   661	   663
SETUP	    81#	   762	   800	   839	   878	   917	   955	  1001	  1044	  1089	  1134	  1183	  1221	  1260
	  1298	  1337	  1376	  1416	  1454	  1493	  1533	  1573	  1614	  1655	  1693	  1732	  1772	  1801
	  1843	  1881	  1920	  1963	  2006	  2050	  2094	  2132	  2172	  2212	  2251	  2290	  2332	  2370
	  2410	  2452	  2492	  2533	  2576	  2614	  2651	  2689	  2728	  2767	  2807	  2845	  2890	  2934
	  2973	  3020	  3072	  3110	  3151	  3192	  3231	  3272	  3310	  3351	  3392	  3433	  3474	  3513
	  3553	  3593	  3634	  3675	  3713	  3752	  3790	  3834	  3872	  3912	  3952	  3993	  4031	  4070
	  4109	  4149	  4188	  4228	  4267	  4309	  4351	  4389	  4426	  4466	  4505	  4543	  4581	  4620
	  4658	  4698	  4737	  4777	  4816	  4854	  4893	  4933	  4972	  5011	  5050	  5089	  5128	  5169
	  5206	  5247	  5288	  5329	  5370	  5411	  5452	  5490	  5528	  5566	  5605	  5643	  5680	  5719
	  5758	  5796	  5834	  5873	  5912	  5953	  5994	  6035	  6076	  6117	  6154	  6195	  6251	  6298
	  6348	  6396	  6448	  6497	  6547	  6595	  6647	  6687	  6728	  6771	  6815	  6842
SIXBTZ	   284#
SWITCH	   290#	   681	  6937	  7090
TTALTM	   212#	  7092                                                                                                     SEQ 0224
TTICHR	   205#
TTICNV	   210#
TTIDEC	   209#
TTINO	   207#
TTIOCT	   208#
TTIYES	   206#
TTLOOK	   211#
TTSIXB	   213#