Google
 

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





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

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

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

	FUNCTION:	TESTS, SKIPS, JUMPS, AOX, SOX, CAI, 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-DAKBB.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-DAKBB.TXT
							PAGE 3                                                             SEQ 0003

1.0	ABSTRACT

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

	THE DIAGNOSTIC TESTS TESTS, SKIPS, JUMPS, AOX, SOX, CAI, 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-DAKBB.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-DAKBB.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-DAKBB.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-DAKBB.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-DAKBB.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-DAKBB.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-DAKBB.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-DAKBB.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-DAKBB.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-DAKBB.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 'DAKBB.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-DAKBB
                                                                                                                           SEQ 0014
************************************************************************

PRODUCT CODE:		MAINDEC-10-DAKBB

PRODUCT NAME:		KA10 BASIC INSTRUCTION RELIABILITY # 2

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

************************************************************************
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 1
DAKBBT	MAC	21-JAN-77 16:44		DIAGNOSTIC PARAMETERS                                                              SEQ 0015

     1					;MAINDEC-10-DAKBB
     2
     3			000002		DECVER==002
     4			000000		MCNVER==000
     5
     6						XLIST
     7						LIST
     8						LALL
     9
    10					NAME	\MCNVER,\DECVER^
    11
    12					TITLE	DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2^
    13
    14						XALL
    15
    16					;TEST DESIGNED FOR RANDOM NUMBER TESTING OF THE PDP-10 BASIC INSTRUCTIONS
    17					;(TESTS,SKIPS,JUMPS,AOX,SOX,CAI,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
    28			000001		ENDPGM==1
    29						NOSYM
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 2
DAKBBT	MAC	21-JAN-77 16:44		DIAGNOSTIC PARAMETERS                                                              SEQ 0016

    30					SUBTTL	DIAGNOSTIC PARAMETERS
    31
    32					;OPERATOR DEFINITIONS
    33
    34		001000	000000		OPDEF	ERR	[1B8]
    35		002000	000000		OPDEF	ERRM	[2B8]
    36		003000	000000		OPDEF	ERRI	[3B8]
    37		004000	000000		OPDEF	ERROR	[4B8]
    38		005000	000000		OPDEF	ER	[5B8]
    39		011000	000000		OPDEF	EERR	[11B8]
    40		012000	000000		OPDEF	EERRM	[12B8]
    41		013000	000000		OPDEF	EERRI	[13B8]
    42
    43			000001		KLOLD==1
    44			040055		LUUO1=ERRMES
    45			040055		LUUO2=ERRMES
    46			040055		LUUO3=ERRMES
    47			040055		LUUO4=ERRMES
    48			040055		LUUO5=ERRMES
    49			040055		LUUO11=ERRMES
    50			040055		LUUO12=ERRMES
    51			040055		LUUO13=ERRMES
    52
    53					;SUBROUTINE ASSEMBLY DEFINITIONS
    54
    55			000001		EXCASB==1
    56			000001		USRASB==1
    57			000010		KA10=10
    58			000001		PGMEND==1
    59			000040		DEBUG==40
    60			000001		ERRELB==1
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 3
DAKBBT	MAC	21-JAN-77 16:44		DIAGNOSTIC PARAMETERS                                                              SEQ 0017

    61
    62			030000		SADR1==BEGIN
    63			030076		SADR2==RESRT1
    64			030635		SADR3==RENTR1
    65			030000		SADR4==BEGIN
    66			030000		SADR5==BEGIN
    67			030000		SADR6==BEGIN
    68		254200	030000		SADR7==HALT BEGIN
    69		254200	030000		SADR8==HALT BEGIN
    70		254200	030000		SADR9==HALT BEGIN
    71		254200	030000		SADR10==HALT BEGIN
    72		254200	030000		SADR11==HALT BEGIN
    73
    74		123457	654321		PAREA1==123457,,654321
    75			000000		PAREA2==0
    76		444153	424200		PAREA3==SIXBIT/DAKBB/
    77		645560	000000		PAREA4==SIXBIT/TMP/
    78			000000		PAREA5==0
    79			000000		PAREA6==0
    80
    81			000001		ITERAT==1
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 4
DAKBBT	MAC	21-JAN-77 16:44		DIAGNOSTIC PARAMETERS                                                              SEQ 0018

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   721					;INITIALIZE RUN TIME
   722
   723	030630	201 01 0 00 000001 		MOVEI	1,1
   724	030631	603 00 0 00 000400 		TLNE	RELIAB		;RELIABILITY SWITCH SET ?
   725	030632	201 01 0 00 000007 		MOVEI	1,7		;YES, MULTIPLY RUNNING TIME
   726	030633	202 01 0 00 030665 		MOVEM	1,RTIME		;STORE IN RTIME
   727
   728	030634	254 00 0 00 030706 		JRST	TDCN1		;GO PERFORM DIAGNOSTIC
   729
   730	030635	037 05 0 00 000002 	RENTR1:	DROPDV			;CLOSE LOGICAL OUTPUT FILE
   731	030636	040 00 0 00 040320 		CALL	[SIXBIT .EXIT.]
   732
   733	030637				PGMNAM:	ASCIZ/
   734	030637	015 012 120 104 120 	PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2 (DAKBB)
   735	030640	055 061 060 040 040 
   736	030641	113 101 061 060 040 
   737	030642	102 101 123 111 103 
   738	030643	040 111 116 123 124 
   739	030644	122 125 103 124 111 
   740	030645	117 116 040 122 105 
   741	030646	114 111 101 102 111 
   742	030647	114 111 124 131 040 
   743	030650	124 105 123 124 040 
   744	030651	062 040 050 104 101 
   745	030652	113 102 102 051 015 
   746	030653	012 050 124 105 123 	(TESTS, SKIPS, JUMPS, AOX, SOX, CAI, ETC.)
   747	030654	124 123 054 040 123 
   748	030655	113 111 120 123 054 
   749	030656	040 112 125 115 120 
   750	030657	123 054 040 101 117 
   751	030660	130 054 040 123 117 
   752	030661	130 054 040 103 101 
   753	030662	111 054 040 105 124 
   754	030663	103 056 051 015 012 	/
   755	030664	000 000 000 000 000 
   756
   757					;CONSTANTS
   758
   759	030665	000000	000000		RTIME:	0
   760	030666				CMPLXT:	BLOCK	20
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 3
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0034

   761					SUBTTL	DIAGNOSTIC SECTION
   762						LALL
   763
   764					;TEST TDCN.  CHECK FOR SKIP /NO SKIP AND
   765					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
   766
   767
   768			000006			AC=6
   769	030706				TDCN1:	SETUP	100,0^
   770			000007			AC1=<AC+1>&17
   771			000010			AC2=<AC+2>&17
   772			000011			AC3=<AC+3>&17
   773			000012			AC4=<AC+4>&17
   774			000013			AC5=<AC+5>&17
   775			000004			RAN1=<AC-2>&17
   776	030706	201 05 0 00 030706 		MOVEI	AC-1,.
   777	030707	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
   778	030710	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
   779	030711	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
   780	030712	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
   781	030713	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
   782	030714	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
   783	030715				TDCN2:	RANDOM^
   784	030715	200 06 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
   785	030716	270 06 0 00 040321 		ADD	AC,[142536475076]
   786	030717	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
   787	030720	447 06 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
   788	030721	400 07 0 00 000000 	TDCN3:	SETZ	AC1,		;CLEAR C("AC").
   789	030722	656 07 0 00 000006 		TDCN	AC1,AC		;C(E)+C(AC)=0. NO SKIP.
   790	030723	312 07 0 00 040444 		CAME	AC1,RAN		;C(AC) SHOULD = C(E).
   791	030724	001 06 0 00 040322 		ERR	AC,[0]
   792						LOOP	TDCN2,TDCN3^
   793	030725	367 05 0 00 030715 		SOJG	AC-1,TDCN2		;ITERATION COUNTER
   794	030726	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
   795	030727	321 05 0 00 030721 		JUMPL	AC-1,TDCN3		;LOOP ON ERROR SWITCH ^
   796
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 4
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0035

   797					;TEST TDCN. CHECKING FOR SKIP/NO SKIP AND
   798					;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
   799
   800
   801			000010			AC=10
   802	030730				TDCN4:	SETUP	100,0^
   803			000011			AC1=<AC+1>&17
   804			000012			AC2=<AC+2>&17
   805			000013			AC3=<AC+3>&17
   806			000014			AC4=<AC+4>&17
   807			000015			AC5=<AC+5>&17
   808			000006			RAN1=<AC-2>&17
   809	030730	201 07 0 00 030730 		MOVEI	AC-1,.
   810	030731	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
   811	030732	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
   812	030733	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
   813	030734	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
   814	030735	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
   815	030736	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
   816	030737				TDCN5:	RANDOM^
   817	030737	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
   818	030740	270 10 0 00 040321 		ADD	AC,[142536475076]
   819	030741	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
   820	030742	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
   821	030743	322 10 0 00 030737 		JUMPE	AC,TDCN5	;REJECT IF RAN = 0.
   822	030744	477 11 0 00 000006 	TDCN6:	SETOB	AC1,RAN1	;SET C(AC) TO A -1.
   823	030745	460 12 0 00 000010 		SETCM	AC2,AC		;SIMULATE TDC
   824	030746	656 11 0 00 000010 		TDCN	AC1,AC		;C(E)+C(AC) NOT=0. SKIP.
   825	030747	005 11 0 00 040323 		ER	AC1,[ASCII /TST/]
   826	030750	312 11 0 00 000012 		CAME	AC1,AC2		;C(AC)SHOULD=SIM. ANS.
   827	030751	001 10 0 00 040324 		ERR	AC,[-1]
   828						LOOP	TDCN5,TDCN6^
   829	030752	367 07 0 00 030737 		SOJG	AC-1,TDCN5		;ITERATION COUNTER
   830	030753	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
   831	030754	321 07 0 00 030744 		JUMPL	AC-1,TDCN6		;LOOP ON ERROR SWITCH ^
   832
   833
   834
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 5
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0036

   835
   836
   837					;TEST TDCN. CHECKING FOR SKIP /NO SKIP AND
   838					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
   839
   840
   841			000002			AC=2
   842	030755				TDCN7:	SETUP	100,0^
   843			000003			AC1=<AC+1>&17
   844			000004			AC2=<AC+2>&17
   845			000005			AC3=<AC+3>&17
   846			000006			AC4=<AC+4>&17
   847			000007			AC5=<AC+5>&17
   848			000000			RAN1=<AC-2>&17
   849	030755	201 01 0 00 030755 		MOVEI	AC-1,.
   850	030756	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
   851	030757	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
   852	030760	202 01 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
   853	030761	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
   854	030762	240 01 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
   855	030763	240 01 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
   856	030764				TDCN8:	RANDOM^
   857	030764	200 02 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
   858	030765	270 02 0 00 040321 		ADD	AC,[142536475076]
   859	030766	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
   860	030767	447 02 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
   861	030770	322 02 0 00 030764 		JUMPE	AC,TDCN8	;REJECT IF RAN = 0.
   862	030771	656 02 0 00 000002 	TDCN9:	TDCN	AC,AC		;C(E) + C(AC) NOT = 0...SKIP.
   863	030772	005 02 0 00 040323 		ER	AC,[ASCII /TST/]
   864	030773	312 02 0 00 040322 		CAME	AC,[0]		;C(AC) SHOULD = 0.
   865	030774	011 00 0 00 040444 		EERR	,RAN
   866						LOOP	TDCN8,TDCN9^
   867	030775	367 01 0 00 030764 		SOJG	AC-1,TDCN8		;ITERATION COUNTER
   868	030776	200 02 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
   869	030777	321 01 0 00 030771 		JUMPL	AC-1,TDCN9		;LOOP ON ERROR SWITCH ^
   870
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 6
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0037

   871
   872
   873					;TEST TDCN. CHECKING FOR SKIP /NO SKIP AND
   874					;CORRECT DATA IN AC FOR RAN TO NOT RAN CONDITION
   875
   876
   877			000003			AC=3
   878	031000				TDCNG:	SETUP	100,0^
   879			000004			AC1=<AC+1>&17
   880			000005			AC2=<AC+2>&17
   881			000006			AC3=<AC+3>&17
   882			000007			AC4=<AC+4>&17
   883			000010			AC5=<AC+5>&17
   884			000001			RAN1=<AC-2>&17
   885	031000	201 02 0 00 031000 		MOVEI	AC-1,.
   886	031001	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
   887	031002	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
   888	031003	202 02 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
   889	031004	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
   890	031005	240 02 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
   891	031006	240 02 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
   892	031007				TDCNH:	RANDOM^
   893	031007	200 03 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
   894	031010	270 03 0 00 040321 		ADD	AC,[142536475076]
   895	031011	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
   896	031012	447 03 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
   897	031013	460 04 0 00 000003 	TDCNI:	SETCM	AC1,AC		;MAKE C("AC")=COMP OF RAN.
   898	031014	200 01 0 00 000004 		MOVE	RAN1,AC1	;SAVE C(AC) IN CASE OF ERROR.
   899	031015	656 04 0 00 000003 		TDCN	AC1,AC		;C(E)+C(AC)=0. NO SKIP.
   900	031016	312 04 0 00 040324 		CAME	AC1,[-1]	;C(AC) SHOULD = A-1.
   901	031017	001 03 0 00 000001 		ERR	AC,RAN1
   902						LOOP	TDCNH,TDCNI^
   903	031020	367 02 0 00 031007 		SOJG	AC-1,TDCNH		;ITERATION COUNTER
   904	031021	200 03 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
   905	031022	321 02 0 00 031013 		JUMPL	AC-1,TDCNI		;LOOP ON ERROR SWITCH ^
   906
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 7
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0038

   907
   908
   909					;TEST TDCE,TDCN. ROT A MASK BIT IN E AND
   910					;CLEAR THAT BIT IN AC BEFORE TDC. CHECK SKIP/NO SKIP
   911					;AND CORRECT DATA IN AC.
   912
   913
   914			000004			AC=4
   915	031023				TDCE1:	SETUP	40,0^
   916			000005			AC1=<AC+1>&17
   917			000006			AC2=<AC+2>&17
   918			000007			AC3=<AC+3>&17
   919			000010			AC4=<AC+4>&17
   920			000011			AC5=<AC+5>&17
   921			000002			RAN1=<AC-2>&17
   922	031023	201 03 0 00 031023 		MOVEI	AC-1,.
   923	031024	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
   924	031025	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
   925	031026	202 03 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
   926	031027	201 03 0 00 000040 		MOVEI	AC-1,40		;ROUTINE WEIGHTING
   927	031030	240 03 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
   928	031031	240 03 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
   929	031032	201 05 0 00 000001 		MOVEI	AC1,1		;SETUP AC1 TO CONTAIN ONE MASK BIT.
   930	031033				TDCE2:	RANDOM^
   931	031033	200 04 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
   932	031034	270 04 0 00 040321 		ADD	AC,[142536475076]
   933	031035	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
   934	031036	447 04 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
   935	031037	241 05 0 00 000001 		ROT	AC1,1		;ROT MASK TO TEST NEXT BIT
   936	031040	420 04 0 00 000005 	TDCE3:	ANDCM	AC,AC1		;CLEAR MASK BIT IN AC.
   937	031041	200 06 0 00 000004 		MOVE	AC2,AC		;SAVE AC IN AC2.
   938	031042	656 04 0 00 000005 		TDCN	AC,AC1		;C(E) + C(AC) = 0...NO SKIP.
   939	031043	254 00 0 00 031045 		JRST	.+2
   940	031044	005 04 0 00 040323 		ER	AC,[ASCII /TST/];TDCN SKIPPED.
   941	031045	656 04 0 00 000005 		TDCN	AC,AC1		;C(E) + C(AC) NOT = 0...SKIP.
   942	031046	005 04 0 00 040323 		ER	AC,[ASCII /TST/]
   943	031047	312 04 0 00 000006 		CAME	AC,AC2		;C(AC) SHOULD = ORIG. C(AC).
   944	031050	001 05 0 00 000006 		ERR	AC1,AC2
   945	031051	652 04 0 00 000005 		TDCE	AC,AC1		;C(E) + C(AC) = 0...SKIP.
   946	031052	005 04 0 00 040323 		ER	AC,[ASCII /TST/]
   947	031053	652 04 0 00 000005 		TDCE	AC,AC1		;C(E) + C(AC) NOT = 0...NO SKIP.
   948	031054	312 04 0 00 000006 		CAME	AC,AC2		;C(AC) SHOULD = ORIG. C(AC).
   949	031055	001 05 0 00 000006 		ERR	AC1,AC2
   950						LOOP	TDCE2,TDCE3^
   951	031056	367 03 0 00 031033 		SOJG	AC-1,TDCE2		;ITERATION COUNTER
   952	031057	200 04 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
   953	031060	321 03 0 00 031040 		JUMPL	AC-1,TDCE3		;LOOP ON ERROR SWITCH ^
   954
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 8
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0039

   955
   956
   957					;TEST TDCE, TDCN. ROT A BIT IN E AND
   958					;SET THAT BIT IN AC BEFORE TDC. CHECK FOR
   959					;SKIP /NO SKIP AND CORRECT DATA IN AC.
   960
   961
   962			000005			AC=5
   963	031061				TDCEA:	SETUP	40,0^
   964			000006			AC1=<AC+1>&17
   965			000007			AC2=<AC+2>&17
   966			000010			AC3=<AC+3>&17
   967			000011			AC4=<AC+4>&17
   968			000012			AC5=<AC+5>&17
   969			000003			RAN1=<AC-2>&17
   970	031061	201 04 0 00 031061 		MOVEI	AC-1,.
   971	031062	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
   972	031063	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
   973	031064	202 04 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
   974	031065	201 04 0 00 000040 		MOVEI	AC-1,40		;ROUTINE WEIGHTING
   975	031066	240 04 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
   976	031067	240 04 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
   977	031070	201 06 0 00 000001 		MOVEI	AC1,1		;SETUP AC1 TO CONTAIN MASK BIT.
   978	031071				TDCEB:	RANDOM^
   979	031071	200 05 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
   980	031072	270 05 0 00 040321 		ADD	AC,[142536475076]
   981	031073	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
   982	031074	447 05 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
   983	031075	241 06 0 00 000001 		ROT	AC1,1		;ROT MASK TO TEST NEXT BIT.
   984	031076	434 05 0 00 000006 	TDCEC:	IOR	AC,AC1		;SET MASK BIT IN AC.
   985	031077	200 07 0 00 000005 		MOVE	AC2,AC		;SAVE AC IN AC2.
   986	031100	652 05 0 00 000006 		TDCE	AC,AC1		;C(E) + C(AC) NOT = 0...NO SKIP.
   987	031101	254 00 0 00 031103 		JRST	.+2
   988	031102	005 05 0 00 040323 		ER	AC,[ASCII /TST/];TDCE SKIPPED.
   989	031103	652 05 0 00 000006 		TDCE	AC,AC1		;C(E) + C(AC) = 0...SKIP.
   990	031104	005 05 0 00 040323 		ER	AC,[ASCII /TST/]
   991	031105	312 05 0 00 000007 		CAME	AC,AC2		;C(AC) SHOULD = ORIG. C(AC).
   992	031106	001 06 0 00 000007 		ERR	AC1,AC2
   993	031107	656 05 0 00 000006 		TDCN	AC,AC1		;C(E) + C(AC) NOT = 0...SKIP.
   994	031110	005 05 0 00 040323 		ER	AC,[ASCII /TST/]
   995	031111	656 05 0 00 000006 		TDCN	AC,AC1		;C(E) + C(AC) = 0...NO SKIP.
   996	031112	312 05 0 00 000007 		CAME	AC,AC2		;C(AC) SHOULD = ORIG. C(AC).
   997	031113	001 06 0 00 000007 		ERR	AC1,AC2
   998						LOOP	TDCEB,TDCEC^
   999	031114	367 04 0 00 031071 		SOJG	AC-1,TDCEB		;ITERATION COUNTER
  1000	031115	200 05 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1001	031116	321 04 0 00 031076 		JUMPL	AC-1,TDCEC		;LOOP ON ERROR SWITCH ^
  1002
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 9
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0040

  1003
  1004
  1005					;TEST TDCE, TDCN. ROT A BIT IN AC
  1006					;AND CLEAR THAT BIT  E BEFORE TDC
  1007					;CHECK FOR SKIP /NO SKIP AND CORRECT DATA IN AC.
  1008
  1009
  1010			000006			AC=6
  1011	031117				TDCN1A:	SETUP	40,0^
  1012			000007			AC1=<AC+1>&17
  1013			000010			AC2=<AC+2>&17
  1014			000011			AC3=<AC+3>&17
  1015			000012			AC4=<AC+4>&17
  1016			000013			AC5=<AC+5>&17
  1017			000004			RAN1=<AC-2>&17
  1018	031117	201 05 0 00 031117 		MOVEI	AC-1,.
  1019	031120	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1020	031121	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1021	031122	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1022	031123	201 05 0 00 000040 		MOVEI	AC-1,40		;ROUTINE WEIGHTING
  1023	031124	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1024	031125	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1025	031126	201 07 0 00 000001 		MOVEI	AC1,1		;SETUP A BIT IN "AC".
  1026	031127				TDCN1B:	RANDOM^
  1027	031127	200 06 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1028	031130	270 06 0 00 040321 		ADD	AC,[142536475076]
  1029	031131	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1030	031132	447 06 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1031	031133	241 07 0 00 000001 		ROT	AC1,1		;ROT BIT TO TEST NEXT BIT.
  1032	031134	200 10 0 00 000007 		MOVE	AC2,AC1		;SAVE IN AC2 FOR FUTURE COMPARE.
  1033	031135	200 07 0 00 000010 	TDCN1C:	MOVE	AC1,AC2		;COME HERE AND RESTORE C(AC) IF ERROR OCCURED.
  1034	031136	420 06 0 00 000007 		ANDCM	AC,AC1		;CLEAR BIT IN "E".
  1035	031137	322 06 0 00 031127 		JUMPE	AC,TDCN1B	;REJECT IF = 0.
  1036	031140	656 07 0 00 000006 		TDCN	AC1,AC		;C(E)+C(AC)=0. NO SKIP.
  1037	031141	254 00 0 00 031143 		JRST	.+2
  1038	031142	005 07 0 00 040323 		ER	AC1,[ASCII /TST/];TDCN SKIPPED.
  1039	031143	656 07 0 00 000006 		TDCN	AC1,AC		;C(E)+C(AC)NOT=0. SKIP.
  1040	031144	005 07 0 00 040323 		ER	AC1,[ASCII /TST/]
  1041	031145	312 07 0 00 000010 		CAME	AC1,AC2		;C(AC)SHOULD=C(AC)BEFORE TDC'S.
  1042	031146	001 06 0 00 000010 		ERR	AC,AC2
  1043	031147	652 07 0 00 000006 		TDCE	AC1,AC		;C(E)+C(AC)=0.SKIP.
  1044	031150	005 07 0 00 040323 		ER	AC1,[ASCII /TST/]
  1045	031151	652 07 0 00 000006 		TDCE	AC1,AC		;C(E)+C(AC)NOT=0. NO SKIP.
  1046	031152	312 07 0 00 000010 		CAME	AC1,AC2		;C(AC) SHOULD = C(AC) BEFORE TDC'S.
  1047	031153	001 06 0 00 000010 		ERR	AC,AC2
  1048						LOOP	TDCN1B,TDCN1C^
  1049	031154	367 05 0 00 031127 		SOJG	AC-1,TDCN1B		;ITERATION COUNTER
  1050	031155	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1051	031156	321 05 0 00 031135 		JUMPL	AC-1,TDCN1C		;LOOP ON ERROR SWITCH ^
  1052
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 10
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0041

  1053
  1054
  1055					;TEST TDCE, TDCN. ROT A BIT IN AC AND SET THAT BIT IN
  1056					;E BEFORE TDC. CHECK FOR SKIP /NO SKIP AND CORRECT DATA IN AC.
  1057
  1058
  1059			000007			AC=7
  1060	031157				TDCNA1:	SETUP	40,0^
  1061			000010			AC1=<AC+1>&17
  1062			000011			AC2=<AC+2>&17
  1063			000012			AC3=<AC+3>&17
  1064			000013			AC4=<AC+4>&17
  1065			000014			AC5=<AC+5>&17
  1066			000005			RAN1=<AC-2>&17
  1067	031157	201 06 0 00 031157 		MOVEI	AC-1,.
  1068	031160	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1069	031161	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1070	031162	202 06 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1071	031163	201 06 0 00 000040 		MOVEI	AC-1,40		;ROUTINE WEIGHTING
  1072	031164	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1073	031165	240 06 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1074	031166	201 10 0 00 000001 		MOVEI	AC1,1		;SET A BIT IN AC
  1075	031167				TDCNA2:	RANDOM^
  1076	031167	200 07 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1077	031170	270 07 0 00 040321 		ADD	AC,[142536475076]
  1078	031171	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1079	031172	447 07 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1080	031173	241 10 0 00 000001 		ROT	AC1,1		;ROT BIT TO TEST NEXT BIT.
  1081	031174	200 11 0 00 000010 		MOVE	AC2,AC1		;SAVE "AC". IN CASE OF ERROR
  1082	031175	200 10 0 00 000011 	TDCNA3:	MOVE	AC1,AC2		;RESTORE "AC".
  1083	031176	434 07 0 00 000010 		IOR	AC,AC1		;SET BIT IN "E".
  1084	031177	200 12 0 00 000007 		MOVE	AC3,AC		;SIMULATE
  1085	031200	430 12 0 00 000010 		XOR	AC3,AC1		;A TDC.
  1086	031201	652 10 0 00 000007 		TDCE	AC1,AC		;C(E)+C(AC) NOT=0. NO SKIP.
  1087	031202	312 10 0 00 000012 		CAME	AC1,AC3		;C(AC) SHOULD = SIM. ANS.
  1088	031203	001 07 0 00 000011 		ERR	AC,AC2
  1089	031204	200 10 0 00 000011 		MOVE	AC1,AC2		;RESTORE "AC".
  1090	031205	656 10 0 00 000007 		TDCN	AC1,AC		;C(E)+C(AC) NOT=0. SKIP.
  1091	031206	005 10 0 00 040323 		ER	AC1,[ASCII /TST/]
  1092	031207	312 10 0 00 000012 		CAME	AC1,AC3		;C(AC) SHOULD = SIM. ANS.
  1093	031210	001 07 0 00 000011 		ERR	AC,AC2
  1094	031211	200 10 0 00 000011 		MOVE	AC1,AC2		;RESTORE "AC".
  1095						LOOP	TDCNA2,TDCNA3^
  1096	031212	367 06 0 00 031167 		SOJG	AC-1,TDCNA2		;ITERATION COUNTER
  1097	031213	200 07 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1098	031214	321 06 0 00 031175 		JUMPL	AC-1,TDCNA3		;LOOP ON ERROR SWITCH ^
  1099
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 11
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0042

  1100
  1101
  1102					;TEST TDNE, TDNN. ROT A BIT IN E AND
  1103					;CLEAR THAT BIT IN AC BEFORE TDN. CHECK FOR
  1104					;SKIP /NO SKIP AND CORRECT DATA IN AC.
  1105
  1106
  1107			000010			AC=10
  1108	031215				TDNN1:	SETUP	40,0^
  1109			000011			AC1=<AC+1>&17
  1110			000012			AC2=<AC+2>&17
  1111			000013			AC3=<AC+3>&17
  1112			000014			AC4=<AC+4>&17
  1113			000015			AC5=<AC+5>&17
  1114			000006			RAN1=<AC-2>&17
  1115	031215	201 07 0 00 031215 		MOVEI	AC-1,.
  1116	031216	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1117	031217	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1118	031220	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1119	031221	201 07 0 00 000040 		MOVEI	AC-1,40		;ROUTINE WEIGHTING
  1120	031222	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1121	031223	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1122	031224	201 11 0 00 000001 		MOVEI	AC1,1		;SET A BIT IN "E".
  1123	031225				TDNN2:	RANDOM^
  1124	031225	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1125	031226	270 10 0 00 040321 		ADD	AC,[142536475076]
  1126	031227	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1127	031230	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1128	031231	241 11 0 00 000001 		ROT	AC1,1		;ROT BIT TO TEST NEXT BIT.
  1129	031232	420 10 0 00 000011 	TDNN3:	ANDCM	AC,AC1		;CLEAR BIT IN "AC".
  1130	031233	200 12 0 00 000010 		MOVE	AC2,AC		;SAVE C("AC") FOR FUTURE COMPARE.
  1131	031234	616 10 0 00 000011 		TDNN	AC,AC1		;C(E) + C(AC) = 0...NO SKIP.
  1132	031235	254 00 0 00 031237 		JRST	.+2
  1133	031236	005 10 0 00 040323 		ER	AC,[ASCII /TST/];TDNN SKIPPED.
  1134	031237	612 10 0 00 000011 		TDNE	AC,AC1		;C(E)+C(AC)=0. SKIP.
  1135	031240	005 10 0 00 040323 		ER	AC,[ASCII /TST/]
  1136	031241	312 10 0 00 000012 		CAME	AC,AC2		;C(AC)SHOULD NOT HAVE CHANGED.
  1137	031242	001 11 0 00 000012 		ERR	AC1,AC2
  1138						LOOP	TDNN2,TDNN3^
  1139	031243	367 07 0 00 031225 		SOJG	AC-1,TDNN2		;ITERATION COUNTER
  1140	031244	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1141	031245	321 07 0 00 031232 		JUMPL	AC-1,TDNN3		;LOOP ON ERROR SWITCH ^
  1142
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 12
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0043

  1143
  1144
  1145					;TEST TDNE, TDNN. ROT A BIT IN E AND SET THAT BIT IN AC BEFORE TDN. CHECK
  1146					;FOR SKIP /NO SKIP AND CORRECT DATA IN AC.
  1147
  1148
  1149			000011			AC=11
  1150	031246				TDNNA:	SETUP	40,0^
  1151			000012			AC1=<AC+1>&17
  1152			000013			AC2=<AC+2>&17
  1153			000014			AC3=<AC+3>&17
  1154			000015			AC4=<AC+4>&17
  1155			000016			AC5=<AC+5>&17
  1156			000007			RAN1=<AC-2>&17
  1157	031246	201 10 0 00 031246 		MOVEI	AC-1,.
  1158	031247	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1159	031250	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1160	031251	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1161	031252	201 10 0 00 000040 		MOVEI	AC-1,40		;ROUTINE WEIGHTING
  1162	031253	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1163	031254	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1164	031255	201 12 0 00 000001 		MOVEI	AC1,1		;SET A BIT IN "E"
  1165	031256				TDNNB:	RANDOM^
  1166	031256	200 11 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1167	031257	270 11 0 00 040321 		ADD	AC,[142536475076]
  1168	031260	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1169	031261	447 11 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1170	031262	241 12 0 00 000001 		ROT	AC1,1		;ROT BIT TO TEST NEXT BIT.
  1171	031263	434 11 0 00 000012 	TDNNC:	IOR	AC,AC1		;SET BIT IN "AC".
  1172	031264	200 13 0 00 000011 		MOVE	AC2,AC		;SAVE FOR FUTURE COMPARE.
  1173	031265	612 11 0 00 000012 		TDNE	AC,AC1		;C(E)+(AC)NOT=0. NO SKIP.
  1174	031266	254 00 0 00 031270 		JRST	.+2
  1175	031267	005 11 0 00 040323 		ER	AC,[ASCII /TST/];TDNE SKIPPED.
  1176	031270	616 11 0 00 000012 		TDNN	AC,AC1		;C(E)+C(AC)NOT=0. SKIP
  1177	031271	005 11 0 00 040323 		ER	AC,[ASCII /TST/]
  1178	031272	312 11 0 00 000013 		CAME	AC,AC2		;C(AC)SHOULD NOT HAVE CHANGED.
  1179	031273	001 12 0 00 000013 		ERR	AC1,AC2
  1180						LOOP	TDNNB,TDNNC^
  1181	031274	367 10 0 00 031256 		SOJG	AC-1,TDNNB		;ITERATION COUNTER
  1182	031275	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1183	031276	321 10 0 00 031263 		JUMPL	AC-1,TDNNC		;LOOP ON ERROR SWITCH ^
  1184
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 13
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0044

  1185
  1186
  1187					;TEST TDNE, TDNN. ROT A BIT IN AC AND
  1188					;CLEAR THAT BIT IN E BEFORE TDN. CHECK FOR
  1189					;SKIP /NO SKIP AND CORRECT DATA IN AC.
  1190
  1191
  1192			000012			AC=12
  1193	031277				TDNND:	SETUP	40,0^
  1194			000013			AC1=<AC+1>&17
  1195			000014			AC2=<AC+2>&17
  1196			000015			AC3=<AC+3>&17
  1197			000016			AC4=<AC+4>&17
  1198			000017			AC5=<AC+5>&17
  1199			000010			RAN1=<AC-2>&17
  1200	031277	201 11 0 00 031277 		MOVEI	AC-1,.
  1201	031300	202 11 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1202	031301	201 11 0 00 000011 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1203	031302	202 11 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1204	031303	201 11 0 00 000040 		MOVEI	AC-1,40		;ROUTINE WEIGHTING
  1205	031304	240 11 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1206	031305	240 11 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1207	031306	201 13 0 00 000001 		MOVEI	AC1,1		;SET A BIT IN "AC"
  1208	031307				TDNNE:	RANDOM^
  1209	031307	200 12 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1210	031310	270 12 0 00 040321 		ADD	AC,[142536475076]
  1211	031311	241 12 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1212	031312	447 12 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1213	031313	241 13 0 00 000001 		ROT	AC1,1		;ROT TO TEST NEXT BIT.
  1214	031314	200 14 0 00 000013 		MOVE	AC2,AC1		;SAVE C("AC") SO C("AC") CAN BE
  1215	031315	200 13 0 00 000014 	TDNNF:	MOVE	AC1,AC2		;RESTORED IN CASE OF ERROR.
  1216	031316	420 12 0 00 000013 		ANDCM	AC,AC1		;CLEAR BIT IN"E".
  1217	031317	616 13 0 00 000012 		TDNN	AC1,AC		;C(E)+C(AC)=0. NO SKIP.
  1218	031320	254 00 0 00 031322 		JRST	.+2
  1219	031321	005 13 0 00 040323 		ER	AC1,[ASCII /TST/];TDNN SKIPPED.
  1220	031322	612 13 0 00 000012 		TDNE	AC1,AC		;C(E)+C(AC)=0. SKIP.
  1221	031323	005 13 0 00 040323 		ER	AC1,[ASCII /TST/]
  1222	031324	312 13 0 00 000014 		CAME	AC1,AC2		;C(AC)SHOULD NOT CHANGE
  1223	031325	001 12 0 00 000014 		ERR	AC,AC2
  1224						LOOP	TDNNE,TDNNF^
  1225	031326	367 11 0 00 031307 		SOJG	AC-1,TDNNE		;ITERATION COUNTER
  1226	031327	200 12 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1227	031330	321 11 0 00 031315 		JUMPL	AC-1,TDNNF		;LOOP ON ERROR SWITCH ^
  1228
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 14
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0045

  1229
  1230
  1231					;TEST TDNE, TDNN. ROT A BIT IN AC AND SET THAT BIT IN E
  1232					;BEFORE TDN. CHECK FOR SKIP /NO SKIP AND CORRECT DATA IN AC.
  1233
  1234
  1235
  1236
  1237			000013			AC=13
  1238	031331				TDNN4:	SETUP	40,0^
  1239			000014			AC1=<AC+1>&17
  1240			000015			AC2=<AC+2>&17
  1241			000016			AC3=<AC+3>&17
  1242			000017			AC4=<AC+4>&17
  1243			000000			AC5=<AC+5>&17
  1244			000011			RAN1=<AC-2>&17
  1245	031331	201 12 0 00 031331 		MOVEI	AC-1,.
  1246	031332	202 12 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1247	031333	201 12 0 00 000012 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1248	031334	202 12 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1249	031335	201 12 0 00 000040 		MOVEI	AC-1,40		;ROUTINE WEIGHTING
  1250	031336	240 12 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1251	031337	240 12 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1252	031340	201 14 0 00 000001 		MOVEI	AC1,1		;SET A BIT IN "AC".
  1253	031341				TDNN5:	RANDOM^
  1254	031341	200 13 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1255	031342	270 13 0 00 040321 		ADD	AC,[142536475076]
  1256	031343	241 13 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1257	031344	447 13 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1258	031345	241 14 0 00 000001 		ROT	AC1,1		;ROT TO TEST NEXT BIT.
  1259	031346	200 15 0 00 000014 		MOVE	AC2,AC1		;SAVE C("AC") SO C("AC") CAN BE
  1260	031347	200 14 0 00 000015 	TDNN6:	MOVE	AC1,AC2		;RESTORED IN CASE OF ERROR.
  1261	031350	434 13 0 00 000014 		IOR	AC,AC1		;SET BIT IN "E".
  1262	031351	612 14 0 00 000013 		TDNE	AC1,AC		;C(E)+C(AC)NOT=0. NO SKIP.
  1263	031352	254 00 0 00 031354 		JRST	.+2
  1264	031353	005 14 0 00 040323 		ER	AC1,[ASCII /TST/];TDNE SKIPPED.
  1265	031354	616 14 0 00 000013 		TDNN	AC1,AC		;C(E)+C(AC)NOT=0. SKIP.
  1266	031355	005 14 0 00 040323 		ER	AC1,[ASCII /TST/]
  1267	031356	312 14 0 00 000015 		CAME	AC1,AC2		;C(AC)SHOULD NOT CHANGE.
  1268	031357	001 13 0 00 000015 		ERR	AC,AC2
  1269						LOOP	TDNN5,TDNN6^
  1270	031360	367 12 0 00 031341 		SOJG	AC-1,TDNN5		;ITERATION COUNTER
  1271	031361	200 13 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1272	031362	321 12 0 00 031347 		JUMPL	AC-1,TDNN6		;LOOP ON ERROR SWITCH ^
  1273
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 15
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0046

  1274
  1275
  1276					;TEST TSC CHECK FOR SKIP /NO SKIP AND
  1277					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
  1278
  1279
  1280			000014			AC=14
  1281	031363				TSC1:	SETUP	100,0^
  1282			000015			AC1=<AC+1>&17
  1283			000016			AC2=<AC+2>&17
  1284			000017			AC3=<AC+3>&17
  1285			000000			AC4=<AC+4>&17
  1286			000001			AC5=<AC+5>&17
  1287			000012			RAN1=<AC-2>&17
  1288	031363	201 13 0 00 031363 		MOVEI	AC-1,.
  1289	031364	202 13 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1290	031365	201 13 0 00 000013 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1291	031366	202 13 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1292	031367	201 13 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1293	031370	240 13 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1294	031371	240 13 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1295	031372				TSC2:	RANDOM^
  1296	031372	200 14 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1297	031373	270 14 0 00 040321 		ADD	AC,[142536475076]
  1298	031374	241 14 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1299	031375	447 14 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1300	031376	403 15 0 00 000012 	TSC3:	SETZB	AC1,RAN1	;CLEAR C(AC).
  1301	031377	200 16 0 00 000014 		MOVE	AC2,AC		;SIMULATE
  1302	031400	241 16 0 00 000022 		ROT	AC2,22		;A TSC.
  1303	031401	651 15 0 00 000014 		TSC	AC1,AC		;SHOULD NOT SKIP
  1304	031402	312 15 0 00 000016 		CAME	AC1,AC2		;C(AC) SHOULD = SIM. ANS.
  1305	031403	001 14 0 00 000012 		ERR	AC,RAN1
  1306						LOOP	TSC2,TSC3^
  1307	031404	367 13 0 00 031372 		SOJG	AC-1,TSC2		;ITERATION COUNTER
  1308	031405	200 14 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1309	031406	321 13 0 00 031376 		JUMPL	AC-1,TSC3		;LOOP ON ERROR SWITCH ^
  1310
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 16
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0047

  1311
  1312
  1313					;TEST TSC. CHECK FOR SKIP /NO SKIP AND
  1314					;CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
  1315
  1316
  1317			000015			AC=15
  1318
  1319	031407				TSC4:	SETUP	100,0^
  1320			000016			AC1=<AC+1>&17
  1321			000017			AC2=<AC+2>&17
  1322			000000			AC3=<AC+3>&17
  1323			000001			AC4=<AC+4>&17
  1324			000002			AC5=<AC+5>&17
  1325			000013			RAN1=<AC-2>&17
  1326	031407	201 14 0 00 031407 		MOVEI	AC-1,.
  1327	031410	202 14 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1328	031411	201 14 0 00 000014 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1329	031412	202 14 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1330	031413	201 14 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1331	031414	240 14 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1332	031415	240 14 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1333	031416				TSC5:	RANDOM^
  1334	031416	200 15 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1335	031417	270 15 0 00 040321 		ADD	AC,[142536475076]
  1336	031420	241 15 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1337	031421	447 15 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1338	031422	400 16 0 00 000000 	TSC6:	SETZ	AC1,		;CLEAR "E".
  1339	031423	651 15 0 00 000016 		TSC	AC,AC1		;SHOULD NOT SKIP.
  1340	031424	312 15 0 00 040444 		CAME	AC,RAN		;C(AC)SHOULD NOT HAVE CHANGED
  1341	031425	001 16 0 00 040444 		ERR	AC1,RAN
  1342						LOOP	TSC5,TSC6^
  1343	031426	367 14 0 00 031416 		SOJG	AC-1,TSC5		;ITERATION COUNTER
  1344	031427	200 15 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1345	031430	321 14 0 00 031422 		JUMPL	AC-1,TSC6		;LOOP ON ERROR SWITCH ^
  1346
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 17
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0048

  1347
  1348
  1349					;TEST TSC.  CHECK FOR SKIP/NO SKIP AND
  1350					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
  1351
  1352
  1353			000006			AC=6
  1354	031431				TSC7:	SETUP	100,0^
  1355			000007			AC1=<AC+1>&17
  1356			000010			AC2=<AC+2>&17
  1357			000011			AC3=<AC+3>&17
  1358			000012			AC4=<AC+4>&17
  1359			000013			AC5=<AC+5>&17
  1360			000004			RAN1=<AC-2>&17
  1361	031431	201 05 0 00 031431 		MOVEI	AC-1,.
  1362	031432	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1363	031433	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1364	031434	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1365	031435	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1366	031436	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1367	031437	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1368	031440				TSC8:	RANDOM^
  1369	031440	200 06 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1370	031441	270 06 0 00 040321 		ADD	AC,[142536475076]
  1371	031442	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1372	031443	447 06 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1373	031444	200 04 0 00 000006 	TSC9:	MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR.
  1374	031445	204 07 0 00 000006 		MOVS	AC1,AC		;SIMULATE
  1375	031446	430 07 0 00 000006 		XOR	AC1,AC		;A TSC
  1376	031447	651 06 0 00 000006 		TSC	AC,AC		;SHOULD NOT SKIP
  1377	031450	312 06 0 00 000007 		CAME	AC,AC1		;C(AC)SHOULD=SIM. ANS.
  1378	031451	001 04 0 00 040444 		ERR	RAN1,RAN
  1379						LOOP	TSC8,TSC9^
  1380	031452	367 05 0 00 031440 		SOJG	AC-1,TSC8		;ITERATION COUNTER
  1381	031453	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1382	031454	321 05 0 00 031444 		JUMPL	AC-1,TSC9		;LOOP ON ERROR SWITCH ^
  1383
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 18
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0049

  1384
  1385
  1386					;TEST TSC, TSCA.  TWO TSC'S SHOULD PRODUCE ORIGINAL
  1387					;NUMBER IN AC.  CHECK FOR SKIP/NO SKIP AND
  1388					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
  1389
  1390
  1391			000007			AC=7
  1392	031455				TSCA1:	SETUP	100,0^
  1393			000010			AC1=<AC+1>&17
  1394			000011			AC2=<AC+2>&17
  1395			000012			AC3=<AC+3>&17
  1396			000013			AC4=<AC+4>&17
  1397			000014			AC5=<AC+5>&17
  1398			000005			RAN1=<AC-2>&17
  1399	031455	201 06 0 00 031455 		MOVEI	AC-1,.
  1400	031456	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1401	031457	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1402	031460	202 06 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1403	031461	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1404	031462	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1405	031463	240 06 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1406	031464				TSCA2:	RANDOM^
  1407	031464	200 07 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1408	031465	270 07 0 00 040321 		ADD	AC,[142536475076]
  1409	031466	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1410	031467	447 07 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1411	031470	200 10 0 00 000007 	TSCA3:	MOVE	AC1,AC		;MAKE C("E")=C("AC").
  1412	031471	651 07 0 00 000010 		TSC	AC,AC1		;SHOULD NOT SKIP
  1413	031472	254 00 0 00 031474 		JRST	.+2
  1414	031473	005 07 0 00 040323 		ER	AC,[ASCII /TST/];TSC SKIPPED.
  1415	031474	655 07 0 00 000010 		TSCA	AC,AC1		;SHOULD SKIP
  1416	031475	005 07 0 00 040323 		ER	AC,[ASCII /TST/]
  1417	031476	312 07 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD BE BACK TO ORIG NUM
  1418	031477	001 10 0 00 040444 		ERR	AC1,RAN
  1419						LOOP	TSCA2,TSCA3^
  1420	031500	367 06 0 00 031464 		SOJG	AC-1,TSCA2		;ITERATION COUNTER
  1421	031501	200 07 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1422	031502	321 06 0 00 031470 		JUMPL	AC-1,TSCA3		;LOOP ON ERROR SWITCH ^
  1423
  1424
  1425
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 19
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0050

  1426
  1427
  1428					;TEST TSCE, TSCN.  CHECK FOR SKIP/NO SKIP
  1429					;AND CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
  1430
  1431
  1432			000010			AC=10
  1433	031503				TSCE1:	SETUP	100,0^
  1434			000011			AC1=<AC+1>&17
  1435			000012			AC2=<AC+2>&17
  1436			000013			AC3=<AC+3>&17
  1437			000014			AC4=<AC+4>&17
  1438			000015			AC5=<AC+5>&17
  1439			000006			RAN1=<AC-2>&17
  1440	031503	201 07 0 00 031503 		MOVEI	AC-1,.
  1441	031504	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1442	031505	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1443	031506	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1444	031507	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1445	031510	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1446	031511	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1447	031512				TSCE2:	RANDOM^
  1448	031512	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1449	031513	270 10 0 00 040321 		ADD	AC,[142536475076]
  1450	031514	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1451	031515	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1452	031516	403 11 0 00 000006 	TSCE3:	SETZB	AC1,RAN1	;CLEAR C(E).
  1453	031517	657 10 0 00 000011 		TSCN	AC,AC1		;C(E)+C(AC)=0. NO SKIP
  1454	031520	254 00 0 00 031522 		JRST	.+2
  1455	031521	005 10 0 00 040323 		ER	AC,[ASCII /TST/];TSCN SKIPPED.
  1456	031522	653 10 0 00 000011 		TSCE	AC,AC1		;C(E)+C(AC)=0, SKIP
  1457	031523	005 10 0 00 040323 		ER	AC,[ASCII /TST/]
  1458	031524	312 10 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD STILL = RAN
  1459	031525	001 06 0 00 040444 		ERR	RAN1,RAN
  1460						LOOP	TSCE2,TSCE3^
  1461	031526	367 07 0 00 031512 		SOJG	AC-1,TSCE2		;ITERATION COUNTER
  1462	031527	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1463	031530	321 07 0 00 031516 		JUMPL	AC-1,TSCE3		;LOOP ON ERROR SWITCH ^
  1464
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 20
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0051

  1465
  1466
  1467					;TEST TSCE, TSCN.  CHECK FOR SKIP/NO SKIP
  1468					;AND CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
  1469
  1470
  1471			000010			AC=10
  1472	031531				TSCEA:	SETUP	100,0^
  1473			000011			AC1=<AC+1>&17
  1474			000012			AC2=<AC+2>&17
  1475			000013			AC3=<AC+3>&17
  1476			000014			AC4=<AC+4>&17
  1477			000015			AC5=<AC+5>&17
  1478			000006			RAN1=<AC-2>&17
  1479	031531	201 07 0 00 031531 		MOVEI	AC-1,.
  1480	031532	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1481	031533	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1482	031534	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1483	031535	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1484	031536	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1485	031537	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1486	031540				TSCEB:	RANDOM^
  1487	031540	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1488	031541	270 10 0 00 040321 		ADD	AC,[142536475076]
  1489	031542	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1490	031543	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1491	031544	403 11 0 00 000006 	TSCEC:	SETZB	AC1,RAN1	;CLEAR C("AC").
  1492	031545	204 12 0 00 000010 		MOVS	AC2,AC		;SIMULATE TSC.
  1493	031546	657 11 0 00 000010 		TSCN	AC1,AC		;C(E)+C(AC)=0. NO SKIP
  1494	031547	312 11 0 00 000012 		CAME	AC1,AC2		;C(AC) SHOULD = SIM ANS
  1495	031550	001 10 0 00 000006 		ERR	AC,RAN1
  1496	031551	400 11 0 00 000000 		SETZ	AC1,		;CLEAR C("AC").
  1497	031552	653 11 0 00 000010 		TSCE	AC1,AC		;C(E)+C(AC)=0. SKIP
  1498	031553	005 11 0 00 040323 		ER	AC1,[ASCII /TST/]
  1499	031554	312 11 0 00 000012 		CAME	AC1,AC2		;C(AC) SHOULD = SIM ANS
  1500	031555	001 10 0 00 000006 		ERR	AC,RAN1
  1501						LOOP	TSCEB,TSCEC^
  1502	031556	367 07 0 00 031540 		SOJG	AC-1,TSCEB		;ITERATION COUNTER
  1503	031557	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1504	031560	321 07 0 00 031544 		JUMPL	AC-1,TSCEC		;LOOP ON ERROR SWITCH ^
  1505
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 21
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0052

  1506
  1507
  1508					;TEST TSCE, TSCN.  CHECK FOR SKIP/NO SKIP AND
  1509					;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
  1510
  1511
  1512			000002			AC=2
  1513	031561				TSCE4:	SETUP	100,0^
  1514			000003			AC1=<AC+1>&17
  1515			000004			AC2=<AC+2>&17
  1516			000005			AC3=<AC+3>&17
  1517			000006			AC4=<AC+4>&17
  1518			000007			AC5=<AC+5>&17
  1519			000000			RAN1=<AC-2>&17
  1520	031561	201 01 0 00 031561 		MOVEI	AC-1,.
  1521	031562	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1522	031563	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1523	031564	202 01 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1524	031565	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1525	031566	240 01 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1526	031567	240 01 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1527	031570				TSCE5:	RANDOM^
  1528	031570	200 02 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1529	031571	270 02 0 00 040321 		ADD	AC,[142536475076]
  1530	031572	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1531	031573	447 02 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1532	031574	322 02 0 00 031570 		JUMPE	AC,TSCE5	;REJECT IF RAN = 0.
  1533	031575	316 02 0 00 040324 		CAMN	AC,[-1]		;C(AC) = -1?
  1534	031576	254 00 0 00 031570 		JRST	TSCE5		;YES. REJECT.
  1535	031577	477 03 0 00 000000 	TSCE6:	SETOB	AC1,RAN1	;SET C(E) TO ALL ONES.
  1536	031600	653 02 0 00 000003 		TSCE	AC,AC1		;C(E)+C(AC) NOT=0. NO SKIP
  1537	031601	254 00 0 00 031603 		JRST	.+2
  1538	031602	005 02 0 00 040323 		ER	AC,[ASCII /TST/];TSCE SKIPPED.
  1539	031603	657 02 0 00 000003 		TSCN	AC,AC1		;C(E)+C(AC) NOT=0, SKIP
  1540	031604	005 02 0 00 040323 		ER	AC,[ASCII /TST/]
  1541	031605	312 02 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD=ORIGINAL C(AC)
  1542	031606	001 00 0 00 040444 		ERR	RAN1,RAN
  1543						LOOP	TSCE5,TSCE6^
  1544	031607	367 01 0 00 031570 		SOJG	AC-1,TSCE5		;ITERATION COUNTER
  1545	031610	200 02 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1546	031611	321 01 0 00 031577 		JUMPL	AC-1,TSCE6		;LOOP ON ERROR SWITCH ^
  1547
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 22
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0053

  1548
  1549
  1550					;TEST TSCE, TSCN.  CHECK FOR SKIP/NO SKIP AND
  1551					;CORRECT DATA IN AC FOR RAN TO -1.
  1552
  1553
  1554			000003			AC=3
  1555	031612				TSCED:	SETUP	100,0^
  1556			000004			AC1=<AC+1>&17
  1557			000005			AC2=<AC+2>&17
  1558			000006			AC3=<AC+3>&17
  1559			000007			AC4=<AC+4>&17
  1560			000010			AC5=<AC+5>&17
  1561			000001			RAN1=<AC-2>&17
  1562	031612	201 02 0 00 031612 		MOVEI	AC-1,.
  1563	031613	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1564	031614	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1565	031615	202 02 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1566	031616	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1567	031617	240 02 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1568	031620	240 02 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1569	031621				TSCEE:	RANDOM^
  1570	031621	200 03 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1571	031622	270 03 0 00 040321 		ADD	AC,[142536475076]
  1572	031623	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1573	031624	447 03 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1574	031625	322 03 0 00 031621 		JUMPE	AC,TSCEE	;REJECT IF RAN = 0.
  1575	031626	477 04 0 00 000001 	TSCEF:	SETOB	AC1,RAN1	;SET C("AC") TO ALL ONES.
  1576	031627	653 04 0 00 000003 		TSCE	AC1,AC		;C(E)+C(AC) NOT=0,NO SKIP
  1577	031630	254 00 0 00 031632 		JRST	.+2
  1578	031631	005 04 0 00 040323 		ER	AC1,[ASCII /TST/];TSCE SKIPPED.
  1579	031632	653 04 0 00 000003 		TSCE	AC1,AC		;C(E) + C(AC) = 0. SKIP.
  1580	031633	005 04 0 00 040323 		ER	AC1,[ASCII /TST/]
  1581	031634	312 04 0 00 040324 		CAME	AC1,[-1]	;C(AC) SHOULD = ORIG. C(AC).
  1582	031635	001 03 0 00 000001 		ERR	AC,RAN1
  1583	031636	474 04 0 00 000000 		SETO	AC1,		;RESTORE C(AC).
  1584	031637	657 04 0 00 000003 		TSCN	AC1,AC		;C(E) + C(AC) NOT = 0..SKIP.
  1585	031640	005 04 0 00 040323 		ER	AC1,[ASCII /TST/]
  1586	031641	657 04 0 00 000003 		TSCN	AC1,AC		;C(E) + C(AC) = 0..NO SKIP.
  1587	031642	312 04 0 00 040324 		CAME	AC1,[-1]	;C(AC) SHOULD = ORIG. C(AC).
  1588	031643	001 03 0 00 000001 		ERR	AC,RAN1
  1589						LOOP	TSCEE,TSCEF^
  1590	031644	367 02 0 00 031621 		SOJG	AC-1,TSCEE		;ITERATION COUNTER
  1591	031645	200 03 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1592	031646	321 02 0 00 031626 		JUMPL	AC-1,TSCEF		;LOOP ON ERROR SWITCH ^
  1593
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 23
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0054

  1594
  1595
  1596					;TEST TSCE, TSCN.  CHECK FOR SKIP/NO SKIP
  1597					;AND CORRECT DATA IN AC FOR NOT RAN TO RAN
  1598					;CONDITION
  1599
  1600
  1601			000004			AC=4
  1602	031647				TSCN1:	SETUP	100,0^
  1603			000005			AC1=<AC+1>&17
  1604			000006			AC2=<AC+2>&17
  1605			000007			AC3=<AC+3>&17
  1606			000010			AC4=<AC+4>&17
  1607			000011			AC5=<AC+5>&17
  1608			000002			RAN1=<AC-2>&17
  1609	031647	201 03 0 00 031647 		MOVEI	AC-1,.
  1610	031650	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1611	031651	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1612	031652	202 03 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1613	031653	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1614	031654	240 03 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1615	031655	240 03 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1616	031656				TSCN2:	RANDOM^
  1617	031656	200 04 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1618	031657	270 04 0 00 040321 		ADD	AC,[142536475076]
  1619	031660	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1620	031661	447 04 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1621	031662	322 04 0 00 031656 		JUMPE	AC,TSCN2	;REJECT IF C("AC") = 0.
  1622	031663	204 05 0 00 000004 	TSCN3:	MOVS	AC1,AC		;MAKE C(E) =
  1623	031664	450 05 0 00 000000 		SETCA	AC1,		;COMP OF C(AC).
  1624	031665	322 05 0 00 031656 		JUMPE	AC1,TSCN2	;REJECT IF E = 0.
  1625	031666	657 04 0 00 000005 		TSCN	AC,AC1		;C(E) + C(AC) = 0...NO SKIP.
  1626	031667	254 00 0 00 031671 		JRST	.+2
  1627	031670	005 04 0 00 040323 		ER	AC,[ASCII /TST/];TSCN SKIPPED.
  1628	031671	657 04 0 00 000005 		TSCN	AC,AC1		;C(E) + C(AC) NOT = 0...SKIP.
  1629	031672	005 04 0 00 040323 		ER	AC,[ASCII /TST/]
  1630	031673	312 04 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD = ORIG. C(AC).
  1631	031674	001 05 0 00 040444 		ERR	AC1,RAN
  1632	031675	653 04 0 00 000005 		TSCE	AC,AC1		;C(E) + C(AC) = 0...SKIP.
  1633	031676	005 04 0 00 040323 		ER	AC,[ASCII /TST/]
  1634	031677	653 04 0 00 000005 		TSCE	AC,AC1		;C(E) + C(AC) NOT = 0...NO SKIP.
  1635	031700	312 04 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD=ORIGINAL C(AC)
  1636	031701	001 05 0 00 040444 		ERR	AC1,RAN
  1637						LOOP	TSCN2,TSCN3^
  1638	031702	367 03 0 00 031656 		SOJG	AC-1,TSCN2		;ITERATION COUNTER
  1639	031703	200 04 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1640	031704	321 03 0 00 031663 		JUMPL	AC-1,TSCN3		;LOOP ON ERROR SWITCH ^
  1641
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 24
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0055

  1642
  1643
  1644					;TEST TSCE, TSCN.  CHECK FOR SKIP/NO SKIP
  1645					;AND CORRECT DATA IN AC FOR RAN TO RAN
  1646					;CONDITION
  1647
  1648
  1649			000005			AC=5
  1650	031705				TSCNA:	SETUP	100,0^
  1651			000006			AC1=<AC+1>&17
  1652			000007			AC2=<AC+2>&17
  1653			000010			AC3=<AC+3>&17
  1654			000011			AC4=<AC+4>&17
  1655			000012			AC5=<AC+5>&17
  1656			000003			RAN1=<AC-2>&17
  1657	031705	201 04 0 00 031705 		MOVEI	AC-1,.
  1658	031706	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1659	031707	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1660	031710	202 04 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1661	031711	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1662	031712	240 04 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1663	031713	240 04 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1664	031714				TSCNB:	RANDOM^
  1665	031714	200 05 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1666	031715	270 05 0 00 040321 		ADD	AC,[142536475076]
  1667	031716	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1668	031717	447 05 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1669	031720	322 05 0 00 031714 		JUMPE	AC,TSCNB	;REJECT IF RAN = 0.
  1670	031721	200 06 0 00 000005 	TSCNC:	MOVE	AC1,AC		;MAKE C("E") = C("AC").
  1671	031722	204 07 0 00 000005 		MOVS	AC2,AC		;MAKE SURE
  1672	031723	404 07 0 00 000005 		AND	AC2,AC		;AND CONDITION
  1673	031724	322 07 0 00 031714 		JUMPE	AC2,TSCNB	;DOESN'T = 0.
  1674	031725	430 07 0 00 000005 		XOR	AC2,AC		;ALSO HALVES NOT =.
  1675	031726	322 07 0 00 031714 		JUMPE	AC2,TSCNB	;REJECT IF 0.
  1676	031727	653 05 0 00 000006 		TSCE	AC,AC1		;C(E)+C(AC) NOT=0. NO SKIP
  1677	031730	254 00 0 00 031732 		JRST	.+2
  1678	031731	005 05 0 00 040323 		ER	AC,[ASCII /TST/];TSCE SKIPPED.
  1679	031732	657 05 0 00 000006 		TSCN	AC,AC1		;C(E)+C(AC) NOT=0. SKIP
  1680	031733	005 05 0 00 040323 		ER	AC,[ASCII /TST/]
  1681	031734	312 05 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD=ORIGINAL C(AC)
  1682	031735	001 06 0 00 040444 		ERR	AC1,RAN
  1683						LOOP	TSCNB,TSCNC^
  1684	031736	367 04 0 00 031714 		SOJG	AC-1,TSCNB		;ITERATION COUNTER
  1685	031737	200 05 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1686	031740	321 04 0 00 031721 		JUMPL	AC-1,TSCNC		;LOOP ON ERROR SWITCH ^
  1687
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 25
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0056

  1688
  1689
  1690					;TEST TSO,TSOA.  CHECK FOR SKIP/NO SKIP AND
  1691					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
  1692
  1693
  1694			000006			AC=6
  1695	031741				TSO1:	SETUP	100,0^
  1696			000007			AC1=<AC+1>&17
  1697			000010			AC2=<AC+2>&17
  1698			000011			AC3=<AC+3>&17
  1699			000012			AC4=<AC+4>&17
  1700			000013			AC5=<AC+5>&17
  1701			000004			RAN1=<AC-2>&17
  1702	031741	201 05 0 00 031741 		MOVEI	AC-1,.
  1703	031742	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1704	031743	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1705	031744	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1706	031745	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1707	031746	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1708	031747	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1709	031750				TSO2:	RANDOM^
  1710	031750	200 06 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1711	031751	270 06 0 00 040321 		ADD	AC,[142536475076]
  1712	031752	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1713	031753	447 06 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1714	031754	403 07 0 00 000004 	TSO3:	SETZB	AC1,RAN1	;CLEAR C("E").
  1715	031755	200 10 0 00 000006 		MOVE	AC2,AC		;SIMULATE
  1716	031756	241 10 0 00 000022 		ROT	AC2,22		;A TSO
  1717	031757	671 07 0 00 000006 		TSO	AC1,AC		;SHOULD NOT SKIP
  1718	031760	254 00 0 00 031762 		JRST	.+2
  1719	031761	005 07 0 00 040323 		ER	AC1,[ASCII /TST/];TSO SKIPPED.
  1720	031762	675 07 0 00 000006 		TSOA	AC1,AC		;SHOULD SKIP
  1721	031763	005 07 0 00 040323 		ER	AC1,[ASCII /TST/]
  1722	031764	312 07 0 00 000010 		CAME	AC1,AC2		;C(AC) SHOULD=SIM ANS
  1723	031765	001 06 0 00 000004 		ERR	AC,RAN1
  1724						LOOP	TSO2,TSO3^
  1725	031766	367 05 0 00 031750 		SOJG	AC-1,TSO2		;ITERATION COUNTER
  1726	031767	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1727	031770	321 05 0 00 031754 		JUMPL	AC-1,TSO3		;LOOP ON ERROR SWITCH ^
  1728
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 26
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0057

  1729
  1730
  1731					;TEST TSO, TSOA.  CHECK FOR SKIP/NO SKIP
  1732					;AND CORRECT DATA IN AC FOR 0 TO RAN CONDITION
  1733
  1734
  1735			000007			AC=7
  1736	031771				TSO4:	SETUP	100,0^
  1737			000010			AC1=<AC+1>&17
  1738			000011			AC2=<AC+2>&17
  1739			000012			AC3=<AC+3>&17
  1740			000013			AC4=<AC+4>&17
  1741			000014			AC5=<AC+5>&17
  1742			000005			RAN1=<AC-2>&17
  1743	031771	201 06 0 00 031771 		MOVEI	AC-1,.
  1744	031772	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1745	031773	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1746	031774	202 06 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1747	031775	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1748	031776	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1749	031777	240 06 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1750	032000				TSO5:	RANDOM^
  1751	032000	200 07 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1752	032001	270 07 0 00 040321 		ADD	AC,[142536475076]
  1753	032002	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1754	032003	447 07 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1755	032004	400 10 0 00 000000 	TSO6:	SETZ	AC1,		;CLEAR C(E).
  1756	032005	671 07 0 00 000010 		TSO	AC,AC1		;SHOULD NOT SKIP
  1757	032006	254 00 0 00 032010 		JRST	.+2
  1758	032007	005 07 0 00 040323 		ER	AC,[ASCII /TST/];TSO SKIPPED.
  1759	032010	675 07 0 00 000010 		TSOA	AC,AC1		;SHOULD SKIP
  1760	032011	005 07 0 00 040323 		ER	AC,[ASCII /TST/]
  1761	032012	312 07 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD NOT HAVE CHANGED.
  1762	032013	001 10 0 00 040444 		ERR	AC1,RAN
  1763						LOOP	TSO5,TSO6^
  1764	032014	367 06 0 00 032000 		SOJG	AC-1,TSO5		;ITERATION COUNTER
  1765	032015	200 07 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1766	032016	321 06 0 00 032004 		JUMPL	AC-1,TSO6		;LOOP ON ERROR SWITCH ^
  1767
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 27
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0058

  1768
  1769
  1770					;TEST TSO,TSOA.  CHECK FOR SKIP/NO SKIP
  1771					;AND CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
  1772					;C(RAN1)=C(RAN) SWAPPED
  1773
  1774
  1775			000010			AC=10
  1776	032017				TSO7:	SETUP	100,0^
  1777			000011			AC1=<AC+1>&17
  1778			000012			AC2=<AC+2>&17
  1779			000013			AC3=<AC+3>&17
  1780			000014			AC4=<AC+4>&17
  1781			000015			AC5=<AC+5>&17
  1782			000006			RAN1=<AC-2>&17
  1783	032017	201 07 0 00 032017 		MOVEI	AC-1,.
  1784	032020	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1785	032021	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1786	032022	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1787	032023	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1788	032024	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1789	032025	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1790	032026				TSO8:	RANDOM^
  1791	032026	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1792	032027	270 10 0 00 040321 		ADD	AC,[142536475076]
  1793	032030	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1794	032031	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1795	032032	204 11 0 00 000010 	TSO9:	MOVS	AC1,AC		;MAKE C("E")=C("AC") SWAPPED
  1796	032033	671 10 0 00 000011 		TSO	AC,AC1		;SHOULD NOT SKIP
  1797	032034	254 00 0 00 032036 		JRST	.+2
  1798	032035	005 10 0 00 040323 		ER	AC,[ASCII /TST/];TSO SKIPPED.
  1799	032036	675 10 0 00 000011 		TSOA	AC,AC1		;SHOULD SKIP
  1800	032037	005 10 0 00 040323 		ER	AC,[ASCII /TST/]
  1801	032040	312 10 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD=ORIGINAL C(AC)
  1802	032041	001 11 0 00 040444 		ERR	AC1,RAN
  1803						LOOP	TSO8,TSO9^
  1804	032042	367 07 0 00 032026 		SOJG	AC-1,TSO8		;ITERATION COUNTER
  1805	032043	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1806	032044	321 07 0 00 032032 		JUMPL	AC-1,TSO9		;LOOP ON ERROR SWITCH ^
  1807
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 28
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0059

  1808
  1809
  1810					;TEST TSO, TSOA.  CHECK FOR SKIP/NO SKIP AND
  1811					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
  1812
  1813
  1814			000011			AC=11
  1815	032045				TSOA1:	SETUP	100,0^
  1816			000012			AC1=<AC+1>&17
  1817			000013			AC2=<AC+2>&17
  1818			000014			AC3=<AC+3>&17
  1819			000015			AC4=<AC+4>&17
  1820			000016			AC5=<AC+5>&17
  1821			000007			RAN1=<AC-2>&17
  1822	032045	201 10 0 00 032045 		MOVEI	AC-1,.
  1823	032046	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1824	032047	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1825	032050	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1826	032051	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1827	032052	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1828	032053	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1829	032054				TSOA2:	RANDOM^
  1830	032054	200 11 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1831	032055	270 11 0 00 040321 		ADD	AC,[142536475076]
  1832	032056	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1833	032057	447 11 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1834	032060	200 12 0 00 000011 	TSOA3:	MOVE	AC1,AC		;MAKE C("E")=C("AC")
  1835	032061	204 13 0 00 000012 		MOVS	AC2,AC1		;SIMULATE
  1836	032062	200 14 0 00 000011 		MOVE	AC3,AC		;A
  1837	032063	434 14 0 00 000013 		IOR	AC3,AC2		;TSO
  1838	032064	671 11 0 00 000012 		TSO	AC,AC1		;SHOULD NOT SKIP
  1839	032065	254 00 0 00 032067 		JRST	.+2
  1840	032066	005 11 0 00 040323 		ER	AC,[ASCII /TST/];TSO SKIPPED.
  1841	032067	675 11 0 00 000012 		TSOA	AC,AC1		;SHOULD SKIP
  1842	032070	005 11 0 00 040323 		ER	AC,[ASCII /TST/]
  1843	032071	312 11 0 00 000014 		CAME	AC,AC3		;C(AC) = SIM. ANS?
  1844	032072	001 12 0 00 000012 		ERR	AC1,AC1		;NO.
  1845						LOOP	TSOA2,TSOA3^
  1846	032073	367 10 0 00 032054 		SOJG	AC-1,TSOA2		;ITERATION COUNTER
  1847	032074	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1848	032075	321 10 0 00 032060 		JUMPL	AC-1,TSOA3		;LOOP ON ERROR SWITCH ^
  1849
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 29
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0060

  1850
  1851
  1852					;TEST TSOE, TSON.  CHECK FOR SKIP/NO SKIP
  1853					;AND CORRECT DATA IN AC FOR 0 TO RAN CONDITION
  1854
  1855
  1856			000012			AC=12
  1857	032076				TSOE1:	SETUP	100,0^
  1858			000013			AC1=<AC+1>&17
  1859			000014			AC2=<AC+2>&17
  1860			000015			AC3=<AC+3>&17
  1861			000016			AC4=<AC+4>&17
  1862			000017			AC5=<AC+5>&17
  1863			000010			RAN1=<AC-2>&17
  1864	032076	201 11 0 00 032076 		MOVEI	AC-1,.
  1865	032077	202 11 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1866	032100	201 11 0 00 000011 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1867	032101	202 11 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1868	032102	201 11 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1869	032103	240 11 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1870	032104	240 11 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1871	032105				TSOE2:	RANDOM^
  1872	032105	200 12 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1873	032106	270 12 0 00 040321 		ADD	AC,[142536475076]
  1874	032107	241 12 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1875	032110	447 12 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1876	032111	403 13 0 00 000010 	TSOE3:	SETZB	AC1,RAN1	;CLEAR C(E).
  1877	032112	677 12 0 00 000013 		TSON	AC,AC1		;C(E)+C(AC)=0. NO SKIP
  1878	032113	254 00 0 00 032115 		JRST	.+2
  1879	032114	005 12 0 00 040323 		ER	AC,[ASCII /TST/];TSON SKIPPED.
  1880	032115	673 12 0 00 000013 		TSOE	AC,AC1		;C(E)+C(AC)=0. SKIP
  1881	032116	005 12 0 00 040323 		ER	AC,[ASCII /TST/]
  1882	032117	312 12 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD=ORIGINAL C(AC)
  1883	032120	001 10 0 00 040444 		ERR	RAN1,RAN
  1884						LOOP	TSOE2,TSOE3^
  1885	032121	367 11 0 00 032105 		SOJG	AC-1,TSOE2		;ITERATION COUNTER
  1886	032122	200 12 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1887	032123	321 11 0 00 032111 		JUMPL	AC-1,TSOE3		;LOOP ON ERROR SWITCH ^
  1888
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 30
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0061

  1889
  1890
  1891					;TEST TSOE, TSON.  CHECK FOR SKIP/NO SKIP AND
  1892					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
  1893
  1894
  1895			000013			AC=13
  1896	032124				TSOEA:	SETUP	100,0^
  1897			000014			AC1=<AC+1>&17
  1898			000015			AC2=<AC+2>&17
  1899			000016			AC3=<AC+3>&17
  1900			000017			AC4=<AC+4>&17
  1901			000000			AC5=<AC+5>&17
  1902			000011			RAN1=<AC-2>&17
  1903	032124	201 12 0 00 032124 		MOVEI	AC-1,.
  1904	032125	202 12 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1905	032126	201 12 0 00 000012 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1906	032127	202 12 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1907	032130	201 12 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1908	032131	240 12 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1909	032132	240 12 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1910	032133				TSOEB:	RANDOM^
  1911	032133	200 13 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1912	032134	270 13 0 00 040321 		ADD	AC,[142536475076]
  1913	032135	241 13 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1914	032136	447 13 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1915	032137	322 13 0 00 032133 		JUMPE	AC,TSOEB	;REJECT IF RAN = 0.
  1916	032140	403 14 0 00 000011 	TSOEC:	SETZB	AC1,RAN1	;CLEAR C(AC).
  1917	032141	204 15 0 00 000013 		MOVS	AC2,AC		;SIMULATE TSO
  1918	032142	677 14 0 00 000013 		TSON	AC1,AC		;C(E)+C(AC)=0. NO SKIP
  1919	032143	254 00 0 00 032145 		JRST	.+2
  1920	032144	005 14 0 00 040323 		ER	AC1,[ASCII /TST/];TSON SKIPPED.
  1921	032145	677 14 0 00 000013 		TSON	AC1,AC		;C(E)+C(AC)NOT = 0. SKIP
  1922	032146	005 14 0 00 040323 		ER	AC1,[ASCII /TST/]
  1923	032147	312 14 0 00 000015 		CAME	AC1,AC2		;C(AC) SHOULD=SIM ANS
  1924	032150	001 13 0 00 000011 		ERR	AC,RAN1
  1925	032151	400 14 0 00 000000 		SETZ	AC1,		;CLEAR C(AC)
  1926	032152	673 14 0 00 000013 		TSOE	AC1,AC		;C(E)+C(AC)=0. SKIP
  1927	032153	005 14 0 00 040323 		ER	AC1,[ASCII /TST/]
  1928	032154	673 14 0 00 000013 		TSOE	AC1,AC		;C(E)+C(AC)NOT=0. NO SKIP
  1929	032155	312 14 0 00 000015 		CAME	AC1,AC2		;C(AC)=SIM ANS?
  1930	032156	001 13 0 00 000011 		ERR	AC,RAN1		;NO
  1931						LOOP	TSOEB,TSOEC^
  1932	032157	367 12 0 00 032133 		SOJG	AC-1,TSOEB		;ITERATION COUNTER
  1933	032160	200 13 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1934	032161	321 12 0 00 032140 		JUMPL	AC-1,TSOEC		;LOOP ON ERROR SWITCH ^
  1935
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 31
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0062

  1936
  1937
  1938					;TEST TSOE, TSON.  CHECK FOR SKIP/NO SKIP AND
  1939					;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
  1940
  1941
  1942			000014			AC=14
  1943	032162				TSOE4:	SETUP	100,0^
  1944			000015			AC1=<AC+1>&17
  1945			000016			AC2=<AC+2>&17
  1946			000017			AC3=<AC+3>&17
  1947			000000			AC4=<AC+4>&17
  1948			000001			AC5=<AC+5>&17
  1949			000012			RAN1=<AC-2>&17
  1950	032162	201 13 0 00 032162 		MOVEI	AC-1,.
  1951	032163	202 13 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1952	032164	201 13 0 00 000013 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1953	032165	202 13 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1954	032166	201 13 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1955	032167	240 13 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1956	032170	240 13 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1957	032171				TSOE5:	RANDOM^
  1958	032171	200 14 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  1959	032172	270 14 0 00 040321 		ADD	AC,[142536475076]
  1960	032173	241 14 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  1961	032174	447 14 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  1962	032175	322 14 0 00 032171 		JUMPE	AC,TSOE5	;REJECT IF RAN= 0.
  1963	032176	477 15 0 00 000012 	TSOE6:	SETOB	AC1,RAN1	;MAKE C(E) = -1.
  1964	032177	673 14 0 00 000015 		TSOE	AC,AC1		;C(E)+C(AC) NOT=0. NO SKIP
  1965	032200	312 14 0 00 040324 		CAME	AC,[-1]		;C(AC) SHOULD=-1
  1966	032201	001 12 0 00 040444 		ERR	RAN1,RAN
  1967	032202	200 14 0 00 040444 		MOVE	AC,RAN		;RESTORE AC
  1968	032203	677 14 0 00 000015 		TSON	AC,AC1		;C(E)+C(AC) NOT=0. SKIP
  1969	032204	005 14 0 00 040323 		ER	AC,[ASCII /TST/]
  1970	032205	312 14 0 00 040324 		CAME	AC,[-1]		;C(AC) SHOULD=-1
  1971	032206	001 12 0 00 040444 		ERR	RAN1,RAN
  1972						LOOP	TSOE5,TSOE6^
  1973	032207	367 13 0 00 032171 		SOJG	AC-1,TSOE5		;ITERATION COUNTER
  1974	032210	200 14 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  1975	032211	321 13 0 00 032176 		JUMPL	AC-1,TSOE6		;LOOP ON ERROR SWITCH ^
  1976
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 32
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0063

  1977
  1978
  1979					;TEST TSOE, TSON.  CHECK FOR SKIP/NO SKIP AND
  1980					;CORRECT DATA IN AC FOR RAN TO -1 CONDITION
  1981
  1982
  1983			000015			AC=15
  1984	032212				TSOED:	SETUP	100,0^
  1985			000016			AC1=<AC+1>&17
  1986			000017			AC2=<AC+2>&17
  1987			000000			AC3=<AC+3>&17
  1988			000001			AC4=<AC+4>&17
  1989			000002			AC5=<AC+5>&17
  1990			000013			RAN1=<AC-2>&17
  1991	032212	201 14 0 00 032212 		MOVEI	AC-1,.
  1992	032213	202 14 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  1993	032214	201 14 0 00 000014 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  1994	032215	202 14 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  1995	032216	201 14 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  1996	032217	240 14 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  1997	032220	240 14 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  1998	032221				TSOEE:	RANDOM^
  1999	032221	200 15 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2000	032222	270 15 0 00 040321 		ADD	AC,[142536475076]
  2001	032223	241 15 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2002	032224	447 15 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2003	032225	322 15 0 00 032221 		JUMPE	AC,TSOEE	;REJECT IF RAN = 0.
  2004	032226	477 16 0 00 000013 	TSOEF:	SETOB	AC1,RAN1	;SET C(AC) TO A -1.
  2005	032227	673 16 0 00 000015 		TSOE	AC1,AC		;C(E)+C(AC) NOT=0. NO SKIP
  2006	032230	254 00 0 00 032232 		JRST	.+2
  2007	032231	005 16 0 00 040323 		ER	AC1,[ASCII /TST/];TSOE SKIPPED.
  2008	032232	677 16 0 00 000015 		TSON	AC1,AC		;C(E)+C(AC) NOT=0. SKIP
  2009	032233	005 16 0 00 040323 		ER	AC1,[ASCII /TST/]
  2010	032234	312 16 0 00 040324 		CAME	AC1,[-1]	;C(AC) SHOULD STILL = -1.
  2011	032235	001 15 0 00 000013 		ERR	AC,RAN1
  2012						LOOP	TSOEE,TSOEF^
  2013	032236	367 14 0 00 032221 		SOJG	AC-1,TSOEE		;ITERATION COUNTER
  2014	032237	200 15 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2015	032240	321 14 0 00 032226 		JUMPL	AC-1,TSOEF		;LOOP ON ERROR SWITCH ^
  2016
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 33
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0064

  2017
  2018
  2019					;TEST TSOE, TSON.  CHECK FOR SKIP/NO SKIP AND
  2020					;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION
  2021
  2022
  2023			000006			AC=6
  2024	032241				TSON1:	SETUP	100,0^
  2025			000007			AC1=<AC+1>&17
  2026			000010			AC2=<AC+2>&17
  2027			000011			AC3=<AC+3>&17
  2028			000012			AC4=<AC+4>&17
  2029			000013			AC5=<AC+5>&17
  2030			000004			RAN1=<AC-2>&17
  2031	032241	201 05 0 00 032241 		MOVEI	AC-1,.
  2032	032242	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2033	032243	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2034	032244	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2035	032245	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2036	032246	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2037	032247	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2038	032250				TSON2:	RANDOM^
  2039	032250	200 06 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2040	032251	270 06 0 00 040321 		ADD	AC,[142536475076]
  2041	032252	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2042	032253	447 06 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2043	032254	460 07 0 00 000006 	TSON3:	SETCM	AC1,AC		;MAKE C(E) = COMP OF C(AC)
  2044	032255	204 07 0 00 000007 		MOVS	AC1,AC1		;SWAPPED.
  2045	032256	677 06 0 00 000007 		TSON	AC,AC1		;C(E)+C(AC)=0. NO SKIP
  2046	032257	312 06 0 00 040324 		CAME	AC,[-1]		;C(AC) SHOULD=-1
  2047	032260	001 07 0 00 040444 		ERR	AC1,RAN
  2048	032261	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE AC.
  2049	032262	673 06 0 00 000007 		TSOE	AC,AC1		;C(E)+C(AC)=0. SKIP
  2050	032263	005 06 0 00 040323 		ER	AC,[ASCII /TST/]
  2051	032264	312 06 0 00 040324 		CAME	AC,[-1]		;C(AC) SHOULD=-1
  2052	032265	001 07 0 00 040444 		ERR	AC1,RAN
  2053						LOOP	TSON2,TSON3^
  2054	032266	367 05 0 00 032250 		SOJG	AC-1,TSON2		;ITERATION COUNTER
  2055	032267	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2056	032270	321 05 0 00 032254 		JUMPL	AC-1,TSON3		;LOOP ON ERROR SWITCH ^
  2057
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 34
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0065

  2058
  2059
  2060					;TEST TSOE, TSON.  CHECK FOR SKIP/NO SKIP AND
  2061					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
  2062
  2063
  2064			000007			AC=7
  2065	032271				TSONA:	SETUP	100,0^
  2066			000010			AC1=<AC+1>&17
  2067			000011			AC2=<AC+2>&17
  2068			000012			AC3=<AC+3>&17
  2069			000013			AC4=<AC+4>&17
  2070			000014			AC5=<AC+5>&17
  2071			000005			RAN1=<AC-2>&17
  2072	032271	201 06 0 00 032271 		MOVEI	AC-1,.
  2073	032272	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2074	032273	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2075	032274	202 06 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2076	032275	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2077	032276	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2078	032277	240 06 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2079	032300				TSONB:	RANDOM^
  2080	032300	200 07 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2081	032301	270 07 0 00 040321 		ADD	AC,[142536475076]
  2082	032302	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2083	032303	447 07 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2084	032304	322 07 0 00 032300 		JUMPE	AC,TSONB	;REJECT IF RAN = 0.
  2085	032305	204 10 0 00 000007 	TSONC:	MOVS	AC1,AC		;MAKE C(E) = C(AC) SWAPPED.
  2086	032306	673 07 0 00 000010 		TSOE	AC,AC1		;C(E)+C(AC) NOT=0 NO SKIP
  2087	032307	254 00 0 00 032311 		JRST	.+2
  2088	032310	005 07 0 00 040323 		ER	AC,[ASCII /TST/];TSOE SKIPPED.
  2089	032311	677 07 0 00 000010 		TSON	AC,AC1		;C(E)+C(AC)) NOT=0 SKIP
  2090	032312	005 07 0 00 040323 		ER	AC,[ASCII /TST/]
  2091	032313	312 07 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD=C(ORIG. AC)
  2092	032314	001 10 0 00 040444 		ERR	AC1,RAN
  2093						LOOP	TSONB,TSONC^
  2094	032315	367 06 0 00 032300 		SOJG	AC-1,TSONB		;ITERATION COUNTER
  2095	032316	200 07 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2096	032317	321 06 0 00 032305 		JUMPL	AC-1,TSONC		;LOOP ON ERROR SWITCH ^
  2097
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 35
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0066

  2098
  2099
  2100					;TEST TSZ, TSZA.  CHECK FOR SKIP/NO SKIP AND
  2101					;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
  2102
  2103
  2104			000010			AC=10
  2105	032320				TSZ1:	SETUP	100,0^
  2106			000011			AC1=<AC+1>&17
  2107			000012			AC2=<AC+2>&17
  2108			000013			AC3=<AC+3>&17
  2109			000014			AC4=<AC+4>&17
  2110			000015			AC5=<AC+5>&17
  2111			000006			RAN1=<AC-2>&17
  2112	032320	201 07 0 00 032320 		MOVEI	AC-1,.
  2113	032321	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2114	032322	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2115	032323	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2116	032324	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2117	032325	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2118	032326	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2119	032327				TSZ2:	RANDOM^
  2120	032327	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2121	032330	270 10 0 00 040321 		ADD	AC,[142536475076]
  2122	032331	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2123	032332	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2124	032333	400 11 0 00 000000 	TSZ3:	SETZ	AC1,		;CLEAR C(E)
  2125	032334	631 10 0 00 000011 		TSZ	AC,AC1		;SHOULD NOT SKIP
  2126	032335	254 00 0 00 032337 		JRST	.+2
  2127	032336	005 10 0 00 040323 		ER	AC,[ASCII /TST/];TSZ SKIPPED.
  2128	032337	635 10 0 00 000011 		TSZA	AC,AC1		;SHOULD SKIP
  2129	032340	005 10 0 00 040323 		ER	AC,[ASCII /TST/]
  2130	032341	312 10 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD=ORIGINAL C(AC)
  2131	032342	001 11 0 00 040444 		ERR	AC1,RAN
  2132						LOOP	TSZ2,TSZ3^
  2133	032343	367 07 0 00 032327 		SOJG	AC-1,TSZ2		;ITERATION COUNTER
  2134	032344	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2135	032345	321 07 0 00 032333 		JUMPL	AC-1,TSZ3		;LOOP ON ERROR SWITCH ^
  2136
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 36
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0067

  2137
  2138
  2139					;TEST TSZ, TSZA.  CHECK FOR SKIP/NO SKIP AND
  2140					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
  2141
  2142
  2143			000011			AC=11
  2144	032346				TSZ4:	SETUP	100,0^
  2145			000012			AC1=<AC+1>&17
  2146			000013			AC2=<AC+2>&17
  2147			000014			AC3=<AC+3>&17
  2148			000015			AC4=<AC+4>&17
  2149			000016			AC5=<AC+5>&17
  2150			000007			RAN1=<AC-2>&17
  2151	032346	201 10 0 00 032346 		MOVEI	AC-1,.
  2152	032347	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2153	032350	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2154	032351	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2155	032352	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2156	032353	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2157	032354	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2158	032355				TSZ5:	RANDOM^
  2159	032355	200 11 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2160	032356	270 11 0 00 040321 		ADD	AC,[142536475076]
  2161	032357	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2162	032360	447 11 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2163	032361	403 12 0 00 000007 	TSZ6:	SETZB	AC1,RAN1	;CLEAR C(AC).
  2164	032362	631 12 0 00 000011 		TSZ	AC1,AC		;SHOULD NOT SKIP
  2165	032363	254 00 0 00 032365 		JRST	.+2
  2166	032364	005 12 0 00 040323 		ER	AC1,[ASCII /TST/];TSZ SKIPPED.
  2167	032365	635 12 0 00 000011 		TSZA	AC1,AC		;SHOULD SKIP
  2168	032366	005 12 0 00 040323 		ER	AC1,[ASCII /TST/]
  2169	032367	312 12 0 00 040322 		CAME	AC1,[0]		;C(AC) SHOULD STILL=0
  2170	032370	001 11 0 00 000007 		ERR	AC,RAN1
  2171						LOOP	TSZ5,TSZ6^
  2172	032371	367 10 0 00 032355 		SOJG	AC-1,TSZ5		;ITERATION COUNTER
  2173	032372	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2174	032373	321 10 0 00 032361 		JUMPL	AC-1,TSZ6		;LOOP ON ERROR SWITCH ^
  2175
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 37
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0068

  2176
  2177
  2178					;TEST TSZ, TSZA.  CHECK FOR SKIP/NO SKIP AND
  2179					;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
  2180					;RAN1=C(RAN) SWAPPED
  2181
  2182
  2183			000002			AC=2
  2184	032374				TSZ7:	SETUP	100,0^
  2185			000003			AC1=<AC+1>&17
  2186			000004			AC2=<AC+2>&17
  2187			000005			AC3=<AC+3>&17
  2188			000006			AC4=<AC+4>&17
  2189			000007			AC5=<AC+5>&17
  2190			000000			RAN1=<AC-2>&17
  2191	032374	201 01 0 00 032374 		MOVEI	AC-1,.
  2192	032375	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2193	032376	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2194	032377	202 01 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2195	032400	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2196	032401	240 01 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2197	032402	240 01 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2198	032403				TSZ8:	RANDOM^
  2199	032403	200 02 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2200	032404	270 02 0 00 040321 		ADD	AC,[142536475076]
  2201	032405	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2202	032406	447 02 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2203	032407	204 03 0 00 000002 	TSZ9:	MOVS	AC1,AC		;MAKE C(E)=C(AC) SWAPPED
  2204	032410	631 02 0 00 000003 		TSZ	AC,AC1		;SHOULD NOT SKIP
  2205	032411	254 00 0 00 032413 		JRST	.+2
  2206	032412	005 02 0 00 040323 		ER	AC,[ASCII /TST/];TSZ SKIPPED.
  2207	032413	635 02 0 00 000003 		TSZA	AC,AC1		;SHOULD SKIP
  2208	032414	005 02 0 00 040323 		ER	AC,[ASCII /TST/]
  2209	032415	312 02 0 00 040322 		CAME	AC,[0]		;C(AC) SHOULD=0
  2210	032416	001 03 0 00 040444 		ERR	AC1,RAN
  2211						LOOP	TSZ8,TSZ9^
  2212	032417	367 01 0 00 032403 		SOJG	AC-1,TSZ8		;ITERATION COUNTER
  2213	032420	200 02 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2214	032421	321 01 0 00 032407 		JUMPL	AC-1,TSZ9		;LOOP ON ERROR SWITCH ^
  2215
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 38
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0069

  2216
  2217
  2218					;TEST TSZ, TSZA.  CHECK FOR SKIP/NO SKIP AND
  2219					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
  2220
  2221
  2222			000003			AC=3
  2223	032422				TSZA1:	SETUP	100,0^
  2224			000004			AC1=<AC+1>&17
  2225			000005			AC2=<AC+2>&17
  2226			000006			AC3=<AC+3>&17
  2227			000007			AC4=<AC+4>&17
  2228			000010			AC5=<AC+5>&17
  2229			000001			RAN1=<AC-2>&17
  2230	032422	201 02 0 00 032422 		MOVEI	AC-1,.
  2231	032423	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2232	032424	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2233	032425	202 02 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2234	032426	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2235	032427	240 02 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2236	032430	240 02 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2237	032431				TSZA2:	RANDOM^
  2238	032431	200 03 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2239	032432	270 03 0 00 040321 		ADD	AC,[142536475076]
  2240	032433	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2241	032434	447 03 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2242	032435	200 04 0 00 000003 	TSZA3:	MOVE	AC1,AC		;MAKE C(E)=C(AC)
  2243	032436	200 05 0 00 000003 		MOVE	AC2,AC		;SIMULATE
  2244	032437	204 06 0 00 000003 		MOVS	AC3,AC		;A
  2245	032440	464 05 0 00 000006 		ORCM	AC2,AC3		;TSZ
  2246	032441	450 05 0 00 000000 		SETCA	AC2,		;INST
  2247	032442	204 05 0 00 000005 		MOVS	AC2,AC2
  2248	032443	631 03 0 00 000004 		TSZ	AC,AC1		;SHOULD NOT SKIP
  2249	032444	254 00 0 00 032446 		JRST	.+2
  2250	032445	005 03 0 00 040323 		ER	AC,[ASCII /TST/];TSZ SKIPPED.
  2251	032446	635 03 0 00 000004 		TSZA	AC,AC1		;SHOULD SKIP
  2252	032447	005 03 0 00 040323 		ER	AC,[ASCII /TST/]
  2253	032450	312 03 0 00 000005 		CAME	AC,AC2		;C(AC) SHOULD=SIM ANS
  2254	032451	001 04 0 00 040444 		ERR	AC1,RAN
  2255						LOOP	TSZA2,TSZA3^
  2256	032452	367 02 0 00 032431 		SOJG	AC-1,TSZA2		;ITERATION COUNTER
  2257	032453	200 03 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2258	032454	321 02 0 00 032435 		JUMPL	AC-1,TSZA3		;LOOP ON ERROR SWITCH ^
  2259
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 39
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0070

  2260
  2261
  2262					;TEST TSZE,TSZN.  CHECK FOR SKIP/NO SKIP AND
  2263					;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
  2264
  2265
  2266			000004			AC=4
  2267	032455				TSZE1:	SETUP	100,0^
  2268			000005			AC1=<AC+1>&17
  2269			000006			AC2=<AC+2>&17
  2270			000007			AC3=<AC+3>&17
  2271			000010			AC4=<AC+4>&17
  2272			000011			AC5=<AC+5>&17
  2273			000002			RAN1=<AC-2>&17
  2274	032455	201 03 0 00 032455 		MOVEI	AC-1,.
  2275	032456	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2276	032457	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2277	032460	202 03 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2278	032461	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2279	032462	240 03 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2280	032463	240 03 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2281	032464				TSZE2:	RANDOM^
  2282	032464	200 04 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2283	032465	270 04 0 00 040321 		ADD	AC,[142536475076]
  2284	032466	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2285	032467	447 04 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2286	032470	400 05 0 00 000000 	TSZE3:	SETZ	AC1,		;CLEAR C(E)
  2287	032471	637 04 0 00 000005 		TSZN	AC,AC1		;C(E)+C(AC)=0. NO SKIP
  2288	032472	254 00 0 00 032474 		JRST	.+2
  2289	032473	005 04 0 00 040323 		ER	AC,[ASCII /TST/];TSZN SKIPPED.
  2290	032474	633 04 0 00 000005 		TSZE	AC,AC1		;C(E)+C(AC)=0. SKIP
  2291	032475	005 04 0 00 040323 		ER	AC,[ASCII /TST/]
  2292	032476	312 04 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD NOT CHANGE
  2293	032477	001 05 0 00 040444 		ERR	AC1,RAN
  2294						LOOP	TSZE2,TSZE3^
  2295	032500	367 03 0 00 032464 		SOJG	AC-1,TSZE2		;ITERATION COUNTER
  2296	032501	200 04 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2297	032502	321 03 0 00 032470 		JUMPL	AC-1,TSZE3		;LOOP ON ERROR SWITCH ^
  2298
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 40
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0071

  2299
  2300
  2301					;TEST TSZE,TSZN.  CHECK FOR SKIP/ NO SKIP AND
  2302					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
  2303
  2304
  2305			000005			AC=5
  2306	032503				TSZEA:	SETUP	100,0^
  2307			000006			AC1=<AC+1>&17
  2308			000007			AC2=<AC+2>&17
  2309			000010			AC3=<AC+3>&17
  2310			000011			AC4=<AC+4>&17
  2311			000012			AC5=<AC+5>&17
  2312			000003			RAN1=<AC-2>&17
  2313	032503	201 04 0 00 032503 		MOVEI	AC-1,.
  2314	032504	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2315	032505	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2316	032506	202 04 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2317	032507	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2318	032510	240 04 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2319	032511	240 04 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2320	032512				TSZEB:	RANDOM^
  2321	032512	200 05 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2322	032513	270 05 0 00 040321 		ADD	AC,[142536475076]
  2323	032514	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2324	032515	447 05 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2325	032516	403 06 0 00 000003 	TSZEC:	SETZB	AC1,RAN1	;CLEAR C(AC).
  2326	032517	637 06 0 00 000005 		TSZN	AC1,AC		;C(E)+C(AC)=0. NO SKIP
  2327	032520	254 00 0 00 032522 		JRST	.+2
  2328	032521	005 06 0 00 040323 		ER	AC1,[ASCII /TST/];TSZN SKIPPED.
  2329	032522	633 06 0 00 000005 		TSZE	AC1,AC		;C(E)+C(AC)=0 SKIP
  2330	032523	005 06 0 00 040323 		ER	AC1,[ASCII /TST/]
  2331	032524	312 06 0 00 040322 		CAME	AC1,[0]		;C(AC) SHOULD STILL = 0
  2332	032525	001 05 0 00 000003 		ERR	AC,RAN1
  2333						LOOP	TSZEB,TSZEC^
  2334	032526	367 04 0 00 032512 		SOJG	AC-1,TSZEB		;ITERATION COUNTER
  2335	032527	200 05 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2336	032530	321 04 0 00 032516 		JUMPL	AC-1,TSZEC		;LOOP ON ERROR SWITCH ^
  2337
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 41
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0072

  2338
  2339
  2340					;TEST TSZE, TSZN.  CHECK FOR SKIP/NO SKIP AND
  2341					;CORRECT DATA IN AC FOR -1 TO RAN CONDITION.
  2342
  2343
  2344			000006			AC=6
  2345	032531				TSZE4:	SETUP	100,0^
  2346			000007			AC1=<AC+1>&17
  2347			000010			AC2=<AC+2>&17
  2348			000011			AC3=<AC+3>&17
  2349			000012			AC4=<AC+4>&17
  2350			000013			AC5=<AC+5>&17
  2351			000004			RAN1=<AC-2>&17
  2352	032531	201 05 0 00 032531 		MOVEI	AC-1,.
  2353	032532	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2354	032533	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2355	032534	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2356	032535	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2357	032536	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2358	032537	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2359	032540				TSZE5:	RANDOM^
  2360	032540	200 06 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2361	032541	270 06 0 00 040321 		ADD	AC,[142536475076]
  2362	032542	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2363	032543	447 06 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2364	032544	322 06 0 00 032540 		JUMPE	AC,TSZE5	;REJECT IF RAN = 0.
  2365	032545	474 07 0 00 000000 	TSZE6:	SETO	AC1,		;SET C("E") TO ALL ONES.
  2366	032546	633 06 0 00 000007 		TSZE	AC,AC1		;C(E)+C(AC) NOT=0. NO SKIP
  2367	032547	312 06 0 00 040322 		CAME	AC,[0]		;C(AC) SHOULD HAVE BEEN CLEARED
  2368	032550	001 07 0 00 040444 		ERR	AC1,RAN
  2369	032551	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE AC
  2370	032552	637 06 0 00 000007 		TSZN	AC,AC1		;C(E)+C(AC) NOT=0. SKIP
  2371	032553	005 06 0 00 040323 		ER	AC,[ASCII /TST/]
  2372	032554	312 06 0 00 040322 		CAME	AC,[0]		;C(AC) SHOULD HAVE BEEN CLEARED
  2373	032555	001 07 0 00 040444 		ERR	AC1,RAN
  2374						LOOP	TSZE5,TSZE6^
  2375	032556	367 05 0 00 032540 		SOJG	AC-1,TSZE5		;ITERATION COUNTER
  2376	032557	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2377	032560	321 05 0 00 032545 		JUMPL	AC-1,TSZE6		;LOOP ON ERROR SWITCH ^
  2378
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 42
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0073

  2379
  2380
  2381					;TEST TSZE, TSZN.  CHECK FOR SKIP/NO SKIP AND
  2382					;CORRECT DATA IN AC FOR RAN TO -1 CONDITION
  2383
  2384
  2385			000007			AC=7
  2386	032561				TSZED:	SETUP	100,0^
  2387			000010			AC1=<AC+1>&17
  2388			000011			AC2=<AC+2>&17
  2389			000012			AC3=<AC+3>&17
  2390			000013			AC4=<AC+4>&17
  2391			000014			AC5=<AC+5>&17
  2392			000005			RAN1=<AC-2>&17
  2393	032561	201 06 0 00 032561 		MOVEI	AC-1,.
  2394	032562	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2395	032563	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2396	032564	202 06 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2397	032565	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2398	032566	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2399	032567	240 06 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2400	032570				TSZEE:	RANDOM^
  2401	032570	200 07 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2402	032571	270 07 0 00 040321 		ADD	AC,[142536475076]
  2403	032572	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2404	032573	447 07 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2405	032574	322 07 0 00 032570 		JUMPE	AC,TSZEE	;REJECT IF RAN = 0.
  2406	032575	477 10 0 00 000005 	TSZEF:	SETOB	AC1,RAN1	;SET C(AC) TO A -1.
  2407	032576	204 11 0 00 000007 		MOVS	AC2,AC		;SIMULATE
  2408	032577	430 11 0 00 000010 		XOR	AC2,AC1		;A TSZ
  2409	032600	633 10 0 00 000007 		TSZE	AC1,AC		;C(E)+C(AC) NOT=0. NO SKIP
  2410	032601	312 10 0 00 000011 		CAME	AC1,AC2		;C(AC) SHOULD=SIM ANS
  2411	032602	001 07 0 00 000005 		ERR	AC,RAN1
  2412	032603	474 10 0 00 000000 		SETO	AC1,		;RESTORE AC
  2413	032604	637 10 0 00 000007 		TSZN	AC1,AC		;(E)+C(AC) NOT=0 SKIP
  2414	032605	005 10 0 00 040323 		ER	AC1,[ASCII /TST/]
  2415	032606	312 10 0 00 000011 		CAME	AC1,AC2		;C(AC) SHOULD=SIM ANS
  2416	032607	001 07 0 00 000005 		ERR	AC,RAN1
  2417						LOOP	TSZEE,TSZEF^
  2418	032610	367 06 0 00 032570 		SOJG	AC-1,TSZEE		;ITERATION COUNTER
  2419	032611	200 07 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2420	032612	321 06 0 00 032575 		JUMPL	AC-1,TSZEF		;LOOP ON ERROR SWITCH ^
  2421
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 43
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0074

  2422
  2423
  2424					;TEST TSZE, TSZN, CHECK FOR SKIP/NO SKIP AND
  2425					;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION
  2426
  2427
  2428			000010			AC=10
  2429	032613				TSZN1:	SETUP	100,0^
  2430			000011			AC1=<AC+1>&17
  2431			000012			AC2=<AC+2>&17
  2432			000013			AC3=<AC+3>&17
  2433			000014			AC4=<AC+4>&17
  2434			000015			AC5=<AC+5>&17
  2435			000006			RAN1=<AC-2>&17
  2436	032613	201 07 0 00 032613 		MOVEI	AC-1,.
  2437	032614	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2438	032615	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2439	032616	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2440	032617	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2441	032620	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2442	032621	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2443	032622				TSZN2:	RANDOM^
  2444	032622	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2445	032623	270 10 0 00 040321 		ADD	AC,[142536475076]
  2446	032624	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2447	032625	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2448	032626	460 11 0 00 000010 	TSZN3:	SETCM	AC1,AC		;MAKE C("E") = COMP C("AC").
  2449	032627	204 11 0 00 000011 		MOVS	AC1,AC1		;SWAPPED.
  2450	032630	637 10 0 00 000011 		TSZN	AC,AC1		;C(E)+C(AC)=0 NO. SKIP
  2451	032631	312 10 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD=C(AC) BEFORE TOZ
  2452	032632	001 11 0 00 040444 		ERR	AC1,RAN
  2453	032633	633 10 0 00 000011 		TSZE	AC,AC1		;C(E) +C(AC)=0. SKIP
  2454	032634	005 10 0 00 040323 		ER	AC,[ASCII /TST/]
  2455	032635	312 10 0 00 040444 		CAME	AC,RAN		;C(AC)SHOULD=C(AC)BEFORE TOZ
  2456	032636	001 11 0 00 040444 		ERR	AC1,RAN
  2457						LOOP	TSZN2,TSZN3^
  2458	032637	367 07 0 00 032622 		SOJG	AC-1,TSZN2		;ITERATION COUNTER
  2459	032640	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2460	032641	321 07 0 00 032626 		JUMPL	AC-1,TSZN3		;LOOP ON ERROR SWITCH ^
  2461
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 44
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0075

  2462
  2463
  2464					;TEST TSZE, TSZN.  CHECK FOR SKIP/NO SKIP AND
  2465					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
  2466
  2467
  2468			000011			AC=11
  2469	032642				TSZNA:	SETUP	100,0^
  2470			000012			AC1=<AC+1>&17
  2471			000013			AC2=<AC+2>&17
  2472			000014			AC3=<AC+3>&17
  2473			000015			AC4=<AC+4>&17
  2474			000016			AC5=<AC+5>&17
  2475			000007			RAN1=<AC-2>&17
  2476	032642	201 10 0 00 032642 		MOVEI	AC-1,.
  2477	032643	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2478	032644	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2479	032645	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2480	032646	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2481	032647	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2482	032650	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2483	032651				TSZNB:	RANDOM^
  2484	032651	200 11 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2485	032652	270 11 0 00 040321 		ADD	AC,[142536475076]
  2486	032653	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2487	032654	447 11 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2488	032655	322 11 0 00 032651 		JUMPE	AC,TSZNB	;REJECT IF RAN = 0.
  2489	032656	204 12 0 00 000011 	TSZNC:	MOVS	AC1,AC		;MAKE C("E") = C("AC") SWAPPED.
  2490	032657	633 11 0 00 000012 		TSZE	AC,AC1		;C(E)+C(AC) NOT=0 NO SKIP.
  2491	032660	312 11 0 00 040322 		CAME	AC,[0]		;C(AC) SHOULD BE ZEROED OUT.
  2492	032661	001 12 0 00 040444 		ERR	AC1,RAN
  2493	032662	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE AC
  2494	032663	637 11 0 00 000012 		TSZN	AC,AC1		;C(E)+C(AC)NOT=0. SKIP.
  2495	032664	005 11 0 00 040323 		ER	AC,[ASCII /TST/]
  2496	032665	312 11 0 00 040322 		CAME	AC,[0]		;C(AC) SHOULD BE ZEROED OUT.
  2497	032666	001 12 0 00 040444 		ERR	AC1,RAN
  2498						LOOP	TSZNB,TSZNC^
  2499	032667	367 10 0 00 032651 		SOJG	AC-1,TSZNB		;ITERATION COUNTER
  2500	032670	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2501	032671	321 10 0 00 032656 		JUMPL	AC-1,TSZNC		;LOOP ON ERROR SWITCH ^
  2502
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 45
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0076

  2503
  2504
  2505					;TEST TSN, TSNA.  CHECK FOR SKIP/NO SKIP AND
  2506					;CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
  2507
  2508
  2509			000012			AC=12
  2510	032672				TSN1:	SETUP	100,0^
  2511			000013			AC1=<AC+1>&17
  2512			000014			AC2=<AC+2>&17
  2513			000015			AC3=<AC+3>&17
  2514			000016			AC4=<AC+4>&17
  2515			000017			AC5=<AC+5>&17
  2516			000010			RAN1=<AC-2>&17
  2517	032672	201 11 0 00 032672 		MOVEI	AC-1,.
  2518	032673	202 11 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2519	032674	201 11 0 00 000011 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2520	032675	202 11 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2521	032676	201 11 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2522	032677	240 11 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2523	032700	240 11 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2524	032701				TSN2:	RANDOM^
  2525	032701	200 12 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2526	032702	270 12 0 00 040321 		ADD	AC,[142536475076]
  2527	032703	241 12 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2528	032704	447 12 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2529	032705	400 13 0 00 000000 	TSN3:	SETZ	AC1,		;CLEAR C("E")
  2530	032706	611 12 0 00 000013 		TSN	AC,AC1		;SHOULD NOT SKIP
  2531	032707	254 00 0 00 032711 		JRST	.+2
  2532	032710	005 12 0 00 040323 		ER	AC,[ASCII /TST/];TSN SKIPPED.
  2533	032711	615 12 0 00 000013 		TSNA	AC,AC1		;SHOULD SKIP
  2534	032712	005 12 0 00 040323 		ER	AC,[ASCII /TST/]
  2535	032713	312 12 0 00 040444 		CAME	AC,RAN		;C(AC)SHOULD NOT CHANGE
  2536	032714	001 13 0 00 040444 		ERR	AC1,RAN
  2537						LOOP	TSN2,TSN3^
  2538	032715	367 11 0 00 032701 		SOJG	AC-1,TSN2		;ITERATION COUNTER
  2539	032716	200 12 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2540	032717	321 11 0 00 032705 		JUMPL	AC-1,TSN3		;LOOP ON ERROR SWITCH ^
  2541
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 46
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0077

  2542
  2543
  2544					;TEST TSN, TSNA CHECK FOR SKIP/NO SKIP AND
  2545					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
  2546
  2547
  2548			000013			AC=13
  2549	032720				TSN4:	SETUP	100,0^
  2550			000014			AC1=<AC+1>&17
  2551			000015			AC2=<AC+2>&17
  2552			000016			AC3=<AC+3>&17
  2553			000017			AC4=<AC+4>&17
  2554			000000			AC5=<AC+5>&17
  2555			000011			RAN1=<AC-2>&17
  2556	032720	201 12 0 00 032720 		MOVEI	AC-1,.
  2557	032721	202 12 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2558	032722	201 12 0 00 000012 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2559	032723	202 12 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2560	032724	201 12 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2561	032725	240 12 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2562	032726	240 12 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2563	032727				TSN5:	RANDOM^
  2564	032727	200 13 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2565	032730	270 13 0 00 040321 		ADD	AC,[142536475076]
  2566	032731	241 13 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2567	032732	447 13 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2568	032733	403 14 0 00 000011 	TSN6:	SETZB	AC1,RAN1	;CLEAR C("AC").
  2569	032734	611 14 0 00 000013 		TSN	AC1,AC		;SHOULD NOT SKIP
  2570	032735	254 00 0 00 032737 		JRST	.+2
  2571	032736	005 14 0 00 040323 		ER	AC1,[ASCII /TST/];TSN SKIPPED.
  2572	032737	615 14 0 00 000013 		TSNA	AC1,AC		;SHOULD SKIP
  2573	032740	005 13 0 00 040323 		ER	AC,[ASCII /TST/]
  2574	032741	312 14 0 00 000011 		CAME	AC1,RAN1	;C(AC) SHOULD = ORIG. C(AC).
  2575	032742	001 13 0 00 000011 		ERR	AC,RAN1
  2576						LOOP	TSN5,TSN6^
  2577	032743	367 12 0 00 032727 		SOJG	AC-1,TSN5		;ITERATION COUNTER
  2578	032744	200 13 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2579	032745	321 12 0 00 032733 		JUMPL	AC-1,TSN6		;LOOP ON ERROR SWITCH ^
  2580
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 47
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0078

  2581
  2582
  2583					;TEST TSN, TSNA.  CHECK FOR SKIP/NO SKIP AND
  2584					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
  2585
  2586
  2587			000014			AC=14
  2588	032746				TSN7:	SETUP	100,0^
  2589			000015			AC1=<AC+1>&17
  2590			000016			AC2=<AC+2>&17
  2591			000017			AC3=<AC+3>&17
  2592			000000			AC4=<AC+4>&17
  2593			000001			AC5=<AC+5>&17
  2594			000012			RAN1=<AC-2>&17
  2595	032746	201 13 0 00 032746 		MOVEI	AC-1,.
  2596	032747	202 13 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2597	032750	201 13 0 00 000013 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2598	032751	202 13 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2599	032752	201 13 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2600	032753	240 13 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2601	032754	240 13 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2602	032755				TSN8:	RANDOM^
  2603	032755	200 14 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2604	032756	270 14 0 00 040321 		ADD	AC,[142536475076]
  2605	032757	241 14 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2606	032760	447 14 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2607	032761	204 15 0 00 000014 	TSN9:	MOVS	AC1,AC		;MAKE C("E")=C("AC") SWAPPED
  2608	032762	611 14 0 00 000015 		TSN	AC,AC1		;SHOULD NOT SKIP
  2609	032763	254 00 0 00 032765 		JRST	.+2
  2610	032764	005 14 0 00 040323 		ER	AC,[ASCII /TST/];TSN SKIPPED.
  2611	032765	615 14 0 00 000015 		TSNA	AC,AC1		;SHOULD SKIP
  2612	032766	005 14 0 00 040323 		ER	AC,[ASCII /TST/]
  2613	032767	312 14 0 00 040444 		CAME	AC,RAN		;C(AC)SHOULD NOT CHANGE
  2614	032770	001 15 0 00 040444 		ERR	AC1,RAN
  2615						LOOP	TSN8,TSN9^
  2616	032771	367 13 0 00 032755 		SOJG	AC-1,TSN8		;ITERATION COUNTER
  2617	032772	200 14 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2618	032773	321 13 0 00 032761 		JUMPL	AC-1,TSN9		;LOOP ON ERROR SWITCH ^
  2619
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 48
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0079

  2620
  2621
  2622					;TEST TSN, TSNA.  CHECK FOR SKIP/NO SKIP AND
  2623					;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
  2624					;RAN1=RAN BEFORE TSN
  2625
  2626
  2627			000015			AC=15
  2628	032774				TSNA1:	SETUP	100,0^
  2629			000016			AC1=<AC+1>&17
  2630			000017			AC2=<AC+2>&17
  2631			000000			AC3=<AC+3>&17
  2632			000001			AC4=<AC+4>&17
  2633			000002			AC5=<AC+5>&17
  2634			000013			RAN1=<AC-2>&17
  2635	032774	201 14 0 00 032774 		MOVEI	AC-1,.
  2636	032775	202 14 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2637	032776	201 14 0 00 000014 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2638	032777	202 14 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2639	033000	201 14 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2640	033001	240 14 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2641	033002	240 14 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2642	033003				TSNA2:	RANDOM^
  2643	033003	200 15 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2644	033004	270 15 0 00 040321 		ADD	AC,[142536475076]
  2645	033005	241 15 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2646	033006	447 15 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2647	033007	200 16 0 00 000015 	TSNA3:	MOVE	AC1,AC		;MAKE C("E")=C("AC")
  2648	033010	611 15 0 00 000016 		TSN	AC,AC1		;SHOULD NOT SKIP
  2649	033011	254 00 0 00 033013 		JRST	.+2
  2650	033012	005 15 0 00 040323 		ER	AC,[ASCII /TST/];TSN SKIPPED.
  2651	033013	615 15 0 00 000016 		TSNA	AC,AC1		;SHOULD SKIP
  2652	033014	005 15 0 00 040323 		ER	AC,[ASCII /TST/]
  2653	033015	312 15 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD NOT CHANGE
  2654	033016	001 16 0 00 040444 		ERR	AC1,RAN
  2655						LOOP	TSNA2,TSNA3^
  2656	033017	367 14 0 00 033003 		SOJG	AC-1,TSNA2		;ITERATION COUNTER
  2657	033020	200 15 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2658	033021	321 14 0 00 033007 		JUMPL	AC-1,TSNA3		;LOOP ON ERROR SWITCH ^
  2659
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 49
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0080

  2660
  2661
  2662					;TEST TSNE, TSNN.  CHECK FOR SKIP/NO SKIP AND
  2663					;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
  2664
  2665
  2666			000006			AC=6
  2667	033022				TSNE1:	SETUP	100,0^
  2668			000007			AC1=<AC+1>&17
  2669			000010			AC2=<AC+2>&17
  2670			000011			AC3=<AC+3>&17
  2671			000012			AC4=<AC+4>&17
  2672			000013			AC5=<AC+5>&17
  2673			000004			RAN1=<AC-2>&17
  2674	033022	201 05 0 00 033022 		MOVEI	AC-1,.
  2675	033023	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2676	033024	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2677	033025	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2678	033026	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2679	033027	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2680	033030	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2681	033031				TSNE2:	RANDOM^
  2682	033031	200 06 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2683	033032	270 06 0 00 040321 		ADD	AC,[142536475076]
  2684	033033	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2685	033034	447 06 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2686	033035	400 07 0 00 000000 	TSNE3:	SETZ	AC1,		;CLEAR C("E").
  2687	033036	617 06 0 00 000007 		TSNN	AC,AC1		;C(E)+C(AC)=0.  NO SKIP.
  2688	033037	254 00 0 00 033041 		JRST	.+2
  2689	033040	005 06 0 00 040323 		ER	AC,[ASCII /TST/];TSNN SKIPPED.
  2690	033041	613 06 0 00 000007 		TSNE	AC,AC1		;C(E)+C(AC)=0. SKIP
  2691	033042	005 06 0 00 040323 		ER	AC,[ASCII /TST/]
  2692	033043	312 06 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD NOT CHANGE
  2693	033044	001 07 0 00 040444 		ERR	AC1,RAN
  2694						LOOP	TSNE2,TSNE3^
  2695	033045	367 05 0 00 033031 		SOJG	AC-1,TSNE2		;ITERATION COUNTER
  2696	033046	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2697	033047	321 05 0 00 033035 		JUMPL	AC-1,TSNE3		;LOOP ON ERROR SWITCH ^
  2698
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 50
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0081

  2699
  2700
  2701					;TEST TSNE, TSNN.  CHECK FOR SKIP/NO SKIP AND
  2702					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
  2703
  2704
  2705			000007			AC=7
  2706	033050				TSNEA:	SETUP	100,0^
  2707			000010			AC1=<AC+1>&17
  2708			000011			AC2=<AC+2>&17
  2709			000012			AC3=<AC+3>&17
  2710			000013			AC4=<AC+4>&17
  2711			000014			AC5=<AC+5>&17
  2712			000005			RAN1=<AC-2>&17
  2713	033050	201 06 0 00 033050 		MOVEI	AC-1,.
  2714	033051	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2715	033052	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2716	033053	202 06 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2717	033054	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2718	033055	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2719	033056	240 06 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2720	033057				TSNEB:	RANDOM^
  2721	033057	200 07 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2722	033060	270 07 0 00 040321 		ADD	AC,[142536475076]
  2723	033061	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2724	033062	447 07 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2725	033063	403 10 0 00 000005 	TSNEC:	SETZB	AC1,RAN1	;CLEAR C("AC").
  2726	033064	617 10 0 00 000007 		TSNN	AC1,AC		;C(E)+C(AC)=0.  NO SKIP.
  2727	033065	254 00 0 00 033067 		JRST	.+2
  2728	033066	005 10 0 00 040323 		ER	AC1,[ASCII /TST/];TSNN SKIPPED.
  2729	033067	613 10 0 00 000007 		TSNE	AC1,AC		;C(E)+C(AC)=0.  SKIP
  2730	033070	005 10 0 00 040323 		ER	AC1,[ASCII /TST/]
  2731	033071	312 10 0 00 000005 		CAME	AC1,RAN1	;C(AC) SHOULD = ORIG. C(AC).
  2732	033072	001 07 0 00 000005 		ERR	AC,RAN1
  2733						LOOP	TSNEB,TSNEC^
  2734	033073	367 06 0 00 033057 		SOJG	AC-1,TSNEB		;ITERATION COUNTER
  2735	033074	200 07 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2736	033075	321 06 0 00 033063 		JUMPL	AC-1,TSNEC		;LOOP ON ERROR SWITCH ^
  2737
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 51
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0082

  2738
  2739
  2740					;TEST TSNE, TSNN.  CHECK FOR SKIP/NO SKIP AND
  2741					;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
  2742
  2743
  2744			000010			AC=10
  2745	033076				TSNE4:	SETUP	100,0^
  2746			000011			AC1=<AC+1>&17
  2747			000012			AC2=<AC+2>&17
  2748			000013			AC3=<AC+3>&17
  2749			000014			AC4=<AC+4>&17
  2750			000015			AC5=<AC+5>&17
  2751			000006			RAN1=<AC-2>&17
  2752	033076	201 07 0 00 033076 		MOVEI	AC-1,.
  2753	033077	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2754	033100	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2755	033101	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2756	033102	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2757	033103	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2758	033104	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2759	033105				TSNE5:	RANDOM^
  2760	033105	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2761	033106	270 10 0 00 040321 		ADD	AC,[142536475076]
  2762	033107	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2763	033110	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2764	033111	322 10 0 00 033105 	TSNE6:	JUMPE	AC,TSNE5	;REJECT IF RAN = 0.
  2765	033112	474 11 0 00 000000 		SETO	AC1,		;SET C("E") TO A-1.
  2766	033113	613 10 0 00 000011 		TSNE	AC,AC1		;C(E)+C(AC) NOT=0. NO SKIP.
  2767	033114	254 00 0 00 033116 		JRST	.+2
  2768	033115	005 10 0 00 040323 		ER	AC,[ASCII /TST/];TSNE SKIPPED.
  2769	033116	617 10 0 00 000011 		TSNN	AC,AC1		;C(E)+C(AC) NOT=0. SKIP.
  2770	033117	005 10 0 00 040323 		ER	AC,[ASCII /TST/]
  2771	033120	312 10 0 00 040444 		CAME	AC,RAN		;C(AC)SHOULD NOT CHANGE.
  2772	033121	001 11 0 00 040444 		ERR	AC1,RAN
  2773						LOOP	TSNE5,TSNE6^
  2774	033122	367 07 0 00 033105 		SOJG	AC-1,TSNE5		;ITERATION COUNTER
  2775	033123	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2776	033124	321 07 0 00 033111 		JUMPL	AC-1,TSNE6		;LOOP ON ERROR SWITCH ^
  2777
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 52
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0083

  2778
  2779
  2780					;TEST TSNE, TSNN.  CHECK FOR SKIP/NO SKIP AND
  2781					;CORRECT DATA IN AC FOR RAN TO -1 CONDITION
  2782
  2783
  2784			000011			AC=11
  2785	033125				TSNED:	SETUP	100,0^
  2786			000012			AC1=<AC+1>&17
  2787			000013			AC2=<AC+2>&17
  2788			000014			AC3=<AC+3>&17
  2789			000015			AC4=<AC+4>&17
  2790			000016			AC5=<AC+5>&17
  2791			000007			RAN1=<AC-2>&17
  2792	033125	201 10 0 00 033125 		MOVEI	AC-1,.
  2793	033126	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2794	033127	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2795	033130	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2796	033131	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2797	033132	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2798	033133	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2799	033134				TSNEE:	RANDOM^
  2800	033134	200 11 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2801	033135	270 11 0 00 040321 		ADD	AC,[142536475076]
  2802	033136	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2803	033137	447 11 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2804	033140	322 11 0 00 033134 		JUMPE	AC,TSNEE	;REJECT IF RAN = 0.
  2805	033141	477 12 0 00 000007 	TSNEF:	SETOB	AC1,RAN1	;SET C("AC") TO A -1.
  2806	033142	613 12 0 00 000011 		TSNE	AC1,AC		;C(E)+C(AC) NOT=0. NO SKIP.
  2807	033143	254 00 0 00 033145 		JRST	.+2
  2808	033144	005 12 0 00 040323 		ER	AC1,[ASCII /TST/];TSNE SKIPPED.
  2809	033145	617 12 0 00 000011 		TSNN	AC1,AC		;C(E)+C(AC) NOT=0. SKIP.
  2810	033146	005 12 0 00 040323 		ER	AC1,[ASCII /TST/]
  2811	033147	312 12 0 00 000007 		CAME	AC1,RAN1	;C(AC) SHOULD = ORIG. C(AC).
  2812	033150	001 11 0 00 000007 		ERR	AC,RAN1
  2813						LOOP	TSNEE,TSNEF^
  2814	033151	367 10 0 00 033134 		SOJG	AC-1,TSNEE		;ITERATION COUNTER
  2815	033152	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2816	033153	321 10 0 00 033141 		JUMPL	AC-1,TSNEF		;LOOP ON ERROR SWITCH ^
  2817
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 53
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0084

  2818
  2819
  2820					;TEST TSNE, TSNN  CHECK FOR SKIP/NO SKIP AND
  2821					;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION
  2822
  2823
  2824			000002			AC=2
  2825	033154				TSNN1:	SETUP	100,0^
  2826			000003			AC1=<AC+1>&17
  2827			000004			AC2=<AC+2>&17
  2828			000005			AC3=<AC+3>&17
  2829			000006			AC4=<AC+4>&17
  2830			000007			AC5=<AC+5>&17
  2831			000000			RAN1=<AC-2>&17
  2832	033154	201 01 0 00 033154 		MOVEI	AC-1,.
  2833	033155	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2834	033156	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2835	033157	202 01 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2836	033160	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2837	033161	240 01 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2838	033162	240 01 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2839	033163				TSNN2:	RANDOM^
  2840	033163	200 02 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2841	033164	270 02 0 00 040321 		ADD	AC,[142536475076]
  2842	033165	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2843	033166	447 02 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2844	033167	322 02 0 00 033163 		JUMPE	AC,TSNN2	;REJECT IF RAN = 0.
  2845	033170	204 03 0 00 000002 	TSNN3:	MOVS	AC1,AC		;MAKE C(E) =
  2846	033171	450 03 0 00 000000 		SETCA	AC1,		;COMP C(AC).
  2847	033172	617 02 0 00 000003 		TSNN	AC,AC1		;C(E) + C(AC) = 0...NO SKIP.
  2848	033173	254 00 0 00 033175 		JRST	.+2
  2849	033174	005 02 0 00 040323 		ER	AC,[ASCII /TST/];TSNN SKIPPED.
  2850	033175	613 02 0 00 000003 		TSNE	AC,AC1		;C(E) + C(AC) = 0...SKIP.
  2851	033176	005 02 0 00 040323 		ER	AC,[ASCII /TST/]
  2852	033177	312 02 0 00 040444 		CAME	AC,RAN		;C(AC)SHOULD NOT CHANGE
  2853	033200	001 03 0 00 040444 		ERR	AC1,RAN
  2854						LOOP	TSNN2,TSNN3^
  2855	033201	367 01 0 00 033163 		SOJG	AC-1,TSNN2		;ITERATION COUNTER
  2856	033202	200 02 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2857	033203	321 01 0 00 033170 		JUMPL	AC-1,TSNN3		;LOOP ON ERROR SWITCH ^
  2858
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 54
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0085

  2859
  2860
  2861					;TEST TSNE, TSNN.  CHECK FOR SKIP/NO SKIP AND
  2862					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
  2863
  2864
  2865			000003			AC=3
  2866	033204				TSNNA:	SETUP	100,0^
  2867			000004			AC1=<AC+1>&17
  2868			000005			AC2=<AC+2>&17
  2869			000006			AC3=<AC+3>&17
  2870			000007			AC4=<AC+4>&17
  2871			000010			AC5=<AC+5>&17
  2872			000001			RAN1=<AC-2>&17
  2873	033204	201 02 0 00 033204 		MOVEI	AC-1,.
  2874	033205	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2875	033206	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2876	033207	202 02 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2877	033210	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2878	033211	240 02 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2879	033212	240 02 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2880	033213				TSNNB:	RANDOM^
  2881	033213	200 03 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2882	033214	270 03 0 00 040321 		ADD	AC,[142536475076]
  2883	033215	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2884	033216	447 03 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2885	033217	204 05 0 00 000003 		MOVS	AC2,AC		;MAKE SURE
  2886	033220	404 05 0 00 000003 		AND	AC2,AC		;AND CONDITION
  2887	033221	322 05 0 00 033213 		JUMPE	AC2,TSNNB	;DOESN'T = 0.
  2888	033222	200 04 0 00 000003 	TSNNC:	MOVE	AC1,AC		;MAKE C("E") = C("AC").
  2889	033223	613 03 0 00 000004 		TSNE	AC,AC1		;C(E)+C(AC)NOT=0. NO SKIP
  2890	033224	254 00 0 00 033226 		JRST	.+2
  2891	033225	005 03 0 00 040323 		ER	AC,[ASCII /TST/];TSNE SKIPPED.
  2892	033226	617 03 0 00 000004 		TSNN	AC,AC1		;C(E)+C(AC)NOT=0. SKIP.
  2893	033227	005 03 0 00 040323 		ER	AC,[ASCII /TST/]
  2894	033230	312 03 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD NOT CHANGE
  2895	033231	001 04 0 00 040444 		ERR	AC1,RAN
  2896						LOOP	TSNNB,TSNNC^
  2897	033232	367 02 0 00 033213 		SOJG	AC-1,TSNNB		;ITERATION COUNTER
  2898	033233	200 03 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2899	033234	321 02 0 00 033222 		JUMPL	AC-1,TSNNC		;LOOP ON ERROR SWITCH ^
  2900
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 55
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0086

  2901
  2902
  2903					;TEST SKIP, SKIPA.  CHECK FOR SKIP/NO SKIP AND
  2904					;CORRECT DATA IN C(E) AND C(AC)=C(E) AFTER SKIP
  2905					;ALSO CHECK FOR OVERFLOW FLAG NOT BEING SET.
  2906
  2907
  2908			000004			AC=4
  2909	033235				SKIP1:	SETUP	100,0^
  2910			000005			AC1=<AC+1>&17
  2911			000006			AC2=<AC+2>&17
  2912			000007			AC3=<AC+3>&17
  2913			000010			AC4=<AC+4>&17
  2914			000011			AC5=<AC+5>&17
  2915			000002			RAN1=<AC-2>&17
  2916	033235	201 03 0 00 033235 		MOVEI	AC-1,.
  2917	033236	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2918	033237	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2919	033240	202 03 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2920	033241	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2921	033242	240 03 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2922	033243	240 03 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2923	033244				SKIP2:	RANDOM^
  2924	033244	200 04 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2925	033245	270 04 0 00 040321 		ADD	AC,[142536475076]
  2926	033246	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2927	033247	447 04 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2928	033250	255 10 0 00 033251 	SKIP3:	JFCL	10,.+1		;CLEAR OV FLAG
  2929	033251	200 02 0 00 000005 		MOVE	RAN1,AC1	;SAVE C(AC) IN CASE OF ERROR.
  2930	033252	330 05 0 00 000004 		SKIP	AC1,AC		;SHOULD NOT SKIP
  2931	033253	334 05 0 00 000004 		SKIPA	AC1,AC		;SHOULD SKIP
  2932	033254	005 04 0 00 040325 		ER	AC,[ASCII /SKP/]
  2933	033255	255 10 0 00 033257 		JFCL	10,.+2		;OV FLAG GET SET?
  2934	033256	254 00 0 00 033260 		JRST	.+2		;NO
  2935	033257	005 04 0 00 040326 		ER	AC,[ASCII /AROV/];YES..SHOULD NOT GET SET ON SKIP INST.
  2936	033260	312 04 0 00 040444 		CAME	AC,RAN		;C(E) SHOULD NOT HAVE CHANGED
  2937	033261	001 04 0 00 000002 		ERR	AC,RAN1
  2938	033262	312 05 0 00 040444 		CAME	AC1,RAN		;C(AC) SHOULD =C(E).
  2939	033263	001 04 0 00 000002 		ERR	AC,RAN1
  2940						LOOP	SKIP2,SKIP3^
  2941	033264	367 03 0 00 033244 		SOJG	AC-1,SKIP2		;ITERATION COUNTER
  2942	033265	200 04 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2943	033266	321 03 0 00 033250 		JUMPL	AC-1,SKIP3		;LOOP ON ERROR SWITCH ^
  2944
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 56
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0087

  2945
  2946
  2947					;TEST SKIPE, SKIPN. CHECK FOR SKIP/ NO SKIP,
  2948					;CORRECT DATA IN C(E) AND C(AC)=C(E) AFTER SKIP.
  2949
  2950
  2951			000005			AC=5
  2952	033267				SKIPE1:	SETUP	100,0^
  2953			000006			AC1=<AC+1>&17
  2954			000007			AC2=<AC+2>&17
  2955			000010			AC3=<AC+3>&17
  2956			000011			AC4=<AC+4>&17
  2957			000012			AC5=<AC+5>&17
  2958			000003			RAN1=<AC-2>&17
  2959	033267	201 04 0 00 033267 		MOVEI	AC-1,.
  2960	033270	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  2961	033271	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  2962	033272	202 04 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  2963	033273	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  2964	033274	240 04 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  2965	033275	240 04 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  2966	033276	201 06 0 00 000001 		MOVEI	AC1,1		;SETUP C(E) FOR A  FLOATING ONE
  2967	033277				SKIPE2:	RANDOM^
  2968	033277	200 05 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  2969	033300	270 05 0 00 040321 		ADD	AC,[142536475076]
  2970	033301	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  2971	033302	447 05 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  2972	033303	241 06 0 00 000001 		ROT	AC1,1		;ROT TO TEST NEXT BIT.
  2973	033304	200 07 0 00 000006 		MOVE	AC2,AC1		;SAVE FLOATING ONE BIT
  2974	033305	200 06 0 00 000007 	SKIPE3:	MOVE	AC1,AC2		;RESTORE C(5) IN CASE OF ERROR
  2975	033306	332 05 0 00 000006 		SKIPE	AC,AC1		;SHOULD NOT SKIP
  2976	033307	336 05 0 00 000006 		SKIPN	AC,AC1		;SHOULD SKIP
  2977	033310	005 06 0 00 040325 		ER	AC1,[ASCII /SKP/]
  2978	033311	312 06 0 00 000007 		CAME	AC1,AC2		;C(E) SHOULD NOT CHANGE
  2979	033312	001 07 0 00 040444 		ERR	AC2,RAN
  2980	033313	312 05 0 00 000007 		CAME	AC,AC2		;C(AC) SHOULD= C(E)
  2981	033314	001 07 0 00 040444 		ERR	AC2,RAN
  2982						LOOP	SKIPE2,SKIPE3^
  2983	033315	367 04 0 00 033277 		SOJG	AC-1,SKIPE2		;ITERATION COUNTER
  2984	033316	200 05 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  2985	033317	321 04 0 00 033305 		JUMPL	AC-1,SKIPE3		;LOOP ON ERROR SWITCH ^
  2986
  2987
  2988
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 57
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0088

  2989
  2990
  2991					;TEST SKIPN, SKIPE. CHECK FOR SKIP/ NO SKIP,
  2992					;CORRECT DATA IN C(E) AND C(AC) = C(E) AFTER SKIP.
  2993					;C(AC) = RAN. NUM. AND C(E) = 0.
  2994
  2995
  2996			000003			AC=3
  2997	033320				SKIPN1:	SETUP	100,0^
  2998			000004			AC1=<AC+1>&17
  2999			000005			AC2=<AC+2>&17
  3000			000006			AC3=<AC+3>&17
  3001			000007			AC4=<AC+4>&17
  3002			000010			AC5=<AC+5>&17
  3003			000001			RAN1=<AC-2>&17
  3004	033320	201 02 0 00 033320 		MOVEI	AC-1,.
  3005	033321	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3006	033322	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3007	033323	202 02 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3008	033324	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3009	033325	240 02 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3010	033326	240 02 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3011	033327				SKIPN2:	RANDOM^
  3012	033327	200 03 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3013	033330	270 03 0 00 040321 		ADD	AC,[142536475076]
  3014	033331	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3015	033332	447 03 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  3016	033333	403 04 0 00 000001 	SKIPN3:	SETZB	AC1,RAN1	;CLEAR C(E).
  3017	033334	336 03 0 00 000004 		SKIPN	AC,AC1		;C(E) = 0...NO SKIP.
  3018	033335	332 03 0 00 000004 		SKIPE	AC,AC1		;C(E) = 0...SKIP.
  3019	033336	005 04 0 00 040325 		ER	AC1,[ASCII /SKP/]
  3020	033337	312 03 0 00 000004 		CAME	AC,AC1		;C(AC) SHOULD = C(E).
  3021	033340	001 01 0 00 040444 		ERR	RAN1,RAN
  3022	033341	312 04 0 00 000001 		CAME	AC1,RAN1	;C(E) SHOULD STILL = 0.
  3023	033342	001 01 0 00 040444 		ERR	RAN1,RAN
  3024						LOOP	SKIPN2,SKIPN3^
  3025	033343	367 02 0 00 033327 		SOJG	AC-1,SKIPN2		;ITERATION COUNTER
  3026	033344	200 03 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3027	033345	321 02 0 00 033333 		JUMPL	AC-1,SKIPN3		;LOOP ON ERROR SWITCH ^
  3028
  3029
  3030
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 58
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0089

  3031
  3032
  3033					;TEST SKIPG, SKIPL.  CHECK FOR SKIP/NO SKIP,
  3034					;CORRECT DATA IN C(E), AND C(AC)=C(E)AFTER SKIP,
  3035					;BY ROTATING A BIT IN E.
  3036
  3037
  3038			000006			AC=6
  3039	033346				SKIPG1:	SETUP	100,0^
  3040			000007			AC1=<AC+1>&17
  3041			000010			AC2=<AC+2>&17
  3042			000011			AC3=<AC+3>&17
  3043			000012			AC4=<AC+4>&17
  3044			000013			AC5=<AC+5>&17
  3045			000004			RAN1=<AC-2>&17
  3046	033346	201 05 0 00 033346 		MOVEI	AC-1,.
  3047	033347	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3048	033350	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3049	033351	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3050	033352	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3051	033353	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3052	033354	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3053	033355	201 07 0 00 000001 		MOVEI	AC1,1		;SETUP AC1 FOR FLOATING ONE.
  3054	033356				SKIPG2:	RANDOM^
  3055	033356	200 06 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3056	033357	270 06 0 00 040321 		ADD	AC,[142536475076]
  3057	033360	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3058	033361	447 06 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  3059	033362	241 07 0 00 000001 		ROT	AC1,1		;ROT AC1 TO TEST NEXT BIT.
  3060	033363	316 07 0 00 040327 		CAMN	AC1,[XWD 400000,0];IS SIGN BIT SET?
  3061	033364	241 07 0 00 000001 		ROT	AC1,1		;YES.  ROT AGAIN
  3062	033365	200 10 0 00 000007 		MOVE	AC2,AC1		;SAVE FLOATING ONE IN AC2.
  3063	033366	200 07 0 00 000010 	SKIPG3:	MOVE	AC1,AC2		;RESTORE AC1 IN CASE OF ERROR
  3064	033367	331 06 0 00 000007 		SKIPL	AC,AC1		;SHOULD NOT SKIP.
  3065	033370	337 06 0 00 000007 		SKIPG	AC,AC1		;SKIPG SHOULD SKIP
  3066	033371	005 06 0 00 040325 		ER	AC,[ASCII /SKP/]
  3067	033372	312 07 0 00 000010 		CAME	AC1,AC2		;NOT CHANGE C(E),
  3068	033373	001 10 0 00 040444 		ERR	AC2,RAN
  3069	033374	312 06 0 00 000010 		CAME	AC,AC2		;AND PUT C(E) INTO AC.
  3070	033375	001 10 0 00 040444 		ERR	AC2,RAN
  3071						LOOP	SKIPG2,SKIPG3^
  3072	033376	367 05 0 00 033356 		SOJG	AC-1,SKIPG2		;ITERATION COUNTER
  3073	033377	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3074	033400	321 05 0 00 033366 		JUMPL	AC-1,SKIPG3		;LOOP ON ERROR SWITCH ^
  3075
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 59
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0090

  3076
  3077
  3078					;TEST SKIPG, SKIPL.  CHECK FOR SKIP/NO SKIP,
  3079					;CORRECT DATA IN C(E), AND C(AC)=C(E) AFTER SKIP,
  3080					;BY USEING A NEGATIVE RANDOM NUMBER IN E.
  3081
  3082
  3083			000007			AC=7
  3084	033401				SKIPL1:	SETUP	100,0^
  3085			000010			AC1=<AC+1>&17
  3086			000011			AC2=<AC+2>&17
  3087			000012			AC3=<AC+3>&17
  3088			000013			AC4=<AC+4>&17
  3089			000014			AC5=<AC+5>&17
  3090			000005			RAN1=<AC-2>&17
  3091	033401	201 06 0 00 033401 		MOVEI	AC-1,.
  3092	033402	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3093	033403	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3094	033404	202 06 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3095	033405	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3096	033406	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3097	033407	240 06 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3098	033410				SKIPL2:	RANDOM^
  3099	033410	200 07 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3100	033411	270 07 0 00 040321 		ADD	AC,[142536475076]
  3101	033412	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3102	033413	447 07 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  3103	033414	311 07 0 00 040322 	SKIPL3:	CAML	AC,[0]		;RAN A POSITIVE NUMB
  3104	033415	450 07 0 00 000000 		SETCA	AC,		;YES, COMP TO MAKE IT NEG
  3105	033416	200 11 0 00 000007 		MOVE	AC2,AC		;SAVE AC FOR FUTURE COMPARE
  3106	033417	202 10 0 00 000005 		MOVEM	AC1,RAN1	;SAVE AC1 IN CASE OF ERROR.
  3107	033420	337 10 0 00 000007 		SKIPG	AC1,AC		;SHOULD NOT SKIP
  3108	033421	331 10 0 00 000007 		SKIPL	AC1,AC		;C(E)IS NEG. SHOULD SKIP
  3109	033422	005 07 0 00 040325 		ER	AC,[ASCII /SKP/]
  3110	033423	312 07 0 00 000011 		CAME	AC,AC2		;C(E) SHOULD NOT HAVE CHANGED
  3111	033424	001 11 0 00 000005 		ERR	AC2,RAN1
  3112	033425	312 10 0 00 000011 		CAME	AC1,AC2		;C(AC) SHOULD BE =TO C(E)
  3113	033426	001 11 0 00 000005 		ERR	AC2,RAN1
  3114						LOOP	SKIPL2,SKIPL3^
  3115	033427	367 06 0 00 033410 		SOJG	AC-1,SKIPL2		;ITERATION COUNTER
  3116	033430	200 07 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3117	033431	321 06 0 00 033414 		JUMPL	AC-1,SKIPL3		;LOOP ON ERROR SWITCH ^
  3118
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 60
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0091

  3119
  3120
  3121					;TEST SKIPGE, SKIPL. CHECK FOR SKIP/NO SKIP,
  3122					;C(E) NOT CHANGING, AND C(AC)=C(E) AFTER SKIP,
  3123					;BY MAKEING C(E) POSITIVE AND THEN 0
  3124
  3125
  3126			000010			AC=10
  3127	033432				SKPGE1:	SETUP	100,0^
  3128			000011			AC1=<AC+1>&17
  3129			000012			AC2=<AC+2>&17
  3130			000013			AC3=<AC+3>&17
  3131			000014			AC4=<AC+4>&17
  3132			000015			AC5=<AC+5>&17
  3133			000006			RAN1=<AC-2>&17
  3134	033432	201 07 0 00 033432 		MOVEI	AC-1,.
  3135	033433	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3136	033434	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3137	033435	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3138	033436	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3139	033437	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3140	033440	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3141	033441				SKPGE2:	RANDOM^
  3142	033441	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3143	033442	270 10 0 00 040321 		ADD	AC,[142536475076]
  3144	033443	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3145	033444	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  3146	033445	315 10 0 00 040322 	SKPGE3:	CAMGE	AC,[0]		;RAN POSITIVE?
  3147	033446	450 10 0 00 000000 		SETCA	AC,		;NO.  COMP AND MAKE IT POSITIVE
  3148	033447	200 12 0 00 000010 		MOVE	AC2,AC		;SAVE FOR FUTURE COMPARE
  3149	033450	202 11 0 00 000006 		MOVEM	AC1,RAN1	;SAVE AC1 IN CASE OF ERROR.
  3150	033451	331 11 0 00 000010 		SKIPL	AC1,AC		;C(E) IS POS  SHOULD NOT SKIP
  3151	033452	335 11 0 00 000010 		SKIPGE	AC1,AC		;C(E) IS POSITIVE.  SHOULD SKIP
  3152	033453	005 10 0 00 040325 		ER	AC,[ASCII /SKP/]
  3153	033454	312 10 0 00 000012 		CAME	AC,AC2		;C(E) SHOULD NOT HAVE CHANGED
  3154	033455	001 12 0 00 000006 		ERR	AC2,RAN1
  3155	033456	312 11 0 00 000012 		CAME	AC1,AC2		;C(AC)SHOULD=C(E)
  3156	033457	001 12 0 00 000006 		ERR	AC2,RAN1
  3157	033460	400 10 0 00 000000 		SETZ	AC,		;CLEAR C(E)
  3158	033461	331 11 0 00 000010 		SKIPL	AC1,AC		;C(E)=0...SHOULD NOT SKIP
  3159	033462	335 11 0 00 000010 		SKIPGE	AC1,AC		;C(E)=0...SHOULD SKIP
  3160	033463	005 10 0 00 040325 		ER	AC,[ASCII /SKP/]
  3161	033464	312 10 0 00 040322 		CAME	AC,[0]		;C(E) SHOULD STILL=0
  3162	033465	001 10 0 00 000012 		ERR	AC,AC2
  3163	033466	312 11 0 00 040322 		CAME	AC1,[0]		;C(AC) SHOULD NOW=0
  3164	033467	001 10 0 00 000012 		ERR	AC,AC2
  3165						LOOP	SKPGE2,SKPGE3^
  3166	033470	367 07 0 00 033441 		SOJG	AC-1,SKPGE2		;ITERATION COUNTER
  3167	033471	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3168	033472	321 07 0 00 033445 		JUMPL	AC-1,SKPGE3		;LOOP ON ERROR SWITCH ^
  3169
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 61
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0092

  3170					;TEST SKIPG, SKIPLE.  CHECK FOR SKIP/NO SKIP,
  3171					;C(E) NOT CHANGING AND C(AC)=C(E) AFTER SKIP,
  3172					;BY MAKING C(E) NEGATIVE OR 0.
  3173
  3174
  3175			000011			AC=11
  3176	033473				SKPLE1:	SETUP	100,0^
  3177			000012			AC1=<AC+1>&17
  3178			000013			AC2=<AC+2>&17
  3179			000014			AC3=<AC+3>&17
  3180			000015			AC4=<AC+4>&17
  3181			000016			AC5=<AC+5>&17
  3182			000007			RAN1=<AC-2>&17
  3183	033473	201 10 0 00 033473 		MOVEI	AC-1,.
  3184	033474	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3185	033475	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3186	033476	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3187	033477	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3188	033500	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3189	033501	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3190	033502				SKPLE2:	RANDOM^
  3191	033502	200 11 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3192	033503	270 11 0 00 040321 		ADD	AC,[142536475076]
  3193	033504	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3194	033505	447 11 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  3195	033506	313 11 0 00 040322 	SKPLE3:	CAMLE	AC,[0]		;RAN NEG OR 0?
  3196	033507	450 11 0 00 000000 		SETCA	AC,		;NO. MAKE IT NEG
  3197	033510	200 07 0 00 000012 		MOVE	RAN1,AC1	;SAVE AC1 IN CASE OF ERROR.
  3198	033511	200 13 0 00 000011 		MOVE	AC2,AC		;SAVE FOR FUTURE COMPARE
  3199	033512	337 12 0 00 000011 		SKIPG	AC1,AC		;C(E) NEG OR 0...SHOULD NOT SKIP
  3200	033513	333 12 0 00 000011 		SKIPLE	AC1,AC		;C(E) NEG OR 0... SHOULD SKIP
  3201	033514	005 11 0 00 040325 		ER	AC,[ASCII /SKP/]
  3202	033515	312 11 0 00 000013 		CAME	AC,AC2		;C(E) SHOULD NOT CHANGE
  3203	033516	001 13 0 00 000007 		ERR	AC2,RAN1
  3204	033517	312 12 0 00 000013 		CAME	AC1,AC2		;C(AC) SHOULD=C(E)
  3205	033520	001 13 0 00 000007 		ERR	AC2,RAN1
  3206	033521	400 11 0 00 000000 		SETZ	AC,		;CLEAR C(E)
  3207	033522	337 12 0 00 000011 		SKIPG	AC1,AC		;C(E)=0...SHOULD NOT SKIP
  3208	033523	335 12 0 00 000011 		SKIPGE	AC1,AC		;C(E)=0.. SHOULD SKIP
  3209	033524	005 11 0 00 040325 		ER	AC,[ASCII /SKP/]
  3210	033525	312 11 0 00 040322 		CAME	AC,[0]		;C(E) SHOULD STILL=0
  3211	033526	001 11 0 00 000013 		ERR	AC,AC2
  3212	033527	312 12 0 00 040322 		CAME	AC1,[0]		;C(AC) SHOULD=0
  3213	033530	001 11 0 00 000013 		ERR	AC,AC2
  3214						LOOP	SKPLE2,SKPLE3^
  3215	033531	367 10 0 00 033502 		SOJG	AC-1,SKPLE2		;ITERATION COUNTER
  3216	033532	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3217	033533	321 10 0 00 033506 		JUMPL	AC-1,SKPLE3		;LOOP ON ERROR SWITCH ^
  3218
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 62
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0093

  3219
  3220
  3221					;TEST SKIPLE, SKIPGE. CHECK FOR SKIP/ NO SKIP,
  3222					;C(E) NOT CHANGING, AND COORECT STORING
  3223					;OF C(E) INTO AC FOR C(E) = POSITIVE RAN. NUM.
  3224
  3225
  3226			000012			AC=12
  3227	033534				SKPLEA:	SETUP	100,0^
  3228			000013			AC1=<AC+1>&17
  3229			000014			AC2=<AC+2>&17
  3230			000015			AC3=<AC+3>&17
  3231			000016			AC4=<AC+4>&17
  3232			000017			AC5=<AC+5>&17
  3233			000010			RAN1=<AC-2>&17
  3234	033534	201 11 0 00 033534 		MOVEI	AC-1,.
  3235	033535	202 11 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3236	033536	201 11 0 00 000011 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3237	033537	202 11 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3238	033540	201 11 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3239	033541	240 11 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3240	033542	240 11 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3241	033543				SKPLEB:	RANDOM^
  3242	033543	200 12 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3243	033544	270 12 0 00 040321 		ADD	AC,[142536475076]
  3244	033545	241 12 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3245	033546	447 12 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  3246	033547	322 12 0 00 033543 		JUMPE	AC,SKPLEB	;REJECT IF RAN = 0.
  3247	033550	477 13 0 00 000010 	SKPLEC:	SETOB	AC1,RAN1	;SET C(AC) TO ALL ONES.
  3248	033551	404 12 0 00 040330 		AND	AC,[XWD 377777,-1];MAKE SURE C(E) IS POS.
  3249	033552	200 14 0 00 000012 		MOVE	AC2,AC		;SAVE C(E) FOR FUTURE COMPARE.
  3250	033553	333 13 0 00 000012 		SKIPLE	AC1,AC		;C(E) IS POS...NO SKIP.
  3251	033554	335 13 0 00 000012 		SKIPGE	AC1,AC		;C(E) IS POS...SKIP.
  3252	033555	005 12 0 00 040325 		ER	AC,[ASCII/SKP/]
  3253	033556	312 13 0 00 000012 		CAME	AC1,AC		;C(AC) SHOULD = C(E).
  3254	033557	001 14 0 00 000010 		ERR	AC2,RAN1
  3255	033560	312 12 0 00 000014 		CAME	AC,AC2		;C(E) SHOULD = ORIG C(E).
  3256	033561	001 14 0 00 000010 		ERR	AC2,RAN1
  3257						LOOP	SKPLEB,SKPLEC^
  3258	033562	367 11 0 00 033543 		SOJG	AC-1,SKPLEB		;ITERATION COUNTER
  3259	033563	200 12 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3260	033564	321 11 0 00 033550 		JUMPL	AC-1,SKPLEC		;LOOP ON ERROR SWITCH ^
  3261
  3262
  3263
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 63
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0094

  3264
  3265
  3266					;TEST JUMP, JUMPA. CHECK FOR JUMP/ NO JUMP AND
  3267					;NO MODIFICATION OF C(AC) FOR C(AC)=RANDOM NUMBER
  3268
  3269
  3270			000012			AC=12
  3271	033565				JMP1:	SETUP	100,0^
  3272			000013			AC1=<AC+1>&17
  3273			000014			AC2=<AC+2>&17
  3274			000015			AC3=<AC+3>&17
  3275			000016			AC4=<AC+4>&17
  3276			000017			AC5=<AC+5>&17
  3277			000010			RAN1=<AC-2>&17
  3278	033565	201 11 0 00 033565 		MOVEI	AC-1,.
  3279	033566	202 11 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3280	033567	201 11 0 00 000011 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3281	033570	202 11 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3282	033571	201 11 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3283	033572	240 11 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3284	033573	240 11 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3285	033574				JMP2:	RANDOM^
  3286	033574	200 12 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3287	033575	270 12 0 00 040321 		ADD	AC,[142536475076]
  3288	033576	241 12 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3289	033577	447 12 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  3290	033600	200 10 0 00 000012 	JMP3:	MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR.
  3291	033601	320 12 0 00 033603 		JUMP	AC,.+2		;SHOULD NOT JUMP.
  3292	033602	324 12 0 00 033604 		JUMPA	AC,.+2		;SHOULD JUMP.
  3293	033603	005 12 0 00 040331 		ER	AC,[ASCII /JMP/]
  3294	033604	312 12 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD STILL=RAN.
  3295	033605	003 10 0 00 033604 		ERRI	RAN1,.-1
  3296						LOOP	JMP2,JMP3^
  3297	033606	367 11 0 00 033574 		SOJG	AC-1,JMP2		;ITERATION COUNTER
  3298	033607	200 12 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3299	033610	321 11 0 00 033600 		JUMPL	AC-1,JMP3		;LOOP ON ERROR SWITCH ^
  3300
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 64
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0095

  3301
  3302
  3303					;TEST JUMPE, JUMPN. CHECK FOR JUMP/ NO JUMP AND
  3304					;NO MODIFICATION OF C(AC) WITH C(AC) = TO A FLOATING ONE.
  3305
  3306
  3307			000013			AC=13
  3308	033611				JMPE1:	SETUP	100,0^
  3309			000014			AC1=<AC+1>&17
  3310			000015			AC2=<AC+2>&17
  3311			000016			AC3=<AC+3>&17
  3312			000017			AC4=<AC+4>&17
  3313			000000			AC5=<AC+5>&17
  3314			000011			RAN1=<AC-2>&17
  3315	033611	201 12 0 00 033611 		MOVEI	AC-1,.
  3316	033612	202 12 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3317	033613	201 12 0 00 000012 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3318	033614	202 12 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3319	033615	201 12 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3320	033616	240 12 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3321	033617	240 12 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3322	033620	201 13 0 00 000001 		MOVEI	AC,1		;SETUP AC FOR FLOATING ONE.
  3323	033621	241 13 0 00 777777 	JMPE2:	ROT	AC,-1		;ROT TO TEST NEXT BIT
  3324	033622	200 11 0 00 000013 		MOVE	RAN1,AC		;SAVE FOR FUTURE COMPARE.
  3325	033623	200 13 0 00 000011 	JMPE3:	MOVE	AC,RAN1		;RESTORE C(AC) IN CASE OF ERROR.
  3326	033624	322 13 0 00 033626 		JUMPE	AC,.+2		;SHOULD NOT JUMP
  3327	033625	326 13 0 00 033627 		JUMPN	AC,.+2		;SHOULD JUMP
  3328	033626	005 13 0 00 040331 		ER	AC,[ASCII /JMP/]
  3329	033627	312 13 0 00 000011 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  3330	033630	003 11 0 00 033627 		ERRI	RAN1,.-1
  3331	033631	367 12 0 00 033621 		SOJG	AC-1,JMPE2	;ITERATION COUNTER.
  3332	033632	321 12 0 00 033623 		JUMPL	AC-1,JMPE3	;LOOP ON ERROR SWITCH.
  3333
  3334
  3335
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 65
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0096

  3336
  3337
  3338					;TEST JUMPN, JUMPE. CHECK FOR JUMP/ NO JUMP AND
  3339					;NO MODIFICATION OF C(AC) WITH C(AC) = 0.
  3340
  3341
  3342			000014			AC=14
  3343	033633				JMPN1:	SETUP	100,0^
  3344			000015			AC1=<AC+1>&17
  3345			000016			AC2=<AC+2>&17
  3346			000017			AC3=<AC+3>&17
  3347			000000			AC4=<AC+4>&17
  3348			000001			AC5=<AC+5>&17
  3349			000012			RAN1=<AC-2>&17
  3350	033633	201 13 0 00 033633 		MOVEI	AC-1,.
  3351	033634	202 13 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3352	033635	201 13 0 00 000013 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3353	033636	202 13 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3354	033637	201 13 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3355	033640	240 13 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3356	033641	240 13 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3357	033642	403 14 0 00 000012 	JMPN2:	SETZB	AC,RAN1		;CLEAR C(AC).
  3358	033643	326 14 0 00 033645 		JUMPN	AC,.+2		;C(AC) = 0...NO JUMP.
  3359	033644	322 14 0 00 033646 		JUMPE	AC,.+2		;C(AC) = 0...JUMP.
  3360	033645	005 14 0 00 040331 		ER	AC,[ASCII /JMP/]
  3361	033646	312 14 0 00 000012 		CAME	AC,RAN1		;C(AC) SHOULD STILL = 0.
  3362	033647	367 13 0 00 033642 		SOJG	AC-1,JMPN2	;ITERATION COUNTER.
  3363	033650	321 13 0 00 033642 		JUMPL	AC-1,JMPN2	;LOOP ON ERROR SWITCH.
  3364
  3365
  3366
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 66
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0097

  3367
  3368
  3369					;TEST JUMPL, JUMPG. CHECK FOR JUMP/ NO JUMP 
  3370					;AND NO MODIFICATION OF C(AC) WITH C(AC)=TO A FLOATING ONE
  3371					;WITH SIGN BIT SET.
  3372
  3373
  3374			000014			AC=14
  3375	033651				JMPL1:	SETUP	100,0^
  3376			000015			AC1=<AC+1>&17
  3377			000016			AC2=<AC+2>&17
  3378			000017			AC3=<AC+3>&17
  3379			000000			AC4=<AC+4>&17
  3380			000001			AC5=<AC+5>&17
  3381			000012			RAN1=<AC-2>&17
  3382	033651	201 13 0 00 033651 		MOVEI	AC-1,.
  3383	033652	202 13 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3384	033653	201 13 0 00 000013 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3385	033654	202 13 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3386	033655	201 13 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3387	033656	240 13 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3388	033657	240 13 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3389	033660	200 14 0 00 040332 		MOVE	AC,[XWD 400000,1];SETUP AC FOR FLOATING ONE BIT
  3390	033661	430 14 0 00 040327 	JMPL2:	XOR	AC,[XWD 400000,0];CLEAR SIGN BIT FOR ROT.
  3391	033662	241 14 0 00 000001 	JMPL3:	ROT	AC,1		;ROT TO TEST NEXT BIT.
  3392	033663	434 14 0 00 040327 		IOR	AC,[XWD 400000,0];SET SIGN BIT
  3393	033664	202 14 0 00 000012 		MOVEM	AC,RAN1		;SAVE AC FOR FUTURE COMPARE.
  3394	033665	200 14 0 00 000012 	JMPL4:	MOVE	AC,RAN1		;RESTORE C(AC) IN CASE OF ERROR.
  3395	033666	327 14 0 00 033670 		JUMPG	AC,.+2		;SHOULD NOT JUMP.
  3396	033667	321 14 0 00 033671 		JUMPL	AC,.+2		;SHOULD JUMP.
  3397	033670	005 14 0 00 040331 		ER	AC,[ASCII /JMP/]
  3398	033671	312 14 0 00 000012 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  3399	033672	003 12 0 00 033671 		ERRI	RAN1,.-1
  3400	033673	316 12 0 00 040327 		CAMN	RAN1,[XWD 400000,0];IS FLOATING ONE THE SIGN BIT?
  3401	033674	254 00 0 00 033662 		JRST	JMPL3		;YES. ROT AND SET SIGN BIT.
  3402	033675	367 13 0 00 033661 		SOJG	AC-1,JMPL2	;ITERATION COUNTER.
  3403	033676	321 13 0 00 033665 		JUMPL	AC-1,JMPL4	;LOOP ON ERROR SWITCH.
  3404
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 67
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0098

  3405
  3406
  3407					;TEST JUMPG, JUMPL. CHECK FOR JUMP/ NO JUMP
  3408					;AND NO MODIFICATION OF C(AC) WITH A FLOATING ONE
  3409					;AND SIGN BIT NEVER SET.
  3410
  3411
  3412			000015			AC=15
  3413	033677				JMPG1:	SETUP	100,0^
  3414			000016			AC1=<AC+1>&17
  3415			000017			AC2=<AC+2>&17
  3416			000000			AC3=<AC+3>&17
  3417			000001			AC4=<AC+4>&17
  3418			000002			AC5=<AC+5>&17
  3419			000013			RAN1=<AC-2>&17
  3420	033677	201 14 0 00 033677 		MOVEI	AC-1,.
  3421	033700	202 14 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3422	033701	201 14 0 00 000014 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3423	033702	202 14 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3424	033703	201 14 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3425	033704	240 14 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3426	033705	240 14 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3427	033706	201 15 0 00 000001 		MOVEI	AC,1		;SETUP AC FOR FLOATING ONE BIT
  3428	033707	241 15 0 00 000001 	JMPG2:	ROT	AC,1		;ROT TO TEST NEXT BIT.
  3429	033710	316 15 0 00 040327 		CAMN	AC,[XWD 400000,0];IS BIT IN SIGN POSITION?
  3430	033711	241 15 0 00 000001 		ROT	AC,1		;YES, ROT AGAIN
  3431	033712	200 13 0 00 000015 		MOVE	RAN1,AC		;SAVE FOR FUTURE COMPARE.
  3432	033713	200 15 0 00 000013 	JMPG3:	MOVE	AC,RAN1		;RESTORE C(AC) IN CASE OF ERROR.
  3433	033714	321 15 0 00 033716 		JUMPL	AC,.+2		;SHOULD NOT JUMP.
  3434	033715	327 15 0 00 033717 		JUMPG	AC,.+2		;SHOULD JUMP.
  3435	033716	005 15 0 00 040331 		ER	AC,[ASCII /JMP/]
  3436	033717	312 15 0 00 000013 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  3437	033720	003 13 0 00 033717 		ERRI	RAN1,.-1
  3438	033721	367 14 0 00 033707 		SOJG	AC-1,JMPG2	;ITERATION COUNTER.
  3439	033722	321 14 0 00 033713 		JUMPL	AC-1,JMPG3	;LOOP ON ERROR SWITCH.
  3440
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 68
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0099

  3441
  3442
  3443					;TEST JUMPGE, JUMPL. CHECK FOR JUMP/ NO JUMP
  3444					;AND NO MODIFICATION OF C(AC) WITH C(AC)=TO A FLOATING
  3445					;ONE WITH SIGN BIT NEVER SET.
  3446
  3447
  3448			000006			AC=6
  3449	033723				JMPGE1:	SETUP	100,0^
  3450			000007			AC1=<AC+1>&17
  3451			000010			AC2=<AC+2>&17
  3452			000011			AC3=<AC+3>&17
  3453			000012			AC4=<AC+4>&17
  3454			000013			AC5=<AC+5>&17
  3455			000004			RAN1=<AC-2>&17
  3456	033723	201 05 0 00 033723 		MOVEI	AC-1,.
  3457	033724	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3458	033725	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3459	033726	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3460	033727	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3461	033730	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3462	033731	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3463	033732	201 06 0 00 000001 		MOVEI	AC,1		;SETUP AC FOR FLOATING ONE BIT
  3464	033733	241 06 0 00 000001 	JMPGE2:	ROT	AC,1		;ROT TO TEST NEXT BIT
  3465	033734	316 06 0 00 040327 		CAMN	AC,[XWD 400000,0];SIGN BIT SET?
  3466	033735	241 06 0 00 000001 		ROT	AC,1		;YES. ROT AGAIN
  3467	033736	202 06 0 00 000004 		MOVEM	AC,RAN1		;SAVE AC FOR FUTURE COMPARE.
  3468	033737	321 06 0 00 033741 		JUMPL	AC,.+2		;C(AC) IS POSITIVE AND SHOULD NOT JUMP.
  3469	033740	325 06 0 00 033742 	JMPGE3:	JUMPGE	AC,.+2		;SHOULD JUMP.
  3470	033741	005 06 0 00 040331 		ER	AC,[ASCII /JMP/]
  3471	033742	312 06 0 00 000004 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  3472	033743	003 04 0 00 033742 		ERRI	RAN1,.-1
  3473	033744	403 06 0 00 000007 		SETZB	AC,AC1		;CLEAR C(AC).
  3474	033745	321 06 0 00 033747 		JUMPL	AC,.+2		;C(E) IS POSITIVE...SHOULD NOT JUMP
  3475	033746	325 06 0 00 033750 		JUMPGE	AC,.+2		;SHOULD JUMP
  3476	033747	005 06 0 00 040331 		ER	AC,[ASCII /JMP/]
  3477	033750	312 06 0 00 000007 		CAME	AC,AC1		;C(AC) SHOULD STILL = 0.
  3478	033751	003 07 0 00 033750 		ERRI	AC1,.-1
  3479	033752	367 05 0 00 033733 		SOJG	AC-1,JMPGE2	;ITERATION COUNTER.
  3480	033753	200 06 0 00 000004 		MOVE	AC,RAN1		;RESTORE C(AC).
  3481	033754	321 05 0 00 033740 		JUMPL	AC-1,JMPGE3	;LOOP ON ERROR SWITCH.
  3482
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 69
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0100

  3483
  3484
  3485					;TEST JUMPG, JUMPLE. CHECK FOR JUMP/ NO JUMP
  3486					;AND NO MODIFICATION OF C(AC) WITH C(AC)=FLOATING ONE
  3487					;WITH SIGN BIT SET
  3488
  3489
  3490			000007			AC=7
  3491	033755				JMPLE1:	SETUP	100,0^
  3492			000010			AC1=<AC+1>&17
  3493			000011			AC2=<AC+2>&17
  3494			000012			AC3=<AC+3>&17
  3495			000013			AC4=<AC+4>&17
  3496			000014			AC5=<AC+5>&17
  3497			000005			RAN1=<AC-2>&17
  3498	033755	201 06 0 00 033755 		MOVEI	AC-1,.
  3499	033756	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3500	033757	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3501	033760	202 06 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3502	033761	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3503	033762	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3504	033763	240 06 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3505	033764	200 07 0 00 040332 		MOVE	AC,[XWD 400000,1];SETUP AC FOR FLOATING ONE AND SIGN BITS SET.
  3506	033765	430 07 0 00 040327 	JMPLE2:	XOR	AC,[XWD 400000,0];CLEAR SIGN BIT.
  3507	033766	241 07 0 00 000001 		ROT	AC,1		;ROT TO TEST NEXT BIT.
  3508	033767	434 07 0 00 040327 		IOR	AC,[XWD 400000,0];SET SIGN BIT
  3509	033770	202 07 0 00 000005 		MOVEM	AC,RAN1		;SAVE C(AC) FOR FUTURE COMPARE.
  3510	033771	327 07 0 00 033773 	JMPLE3:	JUMPG	AC,.+2		;C(AC) IS NEG...SHOULD NOT JUMP.
  3511	033772	323 07 0 00 033774 		JUMPLE	AC,.+2		;SHOULD JUMP.
  3512	033773	005 07 0 00 040331 		ER	AC,[ASCII /JMP/]
  3513	033774	312 07 0 00 000005 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  3514	033775	003 05 0 00 033774 		ERRI	RAN1,.-1
  3515	033776	403 07 0 00 000010 		SETZB	AC,AC1		;CLEAR C(AC).
  3516	033777	327 07 0 00 034001 		JUMPG	AC,.+2		;C(AC) =0.  SHOULD NOT JUMP
  3517	034000	323 07 0 00 034002 		JUMPLE	AC,.+2		;SHOULD JUMP
  3518	034001	005 07 0 00 040331 		ER	AC,[ASCII /JMP/]
  3519	034002	312 07 0 00 000010 		CAME	AC,AC1		;C(AC) SHOULD = ORIG C(AC).
  3520	034003	003 10 0 00 034002 		ERRI	AC1,.-1
  3521	034004	316 05 0 00 040327 		CAMN	RAN1,[XWD 400000,0];JUST THE SIGN BIT SET?
  3522	034005	200 07 0 00 040332 		MOVE	AC,[XWD 400000,1];YES. REINITIALIZE NUMBER.
  3523	034006	367 06 0 00 033765 		SOJG	AC-1,JMPLE2	;ITERATION COUNTER.
  3524	034007	200 07 0 00 000005 		MOVE	AC,RAN1		;RESTORE C(AC).
  3525	034010	321 06 0 00 033771 		JUMPL	AC-1,JMPLE3	;LOOP ON ERROR SWITCH.
  3526
  3527
  3528
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 70
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0101

  3529
  3530
  3531					;TEST JUMPLE, JUMPGE. CHECK FOR JUMP/ NO JUMP
  3532					;AND NO MODIFICATION OF C(AC) FOR C(AC) = POS. RAN. NUM.
  3533
  3534
  3535			000010			AC=10
  3536	034011				JMPLEA:	SETUP	100,0^
  3537			000011			AC1=<AC+1>&17
  3538			000012			AC2=<AC+2>&17
  3539			000013			AC3=<AC+3>&17
  3540			000014			AC4=<AC+4>&17
  3541			000015			AC5=<AC+5>&17
  3542			000006			RAN1=<AC-2>&17
  3543	034011	201 07 0 00 034011 		MOVEI	AC-1,.
  3544	034012	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3545	034013	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3546	034014	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3547	034015	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3548	034016	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3549	034017	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3550	034020				JMPLEB:	RANDOM^
  3551	034020	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3552	034021	270 10 0 00 040321 		ADD	AC,[142536475076]
  3553	034022	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3554	034023	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  3555	034024	322 10 0 00 034020 		JUMPE	AC,JMPLEB	;REJECT IF RAN = 0.
  3556	034025	404 10 0 00 040330 	JMPLEC:	AND	AC,[XWD 377777,-1];MAKE SURE C(AC) IS POS.
  3557	034026	200 06 0 00 000010 		MOVE	RAN1,AC		;SAVE C(AC) FOR FUTURE COMPARE.
  3558	034027	323 10 0 00 034031 		JUMPLE	AC,.+2		;C(AC) IS POS...NO JUMP.
  3559	034030	325 10 0 00 034032 		JUMPGE	AC,.+2		;C(AC) IS POS...JUMP.
  3560	034031	005 10 0 00 040331 		ER	AC,[ASCII /JMP/]
  3561	034032	312 10 0 00 000006 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG C(AC).
  3562	034033	003 06 0 00 034032 		ERRI	RAN1,.-1
  3563						LOOP	JMPLEB,JMPLEC^
  3564	034034	367 07 0 00 034020 		SOJG	AC-1,JMPLEB		;ITERATION COUNTER
  3565	034035	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3566	034036	321 07 0 00 034025 		JUMPL	AC-1,JMPLEC		;LOOP ON ERROR SWITCH ^
  3567
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 71
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0102

  3568
  3569
  3570					;TEST AOS,AOSA.  CHECK FOR SKIP/NO SKIP,
  3571					;CORRECT DATA IN C(E), AND PROPER LOADING OF C(E) INTO
  3572					;C(AC) FOR C(E)=TO RAN
  3573					;ALSO CHECK PROPER SETTING OF CRY0, CRY1, AND OVERFLOW FLAGS.
  3574
  3575
  3576			000011			AC=11
  3577	034037				AOS1:	SETUP	100,0^
  3578			000012			AC1=<AC+1>&17
  3579			000013			AC2=<AC+2>&17
  3580			000014			AC3=<AC+3>&17
  3581			000015			AC4=<AC+4>&17
  3582			000016			AC5=<AC+5>&17
  3583			000007			RAN1=<AC-2>&17
  3584	034037	201 10 0 00 034037 		MOVEI	AC-1,.
  3585	034040	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3586	034041	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3587	034042	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3588	034043	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3589	034044	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3590	034045	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3591	034046				AOS2:	RANDOM^
  3592	034046	200 11 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3593	034047	270 11 0 00 040321 		ADD	AC,[142536475076]
  3594	034050	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3595	034051	447 11 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  3596	034052	200 14 0 00 040444 	AOS3:	MOVE	AC3,RAN		;SAVE C(E) IN CASE OF ERROR.
  3597	034053	255 17 0 00 034054 		JFCL	17,.+1		;CLEAR THE FLAGS.
  3598	034054	200 07 0 00 000012 		MOVE	RAN1,AC1	;SAVE C(AC) FOR FUTURE COMPARE.
  3599	034055	200 13 0 00 000011 		MOVE	AC2,AC		;SIMULATE
  3600	034056	270 13 0 00 040333 		ADD	AC2,[2]		;2 AOS INST.
  3601	034057	350 12 0 00 000011 		AOS	AC1,AC		;SHOULD NOT SKIP
  3602	034060	354 12 0 00 000011 		AOSA	AC1,AC		;SHOULD SKIP
  3603	034061	005 11 0 00 040334 		ER	AC,[ASCII /AOS/]
  3604	034062	312 11 0 00 000013 		CAME	AC,AC2		;C(E) SHOULD=RAN+2.
  3605	034063	001 14 0 00 000007 		ERR	AC3,RAN1
  3606	034064	312 12 0 00 000013 		CAME	AC1,AC2		;C(AC) SHOULD=C(E)
  3607	034065	001 14 0 00 000007 		ERR	AC3,RAN1
  3608	034066	255 04 0 00 034073 		JFCL	4,CRY0B
  3609	034067	255 02 0 00 034102 		JFCL	2,CRY1B
  3610	034070	255 10 0 00 034072 		JFCL	10,.+2
  3611	034071	254 00 0 00 034106 		JRST	AOS4
  3612	034072	005 12 0 00 040335 		ER	AC1,[ASCII /OV/];OV SET WITHOUT CRY0 OR CRY1 BEING SET.
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 72
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0103

  3613	034073	312 14 0 00 040324 	CRY0B:	CAME	AC3,[-1]
  3614	034074	005 12 0 00 040336 		ER	AC1,[ASCII /CRY0/];CRY0 SHOULD NOT BE SET IF RAN DOESN'T = A -1.
  3615	034075	255 02 0 00 034077 		JFCL	2,.+2		;IF RAN = A -1, BOTH CRY0 AND
  3616	034076	005 12 0 00 040337 		ER	AC1,[ASCII /CRY1/];CRY1 SHOULD BE SET.
  3617	034077	255 10 0 00 034101 		JFCL	10,.+2
  3618	034100	254 00 0 00 034106 		JRST	AOS4
  3619	034101	005 12 0 00 040335 		ER	AC1,[ASCII /OV/];IF BOTH CRY0 AND CRY1 ARE SET, OV SHOULD NOT.
  3620	034102	312 14 0 00 040330 	CRY1B:	CAME	AC3,[XWD 377777,-1]
  3621	034103	005 12 0 00 040337 		ER	AC1,[ASCII /CRY1/]
  3622	034104	255 10 0 00 034106 		JFCL	10,.+2
  3623	034105	005 12 0 00 040335 		ER	AC1,[ASCII /OV/];IF CRY1 ONLY IS SET, OV SHOULD BE SET.
  3624	034106				AOS4:	LOOP	AOS2,AOS3^
  3625	034106	367 10 0 00 034046 		SOJG	AC-1,AOS2		;ITERATION COUNTER
  3626	034107	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3627	034110	321 10 0 00 034052 		JUMPL	AC-1,AOS3		;LOOP ON ERROR SWITCH ^
  3628
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 73
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0104

  3629
  3630
  3631					;TEST AOSE, AOSN.  CHECK FOR SKIP/NO SKIP,
  3632					;CORRECT DATA IN C(E), AND PROPER LOADING OF
  3633					;AC WITH C(E).  TESTED WITH C(E)=1,3,7,17,37,+ETC.
  3634
  3635
  3636			000002			AC=2
  3637	034111				AOSE1:	SETUP	100,0^
  3638			000003			AC1=<AC+1>&17
  3639			000004			AC2=<AC+2>&17
  3640			000005			AC3=<AC+3>&17
  3641			000006			AC4=<AC+4>&17
  3642			000007			AC5=<AC+5>&17
  3643			000000			RAN1=<AC-2>&17
  3644	034111	201 01 0 00 034111 		MOVEI	AC-1,.
  3645	034112	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3646	034113	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3647	034114	202 01 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3648	034115	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3649	034116	240 01 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3650	034117	240 01 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3651	034120	201 02 0 00 000001 		MOVEI	AC,1		;SETUP C("E") TO =1.
  3652	034121	200 05 0 00 000002 	AOSE2:	MOVE	AC3,AC		;SAVE C(E) IN CASE OF ERROR.
  3653	034122	200 02 0 00 000005 	AOSE3:	MOVE	AC,AC3		;RESTORE AC IN CASE OF ERROR.
  3654	034123	200 04 0 00 000002 		MOVE	AC2,AC		;SIMULATE
  3655	034124	270 04 0 00 040333 		ADD	AC2,[2]		;TWO AOS INST
  3656	034125	200 00 0 00 000003 		MOVE	RAN1,AC1	;SAVE C(AC).
  3657	034126	352 03 0 00 000002 		AOSE	AC1,AC		;C(E)=A POSITIVE NON ZERO NUMBER..DON'T SKIP
  3658	034127	356 03 0 00 000002 		AOSN	AC1,AC		;C(E)=A POSITIVE NON ZERO NUMBER ..SKIP
  3659	034130	005 02 0 00 040334 		ER	AC,[ASCII /AOS/]
  3660	034131	312 02 0 00 000004 		CAME	AC,AC2		;C(E) SHOULD=SIM ANS
  3661	034132	001 05 0 00 000000 		ERR	AC3,RAN1
  3662	034133	312 03 0 00 000004 		CAME	AC1,AC2		;C(AC) SHOULD=C(E)
  3663	034134	001 05 0 00 000000 		ERR	AC3,RAN1
  3664	034135	200 02 0 00 040444 		MOVE	AC,RAN		;RESTOR C(E)
  3665	034136	241 02 0 00 000001 		ROT	AC,1		;ROT TO TEST NEXT BIT.
  3666	034137	434 02 0 00 040340 		IOR	AC,[1]		;SET BIT 35
  3667	034140	367 01 0 00 034121 		SOJG	AC-1,AOSE2	;ITERATION COUNTER.
  3668	034141	321 01 0 00 034122 		JUMPL	AC-1,AOSE3	;LOOP ON ERROR SWITCH.
  3669
  3670
  3671
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 74
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0105

  3672
  3673
  3674					;TEST AOSG, AOSE. CHECK FOR SKIP/ NO SKIP,
  3675					;CORRECT DATA IN C(E), AND PROPER LOADING
  3676					;OR AC WITCH C(E). C(E) = -2 AND C(AC) = RAN. NUM.
  3677
  3678
  3679			000011			AC=11
  3680	034142				AOSGA:	SETUP	100,0^
  3681			000012			AC1=<AC+1>&17
  3682			000013			AC2=<AC+2>&17
  3683			000014			AC3=<AC+3>&17
  3684			000015			AC4=<AC+4>&17
  3685			000016			AC5=<AC+5>&17
  3686			000007			RAN1=<AC-2>&17
  3687	034142	201 10 0 00 034142 		MOVEI	AC-1,.
  3688	034143	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3689	034144	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3690	034145	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3691	034146	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3692	034147	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3693	034150	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3694	034151				AOSGB:	RANDOM^
  3695	034151	200 11 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3696	034152	270 11 0 00 040321 		ADD	AC,[142536475076]
  3697	034153	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3698	034154	447 11 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  3699	034155	200 12 0 00 040341 	AOSGC:	MOVE	AC1,[XWD -1,-2]	;MAKE C(E) = -2.
  3700	034156	200 07 0 00 000012 		MOVE	RAN1,AC1	;SAVE C(E) IN CASE OF ERR.
  3701	034157	357 11 0 00 000012 		AOSG	AC,AC1		;C(E) + 1 = -1...NO SKIP.
  3702	034160	352 11 0 00 000012 		AOSE	AC,AC1		;C(E) + 1 = 0...SKIP.
  3703	034161	005 12 0 00 040334 		ER	AC1,[ASCII /AOS/]
  3704	034162	312 12 0 00 000011 		CAME	AC1,AC		;C(AC) SHOULD = C(E)
  3705	034163	001 07 0 00 040444 		ERR	RAN1,RAN
  3706	034164	312 12 0 00 040322 		CAME	AC1,[0]		;C(E) SHOULD = 0.
  3707	034165	001 07 0 00 040444 		ERR	RAN1,RAN
  3708						LOOP	AOSGB,AOSGC^
  3709	034166	367 10 0 00 034151 		SOJG	AC-1,AOSGB		;ITERATION COUNTER
  3710	034167	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3711	034170	321 10 0 00 034155 		JUMPL	AC-1,AOSGC		;LOOP ON ERROR SWITCH ^
  3712
  3713
  3714
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 75
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0106

  3715
  3716
  3717					;TEST AOSL, AOSG.  CHECK FOR SKIP/NO SKIP,
  3718					;CORRECT DATA IN C(E) AND PROPER STORING
  3719					;OF C(E) INTO AC FOR C(E)=+RAN.
  3720
  3721
  3722			000010			AC=10
  3723	034171				AOSL1:	SETUP	100,0^
  3724			000011			AC1=<AC+1>&17
  3725			000012			AC2=<AC+2>&17
  3726			000013			AC3=<AC+3>&17
  3727			000014			AC4=<AC+4>&17
  3728			000015			AC5=<AC+5>&17
  3729			000006			RAN1=<AC-2>&17
  3730	034171	201 07 0 00 034171 		MOVEI	AC-1,.
  3731	034172	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3732	034173	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3733	034174	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3734	034175	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3735	034176	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3736	034177	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3737	034200				AOSL2:	RANDOM^
  3738	034200	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3739	034201	270 10 0 00 040321 		ADD	AC,[142536475076]
  3740	034202	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3741	034203	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  3742	034204	630 10 0 00 040342 	AOSL3:	TDZ	AC,[XWD 600000,0];MAKE C(E) SO TWO AOS'S WON'T CHANGE SIGN.
  3743	034205	200 13 0 00 000010 		MOVE	AC3,AC		;SAVE C(E) IN CASE OF ERROR
  3744	034206	200 12 0 00 000010 		MOVE	AC2,AC		;SIMULATE
  3745	034207	270 12 0 00 040333 		ADD	AC2,[2]		;2 AOS'S
  3746	034210	200 06 0 00 000011 		MOVE	RAN1,AC1	;SAVE C(AC) IN CASE OF ERROR.
  3747	034211	351 11 0 00 000010 		AOSL	AC1,AC		;C(E) POSITIVE...NO SKIP
  3748	034212	357 11 0 00 000010 		AOSG	AC1,AC		;C(E) POSITIVE...SKIP
  3749	034213	005 11 0 00 040334 		ER	AC1,[ASCII /AOS/]
  3750	034214	312 11 0 00 000010 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER AOS.
  3751	034215	001 13 0 00 000006 		ERR	AC3,RAN1
  3752	034216	312 12 0 00 000010 		CAME	AC2,AC		;C(E) SHOULD=SIM ANS
  3753	034217	001 13 0 00 000006 		ERR	AC3,RAN1
  3754						LOOP	AOSL2,AOSL3^
  3755	034220	367 07 0 00 034200 		SOJG	AC-1,AOSL2		;ITERATION COUNTER
  3756	034221	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3757	034222	321 07 0 00 034204 		JUMPL	AC-1,AOSL3		;LOOP ON ERROR SWITCH ^
  3758
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 76
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0107

  3759
  3760
  3761					;TEST AOSG, AOSL.  CHECK FOR SKIP/NO SKIP,
  3762					;CORRECT DATA IN C(E) AND PROPER STORING
  3763					;OF C(E) INTO AC FOR C(E) = -RAN NUM WITH END 2 BITS CLEARED
  3764
  3765
  3766			000002			AC=2
  3767	034223				AOSG1:	SETUP	100,0^
  3768			000003			AC1=<AC+1>&17
  3769			000004			AC2=<AC+2>&17
  3770			000005			AC3=<AC+3>&17
  3771			000006			AC4=<AC+4>&17
  3772			000007			AC5=<AC+5>&17
  3773			000000			RAN1=<AC-2>&17
  3774	034223	201 01 0 00 034223 		MOVEI	AC-1,.
  3775	034224	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3776	034225	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3777	034226	202 01 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3778	034227	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3779	034230	240 01 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3780	034231	240 01 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3781	034232				AOSG2:	RANDOM^
  3782	034232	200 02 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3783	034233	270 02 0 00 040321 		ADD	AC,[142536475076]
  3784	034234	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3785	034235	447 02 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  3786	034236	670 02 0 00 040327 	AOSG3:	TDO	AC,[XWD 400000,0];MAKE C(E) BEG.
  3787	034237	630 02 0 00 040343 		TDZ	AC,[3]		;CLEAR 2 END BITS SO AOSL WILL ALWAYS SKIP.
  3788	034240	200 05 0 00 000002 		MOVE	AC3,AC		;SAVE C(E) IN CASE OF ERROR
  3789	034241	200 04 0 00 000002 		MOVE	AC2,AC		;SIMULATE
  3790	034242	270 04 0 00 040333 		ADD	AC2,[2]		;2 AOS'S
  3791	034243	200 00 0 00 000003 		MOVE	RAN1,AC1	;SAVE C(AC) IN CASE OF ERROR.
  3792	034244	357 03 0 00 000002 		AOSG	AC1,AC		;C(E) IS NEG...SHOULD NOT SKIP
  3793	034245	351 03 0 00 000002 		AOSL	AC1,AC		;C(E) IS NEG...SHOULD SKIP
  3794	034246	005 03 0 00 040334 		ER	AC1,[ASCII /AOS/]
  3795	034247	312 03 0 00 000002 		CAME	AC1,AC		;C(AC) SHOULD = C(E) AFTER AOS
  3796	034250	001 05 0 00 000000 		ERR	AC3,RAN1
  3797	034251	312 04 0 00 000002 		CAME	AC2,AC		;C(E) SHOULD = SIM ANS.
  3798	034252	001 05 0 00 000000 		ERR	AC3,RAN1
  3799						LOOP	AOSG2,AOSG3^
  3800	034253	367 01 0 00 034232 		SOJG	AC-1,AOSG2		;ITERATION COUNTER
  3801	034254	200 02 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3802	034255	321 01 0 00 034236 		JUMPL	AC-1,AOSG3		;LOOP ON ERROR SWITCH ^
  3803
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 77
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0108

  3804
  3805
  3806					;TEST AOSLE, AOSG.  CHECK FOR SKIP/NO SKIP,
  3807					;PROPER STORING OF C(E) INTO AC, AND CORRECT
  3808					;DATA IN E FOR C(E) = FLOATING ONE
  3809
  3810
  3811			000003			AC=3
  3812	034256				AOSLE1:	SETUP	100,0^
  3813			000004			AC1=<AC+1>&17
  3814			000005			AC2=<AC+2>&17
  3815			000006			AC3=<AC+3>&17
  3816			000007			AC4=<AC+4>&17
  3817			000010			AC5=<AC+5>&17
  3818			000001			RAN1=<AC-2>&17
  3819	034256	201 02 0 00 034256 		MOVEI	AC-1,.
  3820	034257	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3821	034260	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3822	034261	202 02 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3823	034262	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3824	034263	240 02 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3825	034264	240 02 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3826	034265	201 03 0 00 000001 	AOSLE2:	MOVEI	AC,1		;SETUP C(E)=FLOATING ONE
  3827	034266	316 03 0 00 040344 	AOSLE3:	CAMN	AC,[XWD 200000,0];C(E) = BIT 1 SET?
  3828	034267	201 03 0 00 000001 		MOVEI	AC,1		;YES. REINITIALIZE C(E).
  3829	034270	241 03 0 00 000001 		ROT	AC,1		;ROT TO TEST NEXT BIT.
  3830	034271	200 01 0 00 000003 		MOVE	RAN1,AC		;SAVE C(E) IN CASE OF ERROR
  3831	034272	200 06 0 00 000004 	AOSLE4:	MOVE	AC3,AC1		;SAVE C(AC) IN CASE OF ERROR.
  3832	034273	200 05 0 00 000003 		MOVE	AC2,AC		;SIMULATE
  3833	034274	270 05 0 00 040333 		ADD	AC2,[2]		;2 AOS'S
  3834	034275	353 04 0 00 000003 		AOSLE	AC1,AC		;C(E) IS POSITIVE...NO SKIP
  3835	034276	357 04 0 00 000003 		AOSG	AC1,AC		;C(E) IS POSITIVE...SKIP
  3836	034277	005 04 0 00 040334 		ER	AC1,[ASCII /AOS/]
  3837	034300	312 04 0 00 000003 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER AOS
  3838	034301	001 01 0 00 000006 		ERR	RAN1,AC3
  3839	034302	312 03 0 00 000005 		CAME	AC,AC2		;C(E) SHOULD=SIM ANS
  3840	034303	001 01 0 00 000006 		ERR	RAN1,AC3
  3841	034304	200 03 0 00 000001 		MOVE	AC,RAN1		;RESTORE FLOATING ONE.
  3842	034305	367 02 0 00 034266 		SOJG	AC-1,AOSLE3	;ITERATION COUNTER.
  3843	034306	321 02 0 00 034272 		JUMPL	AC-1,AOSLE4	;LOOP ON ERROR SWITCH.
  3844
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 78
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0109

  3845
  3846
  3847					;TEST AOSG, AOSGE.  CHECK FOR SKIP/NO SKIP,
  3848					;CORRECT LOADING OF C(E) INTO AC, AND C(E)=
  3849					;CORRECT DATA.
  3850					;RAN TO RAN1
  3851
  3852
  3853			000004			AC=4
  3854	034307				AOSGE1:	SETUP	100,0^
  3855			000005			AC1=<AC+1>&17
  3856			000006			AC2=<AC+2>&17
  3857			000007			AC3=<AC+3>&17
  3858			000010			AC4=<AC+4>&17
  3859			000011			AC5=<AC+5>&17
  3860			000002			RAN1=<AC-2>&17
  3861	034307	201 03 0 00 034307 		MOVEI	AC-1,.
  3862	034310	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3863	034311	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3864	034312	202 03 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3865	034313	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3866	034314	240 03 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3867	034315	240 03 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3868	034316	200 04 0 00 040341 	AOSGE2:	MOVE	AC,[XWD -1,-2]	;MAKE C(E) = -2.
  3869	034317	200 06 0 00 000005 		MOVE	AC2,AC1		;SAVE C(AC) IN CASE OF ERROR.
  3870	034320	357 05 0 00 000004 		AOSG	AC1,AC		;C(E)+1=-1...NO SKIP
  3871	034321	355 05 0 00 000004 		AOSGE	AC1,AC		;C(E)+1=0...SKIP
  3872	034322	005 05 0 00 040334 		ER	AC1,[ASCII /AOS/]
  3873	034323	312 05 0 00 000004 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER AOS
  3874	034324	001 06 0 00 040341 		ERR	AC2,[XWD -1,-2]
  3875	034325	312 04 0 00 040322 		CAME	AC,[0]		;C(AC) SHOULD=0
  3876	034326	001 06 0 00 040341 		ERR	AC2,[XWD -1,-2]
  3877	034327	367 03 0 00 034316 		SOJG	AC-1,AOSGE2	;ITERATION COUNTER.
  3878	034330	321 03 0 00 034316 		JUMPL	AC-1,AOSGE2	;LOOP ON ERROR SWITCH.
  3879
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 79
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0110

  3880
  3881
  3882					;TEST AOJ, AOJA. CHECK FOR JUMP/ NO JUMP AND
  3883					;CORRECT DATA IN AC FOR C(AC)=RAN.
  3884
  3885
  3886			000006			AC=6
  3887	034331				AOJ1:	SETUP	100,0^
  3888			000007			AC1=<AC+1>&17
  3889			000010			AC2=<AC+2>&17
  3890			000011			AC3=<AC+3>&17
  3891			000012			AC4=<AC+4>&17
  3892			000013			AC5=<AC+5>&17
  3893			000004			RAN1=<AC-2>&17
  3894	034331	201 05 0 00 034331 		MOVEI	AC-1,.
  3895	034332	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3896	034333	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3897	034334	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3898	034335	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3899	034336	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3900	034337	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3901	034340				AOJ2:	RANDOM^
  3902	034340	200 06 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  3903	034341	270 06 0 00 040321 		ADD	AC,[142536475076]
  3904	034342	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  3905	034343	447 06 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  3906	034344	200 07 0 00 000006 	AOJ3:	MOVE	AC1,AC		;SIMULATE
  3907	034345	270 07 0 00 040333 		ADD	AC1,[2]		;2 AOJ'S
  3908	034346	340 06 0 00 034350 		AOJ	AC,.+2		;SHOULD NOT SKIP
  3909	034347	344 06 0 00 034351 		AOJA	AC,.+2		;SHOULD SKIP
  3910	034350	005 06 0 00 040345 		ER	AC,[ASCII /AOJ/]
  3911	034351	312 06 0 00 000007 		CAME	AC,AC1		;C(AC) SHOULD=SIM ANS
  3912	034352	013 00 0 00 777777 		EERRI	,-1
  3913						LOOP	AOJ2,AOJ3^
  3914	034353	367 05 0 00 034340 		SOJG	AC-1,AOJ2		;ITERATION COUNTER
  3915	034354	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  3916	034355	321 05 0 00 034344 		JUMPL	AC-1,AOJ3		;LOOP ON ERROR SWITCH ^
  3917
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 80
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0111

  3918
  3919
  3920					;TEST AOJE, AOJN. CHECK FOR JUMP/ NO JUMP AND
  3921					;C(AC) FOR CORRECT DATA WITH C(AC) = TO A FLOATING ONE
  3922
  3923
  3924			000007			AC=7
  3925	034356				AOJE1:	SETUP	100,0^
  3926			000010			AC1=<AC+1>&17
  3927			000011			AC2=<AC+2>&17
  3928			000012			AC3=<AC+3>&17
  3929			000013			AC4=<AC+4>&17
  3930			000014			AC5=<AC+5>&17
  3931			000005			RAN1=<AC-2>&17
  3932	034356	201 06 0 00 034356 		MOVEI	AC-1,.
  3933	034357	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3934	034360	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3935	034361	202 06 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3936	034362	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3937	034363	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3938	034364	240 06 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3939	034365	201 07 0 00 000001 		MOVEI	AC,1		;SETUP AC TO CONTAIN A FLOATING ONE
  3940	034366	241 07 0 00 000001 	AOJE2:	ROT	AC,1		;ROT TO TEST NEXT BIT
  3941	034367	200 10 0 00 000007 		MOVE	AC1,AC		;SAVE SO C(AC) CAN BE RESTORED
  3942	034370	200 07 0 00 000010 	AOJE3:	MOVE	AC,AC1		;COME HERE AND RESTORE C(AC) IF ERROR
  3943	034371	200 11 0 00 000007 		MOVE	AC2,AC		;SIMULATE
  3944	034372	270 11 0 00 040333 		ADD	AC2,[2]		;2 AOJ'S
  3945	034373	342 07 0 00 034375 		AOJE	AC,.+2		;C(AC) NOT=0...NO SKIP
  3946	034374	346 07 0 00 034376 		AOJN	AC,.+2		;C(AC) NOT=0...SKIP
  3947	034375	005 07 0 00 040345 		ER	AC,[ASCII /AOJ/]		;
  3948	034376	312 07 0 00 000011 		CAME	AC,AC2		;C(AC) SHOULD=SIM ANS
  3949	034377	003 10 0 00 034376 		ERRI	AC1,.-1
  3950	034400	200 07 0 00 000010 		MOVE	AC,AC1		;RESTORE C(AC) BEFORE ROTATE
  3951	034401	367 06 0 00 034366 		SOJG	AC-1,AOJE2	;ITERATION COUNTER.
  3952	034402	321 06 0 00 034370 		JUMPL	AC-1,AOJE3	;LOOP ON ERROR SWITCH.
  3953
  3954
  3955
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 81
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0112

  3956
  3957
  3958					;TEST AOJG, AOJE. CHECK FOR JUMP/ NO JUMP AND
  3959					;C(AC) = CORRECT DATA WITH C(AC) = -2.
  3960
  3961
  3962			000006			AC=6
  3963	034403				AOJGA:	SETUP	100,0^
  3964			000007			AC1=<AC+1>&17
  3965			000010			AC2=<AC+2>&17
  3966			000011			AC3=<AC+3>&17
  3967			000012			AC4=<AC+4>&17
  3968			000013			AC5=<AC+5>&17
  3969			000004			RAN1=<AC-2>&17
  3970	034403	201 05 0 00 034403 		MOVEI	AC-1,.
  3971	034404	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  3972	034405	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  3973	034406	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  3974	034407	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  3975	034410	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  3976	034411	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  3977	034412	200 06 0 00 040341 	AOJGB:	MOVE	AC,[XWD -1,-2]	;MAKE C(AC) = -2.
  3978	034413	200 04 0 00 000006 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR.
  3979	034414	347 06 0 00 034416 		AOJG	AC,.+2		;C(AC) + 1 = -1...NO JUMP.
  3980	034415	342 06 0 00 034417 		AOJE	AC,.+2		;C(AC) + 1 = 0...JUMP.
  3981	034416	005 06 0 00 040345 		ER	AC,[ASCII /AOJ/]
  3982	034417	312 06 0 00 040322 		CAME	AC,[0]		;C(AC) SHOULD = 0.
  3983	034420	003 04 0 00 034417 		ERRI	RAN1,.-1
  3984	034421	367 05 0 00 034412 		SOJG	AC-1,AOJGB	;ITERATION COUNTER.
  3985	034422	321 05 0 00 034412 		JUMPL	AC-1,AOJGB	;LOOP ON ERROR SWITCH.
  3986
  3987
  3988
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 82
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0113

  3989
  3990
  3991					;TEST AOJL, AOJG.  CHECK FOR JUMP/NO JUMP AND
  3992					;C(AC)=CORRECT DATA FOR C(AC)=RAN
  3993
  3994
  3995			000010			AC=10
  3996	034423				AOJL1:	SETUP	100,0^
  3997			000011			AC1=<AC+1>&17
  3998			000012			AC2=<AC+2>&17
  3999			000013			AC3=<AC+3>&17
  4000			000014			AC4=<AC+4>&17
  4001			000015			AC5=<AC+5>&17
  4002			000006			RAN1=<AC-2>&17
  4003	034423	201 07 0 00 034423 		MOVEI	AC-1,.
  4004	034424	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4005	034425	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4006	034426	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4007	034427	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4008	034430	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4009	034431	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4010	034432				AOJL2:	RANDOM^
  4011	034432	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4012	034433	270 10 0 00 040321 		ADD	AC,[142536475076]
  4013	034434	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4014	034435	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  4015	034436	630 10 0 00 040342 	AOJL3:	TDZ	AC,[XWD 600000,0];MAKE C(AC) SO 2 AOJ'S WON'T CHANGE SIGN.
  4016	034437	200 06 0 00 000010 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR.
  4017	034440	200 11 0 00 000010 		MOVE	AC1,AC		;SIMULATE 
  4018	034441	270 11 0 00 040333 		ADD	AC1,[2]		;2 AOJ'S.
  4019	034442	341 10 0 00 034444 		AOJL	AC,.+2		;C(AC) IS POS...NO JUMP.
  4020	034443	347 10 0 00 034445 		AOJG	AC,.+2		;C(AC) IS POS...JUMP.
  4021	034444	005 10 0 00 040345 		ER	AC,[ASCII /AOJ/]
  4022	034445	312 10 0 00 000011 		CAME	AC,AC1		;C(AC) SHOULD = SIM. ANS.
  4023	034446	003 06 0 00 034444 		ERRI	RAN1,.-2
  4024						LOOP	AOJL2,AOJL3^
  4025	034447	367 07 0 00 034432 		SOJG	AC-1,AOJL2		;ITERATION COUNTER
  4026	034450	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4027	034451	321 07 0 00 034436 		JUMPL	AC-1,AOJL3		;LOOP ON ERROR SWITCH ^
  4028
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 83
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0114

  4029
  4030
  4031					;TEST AOJG, AOJL.  CHECK FOR JUMP/NO JUMP AND
  4032					;C(AC)=CORRECT DATA FOR C(AC)=-RAN.
  4033
  4034
  4035			000011			AC=11
  4036	034452				AOJG1:	SETUP	100,0^
  4037			000012			AC1=<AC+1>&17
  4038			000013			AC2=<AC+2>&17
  4039			000014			AC3=<AC+3>&17
  4040			000015			AC4=<AC+4>&17
  4041			000016			AC5=<AC+5>&17
  4042			000007			RAN1=<AC-2>&17
  4043	034452	201 10 0 00 034452 		MOVEI	AC-1,.
  4044	034453	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4045	034454	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4046	034455	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4047	034456	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4048	034457	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4049	034460	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4050	034461				AOJG2:	RANDOM^
  4051	034461	200 11 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4052	034462	270 11 0 00 040321 		ADD	AC,[142536475076]
  4053	034463	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4054	034464	447 11 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  4055	034465	670 11 0 00 040327 	AOJG3:	TDO	AC,[XWD 400000,0];MAKE C(AC) NEG.
  4056	034466	630 11 0 00 040343 		TDZ	AC,[3]		;CLEAR TWO END BITS SO AOJL WILL ALWAYS SKIP.
  4057	034467	200 07 0 00 000011 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  4058	034470	200 12 0 00 000011 		MOVE	AC1,AC		;SIMULATE
  4059	034471	270 12 0 00 040333 		ADD	AC1,[2]		;2 AOJ'S
  4060	034472	347 11 0 00 034474 		AOJG	AC,.+2		;C(AC) IS NEG...NO SKIP
  4061	034473	341 11 0 00 034475 		AOJL	AC,.+2		;C(AC) IS NEG...SKIP
  4062	034474	005 11 0 00 040345 		ER	AC,[ASCII /AOJ/]
  4063	034475	312 11 0 00 000012 		CAME	AC,AC1		;C(AC) SHOULD=SIM ANS
  4064	034476	003 07 0 00 034474 		ERRI	RAN1,.-2
  4065						LOOP	AOJG2,AOJG3^
  4066	034477	367 10 0 00 034461 		SOJG	AC-1,AOJG2		;ITERATION COUNTER
  4067	034500	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4068	034501	321 10 0 00 034465 		JUMPL	AC-1,AOJG3		;LOOP ON ERROR SWITCH ^
  4069
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 84
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0115

  4070
  4071
  4072					;TEST AOJG, AOJGE.  CHECK FOR JUMP/NO JUMP AND
  4073					;CORRECT DATA IN AC FOR C(AC)=-2
  4074
  4075
  4076			000012			AC=12
  4077	034502				AOJGE1:	SETUP	100,0^
  4078			000013			AC1=<AC+1>&17
  4079			000014			AC2=<AC+2>&17
  4080			000015			AC3=<AC+3>&17
  4081			000016			AC4=<AC+4>&17
  4082			000017			AC5=<AC+5>&17
  4083			000010			RAN1=<AC-2>&17
  4084	034502	201 11 0 00 034502 		MOVEI	AC-1,.
  4085	034503	202 11 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4086	034504	201 11 0 00 000011 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4087	034505	202 11 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4088	034506	201 11 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4089	034507	240 11 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4090	034510	240 11 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4091	034511	200 12 0 00 040341 	AOJGE2:	MOVE	AC,[XWD -1,-2]	;MAKE C(AC) = -2.
  4092	034512	200 10 0 00 000012 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  4093	034513	347 12 0 00 034515 		AOJG	AC,.+2		;C(AC)+1=-1. NO SKIP
  4094	034514	345 12 0 00 034516 		AOJGE	AC,.+2		;C(AC)+1=0. SKIP
  4095	034515	005 12 0 00 040345 		ER	AC,[ASCII /AOJ/]
  4096	034516	312 12 0 00 040322 		CAME	AC,[0]		;C(AC) SHOULD=0
  4097	034517	003 10 0 00 034515 		ERRI	RAN1,.-2
  4098						LOOP	AOJGE2,AOJGE2^
  4099	034520	367 11 0 00 034511 		SOJG	AC-1,AOJGE2		;ITERATION COUNTER
  4100	034521	200 12 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4101	034522	321 11 0 00 034511 		JUMPL	AC-1,AOJGE2		;LOOP ON ERROR SWITCH ^
  4102
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 85
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0116

  4103
  4104
  4105					;TEST AOJG, AOJLE.  CHECK FOR JUMP/NO JUMP AND
  4106					;CORRECT DATA IN AC FOR C(AC)=-2
  4107
  4108
  4109			000013			AC=13
  4110	034523				AOJLE1:	SETUP	100,0^
  4111			000014			AC1=<AC+1>&17
  4112			000015			AC2=<AC+2>&17
  4113			000016			AC3=<AC+3>&17
  4114			000017			AC4=<AC+4>&17
  4115			000000			AC5=<AC+5>&17
  4116			000011			RAN1=<AC-2>&17
  4117	034523	201 12 0 00 034523 		MOVEI	AC-1,.
  4118	034524	202 12 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4119	034525	201 12 0 00 000012 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4120	034526	202 12 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4121	034527	201 12 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4122	034530	240 12 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4123	034531	240 12 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4124	034532	200 13 0 00 040341 	AOJLE2:	MOVE	AC,[XWD -1,-2]	;MAKE C(AC) = -2.
  4125	034533	200 11 0 00 000013 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  4126	034534	347 13 0 00 034536 		AOJG	AC,.+2		;C(AC)+1=-1. NO SKIP
  4127	034535	343 13 0 00 034537 		AOJLE	AC,.+2		;C(AC)+1=0. SKIP
  4128	034536	005 13 0 00 040345 		ER	AC,[ASCII /AOJ/]
  4129	034537	312 13 0 00 040322 		CAME	AC,[0]		;C(AC) SHOULD=0
  4130	034540	003 11 0 00 034536 		ERRI	RAN1,.-2
  4131	034541	367 12 0 00 034532 		SOJG	AC-1,AOJLE2	;ITERATION COUNTER.
  4132	034542	321 12 0 00 034532 		JUMPL	AC-1,AOJLE2	;LOOP ON ERROR SWITCH.
  4133
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 86
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0117

  4134
  4135
  4136					;TEST SOS, SOSA.  CHECK FOR SKIP/NO SKIP,
  4137					;PROPER STORING OF C(E) INTO AC, AND CORRECT
  4138					;DATA IN E FOR C(E)=RAN
  4139
  4140
  4141			000007			AC=7
  4142	034543				SOS1:	SETUP	100,0^
  4143			000010			AC1=<AC+1>&17
  4144			000011			AC2=<AC+2>&17
  4145			000012			AC3=<AC+3>&17
  4146			000013			AC4=<AC+4>&17
  4147			000014			AC5=<AC+5>&17
  4148			000005			RAN1=<AC-2>&17
  4149	034543	201 06 0 00 034543 		MOVEI	AC-1,.
  4150	034544	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4151	034545	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4152	034546	202 06 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4153	034547	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4154	034550	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4155	034551	240 06 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4156	034552				SOS2:	RANDOM^
  4157	034552	200 07 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4158	034553	270 07 0 00 040321 		ADD	AC,[142536475076]
  4159	034554	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4160	034555	447 07 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  4161	034556	200 11 0 00 000010 	SOS3:	MOVE	AC2,AC1		;SAVE C(AC) IN CASE OF ERROR
  4162	034557	200 12 0 00 000007 		MOVE	AC3,AC		;SIMULATE
  4163	034560	274 12 0 00 040333 		SUB	AC3,[2]		;2 SOS'S
  4164	034561	370 10 0 00 000007 		SOS	AC1,AC		;SHOULD NOT SKIP
  4165	034562	374 10 0 00 000007 		SOSA	AC1,AC		;SHOULD SKIP
  4166	034563	005 10 0 00 040346 		ER	AC1,[ASCII /SOS/]
  4167	034564	312 10 0 00 000007 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER SOS
  4168	034565	011 00 0 00 000011 		EERR	,AC2
  4169	034566	312 12 0 00 000007 		CAME	AC3,AC		;C(E) SHOULD=SIM ANS
  4170	034567	011 00 0 00 000011 		EERR	,AC2
  4171						LOOP	SOS2,SOS3^
  4172	034570	367 06 0 00 034552 		SOJG	AC-1,SOS2		;ITERATION COUNTER
  4173	034571	200 07 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4174	034572	321 06 0 00 034556 		JUMPL	AC-1,SOS3		;LOOP ON ERROR SWITCH ^
  4175
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 87
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0118

  4176
  4177
  4178					;TEST SOSE, SOSN.  CHECK FOR SKIP/NO SKIP,
  4179					;PROPER STORING C(E) INTO AC, AND CORRECT
  4180					;DATA IN E FOR  C(E) = (3,7,17,37,+ETC.).
  4181
  4182
  4183			000010			AC=10
  4184	034573				SOSE1:	SETUP	100,0^
  4185			000011			AC1=<AC+1>&17
  4186			000012			AC2=<AC+2>&17
  4187			000013			AC3=<AC+3>&17
  4188			000014			AC4=<AC+4>&17
  4189			000015			AC5=<AC+5>&17
  4190			000006			RAN1=<AC-2>&17
  4191	034573	201 07 0 00 034573 		MOVEI	AC-1,.
  4192	034574	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4193	034575	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4194	034576	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4195	034577	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4196	034600	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4197	034601	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4198	034602	201 10 0 00 000001 	SOSE2:	MOVEI	AC,1		;SETUP E TO
  4199	034603	241 10 0 00 000001 	SOSE3:	ROT	AC,1		;CONTAIN
  4200	034604	434 10 0 00 040340 		IOR	AC,[1]		;3,7,17,37,+ETC.
  4201	034605	200 10 0 00 000006 	SOSE4:	MOVE	AC,RAN1		;RESTORE C(E) IN CASE OF ERROR.
  4202	034606	200 12 0 00 000011 		MOVE	AC2,AC1		;SAVE C(AC) IN CASE OF ERROR
  4203	034607	200 13 0 00 000010 		MOVE	AC3,AC		;SIMULATE
  4204	034610	274 13 0 00 040333 		SUB	AC3,[2]		;2 SOS'S
  4205	034611	372 11 0 00 000010 		SOSE	AC1,AC		;SHOULD NOT SKIP
  4206	034612	376 11 0 00 000010 		SOSN	AC1,AC		;SHOULD SKIP
  4207	034613	005 11 0 00 040346 		ER	AC1,[ASCII /SOS/]
  4208	034614	312 11 0 00 000010 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER SOS
  4209	034615	011 00 0 00 000012 		EERR	,AC2
  4210	034616	312 13 0 00 000010 		CAME	AC3,AC		;C(E) SHOULD=SIM ANS
  4211	034617	011 00 0 00 000012 		EERR	,AC2
  4212	034620	316 06 0 00 040324 		CAMN	RAN1,[-1]	;C(RAN1) = -1?
  4213	034621	254 00 0 00 034602 		JRST	SOSE2		;YES. REINITIALIZE E.
  4214	034622	367 07 0 00 034603 		SOJG	AC-1,SOSE3	;ITERATION COUNTER.
  4215	034623	321 07 0 00 034605 		JUMPL	AC-1,SOSE4	;LOOP ON ERROR SWITCH
  4216
  4217
  4218
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 88
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0119

  4219
  4220
  4221					;TEST SOSL, SOSE. CHECK FOR SKIP/ NO SKIP,
  4222					;PROPER STORING C(E) INTO AC, AND CORRECT
  4223					;DATA IN E FOR C(E) = 2.
  4224
  4225
  4226			000007			AC=7
  4227	034624				SOSLA:	SETUP	100,0^
  4228			000010			AC1=<AC+1>&17
  4229			000011			AC2=<AC+2>&17
  4230			000012			AC3=<AC+3>&17
  4231			000013			AC4=<AC+4>&17
  4232			000014			AC5=<AC+5>&17
  4233			000005			RAN1=<AC-2>&17
  4234	034624	201 06 0 00 034624 		MOVEI	AC-1,.
  4235	034625	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4236	034626	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4237	034627	202 06 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4238	034630	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4239	034631	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4240	034632	240 06 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4241	034633				SOSLB:	RANDOM^
  4242	034633	200 07 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4243	034634	270 07 0 00 040321 		ADD	AC,[142536475076]
  4244	034635	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4245	034636	447 07 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  4246	034637	200 10 0 00 040333 	SOSLC:	MOVE	AC1,[2]		;MAKE C(E) = 2.
  4247	034640	200 05 0 00 000010 		MOVE	RAN1,AC1	;SAVE C(E) IN CASE OF ERROR.
  4248	034641	371 07 0 00 000010 		SOSL	AC,AC1		;C(E) -1 = 1...NO SKIP.
  4249	034642	372 07 0 00 000010 		SOSE	AC,AC1		;C(E) -1 = 0...SKIP.
  4250	034643	005 10 0 00 040346 		ER	AC1,[ASCII /SOS/]
  4251	034644	312 07 0 00 000010 		CAME	AC,AC1		;C(AC) SHOULD = C(E).
  4252	034645	001 05 0 00 040444 		ERR	RAN1,RAN
  4253	034646	312 10 0 00 040322 		CAME	AC1,[0]		;C(E) SHOULD = 0.
  4254	034647	001 05 0 00 040444 		ERR	RAN1,RAN
  4255						LOOP	SOSLB, SOSLC^
  4256	034650	367 06 0 00 034633 		SOJG	AC-1,SOSLB		;ITERATION COUNTER
  4257	034651	200 07 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4258	034652	321 06 0 00 034637 		JUMPL	AC-1,SOSLC		;LOOP ON ERROR SWITCH ^
  4259
  4260
  4261
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 89
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0120

  4262
  4263
  4264					;TEST SOSE,SOSL. CHECK FOR SKIP/NO SKIP,
  4265					;PROPER STORING C(E) INTO AC, AND
  4266					;CORRECT DATA IN E FOR C(E)=2
  4267
  4268
  4269			000011			AC=11
  4270	034653				SOSL1:	SETUP	100,0^
  4271			000012			AC1=<AC+1>&17
  4272			000013			AC2=<AC+2>&17
  4273			000014			AC3=<AC+3>&17
  4274			000015			AC4=<AC+4>&17
  4275			000016			AC5=<AC+5>&17
  4276			000007			RAN1=<AC-2>&17
  4277	034653	201 10 0 00 034653 		MOVEI	AC-1,.
  4278	034654	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4279	034655	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4280	034656	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4281	034657	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4282	034660	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4283	034661	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4284	034662	201 11 0 00 000002 	SOSL2:	MOVEI	AC,2		;SETUP C(E) TO = 2.
  4285	034663	200 07 0 00 000011 		MOVE	RAN1,AC		;SAVE C(E) IN CASE OF ERROR.
  4286	034664	200 13 0 00 000012 		MOVE	AC2,AC1		;SAVE C(AC) IN CASE OF ERROR.
  4287	034665	371 12 0 00 000011 		SOSL	AC1,AC		;C(E)=1...NO SKIP.
  4288	034666	372 12 0 00 000011 		SOSE	AC1,AC		;C(E)=0...SHOULD SKIP
  4289	034667	005 12 0 00 040346 		ER	AC1,[ASCII /SOS/]
  4290	034670	312 12 0 00 000011 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER SOS
  4291	034671	001 07 0 00 000013 		ERR	RAN1,AC2
  4292	034672	312 11 0 00 040322 		CAME	AC,[0]		;C(E) SHOULD NOW=0
  4293	034673	001 07 0 00 000013 		ERR	RAN1,AC2
  4294	034674	367 10 0 00 034662 		SOJG	AC-1,SOSL2	;ITERATION COUNTER.
  4295	034675	321 10 0 00 034662 		JUMPL	AC-1,SOSL2	;LOOP ON ERROR SWITCH.
  4296
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 90
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0121

  4297
  4298
  4299					;TEST SOSG, SOSL. CHECK FOR SKIP/ NO SKIP,
  4300					;PROPER STORING OF C(E) INTO AC, AND CORRECT
  4301					;DATA IN E FOR C(E)=+RAN.
  4302
  4303
  4304			000012			AC=12
  4305	034676				SOSG1:	SETUP	100,0^
  4306			000013			AC1=<AC+1>&17
  4307			000014			AC2=<AC+2>&17
  4308			000015			AC3=<AC+3>&17
  4309			000016			AC4=<AC+4>&17
  4310			000017			AC5=<AC+5>&17
  4311			000010			RAN1=<AC-2>&17
  4312	034676	201 11 0 00 034676 		MOVEI	AC-1,.
  4313	034677	202 11 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4314	034700	201 11 0 00 000011 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4315	034701	202 11 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4316	034702	201 11 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4317	034703	240 11 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4318	034704	240 11 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4319	034705				SOSG2:	RANDOM^
  4320	034705	200 12 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4321	034706	270 12 0 00 040321 		ADD	AC,[142536475076]
  4322	034707	241 12 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4323	034710	447 12 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  4324	034711	630 12 0 00 040327 	SOSG3:	TDZ	AC,[XWD 400000,0];MAKE C(E) POSITIVE.
  4325	034712	435 12 0 00 000003 		IORI	AC,3		;MAKE SURE C(E)=3.
  4326	034713	200 10 0 00 000012 		MOVE	RAN1,AC		;SAVE C(E) IN CASE OF ERROR.
  4327	034714	200 14 0 00 000013 		MOVE	AC2,AC1		;SAVE C(AC) IN CASE OF ERROR.
  4328	034715	200 15 0 00 000012 		MOVE	AC3,AC		;SIMULATE
  4329	034716	274 15 0 00 040333 		SUB	AC3,[2]		;2 SOS'S
  4330	034717	371 13 0 00 000012 		SOSL	AC1,AC		;C(E) IS POSITIVE. SHOULD NOT SKIP
  4331	034720	377 13 0 00 000012 		SOSG	AC1,AC		;C(E) IS POSITIVE. SHOULD SKIP
  4332	034721	005 13 0 00 040346 		ER	AC1,[ASCII /SOS/]
  4333	034722	312 13 0 00 000012 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER SOS
  4334	034723	001 10 0 00 000014 		ERR	RAN1,AC2
  4335	034724	312 12 0 00 000015 		CAME	AC,AC3		;C(E) SHOULD=SIM ANS
  4336	034725	001 10 0 00 000014 		ERR	RAN1,AC2
  4337						LOOP	SOSG2,SOSG3^
  4338	034726	367 11 0 00 034705 		SOJG	AC-1,SOSG2		;ITERATION COUNTER
  4339	034727	200 12 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4340	034730	321 11 0 00 034711 		JUMPL	AC-1,SOSG3		;LOOP ON ERROR SWITCH ^
  4341
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 91
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0122

  4342
  4343
  4344					;TEST SOSG, SOSL. CHECK FOR SKIP/ NO SKIP,
  4345					;PROPER STORING C(E) INTO AC, AND CORRECT
  4346					;DATA IN E FOR C(E)=-RAN
  4347
  4348
  4349			000013			AC=13
  4350	034731				SOSL1A:	SETUP	100,0^
  4351			000014			AC1=<AC+1>&17
  4352			000015			AC2=<AC+2>&17
  4353			000016			AC3=<AC+3>&17
  4354			000017			AC4=<AC+4>&17
  4355			000000			AC5=<AC+5>&17
  4356			000011			RAN1=<AC-2>&17
  4357	034731	201 12 0 00 034731 		MOVEI	AC-1,.
  4358	034732	202 12 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4359	034733	201 12 0 00 000012 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4360	034734	202 12 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4361	034735	201 12 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4362	034736	240 12 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4363	034737	240 12 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4364	034740				SOSL2A:	RANDOM^
  4365	034740	200 13 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4366	034741	270 13 0 00 040321 		ADD	AC,[142536475076]
  4367	034742	241 13 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4368	034743	447 13 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  4369	034744	670 13 0 00 040327 	SOSL3A:	TDO	AC,[XWD 400000,0];MAKE C(E) NEG.
  4370	034745	200 11 0 00 000013 		MOVE	RAN1,AC		;SAVE C(E) IN CASE OF ERROR
  4371	034746	200 15 0 00 000014 		MOVE	AC2,AC1		;SAVE C(AC) IN CASE OF ERROR
  4372	034747	200 16 0 00 000013 		MOVE	AC3,AC		;SIMULATE
  4373	034750	274 16 0 00 040333 		SUB	AC3,[2]		;2 SOS'S
  4374	034751	377 14 0 00 000013 		SOSG	AC1,AC		;C(E) IS NEG. NO SKIP
  4375	034752	371 14 0 00 000013 		SOSL	AC1,AC		;C(E) IS NEG. SKIP
  4376	034753	005 14 0 00 040346 		ER	AC1,[ASCII /SOS/]
  4377	034754	312 14 0 00 000013 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER SOS
  4378	034755	001 11 0 00 000015 		ERR	RAN1,AC2
  4379	034756	312 13 0 00 000016 		CAME	AC,AC3		;C(E) SHOULD=SIM ANS
  4380	034757	001 11 0 00 000015 		ERR	RAN1,AC2
  4381						LOOP	SOSL2A, SOSL3A^
  4382	034760	367 12 0 00 034740 		SOJG	AC-1,SOSL2A		;ITERATION COUNTER
  4383	034761	200 13 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4384	034762	321 12 0 00 034744 		JUMPL	AC-1,SOSL3A		;LOOP ON ERROR SWITCH ^
  4385
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 92
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0123

  4386
  4387
  4388					;TEST SOSL, SOSLE.  CHECK FOR SKIP/NO SKIP,
  4389					;PROPER STORING OF C(E) INTO AC, AND CORRECT
  4390					;DATA IN E FOR C(E)=2
  4391
  4392
  4393			000014			AC=14
  4394	034763				SOSLE1:	SETUP	100,0^
  4395			000015			AC1=<AC+1>&17
  4396			000016			AC2=<AC+2>&17
  4397			000017			AC3=<AC+3>&17
  4398			000000			AC4=<AC+4>&17
  4399			000001			AC5=<AC+5>&17
  4400			000012			RAN1=<AC-2>&17
  4401	034763	201 13 0 00 034763 		MOVEI	AC-1,.
  4402	034764	202 13 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4403	034765	201 13 0 00 000013 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4404	034766	202 13 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4405	034767	201 13 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4406	034770	240 13 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4407	034771	240 13 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4408	034772	201 14 0 00 000002 	SOSLE2:	MOVEI	AC,2		;MAKE C(E)=2
  4409	034773	200 12 0 00 000014 		MOVE	RAN1,AC		;SAVE C(E) IN CASE OF ERROR
  4410	034774	200 16 0 00 000015 		MOVE	AC2,AC1		;SAVE C(AC) IN CASE OF ERROR
  4411	034775	371 15 0 00 000014 		SOSL	AC1,AC		;C(E)-1=1...NO SKIP
  4412	034776	373 15 0 00 000014 		SOSLE	AC1,AC		;C(E)-1=0...SKIP
  4413	034777	005 15 0 00 040346 		ER	AC1,[ASCII /SOS/]
  4414	035000	312 15 0 00 000014 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER SOS
  4415	035001	001 12 0 00 000016 		ERR	RAN1,AC2
  4416	035002	312 14 0 00 040322 		CAME	AC,[0]		;C(AC) SHOULD = 0
  4417	035003	001 12 0 00 000016 		ERR	RAN1,AC2
  4418	035004	367 13 0 00 034772 		SOJG	AC-1,SOSLE2	;ITERATION COUNTER.
  4419	035005	321 13 0 00 034772 		JUMPL	AC-1,SOSLE2	;LOOP ON ERROR SWITCH.
  4420
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 93
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0124

  4421
  4422
  4423					;TEST SOSLE, SOSGE.  CHECK FOR SKIP/NO SKIP,
  4424					;PROPER STORING OF C(E) INTO AC, AND CORRECT
  4425					;DATA IN E FOR C(E)=2
  4426
  4427
  4428			000005			AC=5
  4429	035006				SOSGE1:	SETUP	100,0^
  4430			000006			AC1=<AC+1>&17
  4431			000007			AC2=<AC+2>&17
  4432			000010			AC3=<AC+3>&17
  4433			000011			AC4=<AC+4>&17
  4434			000012			AC5=<AC+5>&17
  4435			000003			RAN1=<AC-2>&17
  4436	035006	201 04 0 00 035006 		MOVEI	AC-1,.
  4437	035007	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4438	035010	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4439	035011	202 04 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4440	035012	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4441	035013	240 04 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4442	035014	240 04 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4443	035015	201 05 0 00 000002 	SOSGE2:	MOVEI	AC,2		;MAKE C(E)=2
  4444	035016	200 03 0 00 000005 		MOVE	RAN1,AC		;SAVE C(E) IN CASE OF ERROR
  4445	035017	200 07 0 00 000006 		MOVE	AC2,AC1		;SAVE C(AC) IN CASE OF ERROR
  4446	035020	373 06 0 00 000005 		SOSLE	AC1,AC		;C(E)-1=1...NO SKIP
  4447	035021	375 06 0 00 000005 		SOSGE	AC1,AC		;C(E)-1=0...SKIP
  4448	035022	005 06 0 00 040346 		ER	AC1,[ASCII /SOS/]
  4449	035023	312 06 0 00 000005 		CAME	AC1,AC		;C(AC) SHOULD=C(E) AFTER SOS
  4450	035024	001 03 0 00 000007 		ERR	RAN1,AC2
  4451	035025	312 05 0 00 040322 		CAME	AC,[0]		;C(E) SHOULD=0
  4452	035026	001 03 0 00 000007 		ERR	RAN1,AC2
  4453	035027	367 04 0 00 035015 		SOJG	AC-1,SOSGE2	;ITERATION COUNTER.
  4454	035030	321 04 0 00 035015 		JUMPL	AC-1,SOSGE2	;LOOP ON ERROR SWITCH.
  4455
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 94
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0125

  4456
  4457
  4458					;TEST SOJ, SOJA.  CHECK JUMP/NO JUMP AND
  4459					;CORRECT DATA IIN AC FOR C(AC)=RAN.
  4460
  4461
  4462			000002			AC=2
  4463	035031				SOJ1:	SETUP	100,0^
  4464			000003			AC1=<AC+1>&17
  4465			000004			AC2=<AC+2>&17
  4466			000005			AC3=<AC+3>&17
  4467			000006			AC4=<AC+4>&17
  4468			000007			AC5=<AC+5>&17
  4469			000000			RAN1=<AC-2>&17
  4470	035031	201 01 0 00 035031 		MOVEI	AC-1,.
  4471	035032	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4472	035033	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4473	035034	202 01 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4474	035035	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4475	035036	240 01 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4476	035037	240 01 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4477	035040				SOJ2:	RANDOM^
  4478	035040	200 02 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4479	035041	270 02 0 00 040321 		ADD	AC,[142536475076]
  4480	035042	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4481	035043	447 02 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  4482	035044	200 03 0 00 000002 	SOJ3:	MOVE	AC1,AC		;SIMULATE
  4483	035045	274 03 0 00 040333 		SUB	AC1,[2]		;2 SOJ'S
  4484	035046	360 02 0 00 035050 		SOJ	AC,.+2		;SHOULD NOT JUMP
  4485	035047	364 02 0 00 035051 		SOJA	AC,.+2		;SHOULD JUMP
  4486	035050	005 02 0 00 040347 		ER	AC,[ASCII /SOJ/]
  4487	035051	312 02 0 00 000003 		CAME	AC,AC1		;C(AC) SHOULD=SIM ANS
  4488	035052	013 00 0 00 035050 		EERRI	,.-2
  4489						LOOP	SOJ2,SOJ3^
  4490	035053	367 01 0 00 035040 		SOJG	AC-1,SOJ2		;ITERATION COUNTER
  4491	035054	200 02 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4492	035055	321 01 0 00 035044 		JUMPL	AC-1,SOJ3		;LOOP ON ERROR SWITCH ^
  4493
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 95
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0126

  4494
  4495
  4496					;TEST SOJE,SOJN.  CHECK JUMP/NO JUMP AND
  4497					;CORRECT DATA IN AC FOR C(AC)=MAGIC NUMBERS (7,17,37,ETC.)
  4498
  4499
  4500			000003			AC=3
  4501	035056				SOJE1:	SETUP	100,0^
  4502			000004			AC1=<AC+1>&17
  4503			000005			AC2=<AC+2>&17
  4504			000006			AC3=<AC+3>&17
  4505			000007			AC4=<AC+4>&17
  4506			000010			AC5=<AC+5>&17
  4507			000001			RAN1=<AC-2>&17
  4508	035056	201 02 0 00 035056 		MOVEI	AC-1,.
  4509	035057	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4510	035060	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4511	035061	202 02 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4512	035062	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4513	035063	240 02 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4514	035064	240 02 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4515	035065	201 03 0 00 000002 	SOJE2:	MOVEI	AC,2		;SETUP AC
  4516	035066	241 03 0 00 000001 	SOJE3:	ROT	AC,1		;TO CONTAIN
  4517	035067	435 03 0 00 000003 		IORI	AC,3		;7,17,37,+ETC
  4518	035070	200 01 0 00 000003 		MOVE	RAN1,AC		;SAVE FOR FUTURE COMPARE.
  4519	035071	200 03 0 00 000001 	SOJE4:	MOVE	AC,RAN1		;COME HERE AND RESTORE IF THERE IS AN ERROR.
  4520	035072	200 04 0 00 000001 		MOVE	AC1,RAN1	;SIMULATE
  4521	035073	274 04 0 00 040333 		SUB	AC1,[2]		;2 SOJ'S
  4522	035074	362 03 0 00 035076 		SOJE	AC,.+2		;SHOULD NOT SKIP
  4523	035075	366 03 0 00 035077 		SOJN	AC,.+2		;SHOULD SKIP.
  4524	035076	005 03 0 00 040347 		ER	AC,[ASCII /SOJ/]
  4525	035077	312 03 0 00 000004 		CAME	AC,AC1		;C(AC) SHOULD=SIM ANS
  4526	035100	003 01 0 00 035076 		ERRI	RAN1,.-2
  4527	035101	316 01 0 00 040324 		CAMN	RAN1,[-1]	;C(RAN1) = -1?
  4528	035102	254 00 0 00 035065 		JRST	SOJE2		;YES, REINITIALIZE C(AC)
  4529	035103	367 02 0 00 035066 		SOJG	AC-1,SOJE3	;ITERATION COUNTER.
  4530	035104	321 02 0 00 035071 		JUMPL	AC-1,SOJE4	;LOOP ON ERROR SWITCH.
  4531
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 96
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0127

  4532
  4533
  4534					;TEST SOJE, SOJL. CHECK FOR JUMP/ NO JUMP AND
  4535					;CORRECT DATA IN AC FOR ORIG. C(AC)=2
  4536
  4537
  4538			000004			AC=4
  4539	035105				SOJL1:	SETUP	100,0^
  4540			000005			AC1=<AC+1>&17
  4541			000006			AC2=<AC+2>&17
  4542			000007			AC3=<AC+3>&17
  4543			000010			AC4=<AC+4>&17
  4544			000011			AC5=<AC+5>&17
  4545			000002			RAN1=<AC-2>&17
  4546	035105	201 03 0 00 035105 		MOVEI	AC-1,.
  4547	035106	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4548	035107	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4549	035110	202 03 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4550	035111	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4551	035112	240 03 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4552	035113	240 03 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4553	035114	201 04 0 00 000002 	SOJL2:	MOVEI	AC,2		;SETUP C(AC) TO = 2.
  4554	035115	200 02 0 00 000004 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR.
  4555	035116	361 04 0 00 035120 		SOJL	AC,.+2		;C(AC) = 1...NO JUMP.
  4556	035117	362 04 0 00 035121 		SOJE	AC,.+2		;C(AC)=0...SHOULD SKIP
  4557	035120	005 04 0 00 040347 		ER	AC,[ASCII /SOJ/]
  4558	035121	312 04 0 00 040322 		CAME	AC,[0]		;C(AC) SHOULD=0
  4559	035122	003 02 0 00 035120 		ERRI	RAN1,.-2
  4560	035123	367 03 0 00 035114 		SOJG	AC-1,SOJL2	;ITERATION COUNTER.
  4561	035124	321 03 0 00 035114 		JUMPL	AC-1,SOJL2	;LOOP ON ERROR SWITCH.
  4562
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 97
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0128

  4563
  4564
  4565					;TEST SOJG, SOJL. CHECK FOR JUMP/ NO JUMP AND
  4566					;CORRECT DATA IN AC FOR C(AC)=+RAN
  4567
  4568
  4569			000005			AC=5
  4570	035125				SOJG1:	SETUP	100,0^
  4571			000006			AC1=<AC+1>&17
  4572			000007			AC2=<AC+2>&17
  4573			000010			AC3=<AC+3>&17
  4574			000011			AC4=<AC+4>&17
  4575			000012			AC5=<AC+5>&17
  4576			000003			RAN1=<AC-2>&17
  4577	035125	201 04 0 00 035125 		MOVEI	AC-1,.
  4578	035126	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4579	035127	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4580	035130	202 04 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4581	035131	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4582	035132	240 04 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4583	035133	240 04 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4584	035134				SOJG2:	RANDOM^
  4585	035134	200 05 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4586	035135	270 05 0 00 040321 		ADD	AC,[142536475076]
  4587	035136	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4588	035137	447 05 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  4589	035140	630 05 0 00 040327 	SOJG3:	TDZ	AC,[XWD 400000,0];MAKE C(AC) POSITIVE.
  4590	035141	434 05 0 00 040343 		IOR	AC,[3]		;MAKE SURE SOJ'S SKIP..SET LAST TWO BITS.
  4591	035142	200 06 0 00 000005 		MOVE	AC1,AC		;SAVE C(AC) IN CASE OF ERROR
  4592	035143	200 07 0 00 000005 		MOVE	AC2,AC		;SIMULATE
  4593	035144	274 07 0 00 040333 		SUB	AC2,[2]		;2 SOJ'S
  4594	035145	361 05 0 00 035147 		SOJL	AC,.+2		;C(AC) IS POSITIVE...SHOULD NOT SKIP
  4595	035146	367 05 0 00 035150 		SOJG	AC,.+2		;C(AC) IS POSITIVE...SHOULD SKIP
  4596	035147	005 05 0 00 040347 		ER	AC,[ASCII /SOJ/]
  4597	035150	312 05 0 00 000007 		CAME	AC,AC2		;C(AC) SHOULD=SIM ANS
  4598	035151	003 06 0 00 035147 		ERRI	AC1,.-2
  4599						LOOP	SOJG2,SOJG3^
  4600	035152	367 04 0 00 035134 		SOJG	AC-1,SOJG2		;ITERATION COUNTER
  4601	035153	200 05 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4602	035154	321 04 0 00 035140 		JUMPL	AC-1,SOJG3		;LOOP ON ERROR SWITCH ^
  4603
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 98
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0129

  4604
  4605
  4606					;TEST SOJG, SOJL. CHECK FOR JUMP/ NO JUMP AND
  4607					;CORRECT DATA IN AC FOR C(AC)=-RAN
  4608
  4609
  4610			000006			AC=6
  4611	035155				SOJL1A:	SETUP	100,0^
  4612			000007			AC1=<AC+1>&17
  4613			000010			AC2=<AC+2>&17
  4614			000011			AC3=<AC+3>&17
  4615			000012			AC4=<AC+4>&17
  4616			000013			AC5=<AC+5>&17
  4617			000004			RAN1=<AC-2>&17
  4618	035155	201 05 0 00 035155 		MOVEI	AC-1,.
  4619	035156	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4620	035157	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4621	035160	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4622	035161	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4623	035162	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4624	035163	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4625	035164				SOJL2A:	RANDOM^
  4626	035164	200 06 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4627	035165	270 06 0 00 040321 		ADD	AC,[142536475076]
  4628	035166	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4629	035167	447 06 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  4630	035170	670 06 0 00 040327 	SOJL3A:	TDO	AC,[XWD 400000,0];MAKE C(AC) NEG.
  4631	035171	200 07 0 00 000006 		MOVE	AC1,AC		;SAVE C(AC) IN CASE OF ERROR
  4632	035172	200 10 0 00 000006 		MOVE	AC2,AC		;SIMULATE
  4633	035173	274 10 0 00 040333 		SUB	AC2,[2]		;2 SOJ'S
  4634	035174	367 06 0 00 035176 		SOJG	AC,.+2		;C(AC) IS NEG. SHOULD NOT SKIP
  4635	035175	361 06 0 00 035177 		SOJL	AC,.+2		;C(AC) IS NEG. SHOULD SKIP
  4636	035176	005 06 0 00 040347 		ER	AC,[ASCII /SOJ/]
  4637	035177	312 06 0 00 000010 		CAME	AC,AC2		;C(AC) SHOULD=SIM ANS
  4638	035200	003 07 0 00 035176 		ERRI	AC1,.-2
  4639						LOOP	SOJL2A, SOJL3A^
  4640	035201	367 05 0 00 035164 		SOJG	AC-1,SOJL2A		;ITERATION COUNTER
  4641	035202	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4642	035203	321 05 0 00 035170 		JUMPL	AC-1,SOJL3A		;LOOP ON ERROR SWITCH ^
  4643
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 99
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0130

  4644
  4645
  4646					;TEST SOJL, SOJLE.  CHECK FOR JUMP/NO JUMP AND
  4647					;CORRECT DATA IN AC FOR C(AC)=2.
  4648
  4649
  4650			000015			AC=15
  4651	035204				SOJLE1:	SETUP	100,0^
  4652			000016			AC1=<AC+1>&17
  4653			000017			AC2=<AC+2>&17
  4654			000000			AC3=<AC+3>&17
  4655			000001			AC4=<AC+4>&17
  4656			000002			AC5=<AC+5>&17
  4657			000013			RAN1=<AC-2>&17
  4658	035204	201 14 0 00 035204 		MOVEI	AC-1,.
  4659	035205	202 14 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4660	035206	201 14 0 00 000014 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4661	035207	202 14 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4662	035210	201 14 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4663	035211	240 14 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4664	035212	240 14 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4665	035213	201 15 0 00 000002 	SOJLE2:	MOVEI	AC,2		;MAKE C(AC)=2
  4666	035214	200 13 0 00 000015 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  4667	035215	361 15 0 00 035217 		SOJL	AC,.+2		;C(AC)-1=1...NO SKIP
  4668	035216	363 15 0 00 035220 		SOJLE	AC,.+2		;C(AC)-1=0...SKIP
  4669	035217	005 15 0 00 040347 		ER	AC,[ASCII /SOJ/]
  4670	035220	312 15 0 00 040322 		CAME	AC,[0]		;C(AC) SHOULD=0
  4671	035221	003 13 0 00 035217 		ERRI	RAN1,.-2
  4672	035222	367 14 0 00 035213 		SOJG	AC-1,SOJLE2	;ITERATION COUNTER.
  4673	035223	321 14 0 00 035213 		JUMPL	AC-1,SOJLE2	;LOOP ON ERROR SWITCH.
  4674
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 100
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0131

  4675
  4676
  4677					;TEST SOJLE, SOJGE.  CHECK FOR JUMP/NO JUMP AND
  4678					;CORRECT DATA IN AC FOR  C(AC)=2
  4679
  4680
  4681			000006			AC=6
  4682	035224				SOJGE1:	SETUP	100,0^
  4683			000007			AC1=<AC+1>&17
  4684			000010			AC2=<AC+2>&17
  4685			000011			AC3=<AC+3>&17
  4686			000012			AC4=<AC+4>&17
  4687			000013			AC5=<AC+5>&17
  4688			000004			RAN1=<AC-2>&17
  4689	035224	201 05 0 00 035224 		MOVEI	AC-1,.
  4690	035225	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4691	035226	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4692	035227	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4693	035230	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4694	035231	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4695	035232	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4696	035233	201 06 0 00 000002 	SOJGE2:	MOVEI	AC,2		;MAKE C(AC)=2
  4697	035234	200 04 0 00 000006 		MOVE	RAN1,AC		;SAVE C(AC) IN CASE OF ERROR
  4698	035235	363 06 0 00 035237 		SOJLE	AC,.+2		;C(AC)-1=1...NO SKIP
  4699	035236	365 06 0 00 035240 		SOJGE	AC,.+2		;C(AC)-1=0...SKIP
  4700	035237	005 06 0 00 040347 		ER	AC,[ASCII /SOJ/]
  4701	035240	312 06 0 00 040322 		CAME	AC,[0]		;C(AC) SHOULD=0
  4702	035241	003 04 0 00 035237 		ERRI	RAN1,.-2
  4703	035242	367 05 0 00 035233 		SOJG	AC-1,SOJGE2	;ITERATION COUNTER.
  4704	035243	321 05 0 00 035233 		JUMPL	AC-1,SOJGE2	;LOOP ON ERROR SWITCH.
  4705
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 101
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0132

  4706
  4707
  4708					;TEST AOS, SOSA.  CHECK FOR SKIP/NO SKIP,
  4709					;CORRECT LOADING OF C(E) INTO AC, AND C(E)
  4710					;=ORIG. C(E) FOR C(E)=RAN
  4711
  4712
  4713			000005			AC=5
  4714	035244				ASSS1:	SETUP	100,0^
  4715			000006			AC1=<AC+1>&17
  4716			000007			AC2=<AC+2>&17
  4717			000010			AC3=<AC+3>&17
  4718			000011			AC4=<AC+4>&17
  4719			000012			AC5=<AC+5>&17
  4720			000003			RAN1=<AC-2>&17
  4721	035244	201 04 0 00 035244 		MOVEI	AC-1,.
  4722	035245	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4723	035246	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4724	035247	202 04 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4725	035250	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4726	035251	240 04 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4727	035252	240 04 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4728	035253				ASSS2:	RANDOM^
  4729	035253	200 05 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4730	035254	270 05 0 00 040321 		ADD	AC,[142536475076]
  4731	035255	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4732	035256	447 05 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  4733	035257	200 03 0 00 000006 	ASSS3:	MOVE	RAN1,AC1	;SAVE C(AC) IN CASE OF ERROR.
  4734	035260	350 06 0 00 000005 		AOS	AC1,AC		;SHOULD NOT SKIP
  4735	035261	374 06 0 00 000005 		SOSA	AC1,AC		;SHOULD SKIP
  4736	035262	005 06 0 00 040334 		ER	AC1,[ASCII /AOS/]
  4737	035263	312 06 0 00 000005 		CAME	AC1,AC		;C(AC) SHOULD=C(E)
  4738	035264	011 00 0 00 000003 		EERR	,RAN1
  4739	035265	312 05 0 00 040444 		CAME	AC,RAN		;C(E) SHOULD=ORIG. C(E)
  4740	035266	011 00 0 00 000003 		EERR	,RAN1
  4741						LOOP	ASSS2,ASSS3^
  4742	035267	367 04 0 00 035253 		SOJG	AC-1,ASSS2		;ITERATION COUNTER
  4743	035270	200 05 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4744	035271	321 04 0 00 035257 		JUMPL	AC-1,ASSS3		;LOOP ON ERROR SWITCH ^
  4745
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 102
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0133

  4746
  4747
  4748					;TEST AOJ, SOJA.  CHECK FOR JUMP/NO JUMP AND
  4749					;C(AC)=ORIG C(AC) FOR C(AC) = RAN
  4750
  4751
  4752			000006			AC=6
  4753	035272				AJSJ1:	SETUP	100,0^
  4754			000007			AC1=<AC+1>&17
  4755			000010			AC2=<AC+2>&17
  4756			000011			AC3=<AC+3>&17
  4757			000012			AC4=<AC+4>&17
  4758			000013			AC5=<AC+5>&17
  4759			000004			RAN1=<AC-2>&17
  4760	035272	201 05 0 00 035272 		MOVEI	AC-1,.
  4761	035273	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4762	035274	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4763	035275	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4764	035276	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4765	035277	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4766	035300	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4767	035301				AJSJ2:	RANDOM^
  4768	035301	200 06 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4769	035302	270 06 0 00 040321 		ADD	AC,[142536475076]
  4770	035303	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4771	035304	447 06 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  4772	035305	340 06 0 00 035307 	AJSJ3:	AOJ	AC,.+2		;SHOULD NOT SKIP
  4773	035306	364 06 0 00 035310 		SOJA	AC,.+2		;SHOULD SKIP
  4774	035307	005 06 0 00 040345 		ER	AC,[ASCII /AOJ/]
  4775	035310	312 06 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD=ORIG C(AC)
  4776	035311	013 00 0 00 035307 		EERRI	,.-2
  4777						LOOP	AJSJ2,AJSJ3^
  4778	035312	367 05 0 00 035301 		SOJG	AC-1,AJSJ2		;ITERATION COUNTER
  4779	035313	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4780	035314	321 05 0 00 035305 		JUMPL	AC-1,AJSJ3		;LOOP ON ERROR SWITCH ^
  4781
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 103
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0134

  4782
  4783
  4784					;TEST CAM, CAMA.  CHECK FOR SKIP/NO SKIP AND
  4785					;C(AC) + C(E) NOT CHANGING WITH A FLOATING ONE
  4786					;IN C(E)
  4787
  4788
  4789			000010			AC=10
  4790	035315				CAM1:	SETUP	100,0^
  4791			000011			AC1=<AC+1>&17
  4792			000012			AC2=<AC+2>&17
  4793			000013			AC3=<AC+3>&17
  4794			000014			AC4=<AC+4>&17
  4795			000015			AC5=<AC+5>&17
  4796			000006			RAN1=<AC-2>&17
  4797	035315	201 07 0 00 035315 		MOVEI	AC-1,.
  4798	035316	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4799	035317	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4800	035320	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4801	035321	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4802	035322	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4803	035323	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4804	035324	201 11 0 00 000001 		MOVEI	AC1,1		;SETUP C(E) TO=A FLOATING ONE
  4805	035325				CAM2:	RANDOM^
  4806	035325	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4807	035326	270 10 0 00 040321 		ADD	AC,[142536475076]
  4808	035327	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4809	035330	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  4810	035331	241 11 0 00 000001 		ROT	AC1,1		;ROT TO TEST NEXT BIT.
  4811	035332	200 12 0 00 000011 		MOVE	AC2,AC1		;SAVE FOR FUTURE COMPARE
  4812	035333	200 11 0 00 000012 	CAM3:	MOVE	AC1,AC2		;RESTORE C(E) IF ERROR.
  4813	035334	310 10 0 00 000011 		CAM	AC,AC1		;SHOULD NOT SKIP.
  4814	035335	314 10 0 00 000011 		CAMA	AC,AC1		;SHOULD SKIP.
  4815	035336	005 10 0 00 040350 		ER	AC,[ASCII /CAM/]
  4816	035337	312 10 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD=ORIG C(AC).
  4817	035340	001 12 0 00 040444 		ERR	AC2,RAN
  4818	035341	312 11 0 00 000012 		CAME	AC1,AC2		;C(E) SHOULD=ORIG C(E).
  4819	035342	001 12 0 00 040444 		ERR	AC2,RAN
  4820						LOOP	CAM2,CAM3^
  4821	035343	367 07 0 00 035325 		SOJG	AC-1,CAM2		;ITERATION COUNTER
  4822	035344	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4823	035345	321 07 0 00 035333 		JUMPL	AC-1,CAM3		;LOOP ON ERROR SWITCH ^
  4824
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 104
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0135

  4825
  4826
  4827					;TEST CAML,CAMG.  CHECK FOR SKIP/NO SKIP AND
  4828					;C(AC)+C(E) NOT BEING CHANGED FOR+RAN1 TO -RAN CONDITION.
  4829
  4830
  4831			000011			AC=11
  4832	035346				CAML1:	SETUP	100,0^
  4833			000012			AC1=<AC+1>&17
  4834			000013			AC2=<AC+2>&17
  4835			000014			AC3=<AC+3>&17
  4836			000015			AC4=<AC+4>&17
  4837			000016			AC5=<AC+5>&17
  4838			000007			RAN1=<AC-2>&17
  4839	035346	201 10 0 00 035346 		MOVEI	AC-1,.
  4840	035347	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4841	035350	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4842	035351	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4843	035352	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4844	035353	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4845	035354	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4846	035355				CAML2:	RANDOM^
  4847	035355	200 11 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4848	035356	270 11 0 00 040321 		ADD	AC,[142536475076]
  4849	035357	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4850	035360	447 11 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  4851	035361	241 11 0 00 000011 	CAML3:	ROT	AC,11		;C(AC)=SECOND RAN. NUM.
  4852	035362	200 12 0 00 040444 		MOVE	AC1,RAN		;C(E)=1'ST RAN. NUM
  4853	035363	670 12 0 00 040327 		TDO	AC1,[XWD 400000,0];MAKE C(E) A NEG NUM.
  4854	035364	630 11 0 00 040327 		TDZ	AC,[XWD 400000,0];MAKE C(AC) A POS. NUM.
  4855	035365	200 07 0 00 000011 		MOVE	RAN1,AC		;SAVE C(AC) FOR FUTURE COMPARE
  4856	035366	200 13 0 00 000012 		MOVE	AC2,AC1		;SAVE C(E) FOr FUTURE COMPARE
  4857	035367	311 11 0 00 000012 		CAML	AC,AC1		;C(AC)>C(E)...NO SKIP.
  4858	035370	317 11 0 00 000012 		CAMG	AC,AC1		;C(AC)>C(E)...SKIP
  4859	035371	005 11 0 00 040350 		ER	AC,[ASCII /CAM/]
  4860	035372	312 11 0 00 000007 		CAME	AC,RAN1		;C(AC) SHOULD=ORIG. C(AC)
  4861	035373	001 13 0 00 000007 		ERR	AC2,RAN1
  4862	035374	312 12 0 00 000013 		CAME	AC1,AC2		;C(E) SHOULD=ORIG. C(E)
  4863	035375	001 13 0 00 000007 		ERR	AC2,RAN1
  4864						LOOP	CAML2,CAML3^
  4865	035376	367 10 0 00 035355 		SOJG	AC-1,CAML2		;ITERATION COUNTER
  4866	035377	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4867	035400	321 10 0 00 035361 		JUMPL	AC-1,CAML3		;LOOP ON ERROR SWITCH ^
  4868
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 105
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0136

  4869
  4870
  4871					;TEST CAMLE,CAMG.  CHECK FOR SKIP/NO SKIP AND
  4872					;C(AC)+C(E) NOT BEING CHANGED FOR +RAN1 TO -RAN CONDITION.
  4873
  4874
  4875			000002			AC=2
  4876	035401				CAMLE1:	SETUP	100,0^
  4877			000003			AC1=<AC+1>&17
  4878			000004			AC2=<AC+2>&17
  4879			000005			AC3=<AC+3>&17
  4880			000006			AC4=<AC+4>&17
  4881			000007			AC5=<AC+5>&17
  4882			000000			RAN1=<AC-2>&17
  4883	035401	201 01 0 00 035401 		MOVEI	AC-1,.
  4884	035402	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4885	035403	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4886	035404	202 01 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4887	035405	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4888	035406	240 01 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4889	035407	240 01 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4890	035410				CAMLE2:	RANDOM^
  4891	035410	200 02 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4892	035411	270 02 0 00 040321 		ADD	AC,[142536475076]
  4893	035412	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4894	035413	447 02 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  4895	035414	241 02 0 00 000011 	CAMLE3:	ROT	AC,11		;C(AC)=SECOND RAN. NUM.
  4896	035415	200 03 0 00 040444 		MOVE	AC1,RAN		;C(E)=1'ST RAN. NUM.
  4897	035416	670 03 0 00 040327 		TDO	AC1,[XWD 400000,0];MAKE C(E) A NEG NUM.
  4898	035417	630 02 0 00 040327 		TDZ	AC,[XWD 400000,0];MAKE C(AC) A POS. NUM.
  4899	035420	200 00 0 00 000002 		MOVE	RAN1,AC		;SAVE C(AC) FOR FUTURE COMPARE.
  4900	035421	200 04 0 00 000003 		MOVE	AC2,AC1		;SAVE C(E) FOR FUTURE COMPARE
  4901	035422	313 02 0 00 000003 		CAMLE	AC,AC1		;C(AC)>C(E). NO SKIP.
  4902	035423	317 02 0 00 000003 		CAMG	AC,AC1		;C(AC)>C(E). SKIP
  4903	035424	005 02 0 00 040350 		ER	AC,[ASCII /CAM/]
  4904	035425	312 02 0 00 000000 		CAME	AC,RAN1		;C(AC) SHOULD=ORIG. C(AC).
  4905	035426	001 04 0 00 000000 		ERR	AC2,RAN1
  4906	035427	312 03 0 00 000004 		CAME	AC1,AC2		;C(E) SHOULD=ORIG C(E)
  4907	035430	001 04 0 00 000000 		ERR	AC2,RAN1
  4908						LOOP	CAMLE2,CAMLE3^
  4909	035431	367 01 0 00 035410 		SOJG	AC-1,CAMLE2		;ITERATION COUNTER
  4910	035432	200 02 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4911	035433	321 01 0 00 035414 		JUMPL	AC-1,CAMLE3		;LOOP ON ERROR SWITCH ^
  4912
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 106
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0137

  4913
  4914
  4915					;TEST CAML, CAMGE. CHECK FOR SKIP/ NO SKIP AND
  4916					;C(AC)+C(E) NOT BEING CHANGED FOR -RAN TO +RAN1 CONDITION
  4917
  4918
  4919			000003			AC=3
  4920	035434				CAMGE1:	SETUP	100,0^
  4921			000004			AC1=<AC+1>&17
  4922			000005			AC2=<AC+2>&17
  4923			000006			AC3=<AC+3>&17
  4924			000007			AC4=<AC+4>&17
  4925			000010			AC5=<AC+5>&17
  4926			000001			RAN1=<AC-2>&17
  4927	035434	201 02 0 00 035434 		MOVEI	AC-1,.
  4928	035435	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4929	035436	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4930	035437	202 02 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4931	035440	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4932	035441	240 02 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4933	035442	240 02 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4934	035443				CAMGE2:	RANDOM^
  4935	035443	200 03 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4936	035444	270 03 0 00 040321 		ADD	AC,[142536475076]
  4937	035445	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4938	035446	447 03 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  4939	035447	241 03 0 00 000011 	CAMGE3:	ROT	AC,11		;C(E)=SECOND RAN. NUM
  4940	035450	200 04 0 00 040444 		MOVE	AC1,RAN		;C(AC)=1'ST RAN NUM
  4941	035451	670 04 0 00 040327 		TDO	AC1,[XWD 400000,0];MAKE C(AC) A NEG NUM.
  4942	035452	630 03 0 00 040327 		TDZ	AC,[XWD 400000,0];MAKE C(E) A POS. NUM.
  4943	035453	200 01 0 00 000003 		MOVE	RAN1,AC		;SAVE C(E) FOR FUTURE COMPARE
  4944	035454	200 05 0 00 000004 		MOVE	AC2,AC1		;SAVE C(AC) FOR FUTURE COMPARE
  4945	035455	315 04 0 00 000003 		CAMGE	AC1,AC		;C(AC)<C(E)...NO SKIP
  4946	035456	311 04 0 00 000003 		CAML	AC1,AC		;C(AC)<C(E)...SKIP
  4947	035457	005 04 0 00 040350 		ER	AC1,[ASCII /CAM/]
  4948	035460	312 04 0 00 000005 		CAME	AC1,AC2		;C(AC) SHOULD=ORIG. C(AC)
  4949	035461	001 01 0 00 000005 		ERR	RAN1,AC2
  4950	035462	312 01 0 00 000003 		CAME	RAN1,AC		;C(E) SHOULD=ORIG. C(E)
  4951	035463	001 05 0 00 000001 		ERR	AC2,RAN1
  4952						LOOP	CAMGE2,CAMGE3^
  4953	035464	367 02 0 00 035443 		SOJG	AC-1,CAMGE2		;ITERATION COUNTER
  4954	035465	200 03 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4955	035466	321 02 0 00 035447 		JUMPL	AC-1,CAMGE3		;LOOP ON ERROR SWITCH ^
  4956
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 107
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0138

  4957
  4958
  4959					;TEST CAMG, CAMGE.  CHECK FOR SKIP/NO SKIP AND
  4960					;C(AC) NOT BEING CHANGED FOR RAN TO RAN CONDITION
  4961
  4962
  4963			000004			AC=4
  4964	035467				CAMG1:	SETUP	100,0^
  4965			000005			AC1=<AC+1>&17
  4966			000006			AC2=<AC+2>&17
  4967			000007			AC3=<AC+3>&17
  4968			000010			AC4=<AC+4>&17
  4969			000011			AC5=<AC+5>&17
  4970			000002			RAN1=<AC-2>&17
  4971	035467	201 03 0 00 035467 		MOVEI	AC-1,.
  4972	035470	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  4973	035471	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  4974	035472	202 03 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  4975	035473	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  4976	035474	240 03 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  4977	035475	240 03 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  4978	035476				CAMG2:	RANDOM^
  4979	035476	200 04 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  4980	035477	270 04 0 00 040321 		ADD	AC,[142536475076]
  4981	035500	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  4982	035501	447 04 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  4983	035502	317 04 0 00 040444 	CAMG3:	CAMG	AC,RAN		;C(AC)=C(E)...NO SKIP.
  4984	035503	315 04 0 00 040444 		CAMGE	AC,RAN		;C(AC)=C(E)...SKIP
  4985	035504	005 04 0 00 040350 		ER	AC,[ASCII /CAM/]
  4986	035505	312 04 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD=ORIG.C(AC).
  4987	035506	011 00 0 00 040444 		EERR	,RAN
  4988						LOOP	CAMG2,CAMG3^
  4989	035507	367 03 0 00 035476 		SOJG	AC-1,CAMG2		;ITERATION COUNTER
  4990	035510	200 04 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  4991	035511	321 03 0 00 035502 		JUMPL	AC-1,CAMG3		;LOOP ON ERROR SWITCH ^
  4992
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 108
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0139

  4993
  4994
  4995					;TEST CAML,CAMLE.  CHECK FOR SKIP/NO SKIP AND
  4996					;C(AC)+C(E) NOT BEING CHANGED FOR RAN TO RAN CONDITION
  4997
  4998
  4999			000005			AC=5
  5000	035512				CAMLA:	SETUP	100,0^
  5001			000006			AC1=<AC+1>&17
  5002			000007			AC2=<AC+2>&17
  5003			000010			AC3=<AC+3>&17
  5004			000011			AC4=<AC+4>&17
  5005			000012			AC5=<AC+5>&17
  5006			000003			RAN1=<AC-2>&17
  5007	035512	201 04 0 00 035512 		MOVEI	AC-1,.
  5008	035513	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5009	035514	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5010	035515	202 04 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5011	035516	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  5012	035517	240 04 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  5013	035520	240 04 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5014	035521				CAMLB:	RANDOM^
  5015	035521	200 05 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5016	035522	270 05 0 00 040321 		ADD	AC,[142536475076]
  5017	035523	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5018	035524	447 05 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5019	035525	311 05 0 00 040444 	CAMLC:	CAML	AC,RAN		;C(AC)=C(E)...NO SKIP.
  5020	035526	313 05 0 00 040444 		CAMLE	AC,RAN		;C(AC)=C(E)...SKIP
  5021	035527	005 05 0 00 040350 		ER	AC,[ASCII /CAM/]
  5022	035530	312 05 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD=ORIG.C(AC).
  5023	035531	011 00 0 00 040444 		EERR	,RAN
  5024						LOOP	CAMLB,CAMLC^
  5025	035532	367 04 0 00 035521 		SOJG	AC-1,CAMLB		;ITERATION COUNTER
  5026	035533	200 05 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5027	035534	321 04 0 00 035525 		JUMPL	AC-1,CAMLC		;LOOP ON ERROR SWITCH ^
  5028
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 109
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0140

  5029
  5030
  5031					;TEST CAI,CAIA.  CHECK FOR SKIP/NO SKIP AND
  5032					;C(AC) NOT BEING CHANGED FOR RAN TO RAN1 CONDITION
  5033
  5034
  5035			000006			AC=6
  5036	035535				CAI1:	SETUP	100,0^
  5037			000007			AC1=<AC+1>&17
  5038			000010			AC2=<AC+2>&17
  5039			000011			AC3=<AC+3>&17
  5040			000012			AC4=<AC+4>&17
  5041			000013			AC5=<AC+5>&17
  5042			000004			RAN1=<AC-2>&17
  5043	035535	201 05 0 00 035535 		MOVEI	AC-1,.
  5044	035536	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5045	035537	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5046	035540	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5047	035541	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  5048	035542	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  5049	035543	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5050	035544				CAI2:	RANDOM^
  5051	035544	200 06 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5052	035545	270 06 0 00 040321 		ADD	AC,[142536475076]
  5053	035546	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5054	035547	447 06 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5055	035550	200 07 0 00 000006 		MOVE	AC1,AC		;SAVE E.
  5056	035551	241 06 0 00 000011 	CAI3:	ROT	AC,11		;C(AC)=SECOND RAN.NUM
  5057	035552	201 06 0 06 000000 		MOVEI	AC,(AC)		;CLEAR LEFT HALF FOR CAI INST.
  5058	035553	200 04 0 00 000006 		MOVE	RAN1,AC		;SAVE C(AC) FOR FUTURE COMPARE
  5059	035554	300 06 0 07 000000 		CAI	AC,(AC1)	;SHOULD NOT SKIP.
  5060	035555	304 06 0 07 000000 		CAIA	AC,(AC1)	;SHOULD ALWAYS SKIP.
  5061	035556	005 06 0 00 040351 		ER	AC,[ASCII /CAI/]
  5062	035557	312 06 0 00 000004 		CAME	AC,RAN1		;C(AC) SHOULD =ORIG. C(AC)
  5063	035560	003 04 0 07 000000 		ERRI	RAN1,(AC1)
  5064						LOOP	CAI2,CAI3^
  5065	035561	367 05 0 00 035544 		SOJG	AC-1,CAI2		;ITERATION COUNTER
  5066	035562	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5067	035563	321 05 0 00 035551 		JUMPL	AC-1,CAI3		;LOOP ON ERROR SWITCH ^
  5068
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 110
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0141

  5069
  5070
  5071					;TEST CAIE, CAIN.  CHECK FOR SKIP/NO SKIP AND
  5072					;C(AC) NOT BEING CHANGED FOR RAN TO RAN1 CONDITION.
  5073
  5074
  5075			000007			AC=7
  5076	035564				CAIE1:	SETUP	100,0^
  5077			000010			AC1=<AC+1>&17
  5078			000011			AC2=<AC+2>&17
  5079			000012			AC3=<AC+3>&17
  5080			000013			AC4=<AC+4>&17
  5081			000014			AC5=<AC+5>&17
  5082			000005			RAN1=<AC-2>&17
  5083	035564	201 06 0 00 035564 		MOVEI	AC-1,.
  5084	035565	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5085	035566	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5086	035567	202 06 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5087	035570	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  5088	035571	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  5089	035572	240 06 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5090	035573				CAIE2:	RANDOM^
  5091	035573	200 07 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5092	035574	270 07 0 00 040321 		ADD	AC,[142536475076]
  5093	035575	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5094	035576	447 07 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5095	035577	200 10 0 00 040444 		MOVE	AC1,RAN		;SAVE E.
  5096	035600	201 07 0 07 000000 	CAIE3:	MOVEI	AC,(AC)		;CLEAR LEFT SIDE FOR CAI INST.
  5097	035601	430 07 0 00 040352 		XOR	AC,[3154]	;MAKE SURE C(AC) AND E ARE DIFFERENT.
  5098	035602	200 05 0 00 000007 		MOVE	RAN1,AC		;SAVE FOR FUTURE COMPARE
  5099	035603	302 07 0 10 000000 		CAIE	AC,(AC1)	;C(AC) NOT = E...NO SKIP.
  5100	035604	306 07 0 10 000000 		CAIN	AC,(AC1)	;C(AC) NOT = E...SKIP.
  5101	035605	005 07 0 00 040351 		ER	AC,[ASCII /CAI/]
  5102	035606	312 07 0 00 000005 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG. C(AC).
  5103	035607	003 05 0 10 000000 		ERRI	RAN1,(AC1)
  5104						LOOP	CAIE2,CAIE3^
  5105	035610	367 06 0 00 035573 		SOJG	AC-1,CAIE2		;ITERATION COUNTER
  5106	035611	200 07 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5107	035612	321 06 0 00 035600 		JUMPL	AC-1,CAIE3		;LOOP ON ERROR SWITCH ^
  5108
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 111
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0142

  5109
  5110
  5111					;TEST CAIE, CAIN.  CHECK FOR SKIP/NO SKIP AND
  5112					;C(AC) NOT BEING CHANGED FOR  RAN TO RAN CONDITION.
  5113
  5114
  5115			000010			AC=10
  5116	035613				CAIN1:	SETUP	100,0^
  5117			000011			AC1=<AC+1>&17
  5118			000012			AC2=<AC+2>&17
  5119			000013			AC3=<AC+3>&17
  5120			000014			AC4=<AC+4>&17
  5121			000015			AC5=<AC+5>&17
  5122			000006			RAN1=<AC-2>&17
  5123	035613	201 07 0 00 035613 		MOVEI	AC-1,.
  5124	035614	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5125	035615	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5126	035616	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5127	035617	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  5128	035620	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  5129	035621	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5130	035622				CAIN2:	RANDOM^
  5131	035622	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5132	035623	270 10 0 00 040321 		ADD	AC,[142536475076]
  5133	035624	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5134	035625	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5135	035626	200 11 0 00 040444 		MOVE	AC1,RAN		;SAVE E.
  5136	035627	201 10 0 10 000000 	CAIN3:	MOVEI	AC,(AC)		;MAKE C(AC) = E.
  5137	035630	200 06 0 00 000010 		MOVE	RAN1,AC		;SAVE FOR FUTURE COMPARE
  5138	035631	306 10 0 11 000000 		CAIN	AC,(AC1)	;C(AC) = E...NO SKIP.
  5139	035632	302 10 0 11 000000 		CAIE	AC,(AC1)	;C(AC) = E...SKIP.
  5140	035633	005 10 0 00 040351 		ER	AC,[ASCII /CAI/]
  5141	035634	312 10 0 00 000006 		CAME	AC,RAN1		;C(AC) SHOULD=ORIG. C(AC).
  5142	035635	003 06 0 11 000000 		ERRI	RAN1,(AC1)
  5143						LOOP	CAIN2,CAIN3^
  5144	035636	367 07 0 00 035622 		SOJG	AC-1,CAIN2		;ITERATION COUNTER
  5145	035637	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5146	035640	321 07 0 00 035627 		JUMPL	AC-1,CAIN3		;LOOP ON ERROR SWITCH ^
  5147
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 112
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0143

  5148
  5149
  5150					;TEST CAIL,CAIG.  CHECK FOR SKIP/NO SKIP AND
  5151					;C(AC) NOT BEING CHANGED FOR C(AC) = 2,4,10,20, AND ETC,
  5152					;AND E = 1,3,7,17,37,AND ETC.
  5153
  5154
  5155			000011			AC=11
  5156	035641				CAIL1:	SETUP	100,0^
  5157			000012			AC1=<AC+1>&17
  5158			000013			AC2=<AC+2>&17
  5159			000014			AC3=<AC+3>&17
  5160			000015			AC4=<AC+4>&17
  5161			000016			AC5=<AC+5>&17
  5162			000007			RAN1=<AC-2>&17
  5163	035641	201 10 0 00 035641 		MOVEI	AC-1,.
  5164	035642	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5165	035643	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5166	035644	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5167	035645	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  5168	035646	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  5169	035647	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5170	035650	201 11 0 00 000001 		MOVEI	AC,1		;SETUP E TO = 1 LESS
  5171	035651	201 12 0 00 000002 		MOVEI	AC1,2		;THAN C(AC).
  5172	035652	245 11 0 00 000001 	CAIL2:	ROTC	AC,1		;ROT TO TEST NEXT BITS.
  5173	035653	434 11 0 00 040340 		IOR	AC,[1]		;SET SO E WILL = 1,3,7,17,AND ETC.
  5174	035654	612 12 0 00 040353 		TDNE	AC1,[XWD 1,0]	;BIT INTO LEFT HAND SIDE?
  5175	035655	254 00 0 00 035650 		JRST	.-5		;YES. REINITIALIZE NUMBERS.
  5176	035656	200 07 0 00 000012 		MOVE	RAN1,AC1	;SAVE C(AC) SO IT CAN BE RESTORED
  5177	035657	200 13 0 00 000011 		MOVE	AC2,AC		;SAVE C(E) SO IT CAN BE RESTORED
  5178	035660	200 12 0 00 000007 	CAIL3:	MOVE	AC1,RAN1	;IN CASE OF ERROR.
  5179	035661	301 12 0 11 000000 		CAIL	AC1,(AC)	;C(AC) > E...NO SKIP.
  5180	035662	307 12 0 11 000000 		CAIG	AC1,(AC)	;C(AC) > E...SKIP.
  5181	035663	005 12 0 00 040351 		ER	AC1,[ASCII /CAI/]
  5182	035664	312 12 0 00 000007 		CAME	AC1,RAN1	;C(AC) SHOULD = ORIG. C(AC).
  5183	035665	003 07 0 11 000000 		ERRI	RAN1,(AC)
  5184	035666	367 10 0 00 035652 		SOJG	AC-1,CAIL2	;ITERATION COUNTER.
  5185	035667	200 11 0 00 000013 		MOVE	AC,AC2		;RESTORE C(E).
  5186	035670	321 10 0 00 035660 		JUMPL	AC-1,CAIL3	;LOOP ON ERROR SWITCH.
  5187
  5188
  5189
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 113
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0144

  5190
  5191
  5192					;TEST CAIG, CAIL.  CHECK FOR SKIP/NO SKIP AND
  5193					;C(AC) NOT BEING CHANGED FOR C(AC) = 1,3,7,17,37,AND ETC,
  5194					;AND E = 2,4,10,20,AND ETC.
  5195
  5196
  5197			000012			AC=12
  5198	035671				CAIG1:	SETUP	100,0^
  5199			000013			AC1=<AC+1>&17
  5200			000014			AC2=<AC+2>&17
  5201			000015			AC3=<AC+3>&17
  5202			000016			AC4=<AC+4>&17
  5203			000017			AC5=<AC+5>&17
  5204			000010			RAN1=<AC-2>&17
  5205	035671	201 11 0 00 035671 		MOVEI	AC-1,.
  5206	035672	202 11 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5207	035673	201 11 0 00 000011 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5208	035674	202 11 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5209	035675	201 11 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  5210	035676	240 11 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  5211	035677	240 11 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5212	035700	201 12 0 00 000001 		MOVEI	AC,1		;SETUP C(AC) TO = 1.
  5213	035701	201 13 0 00 000002 		MOVEI	AC1,2		;SETUP E TO = 2.
  5214	035702	245 12 0 00 000001 	CAIG2:	ROTC	AC,1		;ROT SO C(AC)=2, E=4.
  5215	035703	434 12 0 00 040340 		IOR	AC,[1]		;SET BIT 35 SO C(AC) = 3,7,17.
  5216	035704	612 13 0 00 040353 		TDNE	AC1,[XWD 1,0]	;BIT INTO LEFT HAND SIDE?
  5217	035705	254 00 0 00 035700 		JRST	.-5		;YES. REINITIALIZE NUMBERS.
  5218	035706	200 10 0 00 000012 		MOVE	RAN1,AC		;SAVE C(AC) SO IT CAN
  5219	035707	200 14 0 00 000013 		MOVE	AC2,AC1		;AND C(E) CAN
  5220	035710	200 12 0 00 000010 	CAIG3:	MOVE	AC,RAN1		;BE RESTORED IN CASE OF ERROR.
  5221	035711	307 12 0 13 000000 		CAIG	AC,(AC1)	;C(AC) < E...NO SKIP.
  5222	035712	301 12 0 13 000000 		CAIL	AC,(AC1)	;C(AC) < E...SKIP.
  5223	035713	005 12 0 00 040351 		ER	AC,[ASCII /CAI/]
  5224	035714	312 12 0 00 000010 		CAME	AC,RAN1
  5225	035715	003 10 0 13 000000 		ERRI	RAN1,(AC1)
  5226	035716	367 11 0 00 035702 		SOJG	AC-1,CAIG2	;ITERATION COUNTER.
  5227	035717	200 12 0 00 000014 		MOVE	AC,AC2		;RESTORE C(E).
  5228	035720	321 11 0 00 035710 		JUMPL	AC-1,CAIG3	;LOOP ON ERROR SWITCH.
  5229
  5230
  5231
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 114
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0145

  5232
  5233
  5234					;TEST CAIG, CAIGE.  CHECK FOR SKIP/NO SKIP AND
  5235					;C(AC) NOT BEING CHANGED FOR RAN TO RAN CONDITION.
  5236
  5237
  5238			000013			AC=13
  5239	035721				CAIGE1:	SETUP	100,0^
  5240			000014			AC1=<AC+1>&17
  5241			000015			AC2=<AC+2>&17
  5242			000016			AC3=<AC+3>&17
  5243			000017			AC4=<AC+4>&17
  5244			000000			AC5=<AC+5>&17
  5245			000011			RAN1=<AC-2>&17
  5246	035721	201 12 0 00 035721 		MOVEI	AC-1,.
  5247	035722	202 12 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5248	035723	201 12 0 00 000012 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5249	035724	202 12 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5250	035725	201 12 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  5251	035726	240 12 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  5252	035727	240 12 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5253	035730				CAIGE2:	RANDOM^
  5254	035730	200 13 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5255	035731	270 13 0 00 040321 		ADD	AC,[142536475076]
  5256	035732	241 13 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5257	035733	447 13 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5258	035734	200 14 0 00 040444 		MOVE	AC1,RAN		;SAVE E.
  5259	035735	201 13 0 14 000000 	CAIGE3:	MOVEI	AC,(AC1)	;MAKE C(AC) = E.
  5260	035736	200 11 0 00 000013 		MOVE	RAN1,AC		;SAVE C(AC) FOR FUTURE COMPARE
  5261	035737	307 13 0 14 000000 		CAIG	AC,(AC1)	;C(AC) = E...NO SKIP.
  5262	035740	305 13 0 14 000000 		CAIGE	AC,(AC1)	;C(AC) = E...SKIP.
  5263	035741	005 13 0 00 040351 		ER	AC,[ASCII /CAI/]
  5264	035742	312 13 0 00 000011 		CAME	AC,RAN1		;C(AC) SHOULD=ORIG. C(AC)
  5265	035743	003 11 0 14 000000 		ERRI	RAN1,(AC1)
  5266	035744	367 12 0 00 035730 		SOJG	AC-1,CAIGE2	;ITERATION COUNTER.
  5267	035745	321 12 0 00 035735 		JUMPL	AC-1,CAIGE3	;LOOP ON ERROR SWITCH.
  5268
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 115
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0146

  5269
  5270
  5271					;TEST CAIL, CAILE.  CHECK FOR SKIP/NO SKIP AND
  5272					;C(AC) NOT CHANGEING FOR RAN TO RAN CONDITION
  5273
  5274
  5275			000014			AC=14
  5276	035746				CAILE1:	SETUP	100,0^
  5277			000015			AC1=<AC+1>&17
  5278			000016			AC2=<AC+2>&17
  5279			000017			AC3=<AC+3>&17
  5280			000000			AC4=<AC+4>&17
  5281			000001			AC5=<AC+5>&17
  5282			000012			RAN1=<AC-2>&17
  5283	035746	201 13 0 00 035746 		MOVEI	AC-1,.
  5284	035747	202 13 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5285	035750	201 13 0 00 000013 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5286	035751	202 13 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5287	035752	201 13 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  5288	035753	240 13 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  5289	035754	240 13 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5290	035755				CAILE2:	RANDOM^
  5291	035755	200 14 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5292	035756	270 14 0 00 040321 		ADD	AC,[142536475076]
  5293	035757	241 14 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5294	035760	447 14 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5295	035761	200 15 0 00 040444 		MOVE	AC1,RAN		;SAVE E.
  5296	035762	201 14 0 15 000000 	CAILE3:	MOVEI	AC,(AC1)	;MAKE C(AC) = E.
  5297	035763	200 12 0 00 000014 		MOVE	RAN1,AC		;SAVE FOR FUTURE COMPARE
  5298	035764	301 14 0 15 000000 		CAIL	AC,(AC1)	;C(AC) = E...NO SKIP.
  5299	035765	303 14 0 15 000000 		CAILE	AC,(AC1)	;C(AC) = E...SKIP.
  5300	035766	005 14 0 00 040351 		ER	AC,[ASCII /CAI/]
  5301	035767	312 14 0 00 000012 		CAME	AC,RAN1		;C(AC) SHOULD=ORIG. C(AC).
  5302	035770	003 12 0 15 000000 		ERRI	RAN1,(AC1)
  5303	035771	367 13 0 00 035755 		SOJG	AC-1,CAILE2	;ITERATION COUNTER.
  5304	035772	321 13 0 00 035762 		JUMPL	AC-1,CAILE3	;LOOP ON ERROR SWITCH.
  5305
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 116
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0147

  5306
  5307
  5308					;TEST CAIGE, CAIL.  CHECK FOR SKIP/NO SKIP AND
  5309					;C(AC) NOT CHANGING FOR C(AC) = 1,3,7,17,AND ETC,
  5310					;AND E = 2,4,10,20,AND ETC.
  5311
  5312
  5313			000015			AC=15
  5314	035773				CAILA:	SETUP	100,0^
  5315			000016			AC1=<AC+1>&17
  5316			000017			AC2=<AC+2>&17
  5317			000000			AC3=<AC+3>&17
  5318			000001			AC4=<AC+4>&17
  5319			000002			AC5=<AC+5>&17
  5320			000013			RAN1=<AC-2>&17
  5321	035773	201 14 0 00 035773 		MOVEI	AC-1,.
  5322	035774	202 14 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5323	035775	201 14 0 00 000014 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5324	035776	202 14 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5325	035777	201 14 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  5326	036000	240 14 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  5327	036001	240 14 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5328	036002	201 15 0 00 000001 		MOVEI	AC,1		;SETUP C(AC) TO = 1 LESS
  5329	036003	201 16 0 00 000002 		MOVEI	AC1,2		;THAN E.
  5330	036004	245 15 0 00 000001 	CAILB:	ROTC	AC,1		;ROT TO TEST NEXT BITS.
  5331	036005	434 15 0 00 040340 		IOR	AC,[1]		;SET SO C(AC) = 1,3,7,17,AND ETC.
  5332	036006	612 16 0 00 040353 		TDNE	AC1,[XWD 1,0]	;BIT GONE INTO LEFT HAND SIDE?
  5333	036007	254 00 0 00 036002 		JRST	.-5		;YES. REINITIALIZE NUMBERS.
  5334	036010	200 13 0 00 000015 		MOVE	RAN1,AC		;SAVE C(AC) FOR FUTURE COMPARE.
  5335	036011	200 15 0 00 000013 	CAILC:	MOVE	AC,RAN1		;RESTORE AC IN CASE OF ERROR.
  5336	036012	305 15 0 16 000000 		CAIGE	AC,(AC1)	;C(AC) < E...NO SKIP.
  5337	036013	301 15 0 16 000000 		CAIL	AC,(AC1)	;C(AC) < E...SKIP.
  5338	036014	005 15 0 00 040351 		ER	AC,[ASCII /CAI/]
  5339	036015	312 15 0 00 000013 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG. C(AC).
  5340	036016	003 13 0 16 000000 		ERRI	RAN1,(AC1)
  5341	036017	367 14 0 00 036004 		SOJG	AC-1,CAILB	;ITERATION COUNTER.
  5342	036020	321 14 0 00 036011 		JUMPL	AC-1,CAILC	;LOOP ON ERROR SWITCH.
  5343
  5344
  5345
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 117
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0148

  5346
  5347
  5348					;TEST CAILE, CAIG.  CHECK FOR SKIP/NO SKIP AND
  5349					;C(AC) NOT BEING CHANGED FOR C(AC) =2,4,10,20, AND ETC,
  5350					;AND E = 1,3,7,17,AND ETC.
  5351
  5352
  5353			000006			AC=6
  5354	036021				CAIGA:	SETUP	100,0^
  5355			000007			AC1=<AC+1>&17
  5356			000010			AC2=<AC+2>&17
  5357			000011			AC3=<AC+3>&17
  5358			000012			AC4=<AC+4>&17
  5359			000013			AC5=<AC+5>&17
  5360			000004			RAN1=<AC-2>&17
  5361	036021	201 05 0 00 036021 		MOVEI	AC-1,.
  5362	036022	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5363	036023	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5364	036024	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5365	036025	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  5366	036026	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  5367	036027	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5368	036030	201 06 0 00 000001 		MOVEI	AC,1		;SETUP E TO = 1 LESS
  5369	036031	201 07 0 00 000002 		MOVEI	AC1,2		;THAN C(AC).
  5370	036032	245 06 0 00 000001 	CAIGB:	ROTC	AC,1		;ROT TO TEST NEXT BITS.
  5371	036033	434 06 0 00 040340 		IOR	AC,[1]		;SET SO E WILL = 1,3,7,AND ETC.
  5372	036034	612 07 0 00 040353 		TDNE	AC1,[XWD 1,0]	;BIT INTO LEFT HAND SIDE?
  5373	036035	254 00 0 00 036030 		JRST	.-5		;YES. REINITIALIZE NUMBERS.
  5374	036036	200 04 0 00 000007 		MOVE	RAN1,AC1	;SAVE C(AC) FOR FUTURE COMPARE.
  5375	036037	200 07 0 00 000004 	CAIGC:	MOVE	AC1,RAN1	;RESTORE IN CASE OF ERROR.
  5376	036040	303 07 0 06 000000 		CAILE	AC1,(AC)	;C(AC) > E...NO SKIP.
  5377	036041	307 07 0 06 000000 		CAIG	AC1,(AC)	;C(AC) > E...SKIP.
  5378	036042	005 07 0 00 040351 		ER	AC1,[ASCII /CAI/]
  5379	036043	312 07 0 00 000004 		CAME	AC1,RAN1	;C(AC) SHOULD = ORIG. C(AC).
  5380	036044	003 04 0 06 000000 		ERRI	RAN1,(AC)
  5381	036045	367 05 0 00 036032 		SOJG	AC-1,CAIGB	;ITERATION COUNTER.
  5382	036046	321 05 0 00 036037 		JUMPL	AC-1,CAIGC	;LOOP ON ERROR SWITCH.
  5383
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 118
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0149

  5384
  5385
  5386					;TEST ANDI.   CHECK FOR CORRECT DATA IN AC.
  5387					;RAN TO RAN1
  5388
  5389
  5390			000010			AC=10
  5391	036047				ANDI4:	SETUP	200,1^
  5392			000011			AC1=<AC+1>&17
  5393			000012			AC2=<AC+2>&17
  5394			000013			AC3=<AC+3>&17
  5395			000014			AC4=<AC+4>&17
  5396			000015			AC5=<AC+5>&17
  5397			000006			RAN1=<AC-2>&17
  5398	036047	201 07 0 00 036047 		MOVEI	AC-1,.
  5399	036050	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5400	036051	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5401	036052	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5402	036053	201 07 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5403	036054	240 07 1 00 030667 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5404	036055	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5405	036056				ANDI5:	RANDOM^
  5406	036056	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5407	036057	270 10 0 00 040321 		ADD	AC,[142536475076]
  5408	036060	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5409	036061	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5410	036062	200 12 0 00 040444 		MOVE	AC2,RAN		;SAVE E.
  5411	036063	207 06 0 00 000010 	ANDI6:	MOVSS	RAN1,AC		;MAKE C(AC) = SEC. RAN. NUM.
  5412	036064	201 11 0 12 000000 		MOVEI	AC1,(AC2)	;SIMULTE
  5413	036065	470 11 0 00 000010 		ORCB	AC1,AC		;AN
  5414	036066	450 11 0 00 000000 		SETCA	AC1,		;ANDI
  5415	036067	405 10 0 12 000000 		ANDI	AC,(AC2)	;DO ANDI.
  5416	036070	312 10 0 00 000011 		CAME	AC,AC1		;C(AC) SHOULD=SIM ANS
  5417	036071	003 06 0 12 000000 		ERRI	RAN1,(AC2)
  5418						LOOP	ANDI5,ANDI6^
  5419	036072	367 07 0 00 036056 		SOJG	AC-1,ANDI5		;ITERATION COUNTER
  5420	036073	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5421	036074	321 07 0 00 036063 		JUMPL	AC-1,ANDI6		;LOOP ON ERROR SWITCH ^
  5422
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 119
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0150

  5423
  5424
  5425					;TEST ANDCAI.  CHECK C(AC) FOR CORRECT DATA
  5426					;RAN TO RAN1
  5427
  5428
  5429			000011			AC=11
  5430	036075				ANCAI4:	SETUP	200,1^
  5431			000012			AC1=<AC+1>&17
  5432			000013			AC2=<AC+2>&17
  5433			000014			AC3=<AC+3>&17
  5434			000015			AC4=<AC+4>&17
  5435			000016			AC5=<AC+5>&17
  5436			000007			RAN1=<AC-2>&17
  5437	036075	201 10 0 00 036075 		MOVEI	AC-1,.
  5438	036076	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5439	036077	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5440	036100	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5441	036101	201 10 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5442	036102	240 10 1 00 030667 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5443	036103	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5444	036104				ANCAI5:	RANDOM^
  5445	036104	200 11 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5446	036105	270 11 0 00 040321 		ADD	AC,[142536475076]
  5447	036106	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5448	036107	447 11 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5449	036110	200 13 0 00 040444 		MOVE	AC2,RAN		;SAVE E.
  5450	036111	207 07 0 00 000011 	ANCAI6:	MOVSS	RAN1,AC		;MAKE C(AC) A DIFF. RAN. NUM.
  5451	036112	201 12 0 13 000000 		MOVEI	AC1,(AC2)	;SIMULTE AN
  5452	036113	454 12 0 00 000011 		ORCA	AC1,AC		;ANDCAI
  5453	036114	450 12 0 00 000000 		SETCA	AC1,		;INST
  5454	036115	411 11 0 12 000000 		ANDCAI	AC,(AC1)	;DO ANDCAI.
  5455	036116	312 11 0 00 000012 		CAME	AC,AC1		;C(AC) SHOULD=SIM ANS
  5456	036117	003 07 0 13 000000 		ERRI	RAN1,(AC2)
  5457						LOOP	ANCAI5,ANCAI6^
  5458	036120	367 10 0 00 036104 		SOJG	AC-1,ANCAI5		;ITERATION COUNTER
  5459	036121	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5460	036122	321 10 0 00 036111 		JUMPL	AC-1,ANCAI6		;LOOP ON ERROR SWITCH ^
  5461
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 120
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0151

  5462
  5463
  5464					;TEST SETMI,  CHECK C(AC) FOR CORRECT DATA
  5465					;RAN TO RAN1
  5466
  5467
  5468			000002			AC=2
  5469	036123				STMI4:	SETUP	100,0^
  5470			000003			AC1=<AC+1>&17
  5471			000004			AC2=<AC+2>&17
  5472			000005			AC3=<AC+3>&17
  5473			000006			AC4=<AC+4>&17
  5474			000007			AC5=<AC+5>&17
  5475			000000			RAN1=<AC-2>&17
  5476	036123	201 01 0 00 036123 		MOVEI	AC-1,.
  5477	036124	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5478	036125	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5479	036126	202 01 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5480	036127	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  5481	036130	240 01 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  5482	036131	240 01 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5483	036132				STMI5:	RANDOM^
  5484	036132	200 02 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5485	036133	270 02 0 00 040321 		ADD	AC,[142536475076]
  5486	036134	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5487	036135	447 02 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5488	036136	200 04 0 00 040444 		MOVE	AC2,RAN		;SAVE E.
  5489	036137	207 00 0 00 000002 	STMI6:	MOVSS	RAN1,AC		;MAKE C(AC) A DIFF. RAN. NUM.
  5490	036140	201 03 0 04 000000 		MOVEI	AC1,(AC2)	;SETMI = MOVEI.
  5491	036141	415 02 0 04 000000 		SETMI	AC,(AC2)	;DO SETMI.
  5492	036142	312 02 0 00 000003 		CAME	AC,AC1		;C(AC) SHOULD=SIM ANS
  5493	036143	003 00 0 04 000000 		ERRI	RAN1,(AC2)
  5494						LOOP	STMI5,STMI6^
  5495	036144	367 01 0 00 036132 		SOJG	AC-1,STMI5		;ITERATION COUNTER
  5496	036145	200 02 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5497	036146	321 01 0 00 036137 		JUMPL	AC-1,STMI6		;LOOP ON ERROR SWITCH ^
  5498
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 121
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0152

  5499
  5500
  5501					;TEST ANDCMI.  CHECK FOR CORRECT DATA IN C(AC)
  5502					;RAN TO RAN1
  5503
  5504
  5505			000004			AC=4
  5506	036147				ANCMIA:	SETUP	200,1^
  5507			000005			AC1=<AC+1>&17
  5508			000006			AC2=<AC+2>&17
  5509			000007			AC3=<AC+3>&17
  5510			000010			AC4=<AC+4>&17
  5511			000011			AC5=<AC+5>&17
  5512			000002			RAN1=<AC-2>&17
  5513	036147	201 03 0 00 036147 		MOVEI	AC-1,.
  5514	036150	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5515	036151	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5516	036152	202 03 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5517	036153	201 03 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5518	036154	240 03 1 00 030667 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5519	036155	240 03 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5520	036156				ANCMIB:	RANDOM^
  5521	036156	200 04 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5522	036157	270 04 0 00 040321 		ADD	AC,[142536475076]
  5523	036160	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5524	036161	447 04 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5525	036162	200 06 0 00 040444 		MOVE	AC2,RAN		;SAVE E.
  5526	036163	207 02 0 00 000004 	ANCMIC:	MOVSS	RAN1,AC		;MAKE C(AC) A DIFF. RAN. NUM.
  5527	036164	201 05 0 06 000000 		MOVEI	AC1,(AC2)	;SIMULATE
  5528	036165	464 05 0 00 000004 		ORCM	AC1,AC		;AN
  5529	036166	450 05 0 00 000000 		SETCA	AC1,		;ANDCMI
  5530	036167	421 04 0 06 000000 		ANDCMI	AC,(AC2)	;DO ANDCMI.
  5531	036170	312 04 0 00 000005 		CAME	AC,AC1		;C(AC) SHOULD = SIM ANS.
  5532	036171	003 02 0 06 000000 		ERRI	RAN1,(AC2)
  5533						LOOP	ANCMIB,ANCMIC^
  5534	036172	367 03 0 00 036156 		SOJG	AC-1,ANCMIB		;ITERATION COUNTER
  5535	036173	200 04 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5536	036174	321 03 0 00 036163 		JUMPL	AC-1,ANCMIC		;LOOP ON ERROR SWITCH ^
  5537
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 122
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0153

  5538
  5539
  5540					;TEST SETAI.  CHECK C(AC) FOR CORRECT DATA
  5541					;RAN TO RAN1
  5542
  5543
  5544			000004			AC=4
  5545	036175				SETAIA:	SETUP	100,0^
  5546			000005			AC1=<AC+1>&17
  5547			000006			AC2=<AC+2>&17
  5548			000007			AC3=<AC+3>&17
  5549			000010			AC4=<AC+4>&17
  5550			000011			AC5=<AC+5>&17
  5551			000002			RAN1=<AC-2>&17
  5552	036175	201 03 0 00 036175 		MOVEI	AC-1,.
  5553	036176	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5554	036177	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5555	036200	202 03 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5556	036201	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  5557	036202	240 03 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  5558	036203	240 03 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5559	036204				SETAIB:	RANDOM^
  5560	036204	200 04 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5561	036205	270 04 0 00 040321 		ADD	AC,[142536475076]
  5562	036206	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5563	036207	447 04 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5564	036210	200 06 0 00 040444 		MOVE	AC2,RAN		;SAVE E.
  5565	036211	207 02 0 00 000004 	SETAIC:	MOVSS	RAN1,AC		;MAKE C(AC) = SEC. RAN. NUM.
  5566	036212	425 04 0 06 000000 		SETAI	AC,(AC2)	;DO SETAI.
  5567	036213	312 04 0 00 000002 		CAME	AC,RAN1		;C(AC) SHOULD NOT CHANGE
  5568	036214	003 02 0 06 000000 		ERRI	RAN1,(AC2)
  5569						LOOP	SETAIB,SETAIC^
  5570	036215	367 03 0 00 036204 		SOJG	AC-1,SETAIB		;ITERATION COUNTER
  5571	036216	200 04 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5572	036217	321 03 0 00 036211 		JUMPL	AC-1,SETAIC		;LOOP ON ERROR SWITCH ^
  5573
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 123
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0154

  5574
  5575
  5576					;TEST XORI.  CHECK C(AC) FOR CORRECT DATA.
  5577					;RAN TO RAN1
  5578
  5579
  5580			000005			AC=5
  5581	036220				XORIA:	SETUP	200,1^
  5582			000006			AC1=<AC+1>&17
  5583			000007			AC2=<AC+2>&17
  5584			000010			AC3=<AC+3>&17
  5585			000011			AC4=<AC+4>&17
  5586			000012			AC5=<AC+5>&17
  5587			000003			RAN1=<AC-2>&17
  5588	036220	201 04 0 00 036220 		MOVEI	AC-1,.
  5589	036221	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5590	036222	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5591	036223	202 04 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5592	036224	201 04 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5593	036225	240 04 1 00 030667 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5594	036226	240 04 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5595	036227				XORIB:	RANDOM^
  5596	036227	200 05 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5597	036230	270 05 0 00 040321 		ADD	AC,[142536475076]
  5598	036231	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5599	036232	447 05 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5600	036233	200 07 0 00 040444 		MOVE	AC2,RAN		;SAVE E.
  5601	036234	207 03 0 00 000005 	XORIC:	MOVSS	RAN1,AC		;MAKE C(AC) = SEC. RAN. NUM.
  5602	036235	201 06 0 07 000000 		MOVEI	AC1,(AC2)	;SIMULATE
  5603	036236	444 06 0 00 000005 		EQV	AC1,AC		;AN
  5604	036237	450 06 0 00 000000 		SETCA	AC1,		;XORI
  5605	036240	431 05 0 07 000000 		XORI	AC,(AC2)	;DO XORI.
  5606	036241	312 05 0 00 000006 		CAME	AC,AC1		;C(AC) SHOULD=SIM ANS
  5607	036242	003 03 0 07 000000 		ERRI	RAN1,(AC2)
  5608						LOOP	XORIB,XORIC^
  5609	036243	367 04 0 00 036227 		SOJG	AC-1,XORIB		;ITERATION COUNTER
  5610	036244	200 05 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5611	036245	321 04 0 00 036234 		JUMPL	AC-1,XORIC		;LOOP ON ERROR SWITCH ^
  5612
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 124
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0155

  5613
  5614
  5615					;TEST IORI.  CHECK C(AC) FOR CORRECT DATA
  5616					;RAN TO RAN1
  5617
  5618
  5619			000006			AC=6
  5620	036246				IORIA:	SETUP	200,1^
  5621			000007			AC1=<AC+1>&17
  5622			000010			AC2=<AC+2>&17
  5623			000011			AC3=<AC+3>&17
  5624			000012			AC4=<AC+4>&17
  5625			000013			AC5=<AC+5>&17
  5626			000004			RAN1=<AC-2>&17
  5627	036246	201 05 0 00 036246 		MOVEI	AC-1,.
  5628	036247	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5629	036250	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5630	036251	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5631	036252	201 05 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5632	036253	240 05 1 00 030667 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5633	036254	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5634	036255				IORIB:	RANDOM^
  5635	036255	200 06 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5636	036256	270 06 0 00 040321 		ADD	AC,[142536475076]
  5637	036257	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5638	036260	447 06 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5639	036261	200 10 0 00 040444 		MOVE	AC2,RAN		;SAVE E.
  5640	036262	207 04 0 00 000006 	IORIC:	MOVSS	RAN1,AC		;MAKE C(AC) = SEC. RAN. NUM.
  5641	036263	201 07 0 10 000000 		MOVEI	AC1,(AC2)	;SIMULATE
  5642	036264	420 07 0 00 000006 		ANDCM	AC1,AC		;AN
  5643	036265	430 07 0 00 000006 		XOR	AC1,AC		;IORI
  5644	036266	435 06 0 10 000000 		IORI	AC,(AC2)	;DO IORI.
  5645	036267	312 06 0 00 000007 		CAME	AC,AC1		;C(AC) SHOULD=SIM ANS
  5646	036270	003 04 0 10 000000 		ERRI	RAN1,(AC2)
  5647						LOOP	IORIB,IORIC^
  5648	036271	367 05 0 00 036255 		SOJG	AC-1,IORIB		;ITERATION COUNTER
  5649	036272	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5650	036273	321 05 0 00 036262 		JUMPL	AC-1,IORIC		;LOOP ON ERROR SWITCH ^
  5651
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 125
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0156

  5652
  5653
  5654					;TEST ANDCBI.  CHECK C(AC) FOR CORRECT DATA
  5655					;RAN TO RAN1
  5656
  5657
  5658			000007			AC=7
  5659	036274				ANCBIA:	SETUP	200,1^
  5660			000010			AC1=<AC+1>&17
  5661			000011			AC2=<AC+2>&17
  5662			000012			AC3=<AC+3>&17
  5663			000013			AC4=<AC+4>&17
  5664			000014			AC5=<AC+5>&17
  5665			000005			RAN1=<AC-2>&17
  5666	036274	201 06 0 00 036274 		MOVEI	AC-1,.
  5667	036275	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5668	036276	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5669	036277	202 06 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5670	036300	201 06 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5671	036301	240 06 1 00 030667 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5672	036302	240 06 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5673	036303				ANCBIB:	RANDOM^
  5674	036303	200 07 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5675	036304	270 07 0 00 040321 		ADD	AC,[142536475076]
  5676	036305	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5677	036306	447 07 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5678	036307	200 11 0 00 040444 		MOVE	AC2,RAN		;SAVE E.
  5679	036310	207 05 0 00 000007 	ANCBIC:	MOVSS	RAN1,AC		;MAKE C(AC) = SEC. RAN. NUM.
  5680	036311	201 10 0 11 000000 		MOVEI	AC1,(AC2)	;SIMULATE
  5681	036312	434 10 0 00 000007 		IOR	AC1,AC		;AN
  5682	036313	450 10 0 00 000000 		SETCA	AC1,		;ANDCBI
  5683	036314	441 07 0 11 000000 		ANDCBI	AC,(AC2)	;DO ANDCBI.
  5684	036315	312 07 0 00 000010 		CAME	AC,AC1		;C(AC) SHOULD=SIM ANS
  5685	036316	003 05 0 11 000000 		ERRI	RAN1,(AC2)
  5686						LOOP	ANCBIB, ANCBIC^
  5687	036317	367 06 0 00 036303 		SOJG	AC-1,ANCBIB		;ITERATION COUNTER
  5688	036320	200 07 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5689	036321	321 06 0 00 036310 		JUMPL	AC-1,ANCBIC		;LOOP ON ERROR SWITCH ^
  5690
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 126
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0157

  5691
  5692
  5693					;TEST EQVI.  CHECK C(AC) FOR CORRECT DATA
  5694					;RAN TO RAN1
  5695
  5696
  5697			000010			AC=10
  5698	036322				EQVIA:	SETUP	200,1^
  5699			000011			AC1=<AC+1>&17
  5700			000012			AC2=<AC+2>&17
  5701			000013			AC3=<AC+3>&17
  5702			000014			AC4=<AC+4>&17
  5703			000015			AC5=<AC+5>&17
  5704			000006			RAN1=<AC-2>&17
  5705	036322	201 07 0 00 036322 		MOVEI	AC-1,.
  5706	036323	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5707	036324	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5708	036325	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5709	036326	201 07 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5710	036327	240 07 1 00 030667 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5711	036330	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5712	036331				EQVIB:	RANDOM^
  5713	036331	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5714	036332	270 10 0 00 040321 		ADD	AC,[142536475076]
  5715	036333	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5716	036334	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5717	036335	200 12 0 00 040444 		MOVE	AC2,RAN		;SAVE E.
  5718	036336	207 06 0 00 000010 	EQVIC:	MOVSS	RAN1,AC		;MAKE C(AC) = SEC. RAN. NUM.
  5719	036337	201 11 0 12 000000 		MOVEI	AC1,(AC2)	;SIMULATE
  5720	036340	430 11 0 00 000010 		XOR	AC1,AC		;AN
  5721	036341	450 11 0 00 000000 		SETCA	AC1,		;EQVI
  5722	036342	445 10 0 12 000000 		EQVI	AC,(AC2)	;DO EQVI.
  5723	036343	312 10 0 00 000011 		CAME	AC,AC1		;C(AC) SHOULD=SIM ANS
  5724	036344	003 06 0 12 000000 		ERRI	RAN1,(AC2)
  5725						LOOP	EQVIB,EQVIC^
  5726	036345	367 07 0 00 036331 		SOJG	AC-1,EQVIB		;ITERATION COUNTER
  5727	036346	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5728	036347	321 07 0 00 036336 		JUMPL	AC-1,EQVIC		;LOOP ON ERROR SWITCH ^
  5729
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 127
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0158

  5730
  5731
  5732					;TEST SETCAI.  CHECK C(AC) FOR CORRECT DATA
  5733					;RAN TO RAN1
  5734
  5735
  5736			000011			AC=11
  5737	036350				STCAI1:	SETUP	200,1^
  5738			000012			AC1=<AC+1>&17
  5739			000013			AC2=<AC+2>&17
  5740			000014			AC3=<AC+3>&17
  5741			000015			AC4=<AC+4>&17
  5742			000016			AC5=<AC+5>&17
  5743			000007			RAN1=<AC-2>&17
  5744	036350	201 10 0 00 036350 		MOVEI	AC-1,.
  5745	036351	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5746	036352	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5747	036353	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5748	036354	201 10 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5749	036355	240 10 1 00 030667 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5750	036356	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5751	036357				STCAI2:	RANDOM^
  5752	036357	200 11 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5753	036360	270 11 0 00 040321 		ADD	AC,[142536475076]
  5754	036361	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5755	036362	447 11 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5756	036363	200 13 0 00 040444 		MOVE	AC2,RAN		;SAVE E.
  5757	036364	207 07 0 00 000011 	STCAI3:	MOVSS	RAN1,AC		;MAKE C(AC) = SEC. RAN. NUM.
  5758	036365	460 12 0 00 000011 		SETCM	AC1,AC		;SIMULATE SETCAI
  5759	036366	451 11 0 13 000000 		SETCAI	AC,(AC2)	;DO SETCAI.
  5760	036367	312 11 0 00 000012 		CAME	AC,AC1		;C(AC) SHOULD=SIM ANS
  5761	036370	003 07 0 13 000000 		ERRI	RAN1,(AC2)
  5762						LOOP	STCAI2,STCAI3^
  5763	036371	367 10 0 00 036357 		SOJG	AC-1,STCAI2		;ITERATION COUNTER
  5764	036372	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5765	036373	321 10 0 00 036364 		JUMPL	AC-1,STCAI3		;LOOP ON ERROR SWITCH ^
  5766
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 128
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0159

  5767
  5768
  5769					;TEST ORCAI.  CHECK C(AC) FOR CORRECT DATA
  5770					;RAN TO RAN1
  5771
  5772
  5773			000012			AC=12
  5774	036374				ORCAI1:	SETUP	200,1^
  5775			000013			AC1=<AC+1>&17
  5776			000014			AC2=<AC+2>&17
  5777			000015			AC3=<AC+3>&17
  5778			000016			AC4=<AC+4>&17
  5779			000017			AC5=<AC+5>&17
  5780			000010			RAN1=<AC-2>&17
  5781	036374	201 11 0 00 036374 		MOVEI	AC-1,.
  5782	036375	202 11 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5783	036376	201 11 0 00 000011 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5784	036377	202 11 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5785	036400	201 11 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5786	036401	240 11 1 00 030667 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5787	036402	240 11 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5788	036403				ORCAI2:	RANDOM^
  5789	036403	200 12 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5790	036404	270 12 0 00 040321 		ADD	AC,[142536475076]
  5791	036405	241 12 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5792	036406	447 12 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5793	036407	200 14 0 00 040444 		MOVE	AC2,RAN		;SAVE E.
  5794	036410	207 10 0 00 000012 	ORCAI3:	MOVSS	RAN1,AC		;MAKE C(AC) = SEC. RAN. NUM.
  5795	036411	201 13 0 14 000000 		MOVEI	AC1,(AC2)	;SIMULATE
  5796	036412	404 13 0 00 000012 		AND	AC1,AC		;AN
  5797	036413	430 13 0 00 000012 		XOR	AC1,AC		;ORCAI
  5798	036414	450 13 0 00 000000 		SETCA	AC1,		;INST.
  5799	036415	455 12 0 14 000000 		ORCAI	AC,(AC2)	;DO ORCAI.
  5800	036416	312 12 0 00 000013 		CAME	AC,AC1		;C(AC) SHOULD=SIM ANS
  5801	036417	003 10 0 14 000000 		ERRI	RAN1,(AC2)
  5802						LOOP	ORCAI2,ORCAI3^
  5803	036420	367 11 0 00 036403 		SOJG	AC-1,ORCAI2		;ITERATION COUNTER
  5804	036421	200 12 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5805	036422	321 11 0 00 036410 		JUMPL	AC-1,ORCAI3		;LOOP ON ERROR SWITCH ^
  5806
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 129
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0160

  5807
  5808
  5809					;TEST SETCMI.  CHECK C(AC) FOR CORRECT DATA
  5810					;RAN TO RAN1
  5811
  5812
  5813			000013			AC=13
  5814	036423				STCMI1:	SETUP	200,1^
  5815			000014			AC1=<AC+1>&17
  5816			000015			AC2=<AC+2>&17
  5817			000016			AC3=<AC+3>&17
  5818			000017			AC4=<AC+4>&17
  5819			000000			AC5=<AC+5>&17
  5820			000011			RAN1=<AC-2>&17
  5821	036423	201 12 0 00 036423 		MOVEI	AC-1,.
  5822	036424	202 12 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5823	036425	201 12 0 00 000012 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5824	036426	202 12 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5825	036427	201 12 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5826	036430	240 12 1 00 030667 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5827	036431	240 12 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5828	036432				STCMI2:	RANDOM^
  5829	036432	200 13 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5830	036433	270 13 0 00 040321 		ADD	AC,[142536475076]
  5831	036434	241 13 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5832	036435	447 13 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5833	036436	200 15 0 00 040444 		MOVE	AC2,RAN		;SAVE E.
  5834	036437	207 11 0 00 000013 	STCMI3:	MOVSS	RAN1,AC		;MAKE C(AC) = SEC. RAN. NUM.
  5835	036440	201 14 0 15 000000 		MOVEI	AC1,(AC2)	;SIMULATE
  5836	036441	450 14 0 00 000000 		SETCA	AC1,		;A SETCMI
  5837	036442	461 13 0 15 000000 		SETCMI	AC,(AC2)	;DO SETCMI.
  5838	036443	312 13 0 00 000014 		CAME	AC,AC1		;C(AC) SHOULD=SIM ANS
  5839	036444	003 11 0 15 000000 		ERRI	RAN1,(AC2)
  5840						LOOP	STCMI2,STCMI3^
  5841	036445	367 12 0 00 036432 		SOJG	AC-1,STCMI2		;ITERATION COUNTER
  5842	036446	200 13 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5843	036447	321 12 0 00 036437 		JUMPL	AC-1,STCMI3		;LOOP ON ERROR SWITCH ^
  5844
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 130
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0161

  5845
  5846
  5847					;TEST ORCMI.  CHECK C(AC) FOR CORRECT DATA
  5848					;RAN TO RAN1
  5849
  5850
  5851			000014			AC=14
  5852	036450				ORCMI1:	SETUP	200,1^
  5853			000015			AC1=<AC+1>&17
  5854			000016			AC2=<AC+2>&17
  5855			000017			AC3=<AC+3>&17
  5856			000000			AC4=<AC+4>&17
  5857			000001			AC5=<AC+5>&17
  5858			000012			RAN1=<AC-2>&17
  5859	036450	201 13 0 00 036450 		MOVEI	AC-1,.
  5860	036451	202 13 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5861	036452	201 13 0 00 000013 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5862	036453	202 13 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5863	036454	201 13 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5864	036455	240 13 1 00 030667 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5865	036456	240 13 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5866	036457				ORCMI2:	RANDOM^
  5867	036457	200 14 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5868	036460	270 14 0 00 040321 		ADD	AC,[142536475076]
  5869	036461	241 14 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5870	036462	447 14 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5871	036463	201 16 0 00 040444 		MOVEI	AC2,RAN		;SAVE E.
  5872	036464	207 12 0 00 000014 	ORCMI3:	MOVSS	RAN1,AC		;MAKE C(AC) = SEC. RAN. NUM.
  5873	036465	201 15 0 16 000000 		MOVEI	AC1,(AC2)	;SIMULATE
  5874	036466	420 15 0 00 000014 		ANDCM	AC1,AC		;AN
  5875	036467	450 15 0 00 000000 		SETCA	AC1,		;ORCMI
  5876	036470	465 14 0 16 000000 		ORCMI	AC,(AC2)	;DO ORCMI.
  5877	036471	312 14 0 00 000015 		CAME	AC,AC1		;C(AC) SHOULD=SIM ANS
  5878	036472	003 12 0 16 000000 		ERRI	RAN1,(AC2)
  5879						LOOP	ORCMI2,ORCMI3^
  5880	036473	367 13 0 00 036457 		SOJG	AC-1,ORCMI2		;ITERATION COUNTER
  5881	036474	200 14 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5882	036475	321 13 0 00 036464 		JUMPL	AC-1,ORCMI3		;LOOP ON ERROR SWITCH ^
  5883
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 131
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0162

  5884
  5885
  5886					;TEST ORCBI.  CHECK C(AC) FOR CORRECT DATA
  5887					;RAN TO RAN1
  5888
  5889
  5890			000005			AC=5
  5891	036476				ORCBI1:	SETUP	200,1^
  5892			000006			AC1=<AC+1>&17
  5893			000007			AC2=<AC+2>&17
  5894			000010			AC3=<AC+3>&17
  5895			000011			AC4=<AC+4>&17
  5896			000012			AC5=<AC+5>&17
  5897			000003			RAN1=<AC-2>&17
  5898	036476	201 04 0 00 036476 		MOVEI	AC-1,.
  5899	036477	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5900	036500	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5901	036501	202 04 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5902	036502	201 04 0 00 000200 		MOVEI	AC-1,200		;ROUTINE WEIGHTING
  5903	036503	240 04 1 00 030667 		ASH	AC-1,@CMPLXT+1	;ROUTINE COMPLEXITY
  5904	036504	240 04 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5905	036505				ORCBI2:	RANDOM^
  5906	036505	200 05 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5907	036506	270 05 0 00 040321 		ADD	AC,[142536475076]
  5908	036507	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5909	036510	447 05 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5910	036511	200 07 0 00 040444 		MOVE	AC2,RAN		;SAVE E.
  5911	036512	207 03 0 00 000005 	ORCBI3:	MOVSS	RAN1,AC		;MAKE C(AC) = SEC. RAN. NUM.
  5912	036513	201 06 0 07 000000 		MOVEI	AC1,(AC2)	;SIMULATE
  5913	036514	410 06 0 00 000005 		ANDCA	AC1,AC		;AN
  5914	036515	430 06 0 00 000005 		XOR	AC1,AC		;ORCBI
  5915	036516	450 06 0 00 000000 		SETCA	AC1,		;INST.
  5916	036517	471 05 0 07 000000 		ORCBI	AC,(AC2)	;DO ORCBI.
  5917	036520	312 05 0 00 000006 		CAME	AC,AC1		;C(AC) SHOULD=SIM ANS
  5918	036521	003 03 0 07 000000 		ERRI	RAN1,(AC2)
  5919						LOOP	ORCBI2,ORCBI3^
  5920	036522	367 04 0 00 036505 		SOJG	AC-1,ORCBI2		;ITERATION COUNTER
  5921	036523	200 05 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5922	036524	321 04 0 00 036512 		JUMPL	AC-1,ORCBI3		;LOOP ON ERROR SWITCH ^
  5923
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 132
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0163

  5924
  5925
  5926					;TEST SETOI.  CHECK C(AC) FOR CORRECT DATA
  5927					;RAN TO RAN1
  5928
  5929
  5930			000006			AC=6
  5931	036525				STOI1:	SETUP	100,0^
  5932			000007			AC1=<AC+1>&17
  5933			000010			AC2=<AC+2>&17
  5934			000011			AC3=<AC+3>&17
  5935			000012			AC4=<AC+4>&17
  5936			000013			AC5=<AC+5>&17
  5937			000004			RAN1=<AC-2>&17
  5938	036525	201 05 0 00 036525 		MOVEI	AC-1,.
  5939	036526	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5940	036527	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5941	036530	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5942	036531	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  5943	036532	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  5944	036533	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5945	036534				STOI2:	RANDOM^
  5946	036534	200 06 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5947	036535	270 06 0 00 040321 		ADD	AC,[142536475076]
  5948	036536	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5949	036537	447 06 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5950	036540	200 10 0 00 040444 		MOVE	AC2,RAN		;SAVE E.
  5951	036541	207 04 0 00 000006 	STOI3:	MOVSS	RAN1,AC		;MAKE C(AC) = SEC. RAN. NUM.
  5952	036542	475 06 0 10 000000 		SETOI	AC,(AC2)	;DO SETOI.
  5953	036543	312 06 0 00 040324 		CAME	AC,[-1]		;C(AC) SHOULD=-1
  5954	036544	003 04 0 10 000000 		ERRI	RAN1,(AC2)
  5955						LOOP	STOI2,STOI3^
  5956	036545	367 05 0 00 036534 		SOJG	AC-1,STOI2		;ITERATION COUNTER
  5957	036546	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5958	036547	321 05 0 00 036541 		JUMPL	AC-1,STOI3		;LOOP ON ERROR SWITCH ^
  5959
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 133
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0164

  5960
  5961
  5962					;TEST TRN, TRNA.  CHECK FOR SKIP/NO SKIP AND
  5963					;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
  5964
  5965
  5966			000010			AC=10
  5967	036550				TRN1:	SETUP	100,0^
  5968			000011			AC1=<AC+1>&17
  5969			000012			AC2=<AC+2>&17
  5970			000013			AC3=<AC+3>&17
  5971			000014			AC4=<AC+4>&17
  5972			000015			AC5=<AC+5>&17
  5973			000006			RAN1=<AC-2>&17
  5974	036550	201 07 0 00 036550 		MOVEI	AC-1,.
  5975	036551	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  5976	036552	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  5977	036553	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  5978	036554	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  5979	036555	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  5980	036556	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  5981	036557				TRN2:	RANDOM^
  5982	036557	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  5983	036560	270 10 0 00 040321 		ADD	AC,[142536475076]
  5984	036561	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  5985	036562	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  5986	036563	600 10 0 00 000000 	TRN3:	TRN	AC,0		;SHOULD NOT SKIP
  5987	036564	254 00 0 00 036566 		JRST	.+2
  5988	036565	005 10 0 00 040323 		ER	AC,[ASCII /TST/];TRN SKIPPED.
  5989	036566	604 10 0 00 000000 		TRNA	AC,0		;SHOULD SKIP
  5990	036567	005 10 0 00 040323 		ER	AC,[ASCII /TST/]
  5991	036570	312 10 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD STILL=RAN
  5992	036571	013 00 0 00 000000 		EERRI	,0
  5993						LOOP	TRN2,TRN3^
  5994	036572	367 07 0 00 036557 		SOJG	AC-1,TRN2		;ITERATION COUNTER
  5995	036573	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  5996	036574	321 07 0 00 036563 		JUMPL	AC-1,TRN3		;LOOP ON ERROR SWITCH ^
  5997
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 134
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0165

  5998
  5999
  6000					;TEST TRN, TRNA.  CHECK FOR SKIP/NO SKIP AND
  6001					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
  6002
  6003
  6004			000011			AC=11
  6005	036575				TRN4:	SETUP	100,0^
  6006			000012			AC1=<AC+1>&17
  6007			000013			AC2=<AC+2>&17
  6008			000014			AC3=<AC+3>&17
  6009			000015			AC4=<AC+4>&17
  6010			000016			AC5=<AC+5>&17
  6011			000007			RAN1=<AC-2>&17
  6012	036575	201 10 0 00 036575 		MOVEI	AC-1,.
  6013	036576	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6014	036577	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6015	036600	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6016	036601	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6017	036602	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6018	036603	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6019	036604				TRN5:	RANDOM^
  6020	036604	200 11 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6021	036605	270 11 0 00 040321 		ADD	AC,[142536475076]
  6022	036606	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6023	036607	447 11 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6024	036610	403 12 0 00 000007 	TRN6:	SETZB	AC1,RAN1	;CLEAR C(AC).
  6025	036611	600 12 0 11 000000 		TRN	AC1,(AC)	;SHOULD NOT SKIP.
  6026	036612	254 00 0 00 036614 		JRST	.+2
  6027	036613	005 12 0 00 040323 		ER	AC1,[ASCII /TST/];TRN SKIPPED.
  6028	036614	604 12 0 11 000000 		TRNA	AC1,(AC)	;SHOULD SKIP.
  6029	036615	005 12 0 00 040323 		ER	AC1,[ASCII /TST/]
  6030	036616	312 12 0 00 040322 		CAME	AC1,[0]		;C(AC) SHOULD STILL=0
  6031	036617	003 07 0 11 000000 		ERRI	RAN1,(AC)
  6032						LOOP	TRN5,TRN6^
  6033	036620	367 10 0 00 036604 		SOJG	AC-1,TRN5		;ITERATION COUNTER
  6034	036621	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6035	036622	321 10 0 00 036610 		JUMPL	AC-1,TRN6		;LOOP ON ERROR SWITCH ^
  6036
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 135
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0166

  6037
  6038
  6039					;TEST TRN, TRNA.  CHECK FOR SKIP/NO SKIP AND
  6040					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
  6041
  6042
  6043			000002			AC=2
  6044	036623				TRN7:	SETUP	100,0^
  6045			000003			AC1=<AC+1>&17
  6046			000004			AC2=<AC+2>&17
  6047			000005			AC3=<AC+3>&17
  6048			000006			AC4=<AC+4>&17
  6049			000007			AC5=<AC+5>&17
  6050			000000			RAN1=<AC-2>&17
  6051	036623	201 01 0 00 036623 		MOVEI	AC-1,.
  6052	036624	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6053	036625	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6054	036626	202 01 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6055	036627	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6056	036630	240 01 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6057	036631	240 01 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6058	036632				TRN8:	RANDOM^
  6059	036632	200 02 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6060	036633	270 02 0 00 040321 		ADD	AC,[142536475076]
  6061	036634	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6062	036635	447 02 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6063	036636	200 03 0 00 000002 	TRN9:	MOVE	AC1,AC		;MAKE "E"=C(AC)
  6064	036637	600 02 0 03 000000 		TRN	AC,(AC1)	;SHOULD NOT SKIP.
  6065	036640	254 00 0 00 036642 		JRST	.+2
  6066	036641	005 02 0 00 040323 		ER	AC,[ASCII /TST/];TRN SKIPPED.
  6067	036642	604 02 0 03 000000 		TRNA	AC,(AC1)	;SHOULD ALWAYS SKIP.
  6068	036643	005 02 0 00 040323 		ER	AC,[ASCII /TST/]
  6069	036644	312 02 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD NOT CHANGE
  6070	036645	003 03 0 03 000000 		ERRI	AC1,(AC1)
  6071						LOOP	TRN8,TRN9^
  6072	036646	367 01 0 00 036632 		SOJG	AC-1,TRN8		;ITERATION COUNTER
  6073	036647	200 02 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6074	036650	321 01 0 00 036636 		JUMPL	AC-1,TRN9		;LOOP ON ERROR SWITCH ^
  6075
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 136
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0167

  6076
  6077
  6078					;TEST TRN,TRNA.  CHECK FOR SKIP/NO SKIP AND
  6079					;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
  6080
  6081
  6082			000003			AC=3
  6083	036651				TRNA1:	SETUP	100,0^
  6084			000004			AC1=<AC+1>&17
  6085			000005			AC2=<AC+2>&17
  6086			000006			AC3=<AC+3>&17
  6087			000007			AC4=<AC+4>&17
  6088			000010			AC5=<AC+5>&17
  6089			000001			RAN1=<AC-2>&17
  6090	036651	201 02 0 00 036651 		MOVEI	AC-1,.
  6091	036652	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6092	036653	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6093	036654	202 02 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6094	036655	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6095	036656	240 02 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6096	036657	240 02 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6097	036660				TRNA2:	RANDOM^
  6098	036660	200 03 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6099	036661	270 03 0 00 040321 		ADD	AC,[142536475076]
  6100	036662	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6101	036663	447 03 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6102	036664	204 04 0 00 000003 	TRNA3:	MOVS	AC1,AC		;MAKE "E"=DIFFERENT RAN NUM
  6103	036665	600 03 0 04 000000 		TRN	AC,(AC1)	;SHOULD NOT SKIP.
  6104	036666	254 00 0 00 036670 		JRST	.+2
  6105	036667	005 03 0 00 040323 		ER	AC,[ASCII /TST/];TRN SKIPPED.
  6106	036670	604 03 0 04 000000 		TRNA	AC,(AC1)	;SHOULD SKIP.
  6107	036671	005 03 0 00 040323 		ER	AC,[ASCII /TST/]
  6108	036672	312 03 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD NOT CHANGE
  6109	036673	013 00 0 04 000000 		EERRI	,(AC1)
  6110						LOOP	TRNA2,TRNA3^
  6111	036674	367 02 0 00 036660 		SOJG	AC-1,TRNA2		;ITERATION COUNTER
  6112	036675	200 03 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6113	036676	321 02 0 00 036664 		JUMPL	AC-1,TRNA3		;LOOP ON ERROR SWITCH ^
  6114
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 137
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0168

  6115
  6116
  6117					;TEST TRNE,TRNN.  CHECK FOR SKIP/NO SKIP AND
  6118					;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
  6119
  6120
  6121			000004			AC=4
  6122	036677				TRNE1A:	SETUP	100,0^
  6123			000005			AC1=<AC+1>&17
  6124			000006			AC2=<AC+2>&17
  6125			000007			AC3=<AC+3>&17
  6126			000010			AC4=<AC+4>&17
  6127			000011			AC5=<AC+5>&17
  6128			000002			RAN1=<AC-2>&17
  6129	036677	201 03 0 00 036677 		MOVEI	AC-1,.
  6130	036700	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6131	036701	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6132	036702	202 03 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6133	036703	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6134	036704	240 03 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6135	036705	240 03 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6136	036706				TRNE2A:	RANDOM^
  6137	036706	200 04 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6138	036707	270 04 0 00 040321 		ADD	AC,[142536475076]
  6139	036710	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6140	036711	447 04 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6141	036712	606 04 0 00 000000 	TRNE3A:	TRNN	AC,0		;E+C(AC)R=0.  NO SKIP
  6142	036713	254 00 0 00 036715 		JRST	.+2
  6143	036714	005 04 0 00 040323 		ER	AC,[ASCII /TST/];TRNN SKIPPED.
  6144	036715	602 04 0 00 000000 		TRNE	AC,0		;E+C(AC)R = 0...SKIP.
  6145	036716	005 04 0 00 040323 		ER	AC,[ASCII /TST/]
  6146	036717	312 04 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD NOT CHANGE
  6147	036720	013 00 0 00 000000 		EERRI	,0
  6148						LOOP	TRNE2A,TRNE3A^
  6149	036721	367 03 0 00 036706 		SOJG	AC-1,TRNE2A		;ITERATION COUNTER
  6150	036722	200 04 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6151	036723	321 03 0 00 036712 		JUMPL	AC-1,TRNE3A		;LOOP ON ERROR SWITCH ^
  6152
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 138
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0169

  6153
  6154
  6155					;TEST TRNE, TRNN.  CHECK FOR SKIP/NO SKIP AND
  6156					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
  6157
  6158
  6159			000005			AC=5
  6160	036724				TRNE1B:	SETUP	100,0^
  6161			000006			AC1=<AC+1>&17
  6162			000007			AC2=<AC+2>&17
  6163			000010			AC3=<AC+3>&17
  6164			000011			AC4=<AC+4>&17
  6165			000012			AC5=<AC+5>&17
  6166			000003			RAN1=<AC-2>&17
  6167	036724	201 04 0 00 036724 		MOVEI	AC-1,.
  6168	036725	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6169	036726	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6170	036727	202 04 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6171	036730	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6172	036731	240 04 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6173	036732	240 04 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6174	036733				TRNE2B:	RANDOM^
  6175	036733	200 05 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6176	036734	270 05 0 00 040321 		ADD	AC,[142536475076]
  6177	036735	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6178	036736	447 05 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6179	036737	403 06 0 00 000003 	TRNE3B:	SETZB	AC1,RAN1	;CLEAR C(AC).
  6180	036740	606 06 0 05 000000 		TRNN	AC1,(AC)	;E+C(AC)R = 0...NO SKIP.
  6181	036741	254 00 0 00 036743 		JRST	.+2
  6182	036742	005 06 0 00 040323 		ER	AC1,[ASCII /TST/];TRNN SKIPPED.
  6183	036743	602 06 0 05 000000 		TRNE	AC1,(AC)	;E+C(AC)R = 0...SKIP.
  6184	036744	005 06 0 00 040323 		ER	AC1,[ASCII /TST/]
  6185	036745	312 06 0 00 040322 		CAME	AC1,[0]		;C(AC) SHOULD STILL=0
  6186	036746	003 03 0 05 000000 		ERRI	RAN1,(AC)
  6187						LOOP	TRNE2B,TRNE3B^
  6188	036747	367 04 0 00 036733 		SOJG	AC-1,TRNE2B		;ITERATION COUNTER
  6189	036750	200 05 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6190	036751	321 04 0 00 036737 		JUMPL	AC-1,TRNE3B		;LOOP ON ERROR SWITCH ^
  6191
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 139
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0170

  6192
  6193
  6194					;TEST TRNE, TRNN.  CHECK FOR SKIP/NO SKIP AND
  6195					;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
  6196
  6197
  6198			000006			AC=6
  6199	036752				TRNE1C:	SETUP	100,0^
  6200			000007			AC1=<AC+1>&17
  6201			000010			AC2=<AC+2>&17
  6202			000011			AC3=<AC+3>&17
  6203			000012			AC4=<AC+4>&17
  6204			000013			AC5=<AC+5>&17
  6205			000004			RAN1=<AC-2>&17
  6206	036752	201 05 0 00 036752 		MOVEI	AC-1,.
  6207	036753	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6208	036754	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6209	036755	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6210	036756	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6211	036757	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6212	036760	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6213	036761				TRNE2C:	RANDOM^
  6214	036761	200 06 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6215	036762	270 06 0 00 040321 		ADD	AC,[142536475076]
  6216	036763	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6217	036764	447 06 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6218	036765	435 06 0 00 000002 	TRNE3C:	IORI	AC,2		;MAKE SURE C(AC)R HAS A BIT SET
  6219	036766	200 04 0 00 000006 		MOVE	RAN1,AC		;SAVE C(AC) FOR FUTURE COMPARE.
  6220	036767	602 06 0 00 777777 		TRNE	AC,-1		;E+C(AC)R NOT=0. NO SKIP
  6221	036770	254 00 0 00 036772 		JRST	.+2
  6222	036771	005 06 0 00 040323 		ER	AC,[ASCII /TST/];TRNE SKIPPED.
  6223	036772	606 06 0 00 777777 		TRNN	AC,-1		;E+C(AC)R NOT=0. SKIP
  6224	036773	005 06 0 00 040323 		ER	AC,[ASCII /TST/]
  6225	036774	312 06 0 00 000004 		CAME	AC,RAN1		;C(AC) SHOULD NEVER CHANGE.
  6226	036775	003 04 0 00 777777 		ERRI	RAN1,-1
  6227						LOOP	TRNE2C,TRNE3C^
  6228	036776	367 05 0 00 036761 		SOJG	AC-1,TRNE2C		;ITERATION COUNTER
  6229	036777	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6230	037000	321 05 0 00 036765 		JUMPL	AC-1,TRNE3C		;LOOP ON ERROR SWITCH ^
  6231
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 140
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0171

  6232
  6233
  6234					;TEST TRNE, TRNN.  CHECK FOR SKIP/NO SKIP AND
  6235					;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
  6236
  6237
  6238			000007			AC=7
  6239	037001				TRNE1D:	SETUP	100,0^
  6240			000010			AC1=<AC+1>&17
  6241			000011			AC2=<AC+2>&17
  6242			000012			AC3=<AC+3>&17
  6243			000013			AC4=<AC+4>&17
  6244			000014			AC5=<AC+5>&17
  6245			000005			RAN1=<AC-2>&17
  6246	037001	201 06 0 00 037001 		MOVEI	AC-1,.
  6247	037002	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6248	037003	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6249	037004	202 06 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6250	037005	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6251	037006	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6252	037007	240 06 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6253	037010				TRNE2D:	RANDOM^
  6254	037010	200 07 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6255	037011	270 07 0 00 040321 		ADD	AC,[142536475076]
  6256	037012	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6257	037013	447 07 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6258	037014	435 07 0 00 000001 	TRNE3D:	IORI	AC,1		;MAKE SURE E HAS A BIT.
  6259	037015	477 10 0 00 000005 		SETOB	AC1,RAN1	;MAKE C(AC) = -1.
  6260	037016	602 10 0 07 000000 		TRNE	AC1,(AC)	;E+C(AC)R NOT = 0...NO SKIP.
  6261	037017	254 00 0 00 037021 		JRST	.+2
  6262	037020	005 10 0 00 040323 		ER	AC1,[ASCII /TST/];TRNE SKIPPED.
  6263	037021	606 10 0 07 000000 		TRNN	AC1,(AC)	;E+C(AC)R NOT = 0...SKIP.
  6264	037022	005 10 0 00 040323 		ER	AC1,[ASCII /TST/]
  6265	037023	312 10 0 00 040324 		CAME	AC1,[-1]	;C(AC) SHOULD STILL = A -1.
  6266	037024	003 05 0 07 000000 		ERRI	RAN1,(AC)
  6267						LOOP	TRNE2D,TRNE3D^
  6268	037025	367 06 0 00 037010 		SOJG	AC-1,TRNE2D		;ITERATION COUNTER
  6269	037026	200 07 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6270	037027	321 06 0 00 037014 		JUMPL	AC-1,TRNE3D		;LOOP ON ERROR SWITCH ^
  6271
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 141
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0172

  6272
  6273
  6274					;TEST TRNE,TRNN.  CHECK FOR SKIP/NO SKIP AND
  6275					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
  6276
  6277
  6278			000010			AC=10
  6279	037030				TRNE1E:	SETUP	100,0^
  6280			000011			AC1=<AC+1>&17
  6281			000012			AC2=<AC+2>&17
  6282			000013			AC3=<AC+3>&17
  6283			000014			AC4=<AC+4>&17
  6284			000015			AC5=<AC+5>&17
  6285			000006			RAN1=<AC-2>&17
  6286	037030	201 07 0 00 037030 		MOVEI	AC-1,.
  6287	037031	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6288	037032	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6289	037033	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6290	037034	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6291	037035	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6292	037036	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6293	037037				TRNE2E:	RANDOM^
  6294	037037	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6295	037040	270 10 0 00 040321 		ADD	AC,[142536475076]
  6296	037041	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6297	037042	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6298	037043	435 10 0 00 000004 	TRNE3E:	IORI	AC,4		;MAKE SURE C(AC)R HAS A BIT
  6299	037044	200 11 0 00 000010 		MOVE	AC1,AC		;MAKE E=C(AC).
  6300	037045	602 10 0 11 000000 		TRNE	AC,(AC1)	;E + C(AC)R NOT = 0...NO SKIP.
  6301	037046	254 00 0 00 037050 		JRST	.+2
  6302	037047	005 10 0 00 040323 		ER	AC,[ASCII /TST/];TRNE SKIPPED.
  6303	037050	606 10 0 11 000000 		TRNN	AC,(AC1)	;E + C(AC)R NOT = 0...SKIP.
  6304	037051	005 10 0 00 040323 		ER	AC,[ASCII /TST/]
  6305	037052	312 10 0 00 000011 		CAME	AC,AC1		;C(AC) SHOULD = ORIG C(AC).
  6306	037053	003 11 0 11 000000 		ERRI	AC1,(AC1)
  6307						LOOP	TRNE2E,TRNE3E^
  6308	037054	367 07 0 00 037037 		SOJG	AC-1,TRNE2E		;ITERATION COUNTER
  6309	037055	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6310	037056	321 07 0 00 037043 		JUMPL	AC-1,TRNE3E		;LOOP ON ERROR SWITCH ^
  6311
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 142
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0173

  6312
  6313
  6314					;TEST TRNE,TRNN.  CHECK FOR SKIP/NO SKIP AND
  6315					;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION.
  6316
  6317
  6318			000011			AC=11
  6319	037057				TRNE1F:	SETUP	100,0^
  6320			000012			AC1=<AC+1>&17
  6321			000013			AC2=<AC+2>&17
  6322			000014			AC3=<AC+3>&17
  6323			000015			AC4=<AC+4>&17
  6324			000016			AC5=<AC+5>&17
  6325			000007			RAN1=<AC-2>&17
  6326	037057	201 10 0 00 037057 		MOVEI	AC-1,.
  6327	037060	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6328	037061	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6329	037062	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6330	037063	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6331	037064	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6332	037065	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6333	037066				TRNE2F:	RANDOM^
  6334	037066	200 11 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6335	037067	270 11 0 00 040321 		ADD	AC,[142536475076]
  6336	037070	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6337	037071	447 11 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6338	037072	460 12 0 00 000011 	TRNE3F:	SETCM	AC1,AC		;MAKE "E" = 1'S COMP OF C(AC).
  6339	037073	606 11 0 12 000000 		TRNN	AC,(AC1)	;E+C(AC)R = 0...NO SKIP.
  6340	037074	254 00 0 00 037076 		JRST	.+2
  6341	037075	005 11 0 00 040323 		ER	AC,[ASCII /TST/];TRNN SKIPPED.
  6342	037076	602 11 0 12 000000 		TRNE	AC,(AC1)	;E + C(AC)R = 0...SKIP.
  6343	037077	005 11 0 00 040323 		ER	AC,[ASCII /TST/]
  6344	037100	312 11 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD = ORIG C(AC).
  6345	037101	013 00 0 12 000000 		EERRI	,(AC1)
  6346						LOOP	TRNE2F,TRNE3F^
  6347	037102	367 10 0 00 037066 		SOJG	AC-1,TRNE2F		;ITERATION COUNTER
  6348	037103	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6349	037104	321 10 0 00 037072 		JUMPL	AC-1,TRNE3F		;LOOP ON ERROR SWITCH ^
  6350
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 143
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0174

  6351
  6352
  6353					;TEST TRZ, TRZA.  CHECK FOR SKIP/NO SKIP AND
  6354					;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION
  6355
  6356
  6357			000012			AC=12
  6358	037105				TRZA1:	SETUP	100,0^
  6359			000013			AC1=<AC+1>&17
  6360			000014			AC2=<AC+2>&17
  6361			000015			AC3=<AC+3>&17
  6362			000016			AC4=<AC+4>&17
  6363			000017			AC5=<AC+5>&17
  6364			000010			RAN1=<AC-2>&17
  6365	037105	201 11 0 00 037105 		MOVEI	AC-1,.
  6366	037106	202 11 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6367	037107	201 11 0 00 000011 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6368	037110	202 11 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6369	037111	201 11 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6370	037112	240 11 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6371	037113	240 11 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6372	037114				TRZA2:	RANDOM^
  6373	037114	200 12 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6374	037115	270 12 0 00 040321 		ADD	AC,[142536475076]
  6375	037116	241 12 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6376	037117	447 12 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6377	037120	460 13 0 00 000012 	TRZA3:	SETCM	AC1,AC		;MAKE "E"=COMP OF C(AC)
  6378	037121	620 12 0 13 000000 		TRZ	AC,(AC1)	;SHOULD NOT SKIP.
  6379	037122	254 00 0 00 037124 		JRST	.+2
  6380	037123	005 12 0 00 040323 		ER	AC,[ASCII /TST/];TRZ SKIPPED.
  6381	037124	624 12 0 13 000000 		TRZA	AC,(AC1)	;SHOULD ALWAYS SKIP.
  6382	037125	005 12 0 00 040323 		ER	AC,[ASCII /TST/]
  6383	037126	312 12 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD NOT CHANGE
  6384	037127	013 00 0 13 000000 		EERRI	,(AC1)
  6385						LOOP	TRZA2,TRZA3^
  6386	037130	367 11 0 00 037114 		SOJG	AC-1,TRZA2		;ITERATION COUNTER
  6387	037131	200 12 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6388	037132	321 11 0 00 037120 		JUMPL	AC-1,TRZA3		;LOOP ON ERROR SWITCH ^
  6389
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 144
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0175

  6390
  6391
  6392					;TEST TRZ,TRZA.  CHECK FOR SKIP/NO SKIP AND
  6393					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
  6394
  6395
  6396			000013			AC=13
  6397	037133				TRZAA:	SETUP	100,0^
  6398			000014			AC1=<AC+1>&17
  6399			000015			AC2=<AC+2>&17
  6400			000016			AC3=<AC+3>&17
  6401			000017			AC4=<AC+4>&17
  6402			000000			AC5=<AC+5>&17
  6403			000011			RAN1=<AC-2>&17
  6404	037133	201 12 0 00 037133 		MOVEI	AC-1,.
  6405	037134	202 12 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6406	037135	201 12 0 00 000012 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6407	037136	202 12 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6408	037137	201 12 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6409	037140	240 12 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6410	037141	240 12 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6411	037142				TRZAB:	RANDOM^
  6412	037142	200 13 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6413	037143	270 13 0 00 040321 		ADD	AC,[142536475076]
  6414	037144	241 13 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6415	037145	447 13 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6416	037146	200 14 0 00 000013 		MOVE	AC1,AC		;MAKE "E"=C(AC)
  6417	037147	200 15 0 00 000013 	TRZAC:	MOVE	AC2,AC		;SIMULATE
  6418	037150	404 15 0 00 040354 		AND	AC2,[XWD -1,0]	;A (TRZ AC,-1).
  6419	037151	620 13 0 14 000000 		TRZ	AC,(AC1)	;SHOULD NOT SKIP.
  6420	037152	254 00 0 00 037154 		JRST	.+2
  6421	037153	005 13 0 00 040323 		ER	AC,[ASCII /TST/];TRZ SKIPPED.
  6422	037154	624 13 0 14 000000 		TRZA	AC,(AC1)	;SHOULD ALWAYS SKIP.
  6423	037155	005 13 0 00 040323 		ER	AC,[ASCII /TST/]
  6424	037156	312 13 0 00 000015 		CAME	AC,AC2		;C(AC) SHOULD=SIM ANS
  6425	037157	003 14 0 14 000000 		ERRI	AC1,(AC1)
  6426						LOOP	TRZAB,TRZAC^
  6427	037160	367 12 0 00 037142 		SOJG	AC-1,TRZAB		;ITERATION COUNTER
  6428	037161	200 13 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6429	037162	321 12 0 00 037147 		JUMPL	AC-1,TRZAC		;LOOP ON ERROR SWITCH ^
  6430
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 145
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0176

  6431
  6432
  6433					;TEST TRZ,TRZA.  CHECK FOR SKIP/NO SKIP AND
  6434					;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
  6435
  6436
  6437			000014			AC=14
  6438	037163				TRZB1:	SETUP	100,0^
  6439			000015			AC1=<AC+1>&17
  6440			000016			AC2=<AC+2>&17
  6441			000017			AC3=<AC+3>&17
  6442			000000			AC4=<AC+4>&17
  6443			000001			AC5=<AC+5>&17
  6444			000012			RAN1=<AC-2>&17
  6445	037163	201 13 0 00 037163 		MOVEI	AC-1,.
  6446	037164	202 13 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6447	037165	201 13 0 00 000013 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6448	037166	202 13 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6449	037167	201 13 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6450	037170	240 13 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6451	037171	240 13 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6452	037172				TRZB2:	RANDOM^
  6453	037172	200 14 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6454	037173	270 14 0 00 040321 		ADD	AC,[142536475076]
  6455	037174	241 14 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6456	037175	447 14 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6457	037176	204 15 0 00 000014 	TRZB3:	MOVS	AC1,AC		;MAKE "E"=DIFFERENT RAN NUM
  6458	037177	201 16 0 15 000000 		MOVEI	AC2,(AC1)	;SIMULATE
  6459	037200	464 16 0 00 000014 		ORCM	AC2,AC		;A
  6460	037201	450 16 0 00 000000 		SETCA	AC2,		;TRZ
  6461	037202	620 14 0 15 000000 		TRZ	AC,(AC1)	;SHOULD NOT SKIP.
  6462	037203	312 14 0 00 000016 		CAME	AC,AC2		;C(AC) SHOULD=SIM ANS
  6463	037204	013 00 0 15 000000 		EERRI	,(AC1)
  6464	037205	200 14 0 00 040444 		MOVE	AC,RAN		;RESTORE AC
  6465	037206	624 14 0 15 000000 		TRZA	AC,(AC1)	;SHOULD ALWAYS SKIP.
  6466	037207	005 14 0 00 040323 		ER	AC,[ASCII /TST/]
  6467	037210	312 14 0 00 000016 		CAME	AC,AC2		;C(AC) SHOULD=SIM ANS
  6468	037211	013 00 0 15 000000 		EERRI	,(AC1)
  6469						LOOP	TRZB2,TRZB3^
  6470	037212	367 13 0 00 037172 		SOJG	AC-1,TRZB2		;ITERATION COUNTER
  6471	037213	200 14 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6472	037214	321 13 0 00 037176 		JUMPL	AC-1,TRZB3		;LOOP ON ERROR SWITCH ^
  6473
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 146
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0177

  6474
  6475
  6476					;TEST TRZE, TRZN.  CHECK FOR SKIP/NO SKIP AND
  6477					;CORRECT DATA IN AC FOR A ROTATING MASK BIT WITH SAME BIT
  6478					;CLEARED IN AC.
  6479
  6480
  6481			000005			AC=5
  6482	037215				TRZE1:	SETUP	40,0^
  6483			000006			AC1=<AC+1>&17
  6484			000007			AC2=<AC+2>&17
  6485			000010			AC3=<AC+3>&17
  6486			000011			AC4=<AC+4>&17
  6487			000012			AC5=<AC+5>&17
  6488			000003			RAN1=<AC-2>&17
  6489	037215	201 04 0 00 037215 		MOVEI	AC-1,.
  6490	037216	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6491	037217	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6492	037220	202 04 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6493	037221	201 04 0 00 000040 		MOVEI	AC-1,40		;ROUTINE WEIGHTING
  6494	037222	240 04 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6495	037223	240 04 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6496	037224	201 06 0 00 000001 		MOVEI	AC1,1		;SETUP E TO HAVE A MASK BIT.
  6497	037225				TRZE2:	RANDOM^
  6498	037225	200 05 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6499	037226	270 05 0 00 040321 		ADD	AC,[142536475076]
  6500	037227	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6501	037230	447 05 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6502	037231	241 06 0 00 000001 		ROT	AC1,1		;ROT TO TEST NEXT BIT
  6503	037232	316 06 0 00 040353 		CAMN	AC1,[XWD 1,0]	;HAS THE BIT GONE TO THE LEFT SIDE?
  6504	037233	201 06 0 00 000001 		MOVEI	AC1,1		;YES, RESTORE E
  6505	037234	420 05 0 00 000006 	TRZE3:	ANDCM	AC,AC1		;CLEAR MASK BIT IN AC
  6506	037235	200 07 0 00 000005 		MOVE	AC2,AC		;SAVE FOR COMPARE
  6507	037236	626 05 0 06 000000 		TRZN	AC,(AC1)	;E+C(AC)R = 0...NO SKIP.
  6508	037237	254 00 0 00 037241 		JRST	.+2
  6509	037240	005 05 0 00 040323 		ER	AC,[ASCII /TST/];TRZN SKIPPED.
  6510	037241	622 05 0 06 000000 		TRZE	AC,(AC1)	;E+C(AC)R = 0...SKIP.
  6511	037242	005 05 0 00 040323 		ER	AC,[ASCII /TST/]
  6512	037243	312 05 0 00 000007 		CAME	AC,AC2		;C(AC) SHOULD NOT HAVE CHANGED
  6513	037244	003 07 0 06 000000 		ERRI	AC2,(AC1)
  6514						LOOP	TRZE2,TRZE3^
  6515	037245	367 04 0 00 037225 		SOJG	AC-1,TRZE2		;ITERATION COUNTER
  6516	037246	200 05 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6517	037247	321 04 0 00 037234 		JUMPL	AC-1,TRZE3		;LOOP ON ERROR SWITCH ^
  6518
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 147
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0178

  6519
  6520
  6521					;TEST TRZE,TRZN.  CHECK FOR SKIP/NO SKIP AND
  6522					;CORRECT DATA IN AC FOR A ROTATING MASK BIT WITH
  6523					;SAME BIT SET IN AC.
  6524
  6525
  6526			000006			AC=6
  6527	037250				TRZEA:	SETUP	40,0^
  6528			000007			AC1=<AC+1>&17
  6529			000010			AC2=<AC+2>&17
  6530			000011			AC3=<AC+3>&17
  6531			000012			AC4=<AC+4>&17
  6532			000013			AC5=<AC+5>&17
  6533			000004			RAN1=<AC-2>&17
  6534	037250	201 05 0 00 037250 		MOVEI	AC-1,.
  6535	037251	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6536	037252	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6537	037253	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6538	037254	201 05 0 00 000040 		MOVEI	AC-1,40		;ROUTINE WEIGHTING
  6539	037255	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6540	037256	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6541	037257	201 07 0 00 000001 		MOVEI	AC1,1		;SETUP "E" FOR ONE MASK BIT
  6542	037260				TRZEB:	RANDOM^
  6543	037260	200 06 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6544	037261	270 06 0 00 040321 		ADD	AC,[142536475076]
  6545	037262	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6546	037263	447 06 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6547	037264	241 07 0 00 000001 		ROT	AC1,1		;ROT BIT TO TEST NEXT BIT
  6548	037265	316 07 0 00 040353 		CAMN	AC1,[XWD 1,0]	;IS BIT ON LEFT SIDE?
  6549	037266	201 07 0 00 000001 		MOVEI	AC1,1		;YES, RESTORE.
  6550	037267	434 06 0 00 000007 	TRZEC:	IOR	AC,AC1		;SET MASK BIT IN AC
  6551	037270	200 04 0 00 000006 		MOVE	RAN1,AC		;SAVE FOR PRINT IN CASE OF ERROR.
  6552	037271	200 10 0 00 000006 		MOVE	AC2,AC		;SIMULATE
  6553	037272	420 10 0 00 000007 		ANDCM	AC2,AC1		;TRZ.
  6554	037273	622 06 0 07 000000 		TRZE	AC,(AC1)	;E+C(AC)R NOT = 0...NO SKIP.
  6555	037274	312 06 0 00 000010 		CAME	AC,AC2		;C(AC) SHOULD = SIM. ANS.
  6556	037275	003 04 0 07 000000 		ERRI	RAN1,(AC1)
  6557	037276	200 06 0 00 000004 		MOVE	AC,RAN1		;RESTORE AC.
  6558	037277	626 06 0 07 000000 		TRZN	AC,(AC1)	;E+C(AC)R NOT = 0...SKIP.
  6559	037300	005 06 0 00 040323 		ER	AC,[ASCII /TST/]
  6560	037301	312 06 0 00 000010 		CAME	AC,AC2		;C(AC) SHOULD=SIM ANS
  6561	037302	003 04 0 07 000000 		ERRI	RAN1,(AC1)
  6562						LOOP	TRZEB,TRZEC^
  6563	037303	367 05 0 00 037260 		SOJG	AC-1,TRZEB		;ITERATION COUNTER
  6564	037304	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6565	037305	321 05 0 00 037267 		JUMPL	AC-1,TRZEC		;LOOP ON ERROR SWITCH ^
  6566
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 148
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0179

  6567
  6568
  6569					;TEST TRZE,TRZN.  CHECK FOR SKIP/NO SKIP AND
  6570					;CORRECT DATA IN AC FOR A ROTATING MASK BIT IN AC
  6571					;AND SAME BIT CLEARED IN E.
  6572
  6573
  6574			000007			AC=7
  6575	037306				TRZNA:	SETUP	40,0^
  6576			000010			AC1=<AC+1>&17
  6577			000011			AC2=<AC+2>&17
  6578			000012			AC3=<AC+3>&17
  6579			000013			AC4=<AC+4>&17
  6580			000014			AC5=<AC+5>&17
  6581			000005			RAN1=<AC-2>&17
  6582	037306	201 06 0 00 037306 		MOVEI	AC-1,.
  6583	037307	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6584	037310	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6585	037311	202 06 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6586	037312	201 06 0 00 000040 		MOVEI	AC-1,40		;ROUTINE WEIGHTING
  6587	037313	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6588	037314	240 06 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6589	037315	201 10 0 00 000001 		MOVEI	AC1,1		;SETUP A MASK BIT
  6590	037316				TRZNB:	RANDOM^
  6591	037316	200 07 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6592	037317	270 07 0 00 040321 		ADD	AC,[142536475076]
  6593	037320	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6594	037321	447 07 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6595	037322	241 10 0 00 000001 		ROT	AC1,1		;ROT BIT TO TEST NEXT BIT
  6596	037323	316 10 0 00 040353 		CAMN	AC1,[XWD 1,0]	;IS BIT ON LEFT SIDE?
  6597	037324	201 10 0 00 000001 		MOVEI	AC1,1		;YES, RESTORE AC
  6598	037325	200 11 0 00 000010 		MOVE	AC2,AC1		;SAVE FOR FUTURE COMPARE.
  6599	037326	200 10 0 00 000011 	TRZNC:	MOVE	AC1,AC2		;RESTORE "AC" IN CASE OF ERROR
  6600	037327	420 07 0 00 000010 		ANDCM	AC,AC1		;CLEAR BIT IN "E"
  6601	037330	626 10 0 07 000000 		TRZN	AC1,(AC)	;E+C(AC)R = 0...NO SKIP.
  6602	037331	254 00 0 00 037333 		JRST	.+2
  6603	037332	005 10 0 00 040323 		ER	AC1,[ASCII /TST/];TRZN SKIPPED.
  6604	037333	622 10 0 07 000000 		TRZE	AC1,(AC)	;E+C(AC)R = 0...SKIP.
  6605	037334	005 10 0 00 040323 		ER	AC1,[ASCII /TST/]
  6606	037335	312 10 0 00 000011 		CAME	AC1,AC2		;C(AC) SHOULD NOT CHANGE
  6607	037336	003 11 0 07 000000 		ERRI	AC2,(AC)
  6608						LOOP	TRZNB,TRZNC^
  6609	037337	367 06 0 00 037316 		SOJG	AC-1,TRZNB		;ITERATION COUNTER
  6610	037340	200 07 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6611	037341	321 06 0 00 037326 		JUMPL	AC-1,TRZNC		;LOOP ON ERROR SWITCH ^
  6612
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 149
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0180

  6613
  6614
  6615					;TEST TRZE,TRZN.  CHECK FOR SKIP/NO SKIP AND
  6616					;CORRECT DATA IN AC FOR A ROTATING MASK BIT
  6617					;IN AC AND SAME BIT SET IN E.
  6618
  6619
  6620			000011			AC=11
  6621	037342				TRZN1:	SETUP	40,0^
  6622			000012			AC1=<AC+1>&17
  6623			000013			AC2=<AC+2>&17
  6624			000014			AC3=<AC+3>&17
  6625			000015			AC4=<AC+4>&17
  6626			000016			AC5=<AC+5>&17
  6627			000007			RAN1=<AC-2>&17
  6628	037342	201 10 0 00 037342 		MOVEI	AC-1,.
  6629	037343	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6630	037344	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6631	037345	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6632	037346	201 10 0 00 000040 		MOVEI	AC-1,40		;ROUTINE WEIGHTING
  6633	037347	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6634	037350	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6635	037351	201 12 0 00 000001 		MOVEI	AC1,1		;SETUP A MASK BIT
  6636	037352				TRZN2:	RANDOM^
  6637	037352	200 11 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6638	037353	270 11 0 00 040321 		ADD	AC,[142536475076]
  6639	037354	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6640	037355	447 11 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6641	037356	241 12 0 00 000001 		ROT	AC1,1		;ROT BIT TO TEST NEXT BIT
  6642	037357	316 12 0 00 040353 		CAMN	AC1,[XWD 1,0]	;IS BIT ON LEFT SIDE?
  6643	037360	201 12 0 00 000001 		MOVEI	AC1,1		;YES, RESTORE
  6644	037361	200 13 0 00 000012 		MOVE	AC2,AC1		;SAVE FOR FUTURE COMPARE
  6645	037362	434 11 0 00 000012 	TRZN3:	IOR	AC,AC1		;SET MASK BIT IN E
  6646	037363	622 12 0 11 000000 		TRZE	AC1,(AC)	;E+C(AC)R NOT = 0...NO SKIP.
  6647	037364	312 12 0 00 040322 		CAME	AC1,[0]		;C(AC) SHOULD=0
  6648	037365	003 13 0 11 000000 		ERRI	AC2,(AC)
  6649	037366	200 12 0 00 000013 		MOVE	AC1,AC2		;RESTORE MASK BIT
  6650	037367	626 12 0 11 000000 		TRZN	AC1,(AC)	;E+C(AC)R NOT = 0...SKIP.
  6651	037370	005 12 0 00 040323 		ER	AC1,[ASCII /TST/]
  6652	037371	312 12 0 00 040322 		CAME	AC1,[0]		;C(AC) SHOULD=0
  6653	037372	003 13 0 11 000000 		ERRI	AC2,(AC)
  6654	037373	200 12 0 00 000013 		MOVE	AC1,AC2		;RESTORE MASK BIT
  6655						LOOP	TRZN2,TRZN3^
  6656	037374	367 10 0 00 037352 		SOJG	AC-1,TRZN2		;ITERATION COUNTER
  6657	037375	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6658	037376	321 10 0 00 037362 		JUMPL	AC-1,TRZN3		;LOOP ON ERROR SWITCH ^
  6659
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 150
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0181

  6660
  6661
  6662					;TEST TRO,TROA.  CHECK FOR SKIP/NO SKIP AND
  6663					;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
  6664
  6665
  6666			000011			AC=11
  6667	037377				TRO1:	SETUP	100,0^
  6668			000012			AC1=<AC+1>&17
  6669			000013			AC2=<AC+2>&17
  6670			000014			AC3=<AC+3>&17
  6671			000015			AC4=<AC+4>&17
  6672			000016			AC5=<AC+5>&17
  6673			000007			RAN1=<AC-2>&17
  6674	037377	201 10 0 00 037377 		MOVEI	AC-1,.
  6675	037400	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6676	037401	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6677	037402	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6678	037403	201 10 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6679	037404	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6680	037405	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6681	037406				TRO2:	RANDOM^
  6682	037406	200 11 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6683	037407	270 11 0 00 040321 		ADD	AC,[142536475076]
  6684	037410	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6685	037411	447 11 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6686	037412	660 11 0 00 000000 	TRO3:	TRO	AC,0		;SHOULD NOT SKIP
  6687	037413	254 00 0 00 037415 		JRST	.+2
  6688	037414	005 11 0 00 040323 		ER	AC,[ASCII /TST/];TRO SKIPPED.
  6689	037415	664 11 0 00 000000 		TROA	AC,0		;SHOULD SKIP
  6690	037416	005 11 0 00 040323 		ER	AC,[ASCII /TST/]
  6691	037417	312 11 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD STILL=RAN NUM
  6692	037420	013 00 0 00 000000 		EERRI	,0
  6693						LOOP	TRO2,TRO3^
  6694	037421	367 10 0 00 037406 		SOJG	AC-1,TRO2		;ITERATION COUNTER
  6695	037422	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6696	037423	321 10 0 00 037412 		JUMPL	AC-1,TRO3		;LOOP ON ERROR SWITCH ^
  6697
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 151
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0182

  6698
  6699
  6700					;TEST TRO, TROA.  CHECK FOR SKIP/NO SKIP AND
  6701					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
  6702
  6703
  6704			000002			AC=2
  6705	037424				TRO4:	SETUP	100,0^
  6706			000003			AC1=<AC+1>&17
  6707			000004			AC2=<AC+2>&17
  6708			000005			AC3=<AC+3>&17
  6709			000006			AC4=<AC+4>&17
  6710			000007			AC5=<AC+5>&17
  6711			000000			RAN1=<AC-2>&17
  6712	037424	201 01 0 00 037424 		MOVEI	AC-1,.
  6713	037425	202 01 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6714	037426	201 01 0 00 000001 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6715	037427	202 01 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6716	037430	201 01 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6717	037431	240 01 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6718	037432	240 01 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6719	037433				TRO5:	RANDOM^
  6720	037433	200 02 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6721	037434	270 02 0 00 040321 		ADD	AC,[142536475076]
  6722	037435	241 02 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6723	037436	447 02 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6724	037437	403 03 0 00 000000 	TRO6:	SETZB	AC1,RAN1	;CLEAR C(AC).
  6725	037440	200 04 0 00 000002 		MOVE	AC2,AC		;SIMULATE
  6726	037441	405 04 0 00 777777 		ANDI	AC2,-1		;A TRO
  6727	037442	660 03 0 02 000000 		TRO	AC1,(AC)	;SHOULD NOT SKIP.
  6728	037443	254 00 0 00 037445 		JRST	.+2
  6729	037444	005 03 0 00 040323 		ER	AC1,[ASCII /TST/];TRO SKIPPED.
  6730	037445	664 03 0 02 000000 		TROA	AC1,(AC)	;SHOULD ALWAYS SKIP.
  6731	037446	005 03 0 00 040323 		ER	AC1,[ASCII /TST/]
  6732	037447	312 03 0 00 000004 		CAME	AC1,AC2		;C(AC) SHOULD=SIM ANS
  6733	037450	003 00 0 02 000000 		ERRI	RAN1,(AC)
  6734						LOOP	TRO5,TRO6^
  6735	037451	367 01 0 00 037433 		SOJG	AC-1,TRO5		;ITERATION COUNTER
  6736	037452	200 02 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6737	037453	321 01 0 00 037437 		JUMPL	AC-1,TRO6		;LOOP ON ERROR SWITCH ^
  6738
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 152
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0183

  6739
  6740
  6741					;TEST TRO, TROA.  CHECK FOR SKIP/NO SKIP AND
  6742					;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
  6743
  6744
  6745			000003			AC=3
  6746	037454				TRO1A:	SETUP	100,0^
  6747			000004			AC1=<AC+1>&17
  6748			000005			AC2=<AC+2>&17
  6749			000006			AC3=<AC+3>&17
  6750			000007			AC4=<AC+4>&17
  6751			000010			AC5=<AC+5>&17
  6752			000001			RAN1=<AC-2>&17
  6753	037454	201 02 0 00 037454 		MOVEI	AC-1,.
  6754	037455	202 02 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6755	037456	201 02 0 00 000002 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6756	037457	202 02 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6757	037460	201 02 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6758	037461	240 02 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6759	037462	240 02 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6760	037463				TRO1B:	RANDOM^
  6761	037463	200 03 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6762	037464	270 03 0 00 040321 		ADD	AC,[142536475076]
  6763	037465	241 03 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6764	037466	447 03 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6765	037467	200 05 0 00 000003 	TRO1C:	MOVE	AC2,AC		;SIMULATE
  6766	037470	435 05 0 00 777777 		IORI	AC2,-1		;ATRO
  6767	037471	660 03 0 00 777777 		TRO	AC,-1		;SHOULD NOT SKIP
  6768	037472	254 00 0 00 037474 		JRST	.+2
  6769	037473	005 03 0 00 040323 		ER	AC,[ASCII /TST/];TRO SKIPPED.
  6770	037474	664 03 0 00 777777 		TROA	AC,-1		;SHOULD SKIP
  6771	037475	005 03 0 00 040323 		ER	AC,[ASCII /TST/]
  6772	037476	312 03 0 00 000005 		CAME	AC,AC2		;C(AC) SHOULD=SIM ANS
  6773	037477	013 00 0 00 777777 		EERRI	,-1
  6774						LOOP	TRO1B,TRO1C^
  6775	037500	367 02 0 00 037463 		SOJG	AC-1,TRO1B		;ITERATION COUNTER
  6776	037501	200 03 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6777	037502	321 02 0 00 037467 		JUMPL	AC-1,TRO1C		;LOOP ON ERROR SWITCH ^
  6778
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 153
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0184

  6779
  6780
  6781					;TEST TRO,TROA.  CHECK FOR SKIP/NO SKIP AND
  6782					;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
  6783
  6784
  6785			000004			AC=4
  6786	037503				TRO1D:	SETUP	100,0^
  6787			000005			AC1=<AC+1>&17
  6788			000006			AC2=<AC+2>&17
  6789			000007			AC3=<AC+3>&17
  6790			000010			AC4=<AC+4>&17
  6791			000011			AC5=<AC+5>&17
  6792			000002			RAN1=<AC-2>&17
  6793	037503	201 03 0 00 037503 		MOVEI	AC-1,.
  6794	037504	202 03 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6795	037505	201 03 0 00 000003 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6796	037506	202 03 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6797	037507	201 03 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6798	037510	240 03 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6799	037511	240 03 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6800	037512				TRO1E:	RANDOM^
  6801	037512	200 04 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6802	037513	270 04 0 00 040321 		ADD	AC,[142536475076]
  6803	037514	241 04 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6804	037515	447 04 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6805	037516	477 05 0 00 000002 	TRO1F:	SETOB	AC1,RAN1	;SET C(AC) TO ALL ONES.
  6806	037517	660 05 0 04 000000 		TRO	AC1,(AC)	;SHOULD NOT SKIP.
  6807	037520	254 00 0 00 037522 		JRST	.+2
  6808	037521	005 05 0 00 040323 		ER	AC1,[ASCII /TST/];TRO SKIPPED.
  6809	037522	664 05 0 04 000000 		TROA	AC1,(AC)	;SHOULD ALWAYS SKIP.
  6810	037523	005 05 0 00 040323 		ER	AC1,[ASCII /TST/]
  6811	037524	312 05 0 00 040324 		CAME	AC1,[-1]	;C(AC) SHOULD STILL = -1.
  6812	037525	003 02 0 04 000000 		ERRI	RAN1,(AC)
  6813						LOOP	TRO1E,TRO1F^
  6814	037526	367 03 0 00 037512 		SOJG	AC-1,TRO1E		;ITERATION COUNTER
  6815	037527	200 04 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6816	037530	321 03 0 00 037516 		JUMPL	AC-1,TRO1F		;LOOP ON ERROR SWITCH ^
  6817
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 154
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0185

  6818
  6819
  6820					;TEST TRO, TROA.  CHECK FOR SKIP/NO SKIP AND
  6821					;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION
  6822
  6823
  6824			000005			AC=5
  6825	037531				TROA1:	SETUP	100,0^
  6826			000006			AC1=<AC+1>&17
  6827			000007			AC2=<AC+2>&17
  6828			000010			AC3=<AC+3>&17
  6829			000011			AC4=<AC+4>&17
  6830			000012			AC5=<AC+5>&17
  6831			000003			RAN1=<AC-2>&17
  6832	037531	201 04 0 00 037531 		MOVEI	AC-1,.
  6833	037532	202 04 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6834	037533	201 04 0 00 000004 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6835	037534	202 04 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6836	037535	201 04 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6837	037536	240 04 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6838	037537	240 04 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6839	037540				TROA2:	RANDOM^
  6840	037540	200 05 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6841	037541	270 05 0 00 040321 		ADD	AC,[142536475076]
  6842	037542	241 05 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6843	037543	447 05 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6844	037544	460 06 0 00 000005 	TROA3:	SETCM	AC1,AC		;MAKE "E" = COM C(AC)
  6845	037545	200 07 0 00 000005 		MOVE	AC2,AC		;SIMULATE
  6846	037546	410 07 0 00 040354 		ANDCA	AC2,[XWD-1,0]	;A
  6847	037547	450 07 0 00 000000 		SETCA	AC2,		;TRO
  6848	037550	660 05 0 06 000000 		TRO	AC,(AC1)	;SHOULD NOT SKIP.
  6849	037551	254 00 0 00 037553 		JRST	.+2
  6850	037552	005 05 0 00 040323 		ER	AC,[ASCII /TST/];TRO SKIPPED.
  6851	037553	664 05 0 06 000000 		TROA	AC,(AC1)	;SHOULD ALWAYS SKIP.
  6852	037554	005 05 0 00 040323 		ER	AC,[ASCII /TST/]
  6853	037555	312 05 0 00 000007 		CAME	AC,AC2		;C(AC) SHOULD=SIM ANS
  6854	037556	013 00 0 06 000000 		EERRI	,(AC1)
  6855						LOOP	TROA2,TROA3^
  6856	037557	367 04 0 00 037540 		SOJG	AC-1,TROA2		;ITERATION COUNTER
  6857	037560	200 05 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6858	037561	321 04 0 00 037544 		JUMPL	AC-1,TROA3		;LOOP ON ERROR SWITCH ^
  6859
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 155
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0186

  6860
  6861
  6862					;TEST TRO, TROA.  CHECK FOR SKIP/NO SKIP AND
  6863					;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
  6864
  6865
  6866			000006			AC=6
  6867	037562				TROA4:	SETUP	100,0^
  6868			000007			AC1=<AC+1>&17
  6869			000010			AC2=<AC+2>&17
  6870			000011			AC3=<AC+3>&17
  6871			000012			AC4=<AC+4>&17
  6872			000013			AC5=<AC+5>&17
  6873			000004			RAN1=<AC-2>&17
  6874	037562	201 05 0 00 037562 		MOVEI	AC-1,.
  6875	037563	202 05 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6876	037564	201 05 0 00 000005 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6877	037565	202 05 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6878	037566	201 05 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  6879	037567	240 05 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6880	037570	240 05 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6881	037571				TROA5:	RANDOM^
  6882	037571	200 06 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6883	037572	270 06 0 00 040321 		ADD	AC,[142536475076]
  6884	037573	241 06 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6885	037574	447 06 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6886	037575	200 07 0 00 000006 	TROA6:	MOVE	AC1,AC		;MAKE E = C(AC)R.
  6887	037576	660 06 0 07 000000 		TRO	AC,(AC1)	;SHOULD NOT SKIP.
  6888	037577	254 00 0 00 037601 		JRST	.+2
  6889	037600	005 06 0 00 040323 		ER	AC,[ASCII /TST/];TRO SKIPPED.
  6890	037601	664 06 0 07 000000 		TROA	AC,(AC1)	;SHOULD ALWAYS SKIP.
  6891	037602	005 06 0 00 040323 		ER	AC,[ASCII /TST/]
  6892	037603	312 06 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD NOT CHANGE
  6893	037604	003 07 0 07 000000 		ERRI	AC1,(AC1)
  6894						LOOP	TROA5,TROA6^
  6895	037605	367 05 0 00 037571 		SOJG	AC-1,TROA5		;ITERATION COUNTER
  6896	037606	200 06 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6897	037607	321 05 0 00 037575 		JUMPL	AC-1,TROA6		;LOOP ON ERROR SWITCH ^
  6898
  6899
  6900
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 156
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0187

  6901
  6902
  6903					;TEST TROE, TRON. CHECK FOR SKIP/ NO SKIP AND
  6904					;CORRECT DATA IN AC FOR A FLOATING MASK BIT
  6905					;WITH SAME BIT CLEARED IN AC.
  6906
  6907
  6908			000007			AC=7
  6909	037610				TROE1:	SETUP	40,0^
  6910			000010			AC1=<AC+1>&17
  6911			000011			AC2=<AC+2>&17
  6912			000012			AC3=<AC+3>&17
  6913			000013			AC4=<AC+4>&17
  6914			000014			AC5=<AC+5>&17
  6915			000005			RAN1=<AC-2>&17
  6916	037610	201 06 0 00 037610 		MOVEI	AC-1,.
  6917	037611	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6918	037612	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6919	037613	202 06 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6920	037614	201 06 0 00 000040 		MOVEI	AC-1,40		;ROUTINE WEIGHTING
  6921	037615	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6922	037616	240 06 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6923	037617	201 10 0 00 000001 		MOVEI	AC1,1		;SETUP E TO HAVE A MASK BIT.
  6924	037620				TROE2:	RANDOM^
  6925	037620	200 07 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6926	037621	270 07 0 00 040321 		ADD	AC,[142536475076]
  6927	037622	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6928	037623	447 07 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6929	037624	241 10 0 00 000001 		ROT	AC1,1		;ROT TO TEST NEXT BIT.
  6930	037625	316 10 0 00 040353 		CAMN	AC1,[XWD 1,0]	;BIT IN LEFT SIDE?
  6931	037626	201 10 0 00 000001 		MOVEI	AC1,1		;YES. REINITIALIZE E.
  6932	037627	420 07 0 00 000010 	TROE3:	ANDCM	AC,AC1		;CLEAR MASK BIT IN AC.
  6933	037630	200 05 0 00 000007 		MOVE	RAN1,AC		;SAVE AC IN CASE OF ERROR.
  6934	037631	200 11 0 00 000007 		MOVE	AC2,AC		;SIMULATE
  6935	037632	434 11 0 00 000010 		IOR	AC2,AC1		;A TRO INST.
  6936	037633	662 07 0 10 000000 		TROE	AC,(AC1)	;E + C(AC)R = 0...SKIP.
  6937	037634	005 07 0 00 040323 		ER	AC,[ASCII /TST/]
  6938	037635	666 07 0 10 000000 		TRON	AC,(AC1)	;E + C(AC)R NOT = 0...SKIP.
  6939	037636	005 07 0 00 040323 		ER	AC,[ASCII /TST/]
  6940	037637	312 07 0 00 000011 		CAME	AC,AC2		;C(AC) SHOULD = SIM. ANS.
  6941	037640	003 05 0 10 000000 		ERRI	RAN1,(AC1)
  6942						LOOP	TROE2,TROE3^
  6943	037641	367 06 0 00 037620 		SOJG	AC-1,TROE2		;ITERATION COUNTER
  6944	037642	200 07 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6945	037643	321 06 0 00 037627 		JUMPL	AC-1,TROE3		;LOOP ON ERROR SWITCH ^
  6946
  6947
  6948
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 157
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0188

  6949
  6950
  6951					;TEST TROE, TRON. CHECK FOR SKIP/ NO SKIP AND
  6952					;CORRECT DATA IN AC FOR A FLOATING MASK BIT IN E
  6953					;AND WITH SAME BIT SET IN AC.
  6954
  6955
  6956			000010			AC=10
  6957	037644				TROEA:	SETUP	40,0^
  6958			000011			AC1=<AC+1>&17
  6959			000012			AC2=<AC+2>&17
  6960			000013			AC3=<AC+3>&17
  6961			000014			AC4=<AC+4>&17
  6962			000015			AC5=<AC+5>&17
  6963			000006			RAN1=<AC-2>&17
  6964	037644	201 07 0 00 037644 		MOVEI	AC-1,.
  6965	037645	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  6966	037646	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  6967	037647	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  6968	037650	201 07 0 00 000040 		MOVEI	AC-1,40		;ROUTINE WEIGHTING
  6969	037651	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  6970	037652	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  6971	037653	201 11 0 00 000001 		MOVEI	AC1,1		;SETUP E TO HAVE A MASK BIT.
  6972	037654				TROEB:	RANDOM^
  6973	037654	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  6974	037655	270 10 0 00 040321 		ADD	AC,[142536475076]
  6975	037656	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  6976	037657	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  6977	037660	241 11 0 00 000001 		ROT	AC1,1		;ROT ATO TEST NEST BIT.
  6978	037661	316 11 0 00 040353 		CAMN	AC1,[XWD 1,0]	;IS BIT ON LEFT SIDE?
  6979	037662	201 11 0 00 000001 		MOVEI	AC1,1		;YES. REINITIALIZE E.
  6980	037663	434 10 0 00 000011 	TROEC:	IOR	AC,AC1		;SET MASK BIT IN AC.
  6981	037664	200 06 0 00 000010 		MOVE	RAN1,AC		;SAVE FOR COMPARE.
  6982	037665	662 10 0 11 000000 		TROE	AC,(AC1)	;E + C(AC) R NOT = 0...NO SKIP.
  6983	037666	254 00 0 00 037670 		JRST	.+2
  6984	037667	005 10 0 00 040323 		ER	AC,[ASCII /TST/];TROE SKIPPED.
  6985	037670	666 10 0 11 000000 		TRON	AC,(AC1)	;E + C(AC)R NOT = 0...SKIP.
  6986	037671	005 10 0 00 040323 		ER	AC,[ASCII /TST/]
  6987	037672	312 10 0 00 000006 		CAME	AC,RAN1		;C(AC) SHOULD = ORIG. C(AC).
  6988	037673	003 06 0 11 000000 		ERRI	RAN1,(AC1)
  6989						LOOP	TROEB, TROEC^
  6990	037674	367 07 0 00 037654 		SOJG	AC-1,TROEB		;ITERATION COUNTER
  6991	037675	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  6992	037676	321 07 0 00 037663 		JUMPL	AC-1,TROEC		;LOOP ON ERROR SWITCH ^
  6993
  6994
  6995
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 158
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0189

  6996					;TEST TROE, TRON. CHECK FOR SKIP/ NO SKIP AND
  6997					;CORRECT DATA IN AC FOR A FLOATING MASK BIT IN AC
  6998					;AND SAME BIT CLEARED IN E.
  6999
  7000
  7001			000011			AC=11
  7002	037677				TRON1:	SETUP	40,0^
  7003			000012			AC1=<AC+1>&17
  7004			000013			AC2=<AC+2>&17
  7005			000014			AC3=<AC+3>&17
  7006			000015			AC4=<AC+4>&17
  7007			000016			AC5=<AC+5>&17
  7008			000007			RAN1=<AC-2>&17
  7009	037677	201 10 0 00 037677 		MOVEI	AC-1,.
  7010	037700	202 10 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  7011	037701	201 10 0 00 000010 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  7012	037702	202 10 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  7013	037703	201 10 0 00 000040 		MOVEI	AC-1,40		;ROUTINE WEIGHTING
  7014	037704	240 10 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  7015	037705	240 10 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  7016	037706	201 12 0 00 000001 		MOVEI	AC1,1		;SETUP AC TO HAVE A FLOATING MASK BIT.
  7017	037707				TRON2:	RANDOM^
  7018	037707	200 11 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  7019	037710	270 11 0 00 040321 		ADD	AC,[142536475076]
  7020	037711	241 11 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  7021	037712	447 11 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  7022	037713	241 12 0 00 000001 		ROT	AC1,1		;ROT TO TEST NEXT BIT.
  7023	037714	316 12 0 00 040353 		CAMN	AC1,[XWD 1,0]	;IS BIT ON LEFT SIDE?
  7024	037715	201 12 0 00 000001 		MOVEI	AC1,1		;YES. REINITIALIZE AC.
  7025	037716	200 07 0 00 000012 		MOVE	RAN1,AC1	;SAVE C(AC) SO IT CAN BE
  7026	037717	420 11 0 00 000012 	TRON3:	ANDCM	AC,AC1		;CLEAR BIT IN E.
  7027	037720	201 13 0 11 000000 		MOVEI	AC2,(AC)	;SIMULATE
  7028	037721	322 13 0 00 037707 		JUMPE	AC2,TRON2	;REJECT IF "E" = 0.
  7029	037722	434 13 0 00 000012 		IOR	AC2,AC1		;A TRO INST.
  7030	037723	666 12 0 11 000000 		TRON	AC1,(AC)	;E + C(AC)R = 0...NO SKIP.
  7031	037724	254 00 0 00 037726 		JRST	.+2
  7032	037725	005 12 0 00 040323 		ER	AC1,[ASCII /TST/];TRON SKIPPED.
  7033	037726	666 12 0 11 000000 		TRON	AC1,(AC)	;E + C(AC)R NOT = 0...SKIP.
  7034	037727	005 12 0 00 040323 		ER	AC1,[ASCII /TST/]
  7035	037730	312 12 0 00 000013 		CAME	AC1,AC2		;C(AC) SHOULD = SIM. ANS.
  7036	037731	003 07 0 11 000000 		ERRI	RAN1,(AC)
  7037	037732	200 12 0 00 000007 		MOVE	AC1,RAN1	;RESTORE C(AC).
  7038	037733	662 12 0 11 000000 		TROE	AC1,(AC)	;E + C(AC)R = 0...SKIP.
  7039	037734	005 12 0 00 040323 		ER	AC1,[ASCII /TST/]
  7040	037735	662 12 0 11 000000 		TROE	AC1,(AC)	;E + C(AC)R NOT = 0...NO SKIP.
  7041	037736	312 12 0 00 000013 		CAME	AC1,AC2		;C(AC) SHOULD = SIM. ANS.
  7042	037737	003 07 0 11 000000 		ERRI	RAN1,(AC)
  7043	037740	200 12 0 00 000007 		MOVE	AC1,RAN1	;RESTORE C(AC).
  7044						LOOP	TRON2, TRON3^
  7045	037741	367 10 0 00 037707 		SOJG	AC-1,TRON2		;ITERATION COUNTER
  7046	037742	200 11 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  7047	037743	321 10 0 00 037717 		JUMPL	AC-1,TRON3		;LOOP ON ERROR SWITCH ^
  7048
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 159
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0190

  7049
  7050
  7051					;TEST TROE, TRON. CHECK FOR SKIP/ NO SKIP AND
  7052					;CORRECT DATA IN AC FOR A FLOATING ONE IN AC
  7053					;AND SAME BIT SET IN E.
  7054
  7055
  7056			000012			AC=12
  7057	037744				TRONA:	SETUP	40,0^
  7058			000013			AC1=<AC+1>&17
  7059			000014			AC2=<AC+2>&17
  7060			000015			AC3=<AC+3>&17
  7061			000016			AC4=<AC+4>&17
  7062			000017			AC5=<AC+5>&17
  7063			000010			RAN1=<AC-2>&17
  7064	037744	201 11 0 00 037744 		MOVEI	AC-1,.
  7065	037745	202 11 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  7066	037746	201 11 0 00 000011 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  7067	037747	202 11 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  7068	037750	201 11 0 00 000040 		MOVEI	AC-1,40		;ROUTINE WEIGHTING
  7069	037751	240 11 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  7070	037752	240 11 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  7071	037753	201 13 0 00 000001 		MOVEI	AC1,1		;SETUP AC TO HAVE A FLOATING ONE.
  7072	037754				TRONB:	RANDOM^
  7073	037754	200 12 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  7074	037755	270 12 0 00 040321 		ADD	AC,[142536475076]
  7075	037756	241 12 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  7076	037757	447 12 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  7077	037760	241 13 0 00 000001 		ROT	AC1,1		;ROT TO TEST NEXT BIT.
  7078	037761	316 13 0 00 040353 		CAMN	AC1,[XWD 1,0]	;IS BIT ON LEFT SIDE?
  7079	037762	201 13 0 00 000001 		MOVEI	AC1,1		;YES. REINITIALIZE AC.
  7080	037763	200 10 0 00 000013 		MOVE	RAN1,AC1	;SAVE C(AC) SO IT CAN BE
  7081	037764	434 12 0 00 000013 	TRONC:	IOR	AC,AC1		;SET BIT IN E.
  7082	037765	201 14 0 12 000000 		MOVEI	AC2,(AC)	;SIMULATE A TRO INST.
  7083	037766	662 13 0 12 000000 		TROE	AC1,(AC)	;E + C(AC)R NOT = 0...NO SKIP.
  7084	037767	254 00 0 00 037771 		JRST	.+2
  7085	037770	005 13 0 00 040323 		ER	AC1,[ASCII /TST/];TROE SKIPPED.
  7086	037771	666 13 0 12 000000 		TRON	AC1,(AC)	;E + C(AC)R NOT = 0...SKIP.
  7087	037772	005 13 0 00 040323 		ER	AC1,[ASCII /TST/]
  7088	037773	312 13 0 00 000014 		CAME	AC1,AC2		;C(AC) SHOULD = SIM. ANS.
  7089	037774	003 10 0 12 000000 		ERRI	RAN1,(AC)
  7090	037775	200 13 0 00 000010 		MOVE	AC1,RAN1	;RESTORE C(AC).
  7091						LOOP	TRONB, TRONC^
  7092	037776	367 11 0 00 037754 		SOJG	AC-1,TRONB		;ITERATION COUNTER
  7093	037777	200 12 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  7094	040000	321 11 0 00 037764 		JUMPL	AC-1,TRONC		;LOOP ON ERROR SWITCH ^
  7095
  7096
  7097
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 160
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0191

  7098
  7099
  7100
  7101
  7102					;TEST TRC,TRCA.  CHECK FOR SKIP/NO SKIP AND
  7103					;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
  7104
  7105
  7106			000007			AC=7
  7107	040001				TRC1:	SETUP	100,0^
  7108			000010			AC1=<AC+1>&17
  7109			000011			AC2=<AC+2>&17
  7110			000012			AC3=<AC+3>&17
  7111			000013			AC4=<AC+4>&17
  7112			000014			AC5=<AC+5>&17
  7113			000005			RAN1=<AC-2>&17
  7114	040001	201 06 0 00 040001 		MOVEI	AC-1,.
  7115	040002	202 06 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  7116	040003	201 06 0 00 000006 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  7117	040004	202 06 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  7118	040005	201 06 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  7119	040006	240 06 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  7120	040007	240 06 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  7121	040010				TRC2:	RANDOM^
  7122	040010	200 07 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  7123	040011	270 07 0 00 040321 		ADD	AC,[142536475076]
  7124	040012	241 07 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  7125	040013	447 07 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  7126	040014	640 07 0 00 000000 	TRC3:	TRC	AC,0		;SHOULD NOT SKIP.
  7127	040015	254 00 0 00 040017 		JRST	.+2
  7128	040016	005 07 0 00 040323 		ER	AC,[ASCII /TST/];TRC SKIPPED.
  7129	040017	644 07 0 00 000000 		TRCA	AC,0		;SHOULD SKIP
  7130	040020	005 07 0 00 040323 		ER	AC,[ASCII /TST/]
  7131	040021	312 07 0 00 040444 		CAME	AC,RAN		;C(AC) SHOULD STILL=RAN NUM
  7132	040022	013 00 0 00 000000 		EERRI
  7133						LOOP	TRC2,TRC3^
  7134	040023	367 06 0 00 040010 		SOJG	AC-1,TRC2		;ITERATION COUNTER
  7135	040024	200 07 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  7136	040025	321 06 0 00 040014 		JUMPL	AC-1,TRC3		;LOOP ON ERROR SWITCH ^
  7137
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 161
DAKBBM	MAC	21-JAN-77 16:48		DIAGNOSTIC SECTION                                                                 SEQ 0192

  7138					;TEST TRC,TRCA.  CHECK FOR SKIP/NO SKIP AND
  7139					;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
  7140
  7141
  7142			000010			AC=10
  7143	040026				TRCA1:	SETUP	100,0^
  7144			000011			AC1=<AC+1>&17
  7145			000012			AC2=<AC+2>&17
  7146			000013			AC3=<AC+3>&17
  7147			000014			AC4=<AC+4>&17
  7148			000015			AC5=<AC+5>&17
  7149			000006			RAN1=<AC-2>&17
  7150	040026	201 07 0 00 040026 		MOVEI	AC-1,.
  7151	040027	202 07 0 00 030051 		MOVEM	AC-1,TESTPC	;SETUP SUBTEST PC
  7152	040030	201 07 0 00 000007 		MOVEI	AC-1,<AC-1>&17	;INFORM ERROR ROUTINE
  7153	040031	202 07 0 00 040441 		MOVEM	AC-1,ERRLOP#	;WHICH AC IS USED FOR ITERATION
  7154	040032	201 07 0 00 000100 		MOVEI	AC-1,100		;ROUTINE WEIGHTING
  7155	040033	240 07 1 00 030666 		ASH	AC-1,@CMPLXT+0	;ROUTINE COMPLEXITY
  7156	040034	240 07 1 00 030665 		ASH	AC-1,@RTIME	;RUN TIME CONTROLLER ^
  7157	040035				TRCA2:	RANDOM^
  7158	040035	200 10 0 00 040444 		MOVE	AC,RAN#		;GENERATE  PSEUDO RANDOM NUMBER
  7159	040036	270 10 0 00 040321 		ADD	AC,[142536475076]
  7160	040037	241 10 0 00 777777 		ROT	AC,-1		;IN BOTH AC AND
  7161	040040	447 10 0 00 040444 		EQVB	AC,RAN		;REGISTER RAN ^
  7162	040041	403 11 0 00 000006 	TRCA3:	SETZB	AC1,RAN1	;CLEAR C(AC).
  7163	040042	640 11 0 10 000000 		TRC	AC1,(AC)	;SHOULD NOT SKIP.
  7164	040043	254 00 0 00 040045 		JRST	.+2
  7165	040044	005 11 0 00 040323 		ER	AC1,[ASCII /TST/];TRC SKIPPED.
  7166	040045	644 11 0 10 000000 		TRCA	AC1,(AC)	;SHOULD ALWAYS SKIP.
  7167	040046	005 11 0 00 040323 		ER	AC1,[ASCII /TST/]
  7168	040047	312 11 0 00 040322 		CAME	AC1,[0]		;C(AC) SHOULD STILL=0
  7169	040050	003 06 0 10 000000 		ERRI	RAN1,(AC)
  7170						LOOP	TRCA2,TRCA3^
  7171	040051	367 07 0 00 040035 		SOJG	AC-1,TRCA2		;ITERATION COUNTER
  7172	040052	200 10 0 00 040444 		MOVE	AC,RAN		;RESTORE RANDOM NUMBER
  7173	040053	321 07 0 00 040041 		JUMPL	AC-1,TRCA3		;LOOP ON ERROR SWITCH ^
  7174
  7175
  7176	040054	254 00 0 00 030057 		JRST	BEGEND		;REPEAT TEST
  7177
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 1
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0193

  7178					SUBTTL	*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975
  7179
  7180					;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
  7181
  7182	040055	202 00 0 00 040453 	ERRMES:	MOVEM	0,%ERAC0#	;SAVE AC0
  7183						IFDEF	EXCASB,<IFDEF	KI10,<
  7184						SKIPN	KAIFLG
  7185						JRST	.+5
  7186						SKIPE	USER		;USER MODE ?
  7187						JRST	.+3
  7188						SKIPE	MARGIN
  7189						DATAO	APR,[IMGNOF,,ISPDOF] ;CLR MARGINS >>
  7190	040056	202 01 0 00 040454 		MOVEM	1,%ERAC1#	;SAVE AC1
  7191	040057	202 02 0 00 040455 		MOVEM	2,%ERAC2#	;SAVE AC2
  7192	040060	350 00 0 00 030053 		AOS	ERRTLS		;INCREMENT ERROR TOTALS
  7193	040061	550 00 0 00 030114 		HRRZ	0,$SVUPC	;GET PC OF UUO
  7194	040062	316 00 0 00 030052 		CAMN	0,ERRPC		;PC = PC OF LAST ERROR ?
  7195	040063	350 00 0 00 040442 		AOS	MICNT#		;YES, ADD 1 TO ERROR COUNT
  7196	040064	200 00 0 00 040442 		MOVE	0,MICNT
  7197	040065	504 00 0 00 030114 		HRL	0,$SVUPC
  7198	040066	336 00 0 00 030041 		SKIPN	KLFLG		;NOT KL10
  7199	040067	332 00 0 00 030037 		SKIPE	USER		;AND NOT USER?
  7200	040070	254 00 0 00 040072 		JRST	.+2
  7201	040071	7 004 14 0 00 000000 		DATAO	PI,0		;YES, DISPLAY ERROR PC,ERROR COUNT
  7202	040072	402 00 0 00 040443 		SETZM	PROCED#		;CLEAR PROCEED FLAG
  7203	040073	037 10 0 00 000002 		SWITCH
  7204	040074	603 00 0 00 040000 		TLNE	NOPNT		;PRINTOUT ?
  7205	040075	254 00 0 00 040261 		JRST	%ERRS1		;NO, RESTORE AC'S AND RETURN
  7206	040076	200 01 0 00 030113 		MOVE	1,$SVUUO
  7207	040077	242 01 0 00 777745 		LSH	1,-^D27
  7208	040100	202 01 0 00 040445 		MOVEM	1,%ACS1A#	;SAVE UUO NUMBER
  7209	040101	200 00 0 00 040453 		MOVE	0,%ERAC0
  7210	040102	200 01 0 00 040454 		MOVE	1,%ERAC1
  7211	040103	335 00 1 00 040441 		SKIPGE	@ERRLOP		;ERR LOOP AC > OR = 0 ?
  7212	040104	254 00 0 00 040313 		JRST	%ERRS4		;NO, SEE IF PRINT ALL
  7213	040105	402 00 0 00 040442 	%ERMS1:	SETZM	MICNT		;CLEAR ERROR COUNT
  7214	040106	331 00 0 00 030043 		SKIPL	MONCTL		;DIAG MON OR SYS EXER ?
  7215	040107	254 00 0 00 040113 		JRST	.+4		;NO, DON'T NEED TITLE
  7216	040110	336 00 0 00 040456 		SKIPN	%ERFST#		;FIRST ERROR ?
  7217	040111	037 04 0 00 000002 		PNTNM			;YES, PRINT PROGRAM TITLE
  7218	040112	476 00 0 00 040456 		SETOM	%ERFST
  7219	040113	336 00 0 00 030047 		SKIPN	PASCNT		;FIRST PASS ?
  7220	040114	254 00 0 00 040120 		JRST	.+4		;YES
  7221						PMSG	<^TEST PASS COUNT = >^
  7222	040115	037 02 0 00 040355 		PSIXM	[SIXBIT\^TEST PASS COUNT = _\]^
  7223	040116	200 00 0 00 030047 		MOVE	PASCNT
  7224	040117	037 15 0 00 000000 		PNTDEC
  7225						PMSG	<^PC =   >^
  7226	040120	037 02 0 00 040361 		PSIXM	[SIXBIT\^PC =   _\]^
  7227	040121	550 00 0 00 030114 		HRRZ	0,$SVUPC	;GET PC OF UUO
  7228	040122	202 00 0 00 030052 		MOVEM	0,ERRPC		;SAVE FOR COMPARE
  7229	040123	037 06 0 00 000000 		PNT6			;PRINT UUO ADDRESS
  7230						XLIST
  7231						LIST
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 4
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0194

  7232					;RELIABILITY FORMAT ERROR PRINTER
  7233
  7234	040124	402 00 0 00 040457 	%ERMS2:	SETZM	%RAND#		;CLEAR PNT C(RAN) FLAG
  7235	040125	200 01 0 00 040445 		MOVE	1,%ACS1A
  7236	040126	301 01 0 00 000011 		CAIL	1,11		;UUO # 11-13
  7237	040127	476 00 0 00 040457 		SETOM	%RAND		;YES, SET PNT C(RAN) FLAG
  7238	040130	620 01 0 00 000010 		TRZ	1,10		;MAKE UUO # 1-7
  7239	040131	202 01 0 00 040445 		MOVEM	1,%ACS1A
  7240	040132	200 02 0 00 030052 		MOVE	2,ERRPC		;GET UUO ADDRESS
  7241	040133	200 02 0 02 777777 		MOVE	2,-1(2)		;GET INST IN UUO-1
  7242	040134	301 01 0 00 000004 		CAIL	1,4		;UUO # < THAN 4 ?
  7243	040135	200 02 0 00 030113 		MOVE	2,$SVUUO	;YES, GET UUO
  7244	040136	202 02 0 00 040446 		MOVEM	2,%CNTE#	;SAVE E ADDRESS
  7245	040137	200 02 0 00 040455 		MOVE	2,%ERAC2
  7246	040140	200 01 0 00 040454 		MOVE	1,%ERAC1
  7247	040141	200 00 0 00 040453 		MOVE	0,%ERAC0
  7248	040142	201 01 1 00 040446 		MOVEI	1,@%CNTE	;GET ADRS FIELD OF UUO OR UUO-1
  7249	040143	202 01 0 00 040447 		MOVEM	1,%EE1#
  7250	040144	200 01 0 00 040454 		MOVE	1,%ERAC1
  7251	040145	200 01 1 00 040447 		MOVE	1,@%EE1		;GET C(E)
  7252	040146	202 01 0 00 040450 		MOVEM	1,%EE1A#
  7253	040147	200 01 0 00 040454 		MOVE	1,%ERAC1
  7254	040150	201 01 1 00 030113 		MOVEI	1,@$SVUUO	;GET ADDRESS FIELD OF UUO
  7255	040151	202 01 0 00 040451 		MOVEM	1,%EE2#
  7256	040152	200 01 0 00 040445 		MOVE	1,%ACS1A
  7257	040153	306 01 0 00 000003 		CAIN	1,3		;UUO # 3 ?
  7258	040154	254 00 0 00 040160 		JRST	.+4		;YES
  7259	040155	200 01 0 00 040454 		MOVE	1,%ERAC1
  7260	040156	200 01 1 00 040451 		MOVE	1,@%EE2		;GET C(E) OF UUO
  7261	040157	202 01 0 00 040452 		MOVEM	1,%EE2A#
  7262	040160	200 02 0 00 040445 		MOVE	2,%ACS1A	;GET UUO #
  7263	040161	200 01 0 00 040446 		MOVE	1,%CNTE
  7264	040162	242 01 0 00 777751 		LSH	1,-27		;GET AC NUMBER
  7265	040163	405 01 0 00 000017 		ANDI	1,17
  7266	040164	307 02 0 00 000005 		CAIG	2,5		;UUO # 6,7 OR 2
  7267	040165	306 02 0 00 000002 		CAIN	2,2
  7268	040166	254 00 0 00 040235 		JRST	%ERR2		;YES, GO PNT E AND C(E)
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 5
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0195

  7269					;PRINT ERROR AC
  7270
  7271						PMSG	<^AC =   >^
  7272	040167	037 02 0 00 040363 		PSIXM	[SIXBIT\^AC =   _\]^
  7273	040170	200 00 0 00 000001 		MOVE	0,1
  7274	040171	037 02 0 00 000000 		PNT2			;PRINT AC NUMBER
  7275						PMSG	<^C(AC)= >^
  7276	040172	037 02 0 00 040365 		PSIXM	[SIXBIT\^C(AC)= _\]^
  7277	040173	200 00 0 01 000000 		MOVE	0,(1)		;GET C(AC)
  7278	040174	307 01 0 00 000002 		CAIG	1,2		;IS AC # = SAVED AC ?
  7279	040175	200 00 0 01 040453 		MOVE	0,%ERAC0(1)	;YES, GET SAVED AC
  7280	040176	037 13 0 00 000000 	%ERRB:	PNTHW			;PRINT C(AC) OR UUO2 (E)
  7281
  7282					;PRINT ERROR INFO
  7283
  7284	040177	306 02 0 00 000005 		CAIN	2,5		;UUO # 5
  7285	040200	254 00 0 00 040251 		JRST	%ERR4		;YES, GO PNT 'TST','SKP', OR ETC.
  7286
  7287						PMSG	<^COR =  >^
  7288	040201	037 02 0 00 040367 		PSIXM	[SIXBIT\^COR =  _\]^
  7289	040202	200 00 0 01 000000 		MOVE	0,(1)		;GET C(AC)
  7290	040203	307 01 0 00 000002 		CAIG	1,2		;IS AC # = SAVED AC ?
  7291	040204	200 00 0 01 040453 		MOVE	0,%ERAC0(1)	;YES, GET SAVED AC
  7292	040205	302 02 0 00 000002 		CAIE	2,2
  7293	040206	200 00 0 00 040450 		MOVE	0,%EE1A		;UUO # 2, GET C(E)
  7294	040207	037 13 0 00 000000 		PNTHW			;PRINT C(E) OR UUO2 C(AC)
  7295	040210	301 02 0 00 000004 		CAIL	2,4		;UUO # >3 ?
  7296	040211	254 00 0 00 040254 		JRST	%ERRC		;YES, RESTORE AC'S AND RETURN
  7297
  7298						PMSG	<^    ORIGINAL>^
  7299	040212	037 02 0 00 040371 		PSIXM	[SIXBIT\^    ORIGINAL_\]^
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 6
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0196

  7300	040213	200 01 0 00 030113 	%ERRB1:	MOVE	1,$SVUUO
  7301	040214	242 01 0 00 777751 		LSH	1,-27		;GET AC # OF UUO
  7302	040215	405 01 0 00 000017 		ANDI	1,17
  7303						PMSG	<^C(AC)= >^
  7304	040216	037 02 0 00 040365 		PSIXM	[SIXBIT\^C(AC)= _\]^
  7305	040217	200 00 0 01 000000 		MOVE	0,(1)		;GET C(AC)
  7306	040220	307 01 0 00 000002 		CAIG	1,2		;IS AC # = SAVED AC ?
  7307	040221	200 00 0 01 040453 		MOVE	0,%ERAC0(1)	;YES, GET SAVED AC
  7308	040222	332 00 0 00 040457 		SKIPE	%RAND		;PRINT C(RAN) FLAG SET ?
  7309	040223	200 00 0 00 040444 		MOVE	0,RAN#		;YES
  7310	040224	037 13 0 00 000000 		PNTHW			;PRINT C(AC) OR C(RAN)
  7311	040225	306 02 0 00 000003 		CAIN	2,3		;UUO # 3 ?
  7312	040226	254 00 0 00 040235 		JRST	%ERR2		;YES, PRINT E, RESTORE AC'S AND RETURN
  7313	040227	306 02 0 00 000007 		CAIN	2,7		;UUO # 7 ?
  7314	040230	254 00 0 00 040254 		JRST	%ERRC		;YES, BYPASS PRINTING C(E)
  7315						PMSG	<^C(E) = >^
  7316	040231	037 02 0 00 040374 		PSIXM	[SIXBIT\^C(E) = _\]^
  7317	040232	200 00 0 00 040452 		MOVE	0,%EE2A
  7318	040233	037 13 0 00 000000 		PNTHW			;PRINT C(E)
  7319	040234	254 00 0 00 040254 		JRST	%ERRC
  7320
  7321	040235				%ERR2:	PMSG	<^E =    >^
  7322	040235	037 02 0 00 040376 		PSIXM	[SIXBIT\^E =    _\]^
  7323	040236	200 00 0 00 040451 		MOVE	0,%EE2
  7324	040237	306 02 0 00 000002 		CAIN	2,2		;UUO # 2 ?
  7325	040240	200 00 0 00 040447 		MOVE	0,%EE1
  7326	040241	037 06 0 00 000000 		PNT6			;PRINT E OF UUO OR UUO-1
  7327	040242	301 02 0 00 000006 		CAIL	2,6		;UUO 6 OR 7 ?
  7328	040243	254 00 0 00 040213 		JRST	%ERRB1		;YES, GO PNT C(AC), C(E) AND RETURN
  7329	040244	306 02 0 00 000003 		CAIN	2,3		;UUO # 3 ?
  7330	040245	254 00 0 00 040254 		JRST	%ERRC		;YES, RESTORE AC'S AND RETURN
  7331
  7332						PMSG	<^C(E) = >^
  7333	040246	037 02 0 00 040374 		PSIXM	[SIXBIT\^C(E) = _\]^
  7334	040247	200 00 0 00 040450 		MOVE	0,%EE1A		;GET C(E)
  7335	040250	254 00 0 00 040176 		JRST	%ERRB
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 7
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0197

  7336					;PRINT ASCII COMMENT
  7337
  7338	040251	551 00 1 00 030113 	%ERR4:	HRRZI	0,@$SVUUO
  7339	040252	037 00 0 00 000000 		PNTA			;PRINT 'TST','SKP', OR ETC.
  7340	040253	254 00 0 00 040254 		JRST	%ERRC
  7341
  7342					;COMPLETE PRINTOUT
  7343
  7344	040254	037 00 0 00 030242 	%ERRC:	PCRL
  7345
  7346						XLIST
  7347						LIST
  7348	040255	254 00 0 00 040256 		JRST	%ERMORE
  7349
  7350					>
  7351						LIST
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 8
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0198

  7352					;RESTORE AC'S AND RETURN OR HALT
  7353
  7354	040256	256 00 0 00 030101 	%ERMORE:XCT	ERMORE
  7355	040257	037 16 0 00 000002 		PNTMGN			;PRINT MARGINS	
  7356	040260	037 10 0 00 000002 		SWITCH
  7357
  7358	040261	037 07 0 00 000003 	%ERRS1:	TTALTM			;ALTMODE CHECK
  7359	040262	254 00 0 00 040266 		JRST	.+4		;NONE
  7360	040263	201 00 0 00 040266 		MOVEI	.+3		;SAVE CONT ADDRESS
  7361	040264	202 00 0 00 000130 		MOVEM	JOBOPC
  7362	040265	254 00 1 00 030063 		JRST	@ALTMGO		;PERFORM TRANSFER
  7363	040266	200 00 0 00 030046 		MOVE	CONSW
  7364	040267	603 00 0 00 002000 		TLNE	0,ERSTOP	;HALT ON ERROR SWITCH SET ?
  7365	040270	037 14 0 00 000004 		ERRHLT			;YES
  7366	040271	607 00 0 00 004000 		TLNN	0,LOOPER	;LOOP ON ERROR SWITCH SET ?
  7367	040272	476 00 0 00 040443 		SETOM	PROCED		;NO, SET THE PROCEED FLAG
  7368	040273	603 00 0 00 010000 		TLNE	0,DING		;RING BELL SWITCH SET ?
  7369	040274	037 01 0 00 000007 		PBELL			;YES, GO RING BELL
  7370
  7371	040275	200 02 0 00 040455 	%ERRS2:	MOVE	2,%ERAC2	;RESTORE AC'S
  7372	040276	200 01 0 00 040454 		MOVE	1,%ERAC1
  7373	040277	476 00 1 00 040441 		SETOM	@ERRLOP		;SET C(ERR LOOP AC) TO -1
  7374	040300	336 00 0 00 040443 		SKIPN	PROCED		;LOOP ON ERROR ?
  7375	040301	254 00 0 00 040311 		JRST	%ERRS5		;YES
  7376	040302	350 00 1 00 040441 		AOS	@ERRLOP		;NO, INC C(ERR LOOP AC)
  7377	040303	350 00 1 00 040441 		AOS	@ERRLOP		;SO IT ='S 1
  7378	040304	331 00 0 00 030043 		SKIPL	MONCTL		;UNDER DIAGNOSTIC MONITOR ?
  7379	040305	254 00 0 00 040311 		JRST	%ERRS5		;NO, CONTINUE PROGRAM
  7380	040306	200 00 0 00 030053 		MOVE	0,ERRTLS	;YES
  7381	040307	301 00 0 00 000005 		CAIL	0,5		;PRINTED ALLOWED ERRORS ?
  7382	040310	254 00 0 00 030061 		JRST	$BEND2
  7383
  7384	040311	200 00 0 00 040453 	%ERRS5:	MOVE	0,%ERAC0	;NO, CONTINUE PROGRAM
  7385						IFDEF	EXCASB,<IFDEF KI10,<
  7386						SKIPN	KAIFLG
  7387						JRST	.+5
  7388						SKIPE	USER
  7389						JRST	.+3
  7390						SKIPE	MARGIN
  7391						DATAO	APR,MARGIN	;RESET MARGIN SYSTEM >>
  7392	040312	254 00 0 00 030065 		JRST	UUOEXT
  7393
  7394	040313	200 00 0 00 030046 	%ERRS4:	MOVE	0,CONSW
  7395	040314	607 00 0 00 001000 		TLNN	PALERS		;PRINT ALL ERRORS ?
  7396	040315	254 00 0 00 040261 		JRST	%ERRS1		;NO
  7397	040316	254 00 0 00 040105 		JRST	%ERMS1		;YES
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0199

  7398					SUBTTL	*STOR* RESERVED STORAGE, JAN 18,1977
  7399
  7400					;PROGRAM LITERALS
  7401
  7402						XLIST
  7403					IFNDEF	$LPAPER,<LIST>
  7404	040317					LIT
  7405	040317	64 51 55 45 62 00 
  7406	040320	45 70 51 64 00 00 
  7407	040321	142536	475076
  7408	040322	000000	000000
  7409	040323	124 123 124 000 000 
  7410	040324	777777	777777
  7411	040325	123 113 120 000 000 
  7412	040326	101 122 117 126 000 
  7413	040327	400000	000000
  7414	040330	377777	777777
  7415	040331	112 115 120 000 000 
  7416	040332	400000	000001
  7417	040333	000000	000002
  7418	040334	101 117 123 000 000 
  7419	040335	117 126 000 000 000 
  7420	040336	103 122 131 060 000 
  7421	040337	103 122 131 061 000 
  7422	040340	000000	000001
  7423	040341	777777	777776
  7424	040342	600000	000000
  7425	040343	000000	000003
  7426	040344	200000	000000
  7427	040345	101 117 112 000 000 
  7428	040346	123 117 123 000 000 
  7429	040347	123 117 112 000 000 
  7430	040350	103 101 115 000 000 
  7431	040351	103 101 111 000 000 
  7432	040352	000000	003154
  7433	040353	000001	000000
  7434	040354	777777	000000
  7435	040355	76 64 45 63 64 00 
  7436	040356	60 41 63 63 00 43 
  7437	040357	57 65 56 64 00 35 
  7438	040360	00 77 00 00 00 00 
  7439	040361	76 60 43 00 35 00 
  7440	040362	00 00 77 00 00 00 
  7441	040363	76 41 43 00 35 00 
  7442	040364	00 00 77 00 00 00 
  7443	040365	76 43 10 41 43 11 
  7444	040366	35 00 77 00 00 00 
  7445	040367	76 43 57 62 00 35 
  7446	040370	00 00 77 00 00 00 
  7447	040371	76 00 00 00 00 57 
  7448	040372	62 51 47 51 56 41 
  7449	040373	54 77 00 00 00 00 
  7450	040374	76 43 10 45 11 00 
  7451	040375	35 00 77 00 00 00 
  7452	040376	76 45 00 35 00 00 
DAKBB  PDP-10  KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2	MACRO %52(537) 17:32 21-JAN-77 PAGE 1-1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0200

  7453	040377	00 00 77 00 00 00 
  7454						LIST
  7455	040400	000000	000000		ENDSLD:	0
  7456
  7457					IFDEF	DEBUG,<
  7458	040401				PATCH:	BLOCK DEBUG		;PATCHING AREA
  7459					>
  7460
  7461					;PROGRAM VARIABLES
  7462	040441					VAR
  7463
  7464					IFDEF	PGMEND,<
  7465	040460	000000	000000		END:	0
  7466			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 040461
CPU TIME USED 00:36.490

11K CORE USED

A	   681#	   693	   695	   695#	   697	   699	   699#	   701	   703	   703#	   705	   707	   707#	   709
	   711	   711#	   713	   715	   715#	   717	   719	   719#                                                    SEQ 0201
AABCLR	   348#
AADRBK	   348#
AAPRC1	   348#
ABORT	   119#
AC	   768#	   770	   771	   772	   773	   774	   775	   776	   777	   778	   779	   780	   781	   782
	   784	   785	   786	   787	   789	   791	   793	   794	   795	   801#	   803	   804	   805	   806
	   807	   808	   809	   810	   811	   812	   813	   814	   815	   817	   818	   819	   820	   821
	   823	   824	   827	   829	   830	   831	   841#	   843	   844	   845	   846	   847	   848	   849
	   850	   851	   852	   853	   854	   855	   857	   858	   859	   860	   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	   899	   901	   903	   904	   905	   914#
	   916	   917	   918	   919	   920	   921	   922	   923	   924	   925	   926	   927	   928	   931
	   932	   933	   934	   936	   937	   938	   940	   941	   942	   943	   945	   946	   947	   948
	   951	   952	   953	   962#	   964	   965	   966	   967	   968	   969	   970	   971	   972	   973
	   974	   975	   976	   979	   980	   981	   982	   984	   985	   986	   988	   989	   990	   991
	   993	   994	   995	   996	   999	  1000	  1001	  1010#	  1012	  1013	  1014	  1015	  1016	  1017
	  1018	  1019	  1020	  1021	  1022	  1023	  1024	  1027	  1028	  1029	  1030	  1034	  1035	  1036
	  1039	  1042	  1043	  1045	  1047	  1049	  1050	  1051	  1059#	  1061	  1062	  1063	  1064	  1065
	  1066	  1067	  1068	  1069	  1070	  1071	  1072	  1073	  1076	  1077	  1078	  1079	  1083	  1084
	  1086	  1088	  1090	  1093	  1096	  1097	  1098	  1107#	  1109	  1110	  1111	  1112	  1113	  1114
	  1115	  1116	  1117	  1118	  1119	  1120	  1121	  1124	  1125	  1126	  1127	  1129	  1130	  1131
	  1133	  1134	  1135	  1136	  1139	  1140	  1141	  1149#	  1151	  1152	  1153	  1154	  1155	  1156
	  1157	  1158	  1159	  1160	  1161	  1162	  1163	  1166	  1167	  1168	  1169	  1171	  1172	  1173
	  1175	  1176	  1177	  1178	  1181	  1182	  1183	  1192#	  1194	  1195	  1196	  1197	  1198	  1199
	  1200	  1201	  1202	  1203	  1204	  1205	  1206	  1209	  1210	  1211	  1212	  1216	  1217	  1220
	  1223	  1225	  1226	  1227	  1237#	  1239	  1240	  1241	  1242	  1243	  1244	  1245	  1246	  1247
	  1248	  1249	  1250	  1251	  1254	  1255	  1256	  1257	  1261	  1262	  1265	  1268	  1270	  1271
	  1272	  1280#	  1282	  1283	  1284	  1285	  1286	  1287	  1288	  1289	  1290	  1291	  1292	  1293
	  1294	  1296	  1297	  1298	  1299	  1301	  1303	  1305	  1307	  1308	  1309	  1317#	  1320	  1321
	  1322	  1323	  1324	  1325	  1326	  1327	  1328	  1329	  1330	  1331	  1332	  1334	  1335	  1336
	  1337	  1339	  1340	  1343	  1344	  1345	  1353#	  1355	  1356	  1357	  1358	  1359	  1360	  1361
	  1362	  1363	  1364	  1365	  1366	  1367	  1369	  1370	  1371	  1372	  1373	  1374	  1375	  1376
	  1377	  1380	  1381	  1382	  1391#	  1393	  1394	  1395	  1396	  1397	  1398	  1399	  1400	  1401
	  1402	  1403	  1404	  1405	  1407	  1408	  1409	  1410	  1411	  1412	  1414	  1415	  1416	  1417
	  1420	  1421	  1422	  1432#	  1434	  1435	  1436	  1437	  1438	  1439	  1440	  1441	  1442	  1443
	  1444	  1445	  1446	  1448	  1449	  1450	  1451	  1453	  1455	  1456	  1457	  1458	  1461	  1462
	  1463	  1471#	  1473	  1474	  1475	  1476	  1477	  1478	  1479	  1480	  1481	  1482	  1483	  1484
	  1485	  1487	  1488	  1489	  1490	  1492	  1493	  1495	  1497	  1500	  1502	  1503	  1504	  1512#
	  1514	  1515	  1516	  1517	  1518	  1519	  1520	  1521	  1522	  1523	  1524	  1525	  1526	  1528
	  1529	  1530	  1531	  1532	  1533	  1536	  1538	  1539	  1540	  1541	  1544	  1545	  1546	  1554#
	  1556	  1557	  1558	  1559	  1560	  1561	  1562	  1563	  1564	  1565	  1566	  1567	  1568	  1570
	  1571	  1572	  1573	  1574	  1576	  1579	  1582	  1584	  1586	  1588	  1590	  1591	  1592	  1601#
	  1603	  1604	  1605	  1606	  1607	  1608	  1609	  1610	  1611	  1612	  1613	  1614	  1615	  1617
	  1618	  1619	  1620	  1621	  1622	  1625	  1627	  1628	  1629	  1630	  1632	  1633	  1634	  1635
	  1638	  1639	  1640	  1649#	  1651	  1652	  1653	  1654	  1655	  1656	  1657	  1658	  1659	  1660
	  1661	  1662	  1663	  1665	  1666	  1667	  1668	  1669	  1670	  1671	  1672	  1674	  1676	  1678
	  1679	  1680	  1681	  1684	  1685	  1686	  1694#	  1696	  1697	  1698	  1699	  1700	  1701	  1702
	  1703	  1704	  1705	  1706	  1707	  1708	  1710	  1711	  1712	  1713	  1715	  1717	  1720	  1723
	  1725	  1726	  1727	  1735#	  1737	  1738	  1739	  1740	  1741	  1742	  1743	  1744	  1745	  1746
	  1747	  1748	  1749	  1751	  1752	  1753	  1754	  1756	  1758	  1759	  1760	  1761	  1764	  1765
	  1766	  1775#	  1777	  1778	  1779	  1780	  1781	  1782	  1783	  1784	  1785	  1786	  1787	  1788
	  1789	  1791	  1792	  1793	  1794	  1795	  1796	  1798	  1799	  1800	  1801	  1804	  1805	  1806
	  1814#	  1816	  1817	  1818	  1819	  1820	  1821	  1822	  1823	  1824	  1825	  1826	  1827	  1828     SEQ 0202
	  1830	  1831	  1832	  1833	  1834	  1836	  1838	  1840	  1841	  1842	  1843	  1846	  1847	  1848
	  1856#	  1858	  1859	  1860	  1861	  1862	  1863	  1864	  1865	  1866	  1867	  1868	  1869	  1870
	  1872	  1873	  1874	  1875	  1877	  1879	  1880	  1881	  1882	  1885	  1886	  1887	  1895#	  1897
	  1898	  1899	  1900	  1901	  1902	  1903	  1904	  1905	  1906	  1907	  1908	  1909	  1911	  1912
	  1913	  1914	  1915	  1917	  1918	  1921	  1924	  1926	  1928	  1930	  1932	  1933	  1934	  1942#
	  1944	  1945	  1946	  1947	  1948	  1949	  1950	  1951	  1952	  1953	  1954	  1955	  1956	  1958
	  1959	  1960	  1961	  1962	  1964	  1965	  1967	  1968	  1969	  1970	  1973	  1974	  1975	  1983#
	  1985	  1986	  1987	  1988	  1989	  1990	  1991	  1992	  1993	  1994	  1995	  1996	  1997	  1999
	  2000	  2001	  2002	  2003	  2005	  2008	  2011	  2013	  2014	  2015	  2023#	  2025	  2026	  2027
	  2028	  2029	  2030	  2031	  2032	  2033	  2034	  2035	  2036	  2037	  2039	  2040	  2041	  2042
	  2043	  2045	  2046	  2048	  2049	  2050	  2051	  2054	  2055	  2056	  2064#	  2066	  2067	  2068
	  2069	  2070	  2071	  2072	  2073	  2074	  2075	  2076	  2077	  2078	  2080	  2081	  2082	  2083
	  2084	  2085	  2086	  2088	  2089	  2090	  2091	  2094	  2095	  2096	  2104#	  2106	  2107	  2108
	  2109	  2110	  2111	  2112	  2113	  2114	  2115	  2116	  2117	  2118	  2120	  2121	  2122	  2123
	  2125	  2127	  2128	  2129	  2130	  2133	  2134	  2135	  2143#	  2145	  2146	  2147	  2148	  2149
	  2150	  2151	  2152	  2153	  2154	  2155	  2156	  2157	  2159	  2160	  2161	  2162	  2164	  2167
	  2170	  2172	  2173	  2174	  2183#	  2185	  2186	  2187	  2188	  2189	  2190	  2191	  2192	  2193
	  2194	  2195	  2196	  2197	  2199	  2200	  2201	  2202	  2203	  2204	  2206	  2207	  2208	  2209
	  2212	  2213	  2214	  2222#	  2224	  2225	  2226	  2227	  2228	  2229	  2230	  2231	  2232	  2233
	  2234	  2235	  2236	  2238	  2239	  2240	  2241	  2242	  2243	  2244	  2248	  2250	  2251	  2252
	  2253	  2256	  2257	  2258	  2266#	  2268	  2269	  2270	  2271	  2272	  2273	  2274	  2275	  2276
	  2277	  2278	  2279	  2280	  2282	  2283	  2284	  2285	  2287	  2289	  2290	  2291	  2292	  2295
	  2296	  2297	  2305#	  2307	  2308	  2309	  2310	  2311	  2312	  2313	  2314	  2315	  2316	  2317
	  2318	  2319	  2321	  2322	  2323	  2324	  2326	  2329	  2332	  2334	  2335	  2336	  2344#	  2346
	  2347	  2348	  2349	  2350	  2351	  2352	  2353	  2354	  2355	  2356	  2357	  2358	  2360	  2361
	  2362	  2363	  2364	  2366	  2367	  2369	  2370	  2371	  2372	  2375	  2376	  2377	  2385#	  2387
	  2388	  2389	  2390	  2391	  2392	  2393	  2394	  2395	  2396	  2397	  2398	  2399	  2401	  2402
	  2403	  2404	  2405	  2407	  2409	  2411	  2413	  2416	  2418	  2419	  2420	  2428#	  2430	  2431
	  2432	  2433	  2434	  2435	  2436	  2437	  2438	  2439	  2440	  2441	  2442	  2444	  2445	  2446
	  2447	  2448	  2450	  2451	  2453	  2454	  2455	  2458	  2459	  2460	  2468#	  2470	  2471	  2472
	  2473	  2474	  2475	  2476	  2477	  2478	  2479	  2480	  2481	  2482	  2484	  2485	  2486	  2487
	  2488	  2489	  2490	  2491	  2493	  2494	  2495	  2496	  2499	  2500	  2501	  2509#	  2511	  2512
	  2513	  2514	  2515	  2516	  2517	  2518	  2519	  2520	  2521	  2522	  2523	  2525	  2526	  2527
	  2528	  2530	  2532	  2533	  2534	  2535	  2538	  2539	  2540	  2548#	  2550	  2551	  2552	  2553
	  2554	  2555	  2556	  2557	  2558	  2559	  2560	  2561	  2562	  2564	  2565	  2566	  2567	  2569
	  2572	  2573	  2575	  2577	  2578	  2579	  2587#	  2589	  2590	  2591	  2592	  2593	  2594	  2595
	  2596	  2597	  2598	  2599	  2600	  2601	  2603	  2604	  2605	  2606	  2607	  2608	  2610	  2611
	  2612	  2613	  2616	  2617	  2618	  2627#	  2629	  2630	  2631	  2632	  2633	  2634	  2635	  2636
	  2637	  2638	  2639	  2640	  2641	  2643	  2644	  2645	  2646	  2647	  2648	  2650	  2651	  2652
	  2653	  2656	  2657	  2658	  2666#	  2668	  2669	  2670	  2671	  2672	  2673	  2674	  2675	  2676
	  2677	  2678	  2679	  2680	  2682	  2683	  2684	  2685	  2687	  2689	  2690	  2691	  2692	  2695
	  2696	  2697	  2705#	  2707	  2708	  2709	  2710	  2711	  2712	  2713	  2714	  2715	  2716	  2717
	  2718	  2719	  2721	  2722	  2723	  2724	  2726	  2729	  2732	  2734	  2735	  2736	  2744#	  2746
	  2747	  2748	  2749	  2750	  2751	  2752	  2753	  2754	  2755	  2756	  2757	  2758	  2760	  2761
	  2762	  2763	  2764	  2766	  2768	  2769	  2770	  2771	  2774	  2775	  2776	  2784#	  2786	  2787
	  2788	  2789	  2790	  2791	  2792	  2793	  2794	  2795	  2796	  2797	  2798	  2800	  2801	  2802
	  2803	  2804	  2806	  2809	  2812	  2814	  2815	  2816	  2824#	  2826	  2827	  2828	  2829	  2830
	  2831	  2832	  2833	  2834	  2835	  2836	  2837	  2838	  2840	  2841	  2842	  2843	  2844	  2845
	  2847	  2849	  2850	  2851	  2852	  2855	  2856	  2857	  2865#	  2867	  2868	  2869	  2870	  2871
	  2872	  2873	  2874	  2875	  2876	  2877	  2878	  2879	  2881	  2882	  2883	  2884	  2885	  2886
	  2888	  2889	  2891	  2892	  2893	  2894	  2897	  2898	  2899	  2908#	  2910	  2911	  2912	  2913
	  2914	  2915	  2916	  2917	  2918	  2919	  2920	  2921	  2922	  2924	  2925	  2926	  2927	  2930
	  2931	  2932	  2935	  2936	  2937	  2939	  2941	  2942	  2943	  2951#	  2953	  2954	  2955	  2956     SEQ 0203
	  2957	  2958	  2959	  2960	  2961	  2962	  2963	  2964	  2965	  2968	  2969	  2970	  2971	  2975
	  2976	  2980	  2983	  2984	  2985	  2996#	  2998	  2999	  3000	  3001	  3002	  3003	  3004	  3005
	  3006	  3007	  3008	  3009	  3010	  3012	  3013	  3014	  3015	  3017	  3018	  3020	  3025	  3026
	  3027	  3038#	  3040	  3041	  3042	  3043	  3044	  3045	  3046	  3047	  3048	  3049	  3050	  3051
	  3052	  3055	  3056	  3057	  3058	  3064	  3065	  3066	  3069	  3072	  3073	  3074	  3083#	  3085
	  3086	  3087	  3088	  3089	  3090	  3091	  3092	  3093	  3094	  3095	  3096	  3097	  3099	  3100
	  3101	  3102	  3103	  3104	  3105	  3107	  3108	  3109	  3110	  3115	  3116	  3117	  3126#	  3128
	  3129	  3130	  3131	  3132	  3133	  3134	  3135	  3136	  3137	  3138	  3139	  3140	  3142	  3143
	  3144	  3145	  3146	  3147	  3148	  3150	  3151	  3152	  3153	  3157	  3158	  3159	  3160	  3161
	  3162	  3164	  3166	  3167	  3168	  3175#	  3177	  3178	  3179	  3180	  3181	  3182	  3183	  3184
	  3185	  3186	  3187	  3188	  3189	  3191	  3192	  3193	  3194	  3195	  3196	  3198	  3199	  3200
	  3201	  3202	  3206	  3207	  3208	  3209	  3210	  3211	  3213	  3215	  3216	  3217	  3226#	  3228
	  3229	  3230	  3231	  3232	  3233	  3234	  3235	  3236	  3237	  3238	  3239	  3240	  3242	  3243
	  3244	  3245	  3246	  3248	  3249	  3250	  3251	  3252	  3253	  3255	  3258	  3259	  3260	  3270#
	  3272	  3273	  3274	  3275	  3276	  3277	  3278	  3279	  3280	  3281	  3282	  3283	  3284	  3286
	  3287	  3288	  3289	  3290	  3291	  3292	  3293	  3294	  3297	  3298	  3299	  3307#	  3309	  3310
	  3311	  3312	  3313	  3314	  3315	  3316	  3317	  3318	  3319	  3320	  3321	  3322	  3323	  3324
	  3325	  3326	  3327	  3328	  3329	  3331	  3332	  3342#	  3344	  3345	  3346	  3347	  3348	  3349
	  3350	  3351	  3352	  3353	  3354	  3355	  3356	  3357	  3358	  3359	  3360	  3361	  3362	  3363
	  3374#	  3376	  3377	  3378	  3379	  3380	  3381	  3382	  3383	  3384	  3385	  3386	  3387	  3388
	  3389	  3390	  3391	  3392	  3393	  3394	  3395	  3396	  3397	  3398	  3402	  3403	  3412#	  3414
	  3415	  3416	  3417	  3418	  3419	  3420	  3421	  3422	  3423	  3424	  3425	  3426	  3427	  3428
	  3429	  3430	  3431	  3432	  3433	  3434	  3435	  3436	  3438	  3439	  3448#	  3450	  3451	  3452
	  3453	  3454	  3455	  3456	  3457	  3458	  3459	  3460	  3461	  3462	  3463	  3464	  3465	  3466
	  3467	  3468	  3469	  3470	  3471	  3473	  3474	  3475	  3476	  3477	  3479	  3480	  3481	  3490#
	  3492	  3493	  3494	  3495	  3496	  3497	  3498	  3499	  3500	  3501	  3502	  3503	  3504	  3505
	  3506	  3507	  3508	  3509	  3510	  3511	  3512	  3513	  3515	  3516	  3517	  3518	  3519	  3522
	  3523	  3524	  3525	  3535#	  3537	  3538	  3539	  3540	  3541	  3542	  3543	  3544	  3545	  3546
	  3547	  3548	  3549	  3551	  3552	  3553	  3554	  3555	  3556	  3557	  3558	  3559	  3560	  3561
	  3564	  3565	  3566	  3576#	  3578	  3579	  3580	  3581	  3582	  3583	  3584	  3585	  3586	  3587
	  3588	  3589	  3590	  3592	  3593	  3594	  3595	  3599	  3601	  3602	  3603	  3604	  3625	  3626
	  3627	  3636#	  3638	  3639	  3640	  3641	  3642	  3643	  3644	  3645	  3646	  3647	  3648	  3649
	  3650	  3651	  3652	  3653	  3654	  3657	  3658	  3659	  3660	  3664	  3665	  3666	  3667	  3668
	  3679#	  3681	  3682	  3683	  3684	  3685	  3686	  3687	  3688	  3689	  3690	  3691	  3692	  3693
	  3695	  3696	  3697	  3698	  3701	  3702	  3704	  3709	  3710	  3711	  3722#	  3724	  3725	  3726
	  3727	  3728	  3729	  3730	  3731	  3732	  3733	  3734	  3735	  3736	  3738	  3739	  3740	  3741
	  3742	  3743	  3744	  3747	  3748	  3750	  3752	  3755	  3756	  3757	  3766#	  3768	  3769	  3770
	  3771	  3772	  3773	  3774	  3775	  3776	  3777	  3778	  3779	  3780	  3782	  3783	  3784	  3785
	  3786	  3787	  3788	  3789	  3792	  3793	  3795	  3797	  3800	  3801	  3802	  3811#	  3813	  3814
	  3815	  3816	  3817	  3818	  3819	  3820	  3821	  3822	  3823	  3824	  3825	  3826	  3827	  3828
	  3829	  3830	  3832	  3834	  3835	  3837	  3839	  3841	  3842	  3843	  3853#	  3855	  3856	  3857
	  3858	  3859	  3860	  3861	  3862	  3863	  3864	  3865	  3866	  3867	  3868	  3870	  3871	  3873
	  3875	  3877	  3878	  3886#	  3888	  3889	  3890	  3891	  3892	  3893	  3894	  3895	  3896	  3897
	  3898	  3899	  3900	  3902	  3903	  3904	  3905	  3906	  3908	  3909	  3910	  3911	  3914	  3915
	  3916	  3924#	  3926	  3927	  3928	  3929	  3930	  3931	  3932	  3933	  3934	  3935	  3936	  3937
	  3938	  3939	  3940	  3941	  3942	  3943	  3945	  3946	  3947	  3948	  3950	  3951	  3952	  3962#
	  3964	  3965	  3966	  3967	  3968	  3969	  3970	  3971	  3972	  3973	  3974	  3975	  3976	  3977
	  3978	  3979	  3980	  3981	  3982	  3984	  3985	  3995#	  3997	  3998	  3999	  4000	  4001	  4002
	  4003	  4004	  4005	  4006	  4007	  4008	  4009	  4011	  4012	  4013	  4014	  4015	  4016	  4017
	  4019	  4020	  4021	  4022	  4025	  4026	  4027	  4035#	  4037	  4038	  4039	  4040	  4041	  4042
	  4043	  4044	  4045	  4046	  4047	  4048	  4049	  4051	  4052	  4053	  4054	  4055	  4056	  4057
	  4058	  4060	  4061	  4062	  4063	  4066	  4067	  4068	  4076#	  4078	  4079	  4080	  4081	  4082
	  4083	  4084	  4085	  4086	  4087	  4088	  4089	  4090	  4091	  4092	  4093	  4094	  4095	  4096     SEQ 0204
	  4099	  4100	  4101	  4109#	  4111	  4112	  4113	  4114	  4115	  4116	  4117	  4118	  4119	  4120
	  4121	  4122	  4123	  4124	  4125	  4126	  4127	  4128	  4129	  4131	  4132	  4141#	  4143	  4144
	  4145	  4146	  4147	  4148	  4149	  4150	  4151	  4152	  4153	  4154	  4155	  4157	  4158	  4159
	  4160	  4162	  4164	  4165	  4167	  4169	  4172	  4173	  4174	  4183#	  4185	  4186	  4187	  4188
	  4189	  4190	  4191	  4192	  4193	  4194	  4195	  4196	  4197	  4198	  4199	  4200	  4201	  4203
	  4205	  4206	  4208	  4210	  4214	  4215	  4226#	  4228	  4229	  4230	  4231	  4232	  4233	  4234
	  4235	  4236	  4237	  4238	  4239	  4240	  4242	  4243	  4244	  4245	  4248	  4249	  4251	  4256
	  4257	  4258	  4269#	  4271	  4272	  4273	  4274	  4275	  4276	  4277	  4278	  4279	  4280	  4281
	  4282	  4283	  4284	  4285	  4287	  4288	  4290	  4292	  4294	  4295	  4304#	  4306	  4307	  4308
	  4309	  4310	  4311	  4312	  4313	  4314	  4315	  4316	  4317	  4318	  4320	  4321	  4322	  4323
	  4324	  4325	  4326	  4328	  4330	  4331	  4333	  4335	  4338	  4339	  4340	  4349#	  4351	  4352
	  4353	  4354	  4355	  4356	  4357	  4358	  4359	  4360	  4361	  4362	  4363	  4365	  4366	  4367
	  4368	  4369	  4370	  4372	  4374	  4375	  4377	  4379	  4382	  4383	  4384	  4393#	  4395	  4396
	  4397	  4398	  4399	  4400	  4401	  4402	  4403	  4404	  4405	  4406	  4407	  4408	  4409	  4411
	  4412	  4414	  4416	  4418	  4419	  4428#	  4430	  4431	  4432	  4433	  4434	  4435	  4436	  4437
	  4438	  4439	  4440	  4441	  4442	  4443	  4444	  4446	  4447	  4449	  4451	  4453	  4454	  4462#
	  4464	  4465	  4466	  4467	  4468	  4469	  4470	  4471	  4472	  4473	  4474	  4475	  4476	  4478
	  4479	  4480	  4481	  4482	  4484	  4485	  4486	  4487	  4490	  4491	  4492	  4500#	  4502	  4503
	  4504	  4505	  4506	  4507	  4508	  4509	  4510	  4511	  4512	  4513	  4514	  4515	  4516	  4517
	  4518	  4519	  4522	  4523	  4524	  4525	  4529	  4530	  4538#	  4540	  4541	  4542	  4543	  4544
	  4545	  4546	  4547	  4548	  4549	  4550	  4551	  4552	  4553	  4554	  4555	  4556	  4557	  4558
	  4560	  4561	  4569#	  4571	  4572	  4573	  4574	  4575	  4576	  4577	  4578	  4579	  4580	  4581
	  4582	  4583	  4585	  4586	  4587	  4588	  4589	  4590	  4591	  4592	  4594	  4595	  4596	  4597
	  4600	  4601	  4602	  4610#	  4612	  4613	  4614	  4615	  4616	  4617	  4618	  4619	  4620	  4621
	  4622	  4623	  4624	  4626	  4627	  4628	  4629	  4630	  4631	  4632	  4634	  4635	  4636	  4637
	  4640	  4641	  4642	  4650#	  4652	  4653	  4654	  4655	  4656	  4657	  4658	  4659	  4660	  4661
	  4662	  4663	  4664	  4665	  4666	  4667	  4668	  4669	  4670	  4672	  4673	  4681#	  4683	  4684
	  4685	  4686	  4687	  4688	  4689	  4690	  4691	  4692	  4693	  4694	  4695	  4696	  4697	  4698
	  4699	  4700	  4701	  4703	  4704	  4713#	  4715	  4716	  4717	  4718	  4719	  4720	  4721	  4722
	  4723	  4724	  4725	  4726	  4727	  4729	  4730	  4731	  4732	  4734	  4735	  4737	  4739	  4742
	  4743	  4744	  4752#	  4754	  4755	  4756	  4757	  4758	  4759	  4760	  4761	  4762	  4763	  4764
	  4765	  4766	  4768	  4769	  4770	  4771	  4772	  4773	  4774	  4775	  4778	  4779	  4780	  4789#
	  4791	  4792	  4793	  4794	  4795	  4796	  4797	  4798	  4799	  4800	  4801	  4802	  4803	  4806
	  4807	  4808	  4809	  4813	  4814	  4815	  4816	  4821	  4822	  4823	  4831#	  4833	  4834	  4835
	  4836	  4837	  4838	  4839	  4840	  4841	  4842	  4843	  4844	  4845	  4847	  4848	  4849	  4850
	  4851	  4854	  4855	  4857	  4858	  4859	  4860	  4865	  4866	  4867	  4875#	  4877	  4878	  4879
	  4880	  4881	  4882	  4883	  4884	  4885	  4886	  4887	  4888	  4889	  4891	  4892	  4893	  4894
	  4895	  4898	  4899	  4901	  4902	  4903	  4904	  4909	  4910	  4911	  4919#	  4921	  4922	  4923
	  4924	  4925	  4926	  4927	  4928	  4929	  4930	  4931	  4932	  4933	  4935	  4936	  4937	  4938
	  4939	  4942	  4943	  4945	  4946	  4950	  4953	  4954	  4955	  4963#	  4965	  4966	  4967	  4968
	  4969	  4970	  4971	  4972	  4973	  4974	  4975	  4976	  4977	  4979	  4980	  4981	  4982	  4983
	  4984	  4985	  4986	  4989	  4990	  4991	  4999#	  5001	  5002	  5003	  5004	  5005	  5006	  5007
	  5008	  5009	  5010	  5011	  5012	  5013	  5015	  5016	  5017	  5018	  5019	  5020	  5021	  5022
	  5025	  5026	  5027	  5035#	  5037	  5038	  5039	  5040	  5041	  5042	  5043	  5044	  5045	  5046
	  5047	  5048	  5049	  5051	  5052	  5053	  5054	  5055	  5056	  5057	  5058	  5059	  5060	  5061
	  5062	  5065	  5066	  5067	  5075#	  5077	  5078	  5079	  5080	  5081	  5082	  5083	  5084	  5085
	  5086	  5087	  5088	  5089	  5091	  5092	  5093	  5094	  5096	  5097	  5098	  5099	  5100	  5101
	  5102	  5105	  5106	  5107	  5115#	  5117	  5118	  5119	  5120	  5121	  5122	  5123	  5124	  5125
	  5126	  5127	  5128	  5129	  5131	  5132	  5133	  5134	  5136	  5137	  5138	  5139	  5140	  5141
	  5144	  5145	  5146	  5155#	  5157	  5158	  5159	  5160	  5161	  5162	  5163	  5164	  5165	  5166
	  5167	  5168	  5169	  5170	  5172	  5173	  5177	  5179	  5180	  5183	  5184	  5185	  5186	  5197#
	  5199	  5200	  5201	  5202	  5203	  5204	  5205	  5206	  5207	  5208	  5209	  5210	  5211	  5212
	  5214	  5215	  5218	  5220	  5221	  5222	  5223	  5224	  5226	  5227	  5228	  5238#	  5240	  5241     SEQ 0205
	  5242	  5243	  5244	  5245	  5246	  5247	  5248	  5249	  5250	  5251	  5252	  5254	  5255	  5256
	  5257	  5259	  5260	  5261	  5262	  5263	  5264	  5266	  5267	  5275#	  5277	  5278	  5279	  5280
	  5281	  5282	  5283	  5284	  5285	  5286	  5287	  5288	  5289	  5291	  5292	  5293	  5294	  5296
	  5297	  5298	  5299	  5300	  5301	  5303	  5304	  5313#	  5315	  5316	  5317	  5318	  5319	  5320
	  5321	  5322	  5323	  5324	  5325	  5326	  5327	  5328	  5330	  5331	  5334	  5335	  5336	  5337
	  5338	  5339	  5341	  5342	  5353#	  5355	  5356	  5357	  5358	  5359	  5360	  5361	  5362	  5363
	  5364	  5365	  5366	  5367	  5368	  5370	  5371	  5376	  5377	  5380	  5381	  5382	  5390#	  5392
	  5393	  5394	  5395	  5396	  5397	  5398	  5399	  5400	  5401	  5402	  5403	  5404	  5406	  5407
	  5408	  5409	  5411	  5413	  5415	  5416	  5419	  5420	  5421	  5429#	  5431	  5432	  5433	  5434
	  5435	  5436	  5437	  5438	  5439	  5440	  5441	  5442	  5443	  5445	  5446	  5447	  5448	  5450
	  5452	  5454	  5455	  5458	  5459	  5460	  5468#	  5470	  5471	  5472	  5473	  5474	  5475	  5476
	  5477	  5478	  5479	  5480	  5481	  5482	  5484	  5485	  5486	  5487	  5489	  5491	  5492	  5495
	  5496	  5497	  5505#	  5507	  5508	  5509	  5510	  5511	  5512	  5513	  5514	  5515	  5516	  5517
	  5518	  5519	  5521	  5522	  5523	  5524	  5526	  5528	  5530	  5531	  5534	  5535	  5536	  5544#
	  5546	  5547	  5548	  5549	  5550	  5551	  5552	  5553	  5554	  5555	  5556	  5557	  5558	  5560
	  5561	  5562	  5563	  5565	  5566	  5567	  5570	  5571	  5572	  5580#	  5582	  5583	  5584	  5585
	  5586	  5587	  5588	  5589	  5590	  5591	  5592	  5593	  5594	  5596	  5597	  5598	  5599	  5601
	  5603	  5605	  5606	  5609	  5610	  5611	  5619#	  5621	  5622	  5623	  5624	  5625	  5626	  5627
	  5628	  5629	  5630	  5631	  5632	  5633	  5635	  5636	  5637	  5638	  5640	  5642	  5643	  5644
	  5645	  5648	  5649	  5650	  5658#	  5660	  5661	  5662	  5663	  5664	  5665	  5666	  5667	  5668
	  5669	  5670	  5671	  5672	  5674	  5675	  5676	  5677	  5679	  5681	  5683	  5684	  5687	  5688
	  5689	  5697#	  5699	  5700	  5701	  5702	  5703	  5704	  5705	  5706	  5707	  5708	  5709	  5710
	  5711	  5713	  5714	  5715	  5716	  5718	  5720	  5722	  5723	  5726	  5727	  5728	  5736#	  5738
	  5739	  5740	  5741	  5742	  5743	  5744	  5745	  5746	  5747	  5748	  5749	  5750	  5752	  5753
	  5754	  5755	  5757	  5758	  5759	  5760	  5763	  5764	  5765	  5773#	  5775	  5776	  5777	  5778
	  5779	  5780	  5781	  5782	  5783	  5784	  5785	  5786	  5787	  5789	  5790	  5791	  5792	  5794
	  5796	  5797	  5799	  5800	  5803	  5804	  5805	  5813#	  5815	  5816	  5817	  5818	  5819	  5820
	  5821	  5822	  5823	  5824	  5825	  5826	  5827	  5829	  5830	  5831	  5832	  5834	  5837	  5838
	  5841	  5842	  5843	  5851#	  5853	  5854	  5855	  5856	  5857	  5858	  5859	  5860	  5861	  5862
	  5863	  5864	  5865	  5867	  5868	  5869	  5870	  5872	  5874	  5876	  5877	  5880	  5881	  5882
	  5890#	  5892	  5893	  5894	  5895	  5896	  5897	  5898	  5899	  5900	  5901	  5902	  5903	  5904
	  5906	  5907	  5908	  5909	  5911	  5913	  5914	  5916	  5917	  5920	  5921	  5922	  5930#	  5932
	  5933	  5934	  5935	  5936	  5937	  5938	  5939	  5940	  5941	  5942	  5943	  5944	  5946	  5947
	  5948	  5949	  5951	  5952	  5953	  5956	  5957	  5958	  5966#	  5968	  5969	  5970	  5971	  5972
	  5973	  5974	  5975	  5976	  5977	  5978	  5979	  5980	  5982	  5983	  5984	  5985	  5986	  5988
	  5989	  5990	  5991	  5994	  5995	  5996	  6004#	  6006	  6007	  6008	  6009	  6010	  6011	  6012
	  6013	  6014	  6015	  6016	  6017	  6018	  6020	  6021	  6022	  6023	  6025	  6028	  6031	  6033
	  6034	  6035	  6043#	  6045	  6046	  6047	  6048	  6049	  6050	  6051	  6052	  6053	  6054	  6055
	  6056	  6057	  6059	  6060	  6061	  6062	  6063	  6064	  6066	  6067	  6068	  6069	  6072	  6073
	  6074	  6082#	  6084	  6085	  6086	  6087	  6088	  6089	  6090	  6091	  6092	  6093	  6094	  6095
	  6096	  6098	  6099	  6100	  6101	  6102	  6103	  6105	  6106	  6107	  6108	  6111	  6112	  6113
	  6121#	  6123	  6124	  6125	  6126	  6127	  6128	  6129	  6130	  6131	  6132	  6133	  6134	  6135
	  6137	  6138	  6139	  6140	  6141	  6143	  6144	  6145	  6146	  6149	  6150	  6151	  6159#	  6161
	  6162	  6163	  6164	  6165	  6166	  6167	  6168	  6169	  6170	  6171	  6172	  6173	  6175	  6176
	  6177	  6178	  6180	  6183	  6186	  6188	  6189	  6190	  6198#	  6200	  6201	  6202	  6203	  6204
	  6205	  6206	  6207	  6208	  6209	  6210	  6211	  6212	  6214	  6215	  6216	  6217	  6218	  6219
	  6220	  6222	  6223	  6224	  6225	  6228	  6229	  6230	  6238#	  6240	  6241	  6242	  6243	  6244
	  6245	  6246	  6247	  6248	  6249	  6250	  6251	  6252	  6254	  6255	  6256	  6257	  6258	  6260
	  6263	  6266	  6268	  6269	  6270	  6278#	  6280	  6281	  6282	  6283	  6284	  6285	  6286	  6287
	  6288	  6289	  6290	  6291	  6292	  6294	  6295	  6296	  6297	  6298	  6299	  6300	  6302	  6303
	  6304	  6305	  6308	  6309	  6310	  6318#	  6320	  6321	  6322	  6323	  6324	  6325	  6326	  6327
	  6328	  6329	  6330	  6331	  6332	  6334	  6335	  6336	  6337	  6338	  6339	  6341	  6342	  6343
	  6344	  6347	  6348	  6349	  6357#	  6359	  6360	  6361	  6362	  6363	  6364	  6365	  6366	  6367     SEQ 0206
	  6368	  6369	  6370	  6371	  6373	  6374	  6375	  6376	  6377	  6378	  6380	  6381	  6382	  6383
	  6386	  6387	  6388	  6396#	  6398	  6399	  6400	  6401	  6402	  6403	  6404	  6405	  6406	  6407
	  6408	  6409	  6410	  6412	  6413	  6414	  6415	  6416	  6417	  6419	  6421	  6422	  6423	  6424
	  6427	  6428	  6429	  6437#	  6439	  6440	  6441	  6442	  6443	  6444	  6445	  6446	  6447	  6448
	  6449	  6450	  6451	  6453	  6454	  6455	  6456	  6457	  6459	  6461	  6462	  6464	  6465	  6466
	  6467	  6470	  6471	  6472	  6481#	  6483	  6484	  6485	  6486	  6487	  6488	  6489	  6490	  6491
	  6492	  6493	  6494	  6495	  6498	  6499	  6500	  6501	  6505	  6506	  6507	  6509	  6510	  6511
	  6512	  6515	  6516	  6517	  6526#	  6528	  6529	  6530	  6531	  6532	  6533	  6534	  6535	  6536
	  6537	  6538	  6539	  6540	  6543	  6544	  6545	  6546	  6550	  6551	  6552	  6554	  6555	  6557
	  6558	  6559	  6560	  6563	  6564	  6565	  6574#	  6576	  6577	  6578	  6579	  6580	  6581	  6582
	  6583	  6584	  6585	  6586	  6587	  6588	  6591	  6592	  6593	  6594	  6600	  6601	  6604	  6607
	  6609	  6610	  6611	  6620#	  6622	  6623	  6624	  6625	  6626	  6627	  6628	  6629	  6630	  6631
	  6632	  6633	  6634	  6637	  6638	  6639	  6640	  6645	  6646	  6648	  6650	  6653	  6656	  6657
	  6658	  6666#	  6668	  6669	  6670	  6671	  6672	  6673	  6674	  6675	  6676	  6677	  6678	  6679
	  6680	  6682	  6683	  6684	  6685	  6686	  6688	  6689	  6690	  6691	  6694	  6695	  6696	  6704#
	  6706	  6707	  6708	  6709	  6710	  6711	  6712	  6713	  6714	  6715	  6716	  6717	  6718	  6720
	  6721	  6722	  6723	  6725	  6727	  6730	  6733	  6735	  6736	  6737	  6745#	  6747	  6748	  6749
	  6750	  6751	  6752	  6753	  6754	  6755	  6756	  6757	  6758	  6759	  6761	  6762	  6763	  6764
	  6765	  6767	  6769	  6770	  6771	  6772	  6775	  6776	  6777	  6785#	  6787	  6788	  6789	  6790
	  6791	  6792	  6793	  6794	  6795	  6796	  6797	  6798	  6799	  6801	  6802	  6803	  6804	  6806
	  6809	  6812	  6814	  6815	  6816	  6824#	  6826	  6827	  6828	  6829	  6830	  6831	  6832	  6833
	  6834	  6835	  6836	  6837	  6838	  6840	  6841	  6842	  6843	  6844	  6845	  6848	  6850	  6851
	  6852	  6853	  6856	  6857	  6858	  6866#	  6868	  6869	  6870	  6871	  6872	  6873	  6874	  6875
	  6876	  6877	  6878	  6879	  6880	  6882	  6883	  6884	  6885	  6886	  6887	  6889	  6890	  6891
	  6892	  6895	  6896	  6897	  6908#	  6910	  6911	  6912	  6913	  6914	  6915	  6916	  6917	  6918
	  6919	  6920	  6921	  6922	  6925	  6926	  6927	  6928	  6932	  6933	  6934	  6936	  6937	  6938
	  6939	  6940	  6943	  6944	  6945	  6956#	  6958	  6959	  6960	  6961	  6962	  6963	  6964	  6965
	  6966	  6967	  6968	  6969	  6970	  6973	  6974	  6975	  6976	  6980	  6981	  6982	  6984	  6985
	  6986	  6987	  6990	  6991	  6992	  7001#	  7003	  7004	  7005	  7006	  7007	  7008	  7009	  7010
	  7011	  7012	  7013	  7014	  7015	  7018	  7019	  7020	  7021	  7026	  7027	  7030	  7033	  7036
	  7038	  7040	  7042	  7045	  7046	  7047	  7056#	  7058	  7059	  7060	  7061	  7062	  7063	  7064
	  7065	  7066	  7067	  7068	  7069	  7070	  7073	  7074	  7075	  7076	  7081	  7082	  7083	  7086
	  7089	  7092	  7093	  7094	  7106#	  7108	  7109	  7110	  7111	  7112	  7113	  7114	  7115	  7116
	  7117	  7118	  7119	  7120	  7122	  7123	  7124	  7125	  7126	  7128	  7129	  7130	  7131	  7134
	  7135	  7136	  7142#	  7144	  7145	  7146	  7147	  7148	  7149	  7150	  7151	  7152	  7153	  7154
	  7155	  7156	  7158	  7159	  7160	  7161	  7163	  7166	  7169	  7171	  7172	  7173
AC1	   770#	   788	   789	   790	   803#	   822	   824	   825	   826	   843#	   879#	   897	   898	   899
	   900	   916#	   929	   935	   936	   938	   941	   944	   945	   947	   949	   964#	   977	   983
	   984	   986	   989	   992	   993	   995	   997	  1012#	  1025	  1031	  1032	  1033	  1034	  1036
	  1038	  1039	  1040	  1041	  1043	  1044	  1045	  1046	  1061#	  1074	  1080	  1081	  1082	  1083
	  1085	  1086	  1087	  1089	  1090	  1091	  1092	  1094	  1109#	  1122	  1128	  1129	  1131	  1134
	  1137	  1151#	  1164	  1170	  1171	  1173	  1176	  1179	  1194#	  1207	  1213	  1214	  1215	  1216
	  1217	  1219	  1220	  1221	  1222	  1239#	  1252	  1258	  1259	  1260	  1261	  1262	  1264	  1265
	  1266	  1267	  1282#	  1300	  1303	  1304	  1320#	  1338	  1339	  1341	  1355#	  1374	  1375	  1377
	  1393#	  1411	  1412	  1415	  1418	  1434#	  1452	  1453	  1456	  1473#	  1491	  1493	  1494	  1496
	  1497	  1498	  1499	  1514#	  1535	  1536	  1539	  1556#	  1575	  1576	  1578	  1579	  1580	  1581
	  1583	  1584	  1585	  1586	  1587	  1603#	  1622	  1623	  1624	  1625	  1628	  1631	  1632	  1634
	  1636	  1651#	  1670	  1676	  1679	  1682	  1696#	  1714	  1717	  1719	  1720	  1721	  1722	  1737#
	  1755	  1756	  1759	  1762	  1777#	  1795	  1796	  1799	  1802	  1816#	  1834	  1835	  1838	  1841
	  1844	  1858#	  1876	  1877	  1880	  1897#	  1916	  1918	  1920	  1921	  1922	  1923	  1925	  1926
	  1927	  1928	  1929	  1944#	  1963	  1964	  1968	  1985#	  2004	  2005	  2007	  2008	  2009	  2010
	  2025#	  2043	  2044	  2045	  2047	  2049	  2052	  2066#	  2085	  2086	  2089	  2092	  2106#	  2124
	  2125	  2128	  2131	  2145#	  2163	  2164	  2166	  2167	  2168	  2169	  2185#	  2203	  2204	  2207     SEQ 0207
	  2210	  2224#	  2242	  2248	  2251	  2254	  2268#	  2286	  2287	  2290	  2293	  2307#	  2325	  2326
	  2328	  2329	  2330	  2331	  2346#	  2365	  2366	  2368	  2370	  2373	  2387#	  2406	  2408	  2409
	  2410	  2412	  2413	  2414	  2415	  2430#	  2448	  2449	  2450	  2452	  2453	  2456	  2470#	  2489
	  2490	  2492	  2494	  2497	  2511#	  2529	  2530	  2533	  2536	  2550#	  2568	  2569	  2571	  2572
	  2574	  2589#	  2607	  2608	  2611	  2614	  2629#	  2647	  2648	  2651	  2654	  2668#	  2686	  2687
	  2690	  2693	  2707#	  2725	  2726	  2728	  2729	  2730	  2731	  2746#	  2765	  2766	  2769	  2772
	  2786#	  2805	  2806	  2808	  2809	  2810	  2811	  2826#	  2845	  2846	  2847	  2850	  2853	  2867#
	  2888	  2889	  2892	  2895	  2910#	  2929	  2930	  2931	  2938	  2953#	  2966	  2972	  2973	  2974
	  2975	  2976	  2977	  2978	  2998#	  3016	  3017	  3018	  3019	  3020	  3022	  3040#	  3053	  3059
	  3060	  3061	  3062	  3063	  3064	  3065	  3067	  3085#	  3106	  3107	  3108	  3112	  3128#	  3149
	  3150	  3151	  3155	  3158	  3159	  3163	  3177#	  3197	  3199	  3200	  3204	  3207	  3208	  3212
	  3228#	  3247	  3250	  3251	  3253	  3272#	  3309#	  3344#	  3376#	  3414#	  3450#	  3473	  3477	  3478
	  3492#	  3515	  3519	  3520	  3537#	  3578#	  3598	  3601	  3602	  3606	  3612	  3614	  3616	  3619
	  3621	  3623	  3638#	  3656	  3657	  3658	  3662	  3681#	  3699	  3700	  3701	  3702	  3703	  3704
	  3706	  3724#	  3746	  3747	  3748	  3749	  3750	  3768#	  3791	  3792	  3793	  3794	  3795	  3813#
	  3831	  3834	  3835	  3836	  3837	  3855#	  3869	  3870	  3871	  3872	  3873	  3888#	  3906	  3907
	  3911	  3926#	  3941	  3942	  3949	  3950	  3964#	  3997#	  4017	  4018	  4022	  4037#	  4058	  4059
	  4063	  4078#	  4111#	  4143#	  4161	  4164	  4165	  4166	  4167	  4185#	  4202	  4205	  4206	  4207
	  4208	  4228#	  4246	  4247	  4248	  4249	  4250	  4251	  4253	  4271#	  4286	  4287	  4288	  4289
	  4290	  4306#	  4327	  4330	  4331	  4332	  4333	  4351#	  4371	  4374	  4375	  4376	  4377	  4395#
	  4410	  4411	  4412	  4413	  4414	  4430#	  4445	  4446	  4447	  4448	  4449	  4464#	  4482	  4483
	  4487	  4502#	  4520	  4521	  4525	  4540#	  4571#	  4591	  4598	  4612#	  4631	  4638	  4652#	  4683#
	  4715#	  4733	  4734	  4735	  4736	  4737	  4754#	  4791#	  4804	  4810	  4811	  4812	  4813	  4814
	  4818	  4833#	  4852	  4853	  4856	  4857	  4858	  4862	  4877#	  4896	  4897	  4900	  4901	  4902
	  4906	  4921#	  4940	  4941	  4944	  4945	  4946	  4947	  4948	  4965#	  5001#	  5037#	  5055	  5059
	  5060	  5063	  5077#	  5095	  5099	  5100	  5103	  5117#	  5135	  5138	  5139	  5142	  5157#	  5171
	  5174	  5176	  5178	  5179	  5180	  5181	  5182	  5199#	  5213	  5216	  5219	  5221	  5222	  5225
	  5240#	  5258	  5259	  5261	  5262	  5265	  5277#	  5295	  5296	  5298	  5299	  5302	  5315#	  5329
	  5332	  5336	  5337	  5340	  5355#	  5369	  5372	  5374	  5375	  5376	  5377	  5378	  5379	  5392#
	  5412	  5413	  5414	  5416	  5431#	  5451	  5452	  5453	  5454	  5455	  5470#	  5490	  5492	  5507#
	  5527	  5528	  5529	  5531	  5546#	  5582#	  5602	  5603	  5604	  5606	  5621#	  5641	  5642	  5643
	  5645	  5660#	  5680	  5681	  5682	  5684	  5699#	  5719	  5720	  5721	  5723	  5738#	  5758	  5760
	  5775#	  5795	  5796	  5797	  5798	  5800	  5815#	  5835	  5836	  5838	  5853#	  5873	  5874	  5875
	  5877	  5892#	  5912	  5913	  5914	  5915	  5917	  5932#	  5968#	  6006#	  6024	  6025	  6027	  6028
	  6029	  6030	  6045#	  6063	  6064	  6067	  6070	  6084#	  6102	  6103	  6106	  6109	  6123#	  6161#
	  6179	  6180	  6182	  6183	  6184	  6185	  6200#	  6240#	  6259	  6260	  6262	  6263	  6264	  6265
	  6280#	  6299	  6300	  6303	  6305	  6306	  6320#	  6338	  6339	  6342	  6345	  6359#	  6377	  6378
	  6381	  6384	  6398#	  6416	  6419	  6422	  6425	  6439#	  6457	  6458	  6461	  6463	  6465	  6468
	  6483#	  6496	  6502	  6503	  6504	  6505	  6507	  6510	  6513	  6528#	  6541	  6547	  6548	  6549
	  6550	  6553	  6554	  6556	  6558	  6561	  6576#	  6589	  6595	  6596	  6597	  6598	  6599	  6600
	  6601	  6603	  6604	  6605	  6606	  6622#	  6635	  6641	  6642	  6643	  6644	  6645	  6646	  6647
	  6649	  6650	  6651	  6652	  6654	  6668#	  6706#	  6724	  6727	  6729	  6730	  6731	  6732	  6747#
	  6787#	  6805	  6806	  6808	  6809	  6810	  6811	  6826#	  6844	  6848	  6851	  6854	  6868#	  6886
	  6887	  6890	  6893	  6910#	  6923	  6929	  6930	  6931	  6932	  6935	  6936	  6938	  6941	  6958#
	  6971	  6977	  6978	  6979	  6980	  6982	  6985	  6988	  7003#	  7016	  7022	  7023	  7024	  7025
	  7026	  7029	  7030	  7032	  7033	  7034	  7035	  7037	  7038	  7039	  7040	  7041	  7043	  7058#
	  7071	  7077	  7078	  7079	  7080	  7081	  7083	  7085	  7086	  7087	  7088	  7090	  7108#	  7144#
	  7162	  7163	  7165	  7166	  7167	  7168
AC2	   771#	   804#	   823	   826	   844#	   880#	   917#	   937	   943	   944	   948	   949	   965#	   985
	   991	   992	   996	   997	  1013#	  1032	  1033	  1041	  1042	  1046	  1047	  1062#	  1081	  1082
	  1088	  1089	  1093	  1094	  1110#	  1130	  1136	  1137	  1152#	  1172	  1178	  1179	  1195#	  1214
	  1215	  1222	  1223	  1240#	  1259	  1260	  1267	  1268	  1283#	  1301	  1302	  1304	  1321#	  1356#
	  1394#	  1435#	  1474#	  1492	  1494	  1499	  1515#	  1557#	  1604#	  1652#	  1671	  1672	  1673	  1674     SEQ 0208
	  1675	  1697#	  1715	  1716	  1722	  1738#	  1778#	  1817#	  1835	  1837	  1859#	  1898#	  1917	  1923
	  1929	  1945#	  1986#	  2026#	  2067#	  2107#	  2146#	  2186#	  2225#	  2243	  2245	  2246	  2247	  2253
	  2269#	  2308#	  2347#	  2388#	  2407	  2408	  2410	  2415	  2431#	  2471#	  2512#	  2551#	  2590#	  2630#
	  2669#	  2708#	  2747#	  2787#	  2827#	  2868#	  2885	  2886	  2887	  2911#	  2954#	  2973	  2974	  2978
	  2979	  2980	  2981	  2999#	  3041#	  3062	  3063	  3067	  3068	  3069	  3070	  3086#	  3105	  3110
	  3111	  3112	  3113	  3129#	  3148	  3153	  3154	  3155	  3156	  3162	  3164	  3178#	  3198	  3202
	  3203	  3204	  3205	  3211	  3213	  3229#	  3249	  3254	  3255	  3256	  3273#	  3310#	  3345#	  3377#
	  3415#	  3451#	  3493#	  3538#	  3579#	  3599	  3600	  3604	  3606	  3639#	  3654	  3655	  3660	  3662
	  3682#	  3725#	  3744	  3745	  3752	  3769#	  3789	  3790	  3797	  3814#	  3832	  3833	  3839	  3856#
	  3869	  3874	  3876	  3889#	  3927#	  3943	  3944	  3948	  3965#	  3998#	  4038#	  4079#	  4112#	  4144#
	  4161	  4168	  4170	  4186#	  4202	  4209	  4211	  4229#	  4272#	  4286	  4291	  4293	  4307#	  4327
	  4334	  4336	  4352#	  4371	  4378	  4380	  4396#	  4410	  4415	  4417	  4431#	  4445	  4450	  4452
	  4465#	  4503#	  4541#	  4572#	  4592	  4593	  4597	  4613#	  4632	  4633	  4637	  4653#	  4684#	  4716#
	  4755#	  4792#	  4811	  4812	  4817	  4818	  4819	  4834#	  4856	  4861	  4862	  4863	  4878#	  4900
	  4905	  4906	  4907	  4922#	  4944	  4948	  4949	  4951	  4966#	  5002#	  5038#	  5078#	  5118#	  5158#
	  5177	  5185	  5200#	  5219	  5227	  5241#	  5278#	  5316#	  5356#	  5393#	  5410	  5412	  5415	  5417
	  5432#	  5449	  5451	  5456	  5471#	  5488	  5490	  5491	  5493	  5508#	  5525	  5527	  5530	  5532
	  5547#	  5564	  5566	  5568	  5583#	  5600	  5602	  5605	  5607	  5622#	  5639	  5641	  5644	  5646
	  5661#	  5678	  5680	  5683	  5685	  5700#	  5717	  5719	  5722	  5724	  5739#	  5756	  5759	  5761
	  5776#	  5793	  5795	  5799	  5801	  5816#	  5833	  5835	  5837	  5839	  5854#	  5871	  5873	  5876
	  5878	  5893#	  5910	  5912	  5916	  5918	  5933#	  5950	  5952	  5954	  5969#	  6007#	  6046#	  6085#
	  6124#	  6162#	  6201#	  6241#	  6281#	  6321#	  6360#	  6399#	  6417	  6418	  6424	  6440#	  6458	  6459
	  6460	  6462	  6467	  6484#	  6506	  6512	  6513	  6529#	  6552	  6553	  6555	  6560	  6577#	  6598
	  6599	  6606	  6607	  6623#	  6644	  6648	  6649	  6653	  6654	  6669#	  6707#	  6725	  6726	  6732
	  6748#	  6765	  6766	  6772	  6788#	  6827#	  6845	  6846	  6847	  6853	  6869#	  6911#	  6934	  6935
	  6940	  6959#	  7004#	  7027	  7028	  7029	  7035	  7041	  7059#	  7082	  7088	  7109#	  7145#
AC3	   772#	   805#	   845#	   881#	   918#	   966#	  1014#	  1063#	  1084	  1085	  1087	  1092	  1111#	  1153#
	  1196#	  1241#	  1284#	  1322#	  1357#	  1395#	  1436#	  1475#	  1516#	  1558#	  1605#	  1653#	  1698#	  1739#
	  1779#	  1818#	  1836	  1837	  1843	  1860#	  1899#	  1946#	  1987#	  2027#	  2068#	  2108#	  2147#	  2187#
	  2226#	  2244	  2245	  2270#	  2309#	  2348#	  2389#	  2432#	  2472#	  2513#	  2552#	  2591#	  2631#	  2670#
	  2709#	  2748#	  2788#	  2828#	  2869#	  2912#	  2955#	  3000#	  3042#	  3087#	  3130#	  3179#	  3230#	  3274#
	  3311#	  3346#	  3378#	  3416#	  3452#	  3494#	  3539#	  3580#	  3596	  3605	  3607	  3613	  3620	  3640#
	  3652	  3653	  3661	  3663	  3683#	  3726#	  3743	  3751	  3753	  3770#	  3788	  3796	  3798	  3815#
	  3831	  3838	  3840	  3857#	  3890#	  3928#	  3966#	  3999#	  4039#	  4080#	  4113#	  4145#	  4162	  4163
	  4169	  4187#	  4203	  4204	  4210	  4230#	  4273#	  4308#	  4328	  4329	  4335	  4353#	  4372	  4373
	  4379	  4397#	  4432#	  4466#	  4504#	  4542#	  4573#	  4614#	  4654#	  4685#	  4717#	  4756#	  4793#	  4835#
	  4879#	  4923#	  4967#	  5003#	  5039#	  5079#	  5119#	  5159#	  5201#	  5242#	  5279#	  5317#	  5357#	  5394#
	  5433#	  5472#	  5509#	  5548#	  5584#	  5623#	  5662#	  5701#	  5740#	  5777#	  5817#	  5855#	  5894#	  5934#
	  5970#	  6008#	  6047#	  6086#	  6125#	  6163#	  6202#	  6242#	  6282#	  6322#	  6361#	  6400#	  6441#	  6485#
	  6530#	  6578#	  6624#	  6670#	  6708#	  6749#	  6789#	  6828#	  6870#	  6912#	  6960#	  7005#	  7060#	  7110#
	  7146#
AC4	   773#	   806#	   846#	   882#	   919#	   967#	  1015#	  1064#	  1112#	  1154#	  1197#	  1242#	  1285#	  1323#
	  1358#	  1396#	  1437#	  1476#	  1517#	  1559#	  1606#	  1654#	  1699#	  1740#	  1780#	  1819#	  1861#	  1900#
	  1947#	  1988#	  2028#	  2069#	  2109#	  2148#	  2188#	  2227#	  2271#	  2310#	  2349#	  2390#	  2433#	  2473#
	  2514#	  2553#	  2592#	  2632#	  2671#	  2710#	  2749#	  2789#	  2829#	  2870#	  2913#	  2956#	  3001#	  3043#
	  3088#	  3131#	  3180#	  3231#	  3275#	  3312#	  3347#	  3379#	  3417#	  3453#	  3495#	  3540#	  3581#	  3641#
	  3684#	  3727#	  3771#	  3816#	  3858#	  3891#	  3929#	  3967#	  4000#	  4040#	  4081#	  4114#	  4146#	  4188#
	  4231#	  4274#	  4309#	  4354#	  4398#	  4433#	  4467#	  4505#	  4543#	  4574#	  4615#	  4655#	  4686#	  4718#
	  4757#	  4794#	  4836#	  4880#	  4924#	  4968#	  5004#	  5040#	  5080#	  5120#	  5160#	  5202#	  5243#	  5280#
	  5318#	  5358#	  5395#	  5434#	  5473#	  5510#	  5549#	  5585#	  5624#	  5663#	  5702#	  5741#	  5778#	  5818#
	  5856#	  5895#	  5935#	  5971#	  6009#	  6048#	  6087#	  6126#	  6164#	  6203#	  6243#	  6283#	  6323#	  6362#
	  6401#	  6442#	  6486#	  6531#	  6579#	  6625#	  6671#	  6709#	  6750#	  6790#	  6829#	  6871#	  6913#	  6961#
	  7006#	  7061#	  7111#	  7147#                                                                                    SEQ 0209
AC5	   774#	   807#	   847#	   883#	   920#	   968#	  1016#	  1065#	  1113#	  1155#	  1198#	  1243#	  1286#	  1324#
	  1359#	  1397#	  1438#	  1477#	  1518#	  1560#	  1607#	  1655#	  1700#	  1741#	  1781#	  1820#	  1862#	  1901#
	  1948#	  1989#	  2029#	  2070#	  2110#	  2149#	  2189#	  2228#	  2272#	  2311#	  2350#	  2391#	  2434#	  2474#
	  2515#	  2554#	  2593#	  2633#	  2672#	  2711#	  2750#	  2790#	  2830#	  2871#	  2914#	  2957#	  3002#	  3044#
	  3089#	  3132#	  3181#	  3232#	  3276#	  3313#	  3348#	  3380#	  3418#	  3454#	  3496#	  3541#	  3582#	  3642#
	  3685#	  3728#	  3772#	  3817#	  3859#	  3892#	  3930#	  3968#	  4001#	  4041#	  4082#	  4115#	  4147#	  4189#
	  4232#	  4275#	  4310#	  4355#	  4399#	  4434#	  4468#	  4506#	  4544#	  4575#	  4616#	  4656#	  4687#	  4719#
	  4758#	  4795#	  4837#	  4881#	  4925#	  4969#	  5005#	  5041#	  5081#	  5121#	  5161#	  5203#	  5244#	  5281#
	  5319#	  5359#	  5396#	  5435#	  5474#	  5511#	  5550#	  5586#	  5625#	  5664#	  5703#	  5742#	  5779#	  5819#
	  5857#	  5896#	  5936#	  5972#	  6010#	  6049#	  6088#	  6127#	  6165#	  6204#	  6244#	  6284#	  6324#	  6363#
	  6402#	  6443#	  6487#	  6532#	  6580#	  6626#	  6672#	  6710#	  6751#	  6791#	  6830#	  6872#	  6914#	  6962#
	  7007#	  7062#	  7112#	  7148#
AFOCLR	   348#
AFODIS	   348#
AFOENB	   348#
AFOV	   348#
AJSJ1	  4753#
AJSJ2	  4767#	  4778
AJSJ3	  4772#	  4780
ALTMGO	   434#	  7362
AMPCLR	   348#
AMPV	   348#
ANCAI4	  5430#
ANCAI5	  5444#	  5458
ANCAI6	  5450#	  5460
ANCBIA	  5659#
ANCBIB	  5673#	  5687
ANCBIC	  5679#	  5689
ANCMIA	  5506#
ANCMIB	  5520#	  5534
ANCMIC	  5526#	  5536
ANDI4	  5391#
ANDI5	  5405#	  5419
ANDI6	  5411#	  5421
ANXCLR	   348#
ANXM	   348#
AOJ1	  3887#
AOJ2	  3901#	  3914
AOJ3	  3906#	  3916
AOJE1	  3925#
AOJE2	  3940#	  3951
AOJE3	  3942#	  3952
AOJG1	  4036#
AOJG2	  4050#	  4066
AOJG3	  4055#	  4068
AOJGA	  3963#
AOJGB	  3977#	  3984	  3985
AOJGE1	  4077#
AOJGE2	  4091#	  4099	  4101
AOJL1	  3996#
AOJL2	  4010#	  4025
AOJL3	  4015#	  4027
AOJLE1	  4110#                                                                                                            SEQ 0210
AOJLE2	  4124#	  4131	  4132
AOS1	  3577#
AOS2	  3591#	  3625
AOS3	  3596#	  3627
AOS4	  3611	  3618	  3624#
AOSE1	  3637#
AOSE2	  3652#	  3667
AOSE3	  3653#	  3668
AOSG1	  3767#
AOSG2	  3781#	  3800
AOSG3	  3786#	  3802
AOSGA	  3680#
AOSGB	  3694#	  3709
AOSGC	  3699#	  3711
AOSGE1	  3854#
AOSGE2	  3868#	  3877	  3878
AOSL1	  3723#
AOSL2	  3737#	  3755
AOSL3	  3742#	  3757
AOSLE1	  3812#
AOSLE2	  3826#
AOSLE3	  3827#	  3842
AOSLE4	  3831#	  3843
AOVCLR	   348#
AOVDIS	   348#
AOVENB	   348#
AOVFLO	   348#
APAREN	   348#
APARER	   348#
APDCLR	   348#
APDLOV	   348#
APWRFL	   348#
AROV	   348#
AROVU	   348#
ASSS1	  4714#
ASSS2	  4728#	  4742
ASSS3	  4733#	  4744
AST	   549#
ATRPOS	   348#
ATSIN	   550#
AUSRIO	   348#
BEGEND	   430#	  7176
BEGIN	    62	    65	    66	    67	    68	    69	    70	    71	    72	   333	   334	   361#	  7466
BEGIN1	   377#	   431
BELL	   553#
BIS	   348#
CAI1	  5036#
CAI2	  5050#	  5065
CAI3	  5056#	  5067
CAIE1	  5076#
CAIE2	  5090#	  5105
CAIE3	  5096#	  5107
CAIG1	  5198#                                                                                                            SEQ 0211
CAIG2	  5214#	  5226
CAIG3	  5220#	  5228
CAIGA	  5354#
CAIGB	  5370#	  5381
CAIGC	  5375#	  5382
CAIGE1	  5239#
CAIGE2	  5253#	  5266
CAIGE3	  5259#	  5267
CAIL1	  5156#
CAIL2	  5172#	  5184
CAIL3	  5178#	  5186
CAILA	  5314#
CAILB	  5330#	  5341
CAILC	  5335#	  5342
CAILE1	  5276#
CAILE2	  5290#	  5303
CAILE3	  5296#	  5304
CAIN1	  5116#
CAIN2	  5130#	  5144
CAIN3	  5136#	  5146
CAM1	  4790#
CAM2	  4805#	  4821
CAM3	  4812#	  4823
CAMG1	  4964#
CAMG2	  4978#	  4989
CAMG3	  4983#	  4991
CAMGE1	  4920#
CAMGE2	  4934#	  4953
CAMGE3	  4939#	  4955
CAML1	  4832#
CAML2	  4846#	  4865
CAML3	  4851#	  4867
CAMLA	  5000#
CAMLB	  5014#	  5025
CAMLC	  5019#	  5027
CAMLE1	  4876#
CAMLE2	  4890#	  4909
CAMLE3	  4895#	  4911
CCA	   348#
CHAIN	   139#
CHNOFF	   348#
CHNON	   348#
CLK	   348#
CLKCLR	   348#
CLKDIS	   348#
CLKENB	   348#
CLKU	   348#
CLOCKF	   416#
CMPLXT	   682	   693	   697	   701	   705	   709	   713	   717	   760#	   781	   814	   854	   890	   927
	   975	  1023	  1072	  1120	  1162	  1205	  1250	  1293	  1331	  1366	  1404	  1445	  1484	  1525
	  1567	  1614	  1662	  1707	  1748	  1788	  1827	  1869	  1908	  1955	  1996	  2036	  2077	  2117
	  2156	  2196	  2235	  2279	  2318	  2357	  2398	  2441	  2481	  2522	  2561	  2600	  2640	  2679
	  2718	  2757	  2797	  2837	  2878	  2921	  2964	  3009	  3051	  3096	  3139	  3188	  3239	  3283     SEQ 0212
	  3320	  3355	  3387	  3425	  3461	  3503	  3548	  3589	  3649	  3692	  3735	  3779	  3824	  3866
	  3899	  3937	  3975	  4008	  4048	  4089	  4122	  4154	  4196	  4239	  4282	  4317	  4362	  4406
	  4441	  4475	  4513	  4551	  4582	  4623	  4663	  4694	  4726	  4765	  4802	  4844	  4888	  4932
	  4976	  5012	  5048	  5088	  5128	  5168	  5210	  5251	  5288	  5326	  5366	  5403	  5442	  5481
	  5518	  5557	  5593	  5632	  5671	  5710	  5749	  5786	  5826	  5864	  5903	  5943	  5979	  6017
	  6056	  6095	  6134	  6172	  6211	  6251	  6291	  6331	  6370	  6409	  6450	  6494	  6539	  6587
	  6633	  6679	  6717	  6758	  6798	  6837	  6879	  6921	  6969	  7014	  7069	  7119	  7155
CNTLC	   433#
COMMA	   542#
CONSW	   417#	  7363	  7394
CPOPJ	   437#
CPOPJ1	   435#
CRLF	   268	   269	   537#
CRLF2	   272	   273	   539#
CRY0	   348#
CRY0B	  3608	  3613#
CRY1	   348#
CRY1B	  3609	  3620#
CSHFLG	   596#
CSHMEM	   597#
CYCL60	   590#
DCK	   348#
DDTLNK	   153#	   375
DDTSRT	   375#
DEBUG	    59#	  7457	  7458
DECVER	     3#	    10	    26	   396
DF22F	   501#
DIAGMN	   364#
DING	   125#	  7368
DOLLAR	   556#
DSKUPD	   401
END	  7465#
ENDFIX	   670#
ENDPGM	    28#
ENDSLD	  7455#
EQVIA	  5698#
EQVIB	  5712#	  5726
EQVIC	  5718#	  5728
ERDIAG	  7231
ERMORE	   450#	  7354
ERRELB	    60#	  7231
ERRLOP	   779#	   779	   812#	   812	   852#	   852	   888#	   888	   925#	   925	   973#	   973	  1021#	  1021
	  1070#	  1070	  1118#	  1118	  1160#	  1160	  1203#	  1203	  1248#	  1248	  1291#	  1291	  1329#	  1329
	  1364#	  1364	  1402#	  1402	  1443#	  1443	  1482#	  1482	  1523#	  1523	  1565#	  1565	  1612#	  1612
	  1660#	  1660	  1705#	  1705	  1746#	  1746	  1786#	  1786	  1825#	  1825	  1867#	  1867	  1906#	  1906
	  1953#	  1953	  1994#	  1994	  2034#	  2034	  2075#	  2075	  2115#	  2115	  2154#	  2154	  2194#	  2194
	  2233#	  2233	  2277#	  2277	  2316#	  2316	  2355#	  2355	  2396#	  2396	  2439#	  2439	  2479#	  2479
	  2520#	  2520	  2559#	  2559	  2598#	  2598	  2638#	  2638	  2677#	  2677	  2716#	  2716	  2755#	  2755
	  2795#	  2795	  2835#	  2835	  2876#	  2876	  2919#	  2919	  2962#	  2962	  3007#	  3007	  3049#	  3049
	  3094#	  3094	  3137#	  3137	  3186#	  3186	  3237#	  3237	  3281#	  3281	  3318#	  3318	  3353#	  3353
	  3385#	  3385	  3423#	  3423	  3459#	  3459	  3501#	  3501	  3546#	  3546	  3587#	  3587	  3647#	  3647
	  3690#	  3690	  3733#	  3733	  3777#	  3777	  3822#	  3822	  3864#	  3864	  3897#	  3897	  3935#	  3935
	  3973#	  3973	  4006#	  4006	  4046#	  4046	  4087#	  4087	  4120#	  4120	  4152#	  4152	  4194#	  4194     SEQ 0213
	  4237#	  4237	  4280#	  4280	  4315#	  4315	  4360#	  4360	  4404#	  4404	  4439#	  4439	  4473#	  4473
	  4511#	  4511	  4549#	  4549	  4580#	  4580	  4621#	  4621	  4661#	  4661	  4692#	  4692	  4724#	  4724
	  4763#	  4763	  4800#	  4800	  4842#	  4842	  4886#	  4886	  4930#	  4930	  4974#	  4974	  5010#	  5010
	  5046#	  5046	  5086#	  5086	  5126#	  5126	  5166#	  5166	  5208#	  5208	  5249#	  5249	  5286#	  5286
	  5324#	  5324	  5364#	  5364	  5401#	  5401	  5440#	  5440	  5479#	  5479	  5516#	  5516	  5555#	  5555
	  5591#	  5591	  5630#	  5630	  5669#	  5669	  5708#	  5708	  5747#	  5747	  5784#	  5784	  5824#	  5824
	  5862#	  5862	  5901#	  5901	  5941#	  5941	  5977#	  5977	  6015#	  6015	  6054#	  6054	  6093#	  6093
	  6132#	  6132	  6170#	  6170	  6209#	  6209	  6249#	  6249	  6289#	  6289	  6329#	  6329	  6368#	  6368
	  6407#	  6407	  6448#	  6448	  6492#	  6492	  6537#	  6537	  6585#	  6585	  6631#	  6631	  6677#	  6677
	  6715#	  6715	  6756#	  6756	  6796#	  6796	  6835#	  6835	  6877#	  6877	  6919#	  6919	  6967#	  6967
	  7012#	  7012	  7067#	  7067	  7117#	  7117	  7153#	  7153	  7211	  7373	  7376	  7377
ERRMES	    44	    45	    46	    47	    48	    49	    50	    51	  7182#
ERRPC	   421#	  7194	  7228	  7240
ERRTLS	   422#	  7192	  7380
ERSTOP	   128#	  7364
EXCASB	    55#	   399	  7183	  7385
EXIOT	   348#
FOV	   348#
FOVU	   348#
FRDLNK	   151#
FSELNK	   150#
FXU	   348#
HYPEN	   547#
INHCSH	   136#
INHPAG	   133#
INXM	   348#
IOCLR	   348#
IORIA	  5620#
IORIB	  5634#	  5648
IORIC	  5640#	  5650
ITERAT	    81#	   394
ITRCH1	   454#
ITRCNT	   394#
JMP1	  3271#
JMP2	  3285#	  3297
JMP3	  3290#	  3299
JMPE1	  3308#
JMPE2	  3323#	  3331
JMPE3	  3325#	  3332
JMPG1	  3413#
JMPG2	  3428#	  3438
JMPG3	  3432#	  3439
JMPGE1	  3449#
JMPGE2	  3464#	  3479
JMPGE3	  3469#	  3481
JMPL1	  3375#
JMPL2	  3390#	  3402
JMPL3	  3391#	  3401
JMPL4	  3394#	  3403
JMPLE1	  3491#
JMPLE2	  3506#	  3523
JMPLE3	  3510#	  3525
JMPLEA	  3536#                                                                                                            SEQ 0214
JMPLEB	  3550#	  3555	  3564
JMPLEC	  3556#	  3566
JMPN1	  3343#
JMPN2	  3357#	  3362	  3363
JOB41	   348#
JOBAPR	   348#
JOBCNI	   348#
JOBDDT	   348#
JOBFF	   348#
JOBOPC	   348#	  7361
JOBREL	   348#
JOBREN	   348#
JOBSA	   348#
JOBSYM	   348#
JOBTPC	   348#
JOBUSY	   348#
JOBUUO	   348#
JOBVER	   348#
KA10	    57#	   348
KAHZ50	   141#
KAIFLG	   411#
KI10	   348	  7183	  7385
KL10	   348
KLFLG	   412#	  7198
KLOLD	    43#	   348
KLTYP	   628#
LDLNK	   152#	   364	   366
LFP	   551#
LOOPER	   127#	  7366
LUUO	   348#
LUUO1	    44#	   481	   482
LUUO10	   481	   486
LUUO11	    49#	   481	   486
LUUO12	    50#	   481	   487
LUUO13	    51#	   481	   487
LUUO14	   481	   488
LUUO15	   481	   488
LUUO16	   481	   489
LUUO17	   481	   489
LUUO2	    45#	   481	   483
LUUO20	   481	   490
LUUO21	   481	   490
LUUO22	   481	   491
LUUO23	   481	   491
LUUO24	   481	   492
LUUO25	   481	   492
LUUO26	   481	   493
LUUO27	   481	   493
LUUO3	    46#	   481	   483
LUUO30	   481	   494
LUUO31	   481	   494
LUUO32	   481	   495
LUUO33	   481	   495                                                                                                     SEQ 0215
LUUO4	    47#	   481	   484
LUUO5	    48#	   481	   484
LUUO6	   481	   485
LUUO7	   481	   485
LUUOI	   348#
MAPNEW	   502#
MARGIN	   424#
MCNVER	     4#	    10	    26	   396
MEMLOW	   504#
MEMMAP	   402
MEMSIZ	   505#
MEMTOT	   503#
MICNT	  7195#	  7195	  7196	  7213
MINUS	   546#
MODDVC	   135#
MODDVL	   333	   333#	   397
MODDVU	   334	   334#	   398
MODLNK	   154#	   361
MONCTL	   414#	  7214	  7378
MONFLG	   413#
MONTEN	   415#
MPVU	   348#
NOPNT	   123#	  7204
NXMU	   348#
OPRSEL	   137#
OPTIME	   516#
ORCAI1	  5774#
ORCAI2	  5788#	  5803
ORCAI3	  5794#	  5805
ORCBI1	  5891#
ORCBI2	  5905#	  5920
ORCBI3	  5911#	  5922
ORCMI1	  5852#
ORCMI2	  5866#	  5880
ORCMI3	  5872#	  5882
P	   180	   181	   182	   183	   348#	   436
PAG	   348#
PALERS	   129#	  7395
PARCLR	   348#
PARDIS	   348#
PAREA1	    74#	   392
PAREA2	    75#	   393
PAREA3	    76#	   390
PAREA4	    77#	   391
PAREA5	    78#	   403
PAREA6	    79#	   404
PAREA7	   403#
PAREA8	   404#
PARENB	   348#
PARU	   348#
PASCNT	   418#	  7219	  7223
PATCH	  7458#
PDISF	   513#                                                                                                            SEQ 0216
PDLOVU	   348#
PERIOD	   543#
PFSTRT	   370#
PGMEND	    58#	  7464
PGMNAM	   395	   733#
PI	  7201
PICHN1	   348#
PICHN2	   348#
PICHN3	   348#
PICHN4	   348#
PICHN5	   348#
PICHN6	   348#
PICHN7	   348#
PICHNA	   348#
PICLR	   348#
PIOFF	   348#
PION	   348#
PLIST	   582#	   582
PLISTE	   582	   584#	   668
PLISTS	   583#
PLUS	   548#
PNTENB	   512#
PNTEXT	   391#
PNTFLG	   511#
PNTINH	   514#
PNTLPT	   124#
PNTNAM	   390#
PNTSPC	   515#
PROCED	  7202#	  7202	  7367	  7374
PVPAGI	   609#
PWFCLR	   348#
QUEST	   554#
RADIX	   557#
RADLSC	   559#
RADLSP	   558#
RAN	   677	   784#	   784	   787	   790	   794	   817#	   817	   820	   830	   857#	   857	   860	   865
	   868	   893#	   893	   896	   904	   931#	   931	   934	   952	   979#	   979	   982	  1000	  1027#
	  1027	  1030	  1050	  1076#	  1076	  1079	  1097	  1124#	  1124	  1127	  1140	  1166#	  1166	  1169
	  1182	  1209#	  1209	  1212	  1226	  1254#	  1254	  1257	  1271	  1296#	  1296	  1299	  1308	  1334#
	  1334	  1337	  1340	  1341	  1344	  1369#	  1369	  1372	  1378	  1381	  1407#	  1407	  1410	  1417
	  1418	  1421	  1448#	  1448	  1451	  1458	  1459	  1462	  1487#	  1487	  1490	  1503	  1528#	  1528
	  1531	  1541	  1542	  1545	  1570#	  1570	  1573	  1591	  1617#	  1617	  1620	  1630	  1631	  1635
	  1636	  1639	  1665#	  1665	  1668	  1681	  1682	  1685	  1710#	  1710	  1713	  1726	  1751#	  1751
	  1754	  1761	  1762	  1765	  1791#	  1791	  1794	  1801	  1802	  1805	  1830#	  1830	  1833	  1847
	  1872#	  1872	  1875	  1882	  1883	  1886	  1911#	  1911	  1914	  1933	  1958#	  1958	  1961	  1966
	  1967	  1971	  1974	  1999#	  1999	  2002	  2014	  2039#	  2039	  2042	  2047	  2048	  2052	  2055
	  2080#	  2080	  2083	  2091	  2092	  2095	  2120#	  2120	  2123	  2130	  2131	  2134	  2159#	  2159
	  2162	  2173	  2199#	  2199	  2202	  2210	  2213	  2238#	  2238	  2241	  2254	  2257	  2282#	  2282
	  2285	  2292	  2293	  2296	  2321#	  2321	  2324	  2335	  2360#	  2360	  2363	  2368	  2369	  2373
	  2376	  2401#	  2401	  2404	  2419	  2444#	  2444	  2447	  2451	  2452	  2455	  2456	  2459	  2484#
	  2484	  2487	  2492	  2493	  2497	  2500	  2525#	  2525	  2528	  2535	  2536	  2539	  2564#	  2564
	  2567	  2578	  2603#	  2603	  2606	  2613	  2614	  2617	  2643#	  2643	  2646	  2653	  2654	  2657
	  2682#	  2682	  2685	  2692	  2693	  2696	  2721#	  2721	  2724	  2735	  2760#	  2760	  2763	  2771     SEQ 0217
	  2772	  2775	  2800#	  2800	  2803	  2815	  2840#	  2840	  2843	  2852	  2853	  2856	  2881#	  2881
	  2884	  2894	  2895	  2898	  2924#	  2924	  2927	  2936	  2938	  2942	  2968#	  2968	  2971	  2979
	  2981	  2984	  3012#	  3012	  3015	  3021	  3023	  3026	  3055#	  3055	  3058	  3068	  3070	  3073
	  3099#	  3099	  3102	  3116	  3142#	  3142	  3145	  3167	  3191#	  3191	  3194	  3216	  3242#	  3242
	  3245	  3259	  3286#	  3286	  3289	  3294	  3298	  3551#	  3551	  3554	  3565	  3592#	  3592	  3595
	  3596	  3626	  3664	  3695#	  3695	  3698	  3705	  3707	  3710	  3738#	  3738	  3741	  3756	  3782#
	  3782	  3785	  3801	  3902#	  3902	  3905	  3915	  4011#	  4011	  4014	  4026	  4051#	  4051	  4054
	  4067	  4100	  4157#	  4157	  4160	  4173	  4242#	  4242	  4245	  4252	  4254	  4257	  4320#	  4320
	  4323	  4339	  4365#	  4365	  4368	  4383	  4478#	  4478	  4481	  4491	  4585#	  4585	  4588	  4601
	  4626#	  4626	  4629	  4641	  4729#	  4729	  4732	  4739	  4743	  4768#	  4768	  4771	  4775	  4779
	  4806#	  4806	  4809	  4816	  4817	  4819	  4822	  4847#	  4847	  4850	  4852	  4866	  4891#	  4891
	  4894	  4896	  4910	  4935#	  4935	  4938	  4940	  4954	  4979#	  4979	  4982	  4983	  4984	  4986
	  4987	  4990	  5015#	  5015	  5018	  5019	  5020	  5022	  5023	  5026	  5051#	  5051	  5054	  5066
	  5091#	  5091	  5094	  5095	  5106	  5131#	  5131	  5134	  5135	  5145	  5254#	  5254	  5257	  5258
	  5291#	  5291	  5294	  5295	  5406#	  5406	  5409	  5410	  5420	  5445#	  5445	  5448	  5449	  5459
	  5484#	  5484	  5487	  5488	  5496	  5521#	  5521	  5524	  5525	  5535	  5560#	  5560	  5563	  5564
	  5571	  5596#	  5596	  5599	  5600	  5610	  5635#	  5635	  5638	  5639	  5649	  5674#	  5674	  5677
	  5678	  5688	  5713#	  5713	  5716	  5717	  5727	  5752#	  5752	  5755	  5756	  5764	  5789#	  5789
	  5792	  5793	  5804	  5829#	  5829	  5832	  5833	  5842	  5867#	  5867	  5870	  5871	  5881	  5906#
	  5906	  5909	  5910	  5921	  5946#	  5946	  5949	  5950	  5957	  5982#	  5982	  5985	  5991	  5995
	  6020#	  6020	  6023	  6034	  6059#	  6059	  6062	  6069	  6073	  6098#	  6098	  6101	  6108	  6112
	  6137#	  6137	  6140	  6146	  6150	  6175#	  6175	  6178	  6189	  6214#	  6214	  6217	  6229	  6254#
	  6254	  6257	  6269	  6294#	  6294	  6297	  6309	  6334#	  6334	  6337	  6344	  6348	  6373#	  6373
	  6376	  6383	  6387	  6412#	  6412	  6415	  6428	  6453#	  6453	  6456	  6464	  6471	  6498#	  6498
	  6501	  6516	  6543#	  6543	  6546	  6564	  6591#	  6591	  6594	  6610	  6637#	  6637	  6640	  6657
	  6682#	  6682	  6685	  6691	  6695	  6720#	  6720	  6723	  6736	  6761#	  6761	  6764	  6776	  6801#
	  6801	  6804	  6815	  6840#	  6840	  6843	  6857	  6882#	  6882	  6885	  6892	  6896	  6925#	  6925
	  6928	  6944	  6973#	  6973	  6976	  6991	  7018#	  7018	  7021	  7046	  7073#	  7073	  7076	  7093
	  7122#	  7122	  7125	  7131	  7135	  7158#	  7158	  7161	  7172	  7309#	  7309
RAN1	   775#	   808#	   822	   848#	   884#	   898	   901	   921#	   969#	  1017#	  1066#	  1114#	  1156#	  1199#
	  1244#	  1287#	  1300	  1305	  1325#	  1360#	  1373	  1378	  1398#	  1439#	  1452	  1459	  1478#	  1491
	  1495	  1500	  1519#	  1535	  1542	  1561#	  1575	  1582	  1588	  1608#	  1656#	  1701#	  1714	  1723
	  1742#	  1782#	  1821#	  1863#	  1876	  1883	  1902#	  1916	  1924	  1930	  1949#	  1963	  1966	  1971
	  1990#	  2004	  2011	  2030#	  2071#	  2111#	  2150#	  2163	  2170	  2190#	  2229#	  2273#	  2312#	  2325
	  2332	  2351#	  2392#	  2406	  2411	  2416	  2435#	  2475#	  2516#	  2555#	  2568	  2574	  2575	  2594#
	  2634#	  2673#	  2712#	  2725	  2731	  2732	  2751#	  2791#	  2805	  2811	  2812	  2831#	  2872#	  2915#
	  2929	  2937	  2939	  2958#	  3003#	  3016	  3021	  3022	  3023	  3045#	  3090#	  3106	  3111	  3113
	  3133#	  3149	  3154	  3156	  3182#	  3197	  3203	  3205	  3233#	  3247	  3254	  3256	  3277#	  3290
	  3295	  3314#	  3324	  3325	  3329	  3330	  3349#	  3357	  3361	  3381#	  3393	  3394	  3398	  3399
	  3400	  3419#	  3431	  3432	  3436	  3437	  3455#	  3467	  3471	  3472	  3480	  3497#	  3509	  3513
	  3514	  3521	  3524	  3542#	  3557	  3561	  3562	  3583#	  3598	  3605	  3607	  3643#	  3656	  3661
	  3663	  3686#	  3700	  3705	  3707	  3729#	  3746	  3751	  3753	  3773#	  3791	  3796	  3798	  3818#
	  3830	  3838	  3840	  3841	  3860#	  3893#	  3931#	  3969#	  3978	  3983	  4002#	  4016	  4023	  4042#
	  4057	  4064	  4083#	  4092	  4097	  4116#	  4125	  4130	  4148#	  4190#	  4201	  4212	  4233#	  4247
	  4252	  4254	  4276#	  4285	  4291	  4293	  4311#	  4326	  4334	  4336	  4356#	  4370	  4378	  4380
	  4400#	  4409	  4415	  4417	  4435#	  4444	  4450	  4452	  4469#	  4507#	  4518	  4519	  4520	  4526
	  4527	  4545#	  4554	  4559	  4576#	  4617#	  4657#	  4666	  4671	  4688#	  4697	  4702	  4720#	  4733
	  4738	  4740	  4759#	  4796#	  4838#	  4855	  4860	  4861	  4863	  4882#	  4899	  4904	  4905	  4907
	  4926#	  4943	  4949	  4950	  4951	  4970#	  5006#	  5042#	  5058	  5062	  5063	  5082#	  5098	  5102
	  5103	  5122#	  5137	  5141	  5142	  5162#	  5176	  5178	  5182	  5183	  5204#	  5218	  5220	  5224
	  5225	  5245#	  5260	  5264	  5265	  5282#	  5297	  5301	  5302	  5320#	  5334	  5335	  5339	  5340
	  5360#	  5374	  5375	  5379	  5380	  5397#	  5411	  5417	  5436#	  5450	  5456	  5475#	  5489	  5493
	  5512#	  5526	  5532	  5551#	  5565	  5567	  5568	  5587#	  5601	  5607	  5626#	  5640	  5646	  5665#    SEQ 0218
	  5679	  5685	  5704#	  5718	  5724	  5743#	  5757	  5761	  5780#	  5794	  5801	  5820#	  5834	  5839
	  5858#	  5872	  5878	  5897#	  5911	  5918	  5937#	  5951	  5954	  5973#	  6011#	  6024	  6031	  6050#
	  6089#	  6128#	  6166#	  6179	  6186	  6205#	  6219	  6225	  6226	  6245#	  6259	  6266	  6285#	  6325#
	  6364#	  6403#	  6444#	  6488#	  6533#	  6551	  6556	  6557	  6561	  6581#	  6627#	  6673#	  6711#	  6724
	  6733	  6752#	  6792#	  6805	  6812	  6831#	  6873#	  6915#	  6933	  6941	  6963#	  6981	  6987	  6988
	  7008#	  7025	  7036	  7037	  7042	  7043	  7063#	  7080	  7089	  7090	  7113#	  7149#	  7162	  7169
RANDBS	   392#	   674
REENTR	   372#
RELIAB	   131#	   685	   724
RENTR1	    64	   730#
REPT	   348#
REPT1	   348#
REPTU	   470#
REQSET	   348#
RESRT1	    63	   447#
RESRT2	   448#
RETURN	   379#
RSTART	   120#
RTIME	   726	   759#	   782	   815	   855	   891	   928	   976	  1024	  1073	  1121	  1163	  1206	  1251
	  1294	  1332	  1367	  1405	  1446	  1485	  1526	  1568	  1615	  1663	  1708	  1749	  1789	  1828
	  1870	  1909	  1956	  1997	  2037	  2078	  2118	  2157	  2197	  2236	  2280	  2319	  2358	  2399
	  2442	  2482	  2523	  2562	  2601	  2641	  2680	  2719	  2758	  2798	  2838	  2879	  2922	  2965
	  3010	  3052	  3097	  3140	  3189	  3240	  3284	  3321	  3356	  3388	  3426	  3462	  3504	  3549
	  3590	  3650	  3693	  3736	  3780	  3825	  3867	  3900	  3938	  3976	  4009	  4049	  4090	  4123
	  4155	  4197	  4240	  4283	  4318	  4363	  4407	  4442	  4476	  4514	  4552	  4583	  4624	  4664
	  4695	  4727	  4766	  4803	  4845	  4889	  4933	  4977	  5013	  5049	  5089	  5129	  5169	  5211
	  5252	  5289	  5327	  5367	  5404	  5443	  5482	  5519	  5558	  5594	  5633	  5672	  5711	  5750
	  5787	  5827	  5865	  5904	  5944	  5980	  6018	  6057	  6096	  6135	  6173	  6212	  6252	  6292
	  6332	  6371	  6410	  6451	  6495	  6540	  6588	  6634	  6680	  6718	  6759	  6799	  6838	  6880
	  6922	  6970	  7015	  7070	  7120	  7156
RTP	   552#
RUNFLG	   419#
SADR1	    62#	   368
SADR10	    71#	   384
SADR11	    72#	   385
SADR2	    63#	   370
SADR3	    64#	   372
SADR4	    65#
SADR5	    66#	   433
SADR6	    67#	   434
SADR7	    68#	   381
SADR8	    69#	   382
SADR9	    70#	   383
SBINIT	   193	   378#
SCOPE	   471#
SETAIA	  5545#
SETAIB	  5559#	  5570
SETAIC	  5565#	  5572
SFSTRT	   368#
SKIP1	  2909#
SKIP2	  2923#	  2941
SKIP3	  2928#	  2943
SKIPE1	  2952#                                                                                                            SEQ 0219
SKIPE2	  2967#	  2983
SKIPE3	  2974#	  2985
SKIPG1	  3039#
SKIPG2	  3054#	  3072
SKIPG3	  3063#	  3074
SKIPL1	  3084#
SKIPL2	  3098#	  3115
SKIPL3	  3103#	  3117
SKIPN1	  2997#
SKIPN2	  3011#	  3025
SKIPN3	  3016#	  3027
SKPGE1	  3127#
SKPGE2	  3141#	  3166
SKPGE3	  3146#	  3168
SKPLE1	  3176#
SKPLE2	  3190#	  3215
SKPLE3	  3195#	  3217
SKPLEA	  3227#
SKPLEB	  3241#	  3246	  3258
SKPLEC	  3247#	  3260
SLASH	   555#
SOJ1	  4463#
SOJ2	  4477#	  4490
SOJ3	  4482#	  4492
SOJE1	  4501#
SOJE2	  4515#	  4528
SOJE3	  4516#	  4529
SOJE4	  4519#	  4530
SOJG1	  4570#
SOJG2	  4584#	  4600
SOJG3	  4589#	  4602
SOJGE1	  4682#
SOJGE2	  4696#	  4703	  4704
SOJL1	  4539#
SOJL1A	  4611#
SOJL2	  4553#	  4560	  4561
SOJL2A	  4625#	  4640
SOJL3A	  4630#	  4642
SOJLE1	  4651#
SOJLE2	  4665#	  4672	  4673
SOS1	  4142#
SOS2	  4156#	  4172
SOS3	  4161#	  4174
SOSE1	  4184#
SOSE2	  4198#	  4213
SOSE3	  4199#	  4214
SOSE4	  4201#	  4215
SOSG1	  4305#
SOSG2	  4319#	  4338
SOSG3	  4324#	  4340
SOSGE1	  4429#
SOSGE2	  4443#	  4453	  4454
SOSL1	  4270#                                                                                                            SEQ 0220
SOSL1A	  4350#
SOSL2	  4284#	  4294	  4295
SOSL2A	  4364#	  4382
SOSL3A	  4369#	  4384
SOSLA	  4227#
SOSLB	  4241#	  4256
SOSLC	  4246#	  4258
SOSLE1	  4394#
SOSLE2	  4408#	  4418	  4419
SPACE	   544#
SRTDDT	   374#
START	   362	   673#
START1	   381#
START2	   382#
START3	   383#
START4	   384#
START5	   385#
STARTA	   377	   682#
STCAI1	  5737#
STCAI2	  5751#	  5763
STCAI3	  5757#	  5765
STCMI1	  5814#
STCMI2	  5828#	  5841
STCMI3	  5834#	  5843
STMI4	  5469#
STMI5	  5483#	  5495
STMI6	  5489#	  5497
STOI1	  5931#
STOI2	  5945#	  5956
STOI3	  5951#	  5958
SUBLNK	   155#	   378
SWTEXR	   393#
SYSEXR	   366#
TAB	   545#
TDCE1	   915#
TDCE2	   930#	   951
TDCE3	   936#	   953
TDCEA	   963#
TDCEB	   978#	   999
TDCEC	   984#	  1001
TDCN1	   728	   769#
TDCN1A	  1011#
TDCN1B	  1026#	  1035	  1049
TDCN1C	  1033#	  1051
TDCN2	   783#	   793
TDCN3	   788#	   795
TDCN4	   802#
TDCN5	   816#	   821	   829
TDCN6	   822#	   831
TDCN7	   842#
TDCN8	   856#	   861	   867
TDCN9	   862#	   869
TDCNA1	  1060#                                                                                                            SEQ 0221
TDCNA2	  1075#	  1096
TDCNA3	  1082#	  1098
TDCNG	   878#
TDCNH	   892#	   903
TDCNI	   897#	   905
TDNN1	  1108#
TDNN2	  1123#	  1139
TDNN3	  1129#	  1141
TDNN4	  1238#
TDNN5	  1253#	  1270
TDNN6	  1260#	  1272
TDNNA	  1150#
TDNNB	  1165#	  1181
TDNNC	  1171#	  1183
TDNND	  1193#
TDNNE	  1208#	  1225
TDNNF	  1215#	  1227
TESTPC	   420#	   777	   810	   850	   886	   923	   971	  1019	  1068	  1116	  1158	  1201	  1246	  1289
	  1327	  1362	  1400	  1441	  1480	  1521	  1563	  1610	  1658	  1703	  1744	  1784	  1823	  1865
	  1904	  1951	  1992	  2032	  2073	  2113	  2152	  2192	  2231	  2275	  2314	  2353	  2394	  2437
	  2477	  2518	  2557	  2596	  2636	  2675	  2714	  2753	  2793	  2833	  2874	  2917	  2960	  3005
	  3047	  3092	  3135	  3184	  3235	  3279	  3316	  3351	  3383	  3421	  3457	  3499	  3544	  3585
	  3645	  3688	  3731	  3775	  3820	  3862	  3895	  3933	  3971	  4004	  4044	  4085	  4118	  4150
	  4192	  4235	  4278	  4313	  4358	  4402	  4437	  4471	  4509	  4547	  4578	  4619	  4659	  4690
	  4722	  4761	  4798	  4840	  4884	  4928	  4972	  5008	  5044	  5084	  5124	  5164	  5206	  5247
	  5284	  5322	  5362	  5399	  5438	  5477	  5514	  5553	  5589	  5628	  5667	  5706	  5745	  5782
	  5822	  5860	  5899	  5939	  5975	  6013	  6052	  6091	  6130	  6168	  6207	  6247	  6287	  6327
	  6366	  6405	  6446	  6490	  6535	  6583	  6629	  6675	  6713	  6754	  6794	  6833	  6875	  6917
	  6965	  7010	  7065	  7115	  7151
TICKS	   423#
TOTALS	   121#
TRC1	  7107#
TRC2	  7121#	  7134
TRC3	  7126#	  7136
TRCA1	  7143#
TRCA2	  7157#	  7171
TRCA3	  7162#	  7173
TRN1	  5967#
TRN2	  5981#	  5994
TRN3	  5986#	  5996
TRN4	  6005#
TRN5	  6019#	  6033
TRN6	  6024#	  6035
TRN7	  6044#
TRN8	  6058#	  6072
TRN9	  6063#	  6074
TRNA1	  6083#
TRNA2	  6097#	  6111
TRNA3	  6102#	  6113
TRNE1A	  6122#
TRNE1B	  6160#
TRNE1C	  6199#
TRNE1D	  6239#                                                                                                            SEQ 0222
TRNE1E	  6279#
TRNE1F	  6319#
TRNE2A	  6136#	  6149
TRNE2B	  6174#	  6188
TRNE2C	  6213#	  6228
TRNE2D	  6253#	  6268
TRNE2E	  6293#	  6308
TRNE2F	  6333#	  6347
TRNE3A	  6141#	  6151
TRNE3B	  6179#	  6190
TRNE3C	  6218#	  6230
TRNE3D	  6258#	  6270
TRNE3E	  6298#	  6310
TRNE3F	  6338#	  6349
TRO1	  6667#
TRO1A	  6746#
TRO1B	  6760#	  6775
TRO1C	  6765#	  6777
TRO1D	  6786#
TRO1E	  6800#	  6814
TRO1F	  6805#	  6816
TRO2	  6681#	  6694
TRO3	  6686#	  6696
TRO4	  6705#
TRO5	  6719#	  6735
TRO6	  6724#	  6737
TROA1	  6825#
TROA2	  6839#	  6856
TROA3	  6844#	  6858
TROA4	  6867#
TROA5	  6881#	  6895
TROA6	  6886#	  6897
TROE1	  6909#
TROE2	  6924#	  6943
TROE3	  6932#	  6945
TROEA	  6957#
TROEB	  6972#	  6990
TROEC	  6980#	  6992
TRON1	  7002#
TRON2	  7017#	  7028	  7045
TRON3	  7026#	  7047
TRONA	  7057#
TRONB	  7072#	  7092
TRONC	  7081#	  7094
TRZA1	  6358#
TRZA2	  6372#	  6386
TRZA3	  6377#	  6388
TRZAA	  6397#
TRZAB	  6411#	  6427
TRZAC	  6417#	  6429
TRZB1	  6438#
TRZB2	  6452#	  6470
TRZB3	  6457#	  6472                                                                                                     SEQ 0223
TRZE1	  6482#
TRZE2	  6497#	  6515
TRZE3	  6505#	  6517
TRZEA	  6527#
TRZEB	  6542#	  6563
TRZEC	  6550#	  6565
TRZN1	  6621#
TRZN2	  6636#	  6656
TRZN3	  6645#	  6658
TRZNA	  6575#
TRZNB	  6590#	  6609
TRZNC	  6599#	  6611
TSC1	  1281#
TSC2	  1295#	  1307
TSC3	  1300#	  1309
TSC4	  1319#
TSC5	  1333#	  1343
TSC6	  1338#	  1345
TSC7	  1354#
TSC8	  1368#	  1380
TSC9	  1373#	  1382
TSCA1	  1392#
TSCA2	  1406#	  1420
TSCA3	  1411#	  1422
TSCE1	  1433#
TSCE2	  1447#	  1461
TSCE3	  1452#	  1463
TSCE4	  1513#
TSCE5	  1527#	  1532	  1534	  1544
TSCE6	  1535#	  1546
TSCEA	  1472#
TSCEB	  1486#	  1502
TSCEC	  1491#	  1504
TSCED	  1555#
TSCEE	  1569#	  1574	  1590
TSCEF	  1575#	  1592
TSCN1	  1602#
TSCN2	  1616#	  1621	  1624	  1638
TSCN3	  1622#	  1640
TSCNA	  1650#
TSCNB	  1664#	  1669	  1673	  1675	  1684
TSCNC	  1670#	  1686
TSN1	  2510#
TSN2	  2524#	  2538
TSN3	  2529#	  2540
TSN4	  2549#
TSN5	  2563#	  2577
TSN6	  2568#	  2579
TSN7	  2588#
TSN8	  2602#	  2616
TSN9	  2607#	  2618
TSNA1	  2628#
TSNA2	  2642#	  2656                                                                                                     SEQ 0224
TSNA3	  2647#	  2658
TSNE1	  2667#
TSNE2	  2681#	  2695
TSNE3	  2686#	  2697
TSNE4	  2745#
TSNE5	  2759#	  2764	  2774
TSNE6	  2764#	  2776
TSNEA	  2706#
TSNEB	  2720#	  2734
TSNEC	  2725#	  2736
TSNED	  2785#
TSNEE	  2799#	  2804	  2814
TSNEF	  2805#	  2816
TSNN1	  2825#
TSNN2	  2839#	  2844	  2855
TSNN3	  2845#	  2857
TSNNA	  2866#
TSNNB	  2880#	  2887	  2897
TSNNC	  2888#	  2899
TSO1	  1695#
TSO2	  1709#	  1725
TSO3	  1714#	  1727
TSO4	  1736#
TSO5	  1750#	  1764
TSO6	  1755#	  1766
TSO7	  1776#
TSO8	  1790#	  1804
TSO9	  1795#	  1806
TSOA1	  1815#
TSOA2	  1829#	  1846
TSOA3	  1834#	  1848
TSOE1	  1857#
TSOE2	  1871#	  1885
TSOE3	  1876#	  1887
TSOE4	  1943#
TSOE5	  1957#	  1962	  1973
TSOE6	  1963#	  1975
TSOEA	  1896#
TSOEB	  1910#	  1915	  1932
TSOEC	  1916#	  1934
TSOED	  1984#
TSOEE	  1998#	  2003	  2013
TSOEF	  2004#	  2015
TSON1	  2024#
TSON2	  2038#	  2054
TSON3	  2043#	  2056
TSONA	  2065#
TSONB	  2079#	  2084	  2094
TSONC	  2085#	  2096
TSZ1	  2105#
TSZ2	  2119#	  2133
TSZ3	  2124#	  2135
TSZ4	  2144#                                                                                                            SEQ 0225
TSZ5	  2158#	  2172
TSZ6	  2163#	  2174
TSZ7	  2184#
TSZ8	  2198#	  2212
TSZ9	  2203#	  2214
TSZA1	  2223#
TSZA2	  2237#	  2256
TSZA3	  2242#	  2258
TSZE1	  2267#
TSZE2	  2281#	  2295
TSZE3	  2286#	  2297
TSZE4	  2345#
TSZE5	  2359#	  2364	  2375
TSZE6	  2365#	  2377
TSZEA	  2306#
TSZEB	  2320#	  2334
TSZEC	  2325#	  2336
TSZED	  2386#
TSZEE	  2400#	  2405	  2418
TSZEF	  2406#	  2420
TSZN1	  2429#
TSZN2	  2443#	  2458
TSZN3	  2448#	  2460
TSZNA	  2469#
TSZNB	  2483#	  2488	  2499
TSZNC	  2489#	  2501
TTNBRF	   603#
TTYFIL	   519#
TTYSPD	   520#
TXTINH	   132#
USER	   410#	   675	  7199
USERF	   348#
USRASB	    56#	   400
USRCRF	   529#
USRLFF	   528#
UUODIS	   482#
UUOEXT	   438#	  7392
UUORTN	   439#
UUOSKP	   436#
UUOTXT	  7347
XORIA	  5581#
XORIB	  5595#	  5609
XORIC	  5601#	  5611
$$MUUO	   634#
$$OUTE	   640#
$$TAX1	   652#
$$TAX2	   653#
$$TOGG	   646#
$$UUO	   623#
$ACC0	   461#
$BEND1	   431#
$BEND2	   432#	  7382
$CHRIN	   522#                                                                                                            SEQ 0226
$CRLF	   524#
$DEVCH	   348#
$DSKUP	   401#
$DVCH1	   348#
$DVOFF	   518#
$EMODE	   399#
$ENDFX	   668#	   669
$FFF	   526#
$IBUF	   574#
$INEXT	   576#
$INNM	   575#
$ITRHL	   442#
$ITRX1	   443#
$LPAPE	  7403
$MMAP	   402#
$MODVL	   397#
$MODVU	   398#
$OBUF	   565#
$ONETM	   425#
$OUTEX	   567#
$OUTNM	   566#
$PAPER	   348
$PARER	   449#
$PNAME	   395#
$PSHER	   453#
$PVER	   396#
$RSRTX	   445#
$RSRTY	   446#
$SPAG1	   465#
$START	   362#
$SVAPR	   463#
$SVPAG	   464#
$SVPI	   462#
$SVUPC	   468#	  7193	  7197	  7227
$SVUUO	   467#	  7206	  7243	  7254	  7300	  7338
$TABF	   525#
$TTCHR	   521#
$TWCNT	   517#
$TYPNB	   523#
$UMODE	   400#
$UORTX	   440#
$USRHL	   444#
$UUOER	   441#	   482
$VTF	   527#
%ACS1A	  7208#	  7208	  7235	  7239	  7256	  7262
%ACTFL	   474#
%ACTUL	   475#
%CNTE	  7244#	  7244	  7248	  7263
%COREC	   473#
%CORFL	   472#
%DISCR	   476#
%EE1	  7249#	  7249	  7251	  7325
%EE1A	  7252#	  7252	  7293	  7334                                                                                     SEQ 0227
%EE2	  7255#	  7255	  7260	  7323
%EE2A	  7261#	  7261	  7317
%ERAC0	  7182#	  7182	  7209	  7247	  7279	  7291	  7307	  7384
%ERAC1	  7190#	  7190	  7210	  7246	  7250	  7253	  7259	  7372
%ERAC2	  7191#	  7191	  7245	  7371
%ERFST	  7216#	  7216	  7218
%ERHI1	   615#
%ERHI2	   616#
%ERHI3	   617#
%ERMOR	  7348	  7354#
%ERMS1	  7213#	  7397
%ERMS2	  7234#
%ERR2	  7268	  7312	  7321#
%ERR4	  7285	  7338#
%ERRB	  7280#	  7335
%ERRB1	  7300#	  7328
%ERRC	  7296	  7314	  7319	  7330	  7340	  7344#
%ERRS1	  7205	  7358#	  7396
%ERRS2	  7371#
%ERRS4	  7212	  7394#
%ERRS5	  7375	  7379	  7384#
%RAND	  7234#	  7234	  7237	  7308
.JB41	   348#
.JBAPR	   348#
.JBCNI	   348#
.JBDDT	   348#
.JBFF	   348#
.JBOPC	   348#
.JBREL	   348#
.JBREN	   348#
.JBSA	   348#
.JBSYM	   348#
.JBTPC	   348#
.JBUSY	   348#
.JBUUO	   348#
.JBVER	   348#
CFLUSH	   304#
CINVAL	   303#                                                                                                            SEQ 0228
CLOKOP	   298#
CWRTBI	   305#
DROPDV	   265#	   730
EERR	    39#	   865	  4168	  4170	  4209	  4211	  4738	  4740	  4987	  5023
EERRI	    41#	  3912	  4488	  4776	  5992	  6109	  6147	  6345	  6384	  6463	  6468	  6692	  6773	  6854
	  7132
EERRM	    40#
ENDUUO	   311#	   430
EOPUUO	   312#	   432
ER	    38#	   825	   863	   940	   942	   946	   988	   990	   994	  1038	  1040	  1044	  1091	  1133
	  1135	  1175	  1177	  1219	  1221	  1264	  1266	  1414	  1416	  1455	  1457	  1498	  1538	  1540
	  1578	  1580	  1585	  1627	  1629	  1633	  1678	  1680	  1719	  1721	  1758	  1760	  1798	  1800
	  1840	  1842	  1879	  1881	  1920	  1922	  1927	  1969	  2007	  2009	  2050	  2088	  2090	  2127
	  2129	  2166	  2168	  2206	  2208	  2250	  2252	  2289	  2291	  2328	  2330	  2371	  2414	  2454
	  2495	  2532	  2534	  2571	  2573	  2610	  2612	  2650	  2652	  2689	  2691	  2728	  2730	  2768
	  2770	  2808	  2810	  2849	  2851	  2891	  2893	  2932	  2935	  2977	  3019	  3066	  3109	  3152
	  3160	  3201	  3209	  3252	  3293	  3328	  3360	  3397	  3435	  3470	  3476	  3512	  3518	  3560
	  3603	  3612	  3614	  3616	  3619	  3621	  3623	  3659	  3703	  3749	  3794	  3836	  3872	  3910
	  3947	  3981	  4021	  4062	  4095	  4128	  4166	  4207	  4250	  4289	  4332	  4376	  4413	  4448
	  4486	  4524	  4557	  4596	  4636	  4669	  4700	  4736	  4774	  4815	  4859	  4903	  4947	  4985
	  5021	  5061	  5101	  5140	  5181	  5223	  5263	  5300	  5338	  5378	  5988	  5990	  6027	  6029
	  6066	  6068	  6105	  6107	  6143	  6145	  6182	  6184	  6222	  6224	  6262	  6264	  6302	  6304
	  6341	  6343	  6380	  6382	  6421	  6423	  6466	  6509	  6511	  6559	  6603	  6605	  6651	  6688
	  6690	  6729	  6731	  6769	  6771	  6808	  6810	  6850	  6852	  6889	  6891	  6937	  6939	  6984
	  6986	  7032	  7034	  7039	  7085	  7087	  7128	  7130	  7165	  7167
ERR	    34#	   791	   827	   901	   944	   949	   992	   997	  1042	  1047	  1088	  1093	  1137	  1179
	  1223	  1268	  1305	  1341	  1378	  1418	  1459	  1495	  1500	  1542	  1582	  1588	  1631	  1636
	  1682	  1723	  1762	  1802	  1844	  1883	  1924	  1930	  1966	  1971	  2011	  2047	  2052	  2092
	  2131	  2170	  2210	  2254	  2293	  2332	  2368	  2373	  2411	  2416	  2452	  2456	  2492	  2497
	  2536	  2575	  2614	  2654	  2693	  2732	  2772	  2812	  2853	  2895	  2937	  2939	  2979	  2981
	  3021	  3023	  3068	  3070	  3111	  3113	  3154	  3156	  3162	  3164	  3203	  3205	  3211	  3213
	  3254	  3256	  3605	  3607	  3661	  3663	  3705	  3707	  3751	  3753	  3796	  3798	  3838	  3840
	  3874	  3876	  4252	  4254	  4291	  4293	  4334	  4336	  4378	  4380	  4415	  4417	  4450	  4452
	  4817	  4819	  4861	  4863	  4905	  4907	  4949	  4951
ERRHLT	   200#	  7365
ERRI	    36#	  3295	  3330	  3399	  3437	  3472	  3478	  3514	  3520	  3562	  3949	  3983	  4023	  4064
	  4097	  4130	  4526	  4559	  4598	  4638	  4671	  4702	  5063	  5103	  5142	  5183	  5225	  5265
	  5302	  5340	  5380	  5417	  5456	  5493	  5532	  5568	  5607	  5646	  5685	  5724	  5761	  5801
	  5839	  5878	  5918	  5954	  6031	  6070	  6186	  6226	  6266	  6306	  6425	  6513	  6556	  6561
	  6607	  6648	  6653	  6733	  6812	  6893	  6941	  6988	  7036	  7042	  7089	  7169
ERRM	    35#
ERROR	    37#
FATAL	   199#
FRD36	   340#
FRD8	   341#
FREAD	   339#
FSELEC	   338#
GET	   183#
GO	   180#
HALT	    68	    69	    70	    71	    72	   185#	   451
JEN	   187#
JRSTF	   186#
LOOP	   105#	   792	   828	   866	   902	   950	   998	  1048	  1095	  1138	  1180	  1224	  1269	  1306     SEQ 0229
	  1342	  1379	  1419	  1460	  1501	  1543	  1589	  1637	  1683	  1724	  1763	  1803	  1845	  1884
	  1931	  1972	  2012	  2053	  2093	  2132	  2171	  2211	  2255	  2294	  2333	  2374	  2417	  2457
	  2498	  2537	  2576	  2615	  2655	  2694	  2733	  2773	  2813	  2854	  2896	  2940	  2982	  3024
	  3071	  3114	  3165	  3214	  3257	  3296	  3563	  3624	  3708	  3754	  3799	  3913	  4024	  4065
	  4098	  4171	  4255	  4337	  4381	  4489	  4599	  4639	  4741	  4777	  4820	  4864	  4908	  4952
	  4988	  5024	  5064	  5104	  5143	  5418	  5457	  5494	  5533	  5569	  5608	  5647	  5686	  5725
	  5762	  5802	  5840	  5879	  5919	  5955	  5993	  6032	  6071	  6110	  6148	  6187	  6227	  6267
	  6307	  6346	  6385	  6426	  6469	  6514	  6562	  6608	  6655	  6693	  6734	  6774	  6813	  6855
	  6894	  6942	  6989	  7044	  7091	  7133	  7170
MAPADR	   321#
MAPCNK	   322#
MAPMEM	   318#
MAPPNT	   324#
MAPSET	   323#
MEMSEG	   320#
MEMZRO	   319#
MODPCP	   331#
MODPCU	   330#
MTROP	   299#
NAME	     7#	    10
PBELL	   274#	  7369
PCRL	   268#	  7344
PCRL2	   272#
PCRL2F	   273#
PCRLF	   269#
PFORCE	   276#
PGMINT	   193#	   673
PJRST	   184#
PMSG	   278#	  7221	  7225	  7271	  7275	  7287	  7298	  7303	  7315	  7321	  7332
PMSGF	   281#
PNT1	   234#
PNT11	   248#
PNT11F	   249#
PNT1F	   235#
PNT2	   236#	  7274
PNT2F	   237#
PNT3	   238#
PNT3F	   239#
PNT4	   240#
PNT4F	   241#
PNT5	   242#
PNT5F	   243#
PNT6	   244#	  7229	  7326
PNT6F	   245#
PNT7	   246#
PNT7F	   247#
PNTA	   220#	  7339
PNTADF	   251#
PNTADR	   250#
PNTAF	   221#
PNTAL	   222#
PNTALF	   223#
PNTCHF	   233#                                                                                                            SEQ 0230
PNTCHR	   232#
PNTCI	   230#
PNTCIF	   231#
PNTCW	   266#
PNTCWF	   267#
PNTDCF	   259#
PNTDEC	   258#	  7224
PNTDS	   260#
PNTDSF	   261#
PNTHW	   254#	  7280	  7294	  7310	  7318
PNTHWF	   255#
PNTMGN	   345#	  7355
PNTMSF	   227#
PNTMSG	   226#
PNTNM	   262#	  7217
PNTOCF	   257#
PNTOCS	   256#
PNTOCT	   252#
PNTOTF	   253#
PNTSIX	   263#
PNTSXF	   264#
PSIXL	   224#
PSIXLF	   225#
PSIXM	   228#	  7222	  7226	  7272	  7276	  7288	  7299	  7304	  7316	  7322	  7333
PSIXMF	   229#
PSP	   270#
PSPF	   271#
PUT	   182#
RANDOM	    99#	   783	   816	   856	   892	   930	   978	  1026	  1075	  1123	  1165	  1208	  1253	  1295
	  1333	  1368	  1406	  1447	  1486	  1527	  1569	  1616	  1664	  1709	  1750	  1790	  1829	  1871
	  1910	  1957	  1998	  2038	  2079	  2119	  2158	  2198	  2237	  2281	  2320	  2359	  2400	  2443
	  2483	  2524	  2563	  2602	  2642	  2681	  2720	  2759	  2799	  2839	  2880	  2923	  2967	  3011
	  3054	  3098	  3141	  3190	  3241	  3285	  3550	  3591	  3694	  3737	  3781	  3901	  4010	  4050
	  4156	  4241	  4319	  4364	  4477	  4584	  4625	  4728	  4767	  4805	  4846	  4890	  4934	  4978
	  5014	  5050	  5090	  5130	  5253	  5290	  5405	  5444	  5483	  5520	  5559	  5595	  5634	  5673
	  5712	  5751	  5788	  5828	  5866	  5905	  5945	  5981	  6019	  6058	  6097	  6136	  6174	  6213
	  6253	  6293	  6333	  6372	  6411	  6452	  6497	  6542	  6590	  6636	  6681	  6719	  6760	  6800
	  6839	  6881	  6924	  6972	  7017	  7072	  7121	  7157
RTN	   181#	   438
S	   111#	   113	   117	   146	   148	   157	   160	   175	   176	   178	   189	   191	   195	   197
	   202	   206	   348	   353	   359	   386	   388	   406	   408	   426	   428	   457	   459	   477
	   479	   497	   499	   507	   509	   530	   535	   561	   563	   570	   572	   578	   580	   586
	   588	   592	   594	   599	   601	   605	   607	   611	   613	   619	   621	   624	   626	   630
	   632	   636	   638	   642	   644	   648	   650	   655	   660	   664	   666
SETUP	    84#	   769	   802	   842	   878	   915	   963	  1011	  1060	  1108	  1150	  1193	  1238	  1281
	  1319	  1354	  1392	  1433	  1472	  1513	  1555	  1602	  1650	  1695	  1736	  1776	  1815	  1857
	  1896	  1943	  1984	  2024	  2065	  2105	  2144	  2184	  2223	  2267	  2306	  2345	  2386	  2429
	  2469	  2510	  2549	  2588	  2628	  2667	  2706	  2745	  2785	  2825	  2866	  2909	  2952	  2997
	  3039	  3084	  3127	  3176	  3227	  3271	  3308	  3343	  3375	  3413	  3449	  3491	  3536	  3577
	  3637	  3680	  3723	  3767	  3812	  3854	  3887	  3925	  3963	  3996	  4036	  4077	  4110	  4142
	  4184	  4227	  4270	  4305	  4350	  4394	  4429	  4463	  4501	  4539	  4570	  4611	  4651	  4682
	  4714	  4753	  4790	  4832	  4876	  4920	  4964	  5000	  5036	  5076	  5116	  5156	  5198	  5239
	  5276	  5314	  5354	  5391	  5430	  5469	  5506	  5545	  5581	  5620	  5659	  5698	  5737	  5774     SEQ 0231
	  5814	  5852	  5891	  5931	  5967	  6005	  6044	  6083	  6122	  6160	  6199	  6239	  6279	  6319
	  6358	  6397	  6438	  6482	  6527	  6575	  6621	  6667	  6705	  6746	  6786	  6825	  6867	  6909
	  6957	  7002	  7057	  7107	  7143
SIXBTZ	   287#
SWITCH	   293#	   684	  7203	  7356
TTALTM	   215#	  7358
TTICHR	   208#
TTICNV	   213#
TTIDEC	   212#
TTINO	   210#
TTIOCT	   211#
TTIYES	   209#
TTLOOK	   214#
TTSIXB	   216#