Google
 

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





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

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

	PRODUCT NAME:	DECSYSTEM10 PDP-10 KA10 BASIC
			INSTRUCTION DIAGNOSTIC (9)

	FUNCTION:	SHIFT-ROTATE TEST (PART 1)

	VERSION:	0.2

	DATE RELEASED:	JANUARY 1977

	MAINTAINED BY:	DIAGNOSTIC ENGINEERING GROUP

	AUTHOR:		JOHN R. KIRCHOFF

COPYRIGHT(C) 1976,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-DAKAI.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-DAKAI.TXT
							PAGE 3                                                             SEQ 0003

1.0	ABSTRACT

	THIS PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC IS THE
	NINTH IN A SERIES OF PDP-10 KA10 PROCESSOR DIAGNOSTICS.
	THE DIAGNOSTIC TESTS THE SHIFTING AND ROTATING INSTRUCTIONS.

2.0	REQUIREMENTS

2.1	EQUIPMENT

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

	PAPER TAPE READER 
	CONSOLE TELETYPE
	DECTAPE
	LINE PRINTER (OPTIONAL)

2.2	STORAGE

	THE PROGRAM RUNS WITHIN 32K OF MEMORY.

2.3	PRELIMINARY PROGRAMS

	PREVIOUS PROCESSOR DIAGNOSTICS

3.0	PROGRAM PROCEDURES

3.1	LOADING PROCEDURE

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

	PAPER TAPE - HARDWARE READ-IN (READER DEVICE CODE 104)
	DECTAPE - LOAD WITH DIAMON (DECTAPE DEVICE CODE 320)
	TIME SHARING - RUN UNDER DIAMON.
							MAINDEC-10-DAKAI.TXT
							PAGE 4                                                             SEQ 0004

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-DAKAI.TXT
							PAGE 5                                                             SEQ 0005

3.3	OPERATING PROCEDURE

	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-DAKAI.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
				(LOGICAL DEVICE, USER MODE)

	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		NOT USED

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

	11   INHPAG	0	ALLOW PAGING AND TRAP ENABLE
			1	INHIBIT PAGING AND TRAPPING

	12   MODDVC		NOT USED

	13   INHCSH		NOT USED
							MAINDEC-10-DAKAI.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, ERROR
	NUMBER AND THE CONTENTS OF AN APPLICABLE AC.

	THE PC VALUE IS USEFUL IN RELATING THE FAILURE TO THE LISTING.
	THE ERROR NUMBER IS PROVIDED SUCH THAT AN ERROR DICTIONARY MAY
	BE MADE AT SOME FUTURE DATE.

	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.

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

	THE CYCLE TIME OF THE PROGRAM IS IN THE MILLISECOND RANGE AND
	IS THEREFORE SUITABLE FOR TAKING MARGINS, VIBRATION TESTS,
	ETC.
							MAINDEC-10-DAKAI.TXT
							PAGE 8                                                             SEQ 0008

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.

	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 'DAKAI.TMP'

	    EXAMPLE DEVICE ASSIGNMENT:

	    .ASSIGN DSK DEV

	    IN USER MODE THE PROGRAM WILL MAKE 1000(8) PASSES AND THEN
	    RETURN TO DIAMON COMMAND MODE.
							MAINDEC-10-DAKAI.TXT
							PAGE 9                                                             SEQ 0009

8.0	OPERATIONAL VARIATIONS (CON'T)

	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-DAKAI
                                                                                                                           SEQ 0010
************************************************************************

PRODUCT CODE:		MAINDEC-10-DAKAI

PRODUCT NAME:		BASIC INSTRUCTION DIAGNOSTIC #9

DATE RELEASED:		JANUARY 1977

VERSION:		0.2

UPDATE AUTHOR:		JOHN R. KIRCHOFF

CHANGES MADE:

	1. UPGRADE TO ALLOW COMPATABILITY WITH THE SUBROUTINE PACKAGE.

************************************************************************

ORIGINAL VERSION:	0.1

ORIGINAL AUTHOR:	RICHARD MALISKA

ORIGINAL RELEASE:	16-MAR-72

************************************************************************
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 1
DAKAIT	MAC	20-JAN-77 10:35		DIAGNOSTIC PARAMETERS                                                              SEQ 0011

     1					;DAKAI
     2
     3			000000			MCNVER==0
     4			000002			DECVER==2
     5
     6
     7						XLIST
     8						LIST
     9						LALL
    10
    11						NAME	\MCNVER,\DECVER^
    12
    13					TITLE	DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2
    14					^
    15
    16					;(LOGICAL SHIFT, ROTATE, ARITHMETIC SHIFT; SINGLE AND COMBINED)
    17
    18					;COPYRIGHT 1975,1977
    19					;DIGITAL EQUIPMENT CORPORATION
    20					;MARLBORO, MASS. 01752
    21
    22					;JOHN R. KIRCHOFF
    23
    24	000137					LOC	137
    25	000137	000000	000002			MCNVER,,DECVER
    26
    27						NOSYM
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 2
DAKAIT	MAC	20-JAN-77 10:35		DIAGNOSTIC PARAMETERS                                                              SEQ 0012

    28					SUBTTL	DIAGNOSTIC PARAMETERS
    29
    30					;OPERATOR DEFINITIONS
    31
    32		001000	000000		OPDEF	ER1	[1B8]
    33		002000	000000		OPDEF	ER2	[2B8]
    34		003000	000000		OPDEF	ER3	[3B8]
    35		004000	000000		OPDEF	ER4	[4B8]
    36		005000	000000		OPDEF	ER5	[5B8]
    37		006000	000000		OPDEF	ER6	[6B8]
    38		007000	000000		OPDEF	ER7	[7B8]
    39		010000	000000		OPDEF	ER10	[10B8]
    40		011000	000000		OPDEF	ER11	[11B8]
    41		012000	000000		OPDEF	ER12	[12B8]
    42		013000	000000		OPDEF	ER13	[13B8]
    43
    44			041423		LUUO1=ERRMES
    45			041423		LUUO2=ERRMES
    46			041423		LUUO3=ERRMES
    47			041423		LUUO4=ERRMES
    48			041423		LUUO5=ERRMES
    49			041423		LUUO6=ERRMES
    50			041423		LUUO7=ERRMES
    51			041423		LUUO10=ERRMES
    52			041423		LUUO11=ERRMES
    53			041423		LUUO12=ERRMES
    54			041423		LUUO13=ERRMES
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 3
DAKAIT	MAC	20-JAN-77 10:35		DIAGNOSTIC PARAMETERS                                                              SEQ 0013

    55					;SUBROUTINE ASSEMBLY DEFINITIONS
    56
    57			000001		KLOLD==1
    58			000040		DEBUG=40
    59			000001		EXCASB=1
    60			000001		USRASB=1
    61			000001		KA10=1
    62			000001		PGMEND=1
    63			000001		ERDIAG=1
    64
    65					;SPECIAL FEATURE DEFINITIONS
    66
    67			030000		SADR1=BEGIN
    68			030000		SADR2=BEGIN
    69			030000		SADR3=BEGIN
    70			030000		SADR4=BEGIN
    71		254000	030000		SADR5=JRST BEGIN
    72		254000	030000		SADR6=JRST BEGIN
    73		254000	030000		SADR7=JRST BEGIN
    74		254000	030000		SADR8=JRST BEGIN
    75		254000	030000		SADR9=JRST BEGIN
    76		254000	030000		SADR10=JRST BEGIN
    77		254000	030000		SADR11=JRST BEGIN
    78
    79					;SPECIAL FEATURE PARAMETERS
    80
    81			000000		PAREA0=0
    82			000000		PAREA1=0
    83			000000		PAREA2=0
    84		444153	415100		PAREA3=SIXBIT/DAKAI/
    85		645560	000000		PAREA4=SIXBIT/TMP/
    86			000000		PAREA5=0
    87			000000		PAREA6=0
    88			001000		ITERAT==1000
    89
    90					;MACROS
    91
    92					DEFINE	SAVEAC	(A,B)<
    93						MOVEI	AC+2,.		;SAVE TEST PC
    94						MOVEM	AC+2,TESTPC
    95						MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
    96						MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION>
    97
    98					DEFINE	SETACS	(WW,XX)<
    99						MOVEI	AC-1,WW		;SETUP AC-1
   100						HRLI	AC-1,WW		;FOR COMPARISION
   101						MOVE	AC-2,<AC-1>&17	;SETUP AC-2 FOR COMPARISON
   102						MOVEI	AC,XX		;SETUP AC RIGHT
   103						HRLI	AC,XX		;SETUP AC LEFT
   104						MOVEM	AC,<AC+1>&17	;SETUP AC2>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 4
DAKAIT	MAC	20-JAN-77 10:35		DIAGNOSTIC PARAMETERS                                                              SEQ 0014

   105					;USER DEFINED MACROS
   106
   107					DEFINE	SR1	(T,D1A,D1B,R1A,R1B,OP,S)<
   108					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD D1A,D1B] S BIT
   109					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD R1A,R1B]
   110					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
   111					
   112					E'T'00:	MOVE	AC,[XWD D1A,D1B]	;INITIALIZE AC
   113						MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
   114						OP	AC,S			;*SHIFT/ROTATE S BIT POSITIONS
   115						CAME	AC,[XWD R1A,R1B]	;IS RESULT IN AC CORRECT?
   116						ER3	AC,T'01			;RESULT IN AC IS INCORRECT
   117						CAME	AC+1,[XWD 741703,607417]
   118						ER4	AC+1,T'01		;C(AC+1) WAS MODIFIED INCORRECTLY
   119						JUMPL	AC+2,E'T'00		;LOOP ON ERROR SWITCH>
   120
   121
   122					DEFINE	SR2	(T,D1A,D1B,D2A,D2B,R1A,R1B,R2A,R2B,OP,S)<
   123					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
   124					;DATA SPECIFIED IN [XWD D1A,D1B] AND [XWD D2A,D2B] S BIT POSITIONS AND
   125					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD R1A,R1B] AND
   126					;[XWD R2A,R2B]
   127					
   128					E'T'00:	MOVE	AC,[XWD D1A,D1B]	;INITIALIZE AC
   129						MOVE	AC+1,[XWD D2A,D2B]	;INITIALIZE AC+1
   130						OP	AC,S			;*SHIFT/ROTATE COMBINED S PLACES
   131						CAME	AC,[XWD R1A,R1B]	;IS RESULT IN AC CORRECT?
   132						ER3	AC,T'01			;RESULT IN AC IS INCORRECT
   133						CAME	AC+1,[XWD R2A,R2B]	;IS RESULT IN AC+1 CORRECT?
   134						ER4	AC+1,T'01		;RESULT IN AC+1 IS INCORRECT
   135						JUMPL	AC+2,E'T'00		;LOOP ON ERROR SWITCH>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 1
PARAM	KLM	18-JAN-77 11:38		*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977                               SEQ 0015

   136					SUBTTL	*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977
   137
   138					DEFINE	S,<;*********************************************************************>
   139
   140					S^;*********************************************************************^
   141					;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
   142					;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
   143					;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
   144					S^;*********************************************************************^
   145
   146			400000		ABORT==	400000			;ABORT PROGRAM ON PASS COMPLETION
   147			200000		RSTART==200000			;RESTART TEST, PRINT TOTALS
   148			100000		TOTALS==100000			;PRINT TOTALS, CONTINUE
   149
   150			040000		NOPNT==	040000			;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
   151			020000		PNTLPT==020000			;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
   152			010000		DING==	010000			;RING BELL ON ERROR
   153
   154			004000		LOOPER==004000			;ENTER EXERCISE/CHECK LOOP ON ERROR
   155			002000		ERSTOP==002000			;HALT ON TEST ERROR
   156			001000		PALERS==001000			;PRINT ALL ERRORS
   157
   158			000400		RELIAB==000400			;RELIABILITY MODE
   159			000200		TXTINH==000200			;INHIBIT ERROR TEXT
   160			000100		INHPAG==000100			;INHIBIT PAGING
   161
   162			000040		MODDVC==000040			;MODIFY DEVICE CODE
   163			000020		INHCSH==000020			;INHIBIT CACHE
   164			000010		OPRSEL==000010			;OPERATOR SELECTION
   165
   166			000004		CHAIN==	000004			;CHAIN CONTROL SWITCH
   167
   168			000002		KAHZ50==000002			;KA10 50 HERTZ POWER
   169
   170									;SWITCH 17 RESERVED !!!
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 2
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0016

   171					SUBTTL	*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977
   172
   173					S^;*********************************************************************^
   174					;*SPECIAL SUBPROGRAM LINKAGES
   175					S^;*********************************************************************^
   176
   177			027772		FSELNK=	27772	;FILE SELECT LINK
   178			027773		FRDLNK=	27773	;FILE READ LINK
   179			027774		LDLNK=	27774	;LOAD LINKAGE ADDRESS
   180			027775		DDTLNK=	27775	;DDT LINKAGE ADDRESS
   181			027776		MODLNK=	27776	;OPERATIONAL MODE CHECK LINKAGE ADDRESS
   182			027777		SUBLNK=	27777	;SUBROUTINE LINKAGE ADDRESS
   183
   184					S^;*********************************************************************^
   185					;*SPECIAL SUBROUTINE FATAL HALTS
   186					;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
   187					S^;*********************************************************************^
   188
   189					;ADDRESS   TAG	REASON
   190					;---------------------
   191
   192					; 1010 	NOEXEC	;PROGRAM NOT CODED FOR EXEC MODE OPERATION
   193					; 1011  PLERR	;FATAL PUSH LIST POINTER ERROR
   194					; 1012  PLERR1	;INITIAL PUSH LIST POINTER ERROR
   195					; 1013  MUOERR	;MUUO WITH LUUO HANDLER WIPED OUT
   196					; 1014  DTEBER	;DTE20 INTERRUPT WITHOUT DOORBELL
   197					; 1015  DTECER	;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
   198					; 1016  CPIERR	;CPU INITIALIZATION ERROR
   199					; 1017  EOPERR	;END OF PROGRAM ERROR
   200					; 1020  LUOERR	;INTERRUPT WITH LUUO HANDLER WIPED OUT
   201
   202					S^;*********************************************************************^
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 3
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0017

   203					S^;*********************************************************************^
   204					;OPERATOR DEFINITIONS (NON-UUO'S)
   205					S^;*********************************************************************^
   206
   207		260740	000000		OPDEF	GO	[PUSHJ	P,]	;SUBROUTINE CALL
   208		263740	000000		OPDEF	RTN	[POPJ	P,]	;SUBROUTINE RETURN 
   209		261740	000000		OPDEF	PUT	[PUSH	P,]	;PUT DATA ON PUSH LIST
   210		262740	000000		OPDEF	GET	[POP	P,]	;GET DATA FROM PUSH LIST 
   211		254000	000000		OPDEF	PJRST	[JRST	]	;JRST TO ROUTINE THAT RTN'S
   212		254200	000000		OPDEF	HALT	[JRST	4,]	;DEFINITION FOR DDT
   213		254100	000000		OPDEF	JRSTF	[JRST	2,]	;DEFINITION FOR DDT
   214		254500	000000		OPDEF	JEN	[JRST	12,]	;DEFINITION FOR DDT
   215
   216					S^;*********************************************************************^
   217					;*SUBROUTINE INITIALIZATION CALL
   218					S^;*********************************************************************^
   219
   220		265000	030011		OPDEF	PGMINT	[JSP	0,SBINIT]	;SUBROUTINE INITIALIZATION
   221
   222					S^;*********************************************************************^
   223					;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
   224					S^;*********************************************************************^
   225
   226		037640	000004		OPDEF	FATAL	[37B8!15B12!4]	;FATAL PROGRAMMING HALT
   227		037600	000004		OPDEF	ERRHLT	[37B8!14B12!4]	;PROGRAM ERROR HALT
   228
   229					S^;*********************************************************************^
   230					;*TERMINAL INPUT UUO'S
   231					;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
   232					;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
   233					S^;*********************************************************************^
   234
   235		037000	000003		OPDEF	TTICHR 	[37B8!0B12!3]	;TTY, INPUT ANY CHARACTER
   236		037040	000003		OPDEF	TTIYES	[37B8!1B12!3]	;TTY, NORMAL RETURN Y
   237		037100	000003		OPDEF	TTINO	[37B8!2B12!3]	;TTY, NORMAL RETURN N
   238		037140	000003		OPDEF	TTIOCT	[37B8!3B12!3]	;TTY, INPUT OCTAL WORD
   239		037200	000003		OPDEF	TTIDEC	[37B8!4B12!3]	;TTY, INPUT DECIMAL WORD
   240		037240	000003		OPDEF	TTICNV	[37B8!5B12!3]	;TTY, INPUT CONVERTABLE WORD
   241		037300	000003		OPDEF	TTLOOK	[37B8!6B12!3]	;TTY, KEYBOARD CHECK
   242		037340	000003		OPDEF	TTALTM	[37B8!7B12!3]	;TTY, ALT-MODE CHECK
   243		037400	000003		OPDEF	TTSIXB	[37B8!10B12!3]	;TTY, INPUT SIXBIT WORD
   244		037440	000003		OPDEF	TTYINP	[37B8!11B12!3]	;TTY, IMAGE MODE INPUT
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 4
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0018

   245					;*TERMINAL OUTPUT UUO'S.
   246
   247		037000	000000		OPDEF	PNTA	[37B8!0B12!0]	;PRINT ASCII WORD
   248		037000	000001		OPDEF	PNTAF	[37B8!0B12!1]	;PRINT ASCII WORD FORCED
   249		037740	000000		OPDEF	PNTAL	[37B8!17B12!0]	;PRINT ASCIZ LINE
   250		037740	000001		OPDEF	PNTALF	[37B8!17B12!1]	;PRINT ASCIZ LINE FORCED
   251		037600	000003		OPDEF	PSIXL	[37B8!14B12!3]	;PRINT SIXBIT'Z LINE
   252		037640	000003		OPDEF	PSIXLF	[37B8!15B12!3]	;PRINT SIXBIT'Z LINE FORCED
   253		037000	000000		OPDEF	PNTMSG	[37B8!0B12!0]	;PRINT MESSAGE IMMEDIATE
   254		037040	000000		OPDEF	PNTMSF	[37B8!1B12!0]	;PRINT MESSAGE IMMEDIATE FORCED
   255		037100	000000		OPDEF	PSIXM	[37B8!2B12!0]	;PRINT SIXBIT'Z MSG IMMEDIATE
   256		037200	000000		OPDEF	PSIXMF	[37B8!4B12!0]	;PRINT SIXBIT'Z MSG IMM FORCED
   257		037000	000000		OPDEF	PNTCI	[37B8!0B12!0]	;PRINT CHARACTER IMMEDIATE
   258		037040	000000		OPDEF	PNTCIF	[37B8!1B12!0]	;PRINT CHARACTER IMMEDIATE FORCED
   259		037500	000000		OPDEF	PNTCHR	[37B8!12B12!0]	;PRINT CHARACTER
   260		037500	000001		OPDEF	PNTCHF	[37B8!12B12!1]	;PRINT CHARACTER FORCED
   261		037040	000000		OPDEF	PNT1	[37B8!1B12!0]	;PRINT ONE OCTAL DIGIT
   262		037040	000001		OPDEF	PNT1F	[37B8!1B12!1]	;PRINT 1 OCTAL DIGIT FORCED	
   263		037100	000000		OPDEF	PNT2	[37B8!2B12!0]	;PRINT TWO OCTAL DIGITS
   264		037100	000001		OPDEF	PNT2F	[37B8!2B12!1]	;PRINT 2 OCTAL DIGITS FORCED	
   265		037140	000000		OPDEF	PNT3	[37B8!3B12!0]	;PRINT THREE OCTAL DIGITS
   266		037140	000001		OPDEF	PNT3F	[37B8!3B12!1]	;PRINT THREE OCTAL DIGITS FORCED	
   267		037200	000000		OPDEF	PNT4	[37B8!4B12!0]	;PRINT FOUR OCTAL DIGITS
   268		037200	000001		OPDEF	PNT4F	[37B8!4B12!1]	;PRINT FOUR OCTAL DIGITS FORCED
   269		037240	000000		OPDEF	PNT5	[37B8!5B12!0]	;PRINT FIVE OCTAL DIGITS
   270		037240	000001		OPDEF	PNT5F	[37B8!5B12!1]	;PRINT FIVE OCTAL DIGITS FORCED
   271		037300	000000		OPDEF	PNT6	[37B8!6B12!0]	;PRINT SIX OCTAL DIGITS
   272		037300	000001		OPDEF	PNT6F	[37B8!6B12!1]	;PRINT SIX OCTAL DIGITS FORCED
   273		037340	000000		OPDEF	PNT7	[37B8!7B12!0]	;PRINT 7 OCTAL DIGITS
   274		037340	000001		OPDEF	PNT7F	[37B8!7B12!1]	;PRINT 7 OCTAL DIGITS FORCED
   275		037440	000000		OPDEF	PNT11	[37B8!11B12!0]	;PRINT 11 OCTAL DIGITS
   276		037440	000001		OPDEF	PNT11F	[37B8!11B12!1]	;PRINT 11 OCTAL DIGITS FORCED.
   277		037400	000000		OPDEF	PNTADR	[37B8!10B12!0]	;PRINT PHYSICAL ADDRESS
   278		037400	000001		OPDEF	PNTADF	[37B8!10B12!1]	;PRINT PHYSICAL ADDRESS FORCED
   279		037600	000000		OPDEF	PNTOCT  [37B8!14B12!0]	;PRINT FULL WORD OCTAL
   280		037600	000001		OPDEF	PNTOTF	[37B8!14B12!1]	;PRINT FULL WORD OCTAL FORCED
   281		037540	000000		OPDEF	PNTHW	[37B8!13B12!0]	;PRINT OCTAL HALF WORDS, 6 SP 6
   282		037540	000001		OPDEF	PNTHWF	[37B8!13B12!1]	;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
   283		037700	000003		OPDEF	PNTOCS	[37B8!16B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S
   284		037740	000003		OPDEF	PNTOCF	[37B8!17B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
   285		037640	000000		OPDEF	PNTDEC	[37B8!15B12!0]	;PRINT DECIMAL, SUPRESS LEADING 0'S
   286		037640	000001		OPDEF	PNTDCF	[37B8!15B12!1]	;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
   287		037700	000000		OPDEF	PNTDS	[37B8!16B12!0]	;PRINT DECIMAL, SPACES FOR LD 0'S
   288		037700	000001		OPDEF	PNTDSF	[37B8!16B12!1]	;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
   289		037200	000002		OPDEF	PNTNM	[37B8!4B12!2]	;PRINT PROGRAM NAME
   290		037000	000002		OPDEF	PNTSIX	[37B8!0B12!2]	;PRINT SIXBIT WORD
   291		037040	000002		OPDEF	PNTSXF	[37B8!1B12!2]	;PRINT SIXBIT WORD FORCED
   292		037240	000002		OPDEF	DROPDV	[37B8!5B12!2]	;CLOSE LOGICAL FILE, USER MODE
   293		037100	000002		OPDEF	PNTCW	[37B8!2B12!2]	;PRINT DF10 CONTROL WORD
   294		037140	000002		OPDEF	PNTCWF	[37B8!3B12!2]	;PRINT DF10 CONTROL WORD FORCED
   295		037000	030242		OPDEF	PCRL	[37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
   296		037040	030242		OPDEF	PCRLF	[37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
   297		037000	000040		OPDEF	PSP	[37B8!0B12!40]	;PRINT SPACE
   298		037040	000040		OPDEF	PSPF	[37B8!1B12!40]	;PRINT SPACE FORCED
   299		037000	030243		OPDEF	PCRL2	[37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 4-1
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0019

   300		037040	030243		OPDEF	PCRL2F	[37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
   301		037040	000007		OPDEF	PBELL	[37B8!1B12!7]	;PRINT TTY BELL
   302
   303		037040	000026		OPDEF	PFORCE	[37B8!1B12!26]	;PRINT FORCE, CONTROL O OVERRIDE
   304
   305					DEFINE	PMSG	(ARG),<
   306						PSIXM	[SIXBIT\ARG'_\]>
   307
   308					DEFINE	PMSGF	(ARG),<
   309						PSIXMF	[SIXBIT\ARG'_\]>
   310
   311					;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
   312					;*	CONSERVES CORE OVER ASCIZ
   313
   314					DEFINE	SIXBTZ	(ARG),<	[SIXBIT\ARG'_\]>
   315
   316					;*CONSOLE SWITCH INPUT UUO.
   317					;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
   318					;* USER MODE.
   319
   320		037400	000002		OPDEF	SWITCH	[37B8!10B12!2]	;INPUT CONSOLE SWITCHES
   321
   322					;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
   323					;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
   324
   325		037540	000004		OPDEF	CLOKOP	[37B8!13B12!4]	;CLOCK OPERATION UUO - PDP-11 CLOCK
   326		037200	000004		OPDEF	MTROP	[37B8!4B12!4]	;CLOCK OPERATION UUO - DK20 METER
   327
   328					;*KL10 ONLY CACHE OPERATION UUO'S
   329
   330		037040	000004		OPDEF	CINVAL	[37B8!1B12!4]	;CACHE INVALIDATE
   331		037100	000004		OPDEF	CFLUSH	[37B8!2B12!4]	;CACHE FLUSH
   332		037140	000004		OPDEF	CWRTBI	[37B8!3B12!4]	;CACHE WRITE-BACK & INVALIDATE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 5
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0020

   333					;*END OF PASS/PROGRAM UUOS
   334
   335					;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
   336					;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
   337
   338		037500	000004		OPDEF	ENDUUO	[37B8!12B12!4]	;UUO TO DISPLAY LIGHTS
   339		037700	000004		OPDEF	EOPUUO	[37B8!16B12!4]	;END OF PROGRAM UUO
   340
   341					;*MEMORY MANAGEMENT UUO'S
   342					;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
   343					;*ADDRESS CONVERSION, ETC...
   344
   345		037000	000004		OPDEF	MAPMEM	[37B8!0B12!4]	;MAP MEMORY
   346		037500	000002		OPDEF	MEMZRO	[37B8!12B12!2]	;ZERO MEMORY
   347		037440	000002		OPDEF	MEMSEG	[37B8!11B12!2]	;SETUP MEMORY SEGMENT
   348		037540	000002		OPDEF	MAPADR	[37B8!13B12!2]	;VIRTUAL TO PHYSICAL ADR CONVERT
   349		037640	000002		OPDEF	MAPCNK	[37B8!15B12!2]	;MAP MEMORY CHUNK
   350		037600	000002		OPDEF	MAPSET	[37B8!14B12!2]	;SET KI10 EXEC PAGE MAP
   351		037740	000002		OPDEF	MAPPNT	[37B8!17B12!2]	;PRINT MEMORY MAP
   352
   353					;*DEVICE CODE MODIFICATION UUO
   354					;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
   355					;*IOT'S TO A DIFFERENT DEVICE CODE.
   356
   357		037340	000002		OPDEF	MODPCU	[37B8!7B12!2]	;MODIFY PERHIPERAL CODE, USER
   358		037300	000002		OPDEF	MODPCP	[37B8!6B12!2]	;MODIFY PERHIPERAL CODE, PROGRAM
   359
   360			030000			IFNDEF	MODDVL,<MODDVL==BEGIN>
   361			030000			IFNDEF	MODDVU,<MODDVU==BEGIN>
   362
   363					;*"DIAMON" FILE SELECTION AND READ UUOS
   364
   365		037240	000004		OPDEF	FSELECT	[37B8!5B12!4]	;FILE SELECTION
   366		037300	000004		OPDEF	FREAD	[37B8!6B12!4]	;FILE READ - ASCII DATA
   367		037340	000004		OPDEF	FRD36	[37B8!7B12!4]	;FILE READ - 36 BIT DATA
   368		037400	000004		OPDEF	FRD8	[37B8!10B12!4]	;FILE READ - 8 BIT DATA
   369
   370					;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES
   371
   372		037700	000002		OPDEF	PNTMGN	[37B8!16B12!2]	;PRINT MARGIN VALUE
   373
   374						XLIST
   375						LIST
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 1
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0021

   376					SUBTTL	*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977
   377
   378	030000					LOC	30000
   379
   380					S^;*********************************************************************^
   381					;*PROGRAM STARTING ADDRESSES
   382					;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
   383					;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
   384					;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
   385					;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
   386					S^;*********************************************************************^
   387
   388	030000	254 00 1 00 027776 	BEGIN:	JRST	@MODLNK		;STAND-ALONE START
   389	030001	254 00 0 00 030620 	$START:	JRST	START		;MODE CHECK STARTING ADDRESS
   390
   391	030002	254 00 1 00 027774 	DIAGMN:	JRST	@LDLNK		;DIAGNOSTIC MONITOR START
   392
   393	030003	254 00 1 00 027774 	SYSEXR:	JRST	@LDLNK		;SYSTEM EXERCISER START
   394
   395	030004	254 00 0 00 030000 	SFSTRT:	JRST	SADR1		;SPECIAL FEATURE START
   396
   397	030005	254 00 0 00 030000 	PFSTRT:	JRST	SADR2		;POWER FAIL RESTART
   398
   399	030006	254 00 0 00 030000 	REENTR:	JRST	SADR3		;REENTER START(USUALLY USER MODE ONLY)
   400
   401	030007				SRTDDT:				;COMMONLY MISTAKEN NAME FOR "DDTSRT"
   402	030007	254 00 1 00 027775 	DDTSRT:	JRST	@DDTLNK		;DDT START
   403
   404	030010	254 00 0 00 030623 	BEGIN1:	JRST	STARTA		;LOOP START(END OF PASS COMES HERE)
   405	030011	254 00 1 00 027777 	SBINIT:	JRST	@SUBLNK		;PMGINT LINKAGE
   406	030012	000000	000000		RETURN:	0			;RETURN ADDRESS STORAGE
   407
   408	030013	254000	030000		START1:	SADR7			;OPTIONAL STARTING ADR/INSTRUCTIONS
   409	030014	254000	030000		START2:	SADR8			; "
   410	030015	254000	030000		START3:	SADR9			; "
   411	030016	254000	030000		START4:	SADR10			; "
   412	030017	254000	030000		START5:	SADR11			; "
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 2
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0022

   413					S^;*********************************************************************^
   414					;*PROGRAM FIXED PARAMETER AREA
   415					S^;*********************************************************************^
   416
   417	030020	444153	415100		PNTNAM:	PAREA3		;SIXBIT PROGRAM NAME
   418	030021	645560	000000		PNTEXT:	PAREA4		;SIXBIT PROGRAM EXTENSION
   419	030022	000000	000000		RANDBS:	PAREA1		;RANDOM BASE NUMBER
   420	030023	000000	000000		SWTEXR:	PAREA2		;SYSTEM EXERCISER SWITCHES
   421	030024	000000	001000		ITRCNT:	ITERAT		;PROGRAM ITERATIONS
   422	030025	000000	030602		$PNAME:	PGMNAM		;POINTER TO PROGRAMS NAME
   423	030026	000000	000002		$PVER:	MCNVER,,DECVER	;MCN & DEC VERSION LEVEL
   424	030027	000000	030000		$MODVL:	MODDVL		;DEVICE CODE CHANGE LOWER LIMIT
   425	030030	000000	030000		$MODVU:	MODDVU		;DEVICE CODE CHANGE UPPER LIMIT
   426	030031	777777	777777		$EMODE:	IFNDEF EXCASB,<0> IFDEF EXCASB,<-1>	;EXEC ALLOWED
   427	030032	777777	777777		$UMODE:	IFNDEF USRASB,<0> IFDEF USRASB,<-1>	;USER ALLOWED
   428	030033	000000	000000		$DSKUP:	IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1>	;DISK UPDATE MODE
   429	030034	000000	000000		$MMAP:	IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1>	;ALLOW MEMORY RTNS
   430	030035	000000	000000		PAREA7:	PAREA5		;OPTIONAL PARAMETER
   431	030036	000000	000000		PAREA8:	PAREA6		;OPTIONAL PARAMETER
   432
   433					S^;*********************************************************************^
   434					;*PROGRAM VARIABLE PARAMETER AREA
   435					S^;*********************************************************************^
   436
   437	030037	000000	000000		USER:	0		; 0 = EXEC, -1 = USER MODE FLAG
   438	030040	000000	000000		KAIFLG:	0		;PROCESSOR TYPE, 0 = KA10, -1 = KI10
   439	030041	000000	000000		KLFLG:	0		;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
   440	030042	777777	777777		MONFLG:	-1		;DIAG MONITOR SPECIAL USER FLAG
   441	030043	000000	000000		MONCTL:	0		;DIAG MON/SYS EXR FLAG
   442	030044	000000	000000		MONTEN:	0		;-1= LOADED BY 10
   443	030045	000000	000000		CLOCKF:	0		;CLOCK TICKED FLAG
   444	030046	000000	000000		CONSW:	0		;CONSOLE SWITCH SETTINGS
   445	030047	000000	000000		PASCNT:	0		;PROGRAM PASS COUNT
   446	030050	000000	000000		RUNFLG:	0		;PROGRAM RUN FLAG
   447	030051	000000	000000		TESTPC:	0		;SUBTEST PC
   448	030052	000000	000000		ERRPC:	0		;ERROR PC
   449	030053	000000	000000		ERRTLS:	0		;ERROR TOTALS
   450	030054	000000	000000		TICKS:	0		;PROGRAM RUNNING TIME
   451	030055	000000	000000		MARGIN:	0		;KI10 MARGIN WORD VALUE
   452	030056	000000	000000		$ONETM:	0		;SUBROUTINE INITIALIZATION FLAG
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 3
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0023

   453					S^;*********************************************************************^
   454					;*SPECIAL PROGRAM DISPATCH ADDRESSES
   455					S^;*********************************************************************^
   456
   457	030057	037 12 0 00 000004 	BEGEND:	ENDUUO		;END OF PASS
   458	030060	254 00 0 00 030010 	$BEND1:	JRST	BEGIN1	;KEEP RUNNING PROGRAM
   459	030061	037 16 0 00 000004 	$BEND2:	EOPUUO		;END OF PROGRAM - NO RETURN
   460	030062	254000	030000		CNTLC:	SADR5		;CONTROL C XFER ADDRESS
   461	030063	254000	030000		ALTMGO:	SADR6		;ALTMODE XFER ADDRESS
   462	030064				CPOPJ1:			;SKIP RETURN
   463	030064	350 00 0 17 000000 	UUOSKP:	AOS	(P)	;SKIP RETURN FROM UUO
   464	030065				CPOPJ:			;NON-SKIP REGULAR RETURN
   465	030065	263 17 0 00 000000 	UUOEXT:	RTN		;UUO RETURN
   466	030066	255 00 0 00 000000 	UUORTN:	JFCL		;ADDITIONAL USERS UUO ROUTINE
   467	030067	255 00 0 00 000000 	$UORTX:	JFCL		;ADDITIONAL UUO LINKAGE
   468	030070	255 00 0 00 000000 	$UUOER:	JFCL		;INITED AS (JRST $UOERX)
   469	030071	255 00 0 00 000000 	$ITRHL:	JFCL		;ADDITIONAL INTERRUPT LINKAGE
   470	030072	255 00 0 00 000000 	$ITRX1:	JFCL		; "
   471	030073	255 00 0 00 000000 	$USRHL:	JFCL		; "
   472	030074	255 00 0 00 000000 	$RSRTX:	JFCL		;ADDITIONAL POWER FAIL LINKAGE
   473	030075	255 00 0 00 000000 	$RSRTY:	JFCL		; "
   474	030076	255 00 0 00 000000 	RESRT1:	JFCL		; INITED AS (JRST RESRTX)
   475	030077	255 00 0 00 000000 	RESRT2:	JFCL		; "
   476	030100	255 00 0 00 000000 	$PARER:	JFCL		;ADDITIONAL PARITY ERROR LINKAGE
   477	030101	255 00 0 00 000000 	ERMORE:	JFCL		;ADDITIONAL ERROR HANDLER LINKAGE
   478	030102	254 04 0 00 030102 		HALT	.	;IMPROPER TRANSFER HALT
   479
   480	030103	000000	000000		$PSHER:	0		;INITED AS (JRST PSHERR)
   481	030104	000000	000000		ITRCH1:	0		;PC & FLAGS OF CURRENT INTERRUPT
   482	030105	000000	000000			0		;INITED AS (JRST $ITRC1)
   483
   484					S^;*********************************************************************^
   485					;*PROCESSOR CONTROL STORAGE
   486					S^;*********************************************************************^
   487
   488	030106	000000	000000		$ACC0:	0		;INTERRUPT SAVED AC0
   489	030107	000000	000000		$SVPI:	0		;INTERRUPT SAVED PI
   490	030110	000000	000000		$SVAPR:	0		;INTERRUPT SAVED APR
   491	030111	000000	000000		$SVPAG:	0		;INTERRUPT SAVED PAG (DATAI)
   492	030112	000000	000000		$SPAG1:	0		;INTERRUPT SAVED PAG (CONI)
   493
   494	030113	000000	000000		$SVUUO:	0		;CURRENT USERS UUO
   495	030114	000000	000000		$SVUPC:	0		;PC OF CURRENT USERS UUO
   496
   497	030115	000000	000000		REPTU:	0		;REPEAT UUO ITERATIONS
   498	030116	000000	000000		SCOPE:	0		;ERROR HANDLER SCOPE LOOP FLAG
   499	030117	000000	000000		%CORFLG:0		; " CORRECT FLAG
   500	030120	000000	000000		%COREC:	0		; " CORRECT DATA
   501	030121	000000	000000		%ACTFL:	0		; " ACTUAL FLAG
   502	030122	000000	000000		%ACTUL:	0		; " ACTUAL DATA
   503	030123	000000	000000		%DISCR:	0		; " DISCREPENCY DATA
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 4
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0024

   504					S^;*********************************************************************^
   505					;*UUO DISPATCH TABLE
   506					S^;*********************************************************************^
   507						XLIST
   508						LIST
   509	030124	041423	030070		UUODIS:	LUUO1,,$UUOER
   510	030125	041423	041423			LUUO3,,LUUO2
   511	030126	041423	041423			LUUO5,,LUUO4
   512	030127	041423	041423			LUUO7,,LUUO6
   513	030130	041423	041423			LUUO11,,LUUO10
   514	030131	041423	041423			LUUO13,,LUUO12
   515	030132	030070	030070			LUUO15,,LUUO14
   516	030133	030070	030070			LUUO17,,LUUO16
   517	030134	030070	030070			LUUO21,,LUUO20
   518	030135	030070	030070			LUUO23,,LUUO22
   519	030136	030070	030070			LUUO25,,LUUO24
   520	030137	030070	030070			LUUO27,,LUUO26
   521	030140	030070	030070			LUUO31,,LUUO30
   522	030141	030070	030070			LUUO33,,LUUO32
   523
   524					S^;*********************************************************************^
   525					;*MEMORY MANAGMENT STORAGE
   526					S^;*********************************************************************^
   527
   528	030142	000000	000000		DF22F:	0		;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
   529	030143	000000	000000		MAPNEW:	0		;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
   530	030144	000000	000000		MEMTOT:	0		;TOTAL MEMORY SIZE IN K (1024.)
   531	030145	000000	000000		MEMLOW:	0		;LOWEST USABLE MEMORY
   532	030146				MEMSIZ:	BLOCK ^D41	;MEMORY SEGMENT POINTER TABLE
   533
   534					S^;*********************************************************************^
   535					;*PRINT CONTROL STORAGE
   536					S^;*********************************************************************^
   537
   538	030217	000000	000000		PNTFLG:	0		;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
   539	030220	000000	000000		PNTENB:	0		;PRINT ENABLE
   540	030221	000000	000000		PDISF:	0		;PRINT DISABLED FLAG
   541	030222	000000	000000		PNTINH:	0		;INHIBIT PRINT INPUT CHECKS
   542	030223	000000	000000		PNTSPC:	0		;PRINT SPACE CONTROL
   543	030224	000000	000000		OPTIME:	0		;TYPE-IN WAIT TIME
   544	030225	000000	000000		$TWCNT:	0		;TIME WAITED
   545	030226	000000	000000		$DVOFF:	0		;LOGICAL DEVICE INITED FLAG
   546	030227	000000	000000		TTYFIL:	0		;TTY EXEC FILLERS FLAG
   547	030230	000000	000000		TTYSPD:	0		;TTY EXEC BAUD RATE
   548	030231	000000	000000		$TTCHR:	0		;ACTUAL TYPED IN CHAR
   549	030232	000000	000000		$CHRIN:	0		;UPPER CASED & PARITY STRIPPED CHAR
   550	030233	000000	000000		$TYPNB:	0		;TYPED IN NUMBER
   551	030234	000000	000000		$CRLF:	0		;FREE CR/LF FLAG
   552	030235	000000	000000		$TABF:	0		;TAB CONVERSION FLAG
   553	030236	000000	000000		$FFF:	0		;FORM FEED CONVERSION FLAG
   554	030237	000000	000000		$VTF:	0		;VERTICAL TAB CONVERSION FLAG
   555	030240	000000	000000		USRLFF:	0		;USER LF FILLERS
   556	030241	000000	000000		USRCRF:	0		;USER CR FILLERS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 5
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0025

   557					S^;*********************************************************************^
   558					;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
   559					;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
   560					;*	MOVEI	NAME
   561					;*	PNTA		;OR PNTAF
   562					S^;*********************************************************************^
   563
   564	030242				CRLF:	ASCII/
   565	030242	015 012 000 000 000 	/
   566	030243				CRLF2:	ASCII/
   567
   568	030243	015 012 015 012 000 	/
   569	030244	054 000 000 000 000 	COMMA:	ASCII/,/
   570	030245	056 000 000 000 000 	PERIOD:	ASCII/./
   571	030246	040 000 000 000 000 	SPACE:	ASCII/ /
   572	030247	011 000 000 000 000 	TAB:	ASCII/	/
   573	030250				MINUS:
   574	030250	055 000 000 000 000 	HYPEN:	ASCII/-/
   575	030251	053 000 000 000 000 	PLUS:	ASCII/+/
   576	030252	052 000 000 000 000 	AST:	ASCII/*/
   577	030253	100 000 000 000 000 	ATSIN:	ASCII/@/
   578	030254	050 000 000 000 000 	LFP:	ASCII/(/
   579	030255	051 000 000 000 000 	RTP:	ASCII/)/
   580	030256	007 0000000000 		BELL:	BYTE (7) 007
   581	030257	077 000 000 000 000 	QUEST:	ASCII/?/
   582	030260	057 000 000 000 000 	SLASH:	ASCII!/!
   583	030261	044 000 000 000 000 	DOLLAR:	ASCII/$/
   584	030262	000000	000012		RADIX:	^D10			;DECIMAL PRINT RADIX
   585	030263	000000	000040		RADLSP:	40			;DECIMAL PRINT LEADING CHAR
   586	030264	000000	000012		RADLSC:	^D10			;DECIMAL PRINT LEADING CHAR COUNT
   587
   588					S^;*********************************************************************^
   589					;*USER MODE OUTPUT FILE INFORMATION
   590					S^;*********************************************************************^
   591
   592	030265				$OBUF:	BLOCK	3		;LOGICAL FILE OUTPUT BUFFER HEADER
   593	030270	60 62 51 56 64 00 	$OUTNM:	SIXBIT	/PRINT/		;FILE NAME
   594	030271	60 56 64 00 00 00 	$OUTEX:	SIXBIT	/PNT/		;FILE NAME EXTENSION
   595	030272					BLOCK	2
   596
   597					S^;*********************************************************************^
   598					;*DISK UPDATE MODE FILE INFORMATION
   599					S^;*********************************************************************^
   600
   601	030274				$IBUF:	BLOCK	3
   602	030277	60 62 51 56 64 00 	$INNM:	SIXBIT	/PRINT/
   603	030300	60 56 64 00 00 00 	$INEXT:	SIXBIT	/PNT/
   604	030301					BLOCK	2
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 6
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0026

   605					S^;*********************************************************************^
   606					;*PUSHDOWN LIST CONTROL INFORMATION
   607					S^;*********************************************************************^
   608
   609	030303	777577	030303		PLIST:	PLIST-PLISTE,,PLIST
   610	030304				PLISTS:	BLOCK	200
   611	030504	000000	000000		PLISTE:	0		;END OF PUSHDOWN LIST
   612
   613					S^;*********************************************************************^
   614					;*POWER LINE CLOCK FREQUENCY FLAG
   615					S^;*********************************************************************^
   616
   617	030505	000000	000000		CYCL60:	0	;0 = 60, -1 = 50 CYCLE
   618
   619					S^;*********************************************************************^
   620					;*KL10 CACHE CONTROL FLAGS
   621					S^;*********************************************************************^
   622
   623	030506	000000	000000		CSHFLG:	0	;ALLOW CACHE IF 0
   624	030507	000000	000000		CSHMEM:	0	;CACHE MEMORY SEGMENTS IF 0
   625
   626					S^;*********************************************************************^
   627					;*NUMBER INPUT DIGIT FLAG
   628					S^;*********************************************************************^
   629
   630	030510	000000	000000		TTNBRF:	0	;-1 IF ANY DIGIT TYPED
   631
   632					S^;*********************************************************************^
   633					;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
   634					S^;*********************************************************************^
   635
   636	030511	000000	000000		PVPAGI:	0	;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
   637
   638					S^;*********************************************************************^
   639					;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
   640					S^;*********************************************************************^
   641
   642	030512	000000	000000		%ERHI1:	0	;IF NON-ZERO, XCT'D AT START OF %ERUUO
   643	030513	000000	000000		%ERHI2:	0	;IF NON-ZERO, XCT'D AT END OF %ERUUO
   644	030514	000000	000000		%ERHI3:	0	;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
   645
   646					S^;*********************************************************************^
   647					;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
   648					S^;*********************************************************************^
   649
   650	030515	000000	000000		$$UUO:	0	;IF NON-ZERO, XCT'D AT START OF $UORTN
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 7
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0027

   651					S^;*********************************************************************^
   652					;*KL10 PROCESSOR TYPE FLAG, 0=P0, 1=BBD NEW, 2=BBD OLD
   653					S^;*********************************************************************^
   654
   655	030516	000000	000000		KLTYP:	0
   656
   657					S^;*********************************************************************^
   658					;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
   659					S^;*********************************************************************^
   660
   661	030517	000000	000000		$$MUUO:	0	;IF NON-ZERO, XCT'D AT START OF MUUOER
   662
   663					S^;*********************************************************************^
   664					;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
   665					S^;*********************************************************************^
   666
   667	030520	000000	000000		$$OUTER:0	;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
   668
   669					S^;*********************************************************************^
   670					;*"SWITCH" CALL USAGE CONTROL
   671					S^;*********************************************************************^
   672
   673	030521	000000	000000		$$TOGGLE:0	;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
   674
   675					S^;*********************************************************************^
   676					;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
   677					S^;*********************************************************************^
   678
   679	030522	000000	000000		$$TAX1:	0	;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
   680	030523	000000	000000		$$TAX2:	0	;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
   681
   682					S^;*********************************************************************^
   683					;*SPECIAL FUTURE EXPANSION ROOM
   684					;*IF ANY FIXED AREA TAGS ARE ADDED, REDUCE THE SIZE OF
   685					;*THIS BLOCK STATEMENT ACCORDINGLY.  THIS MUST BE DONE
   686					;*SO THAT PREVIOUS FIXED ASSIGNMENTS DO NOT CHANGE.
   687					S^;*********************************************************************^
   688
   689	030524					BLOCK	53	;HOPEFULLY THIS IS ENOUGH FOREVER
   690
   691					S^;*********************************************************************^
   692					;*END OF FIXED STORAGE
   693					S^;*********************************************************************^
   694
   695			030577			$ENDFX=<PLISTE+100>&<777700>-1
   696	030577					LOC	$ENDFX
   697	030577	000000	000000		ENDFIX:	0		;END OF FIXED STORAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 1
DAKAIM	MAC	20-JAN-77 10:36		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0028

   698	030600	037 05 0 00 000002 	EXIT:	DROPDV			;CLOSE LOGICAL OUTPUT FILE
   699	030601	000000	030600			EXIT
   700
   701	030602				PGMNAM:	ASCIZ/
   702	030602	015 012 120 104 120 	PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC #9 SHIFT-ROTATE [DAKAI]
   703	030603	055 061 060 040 113 
   704	030604	101 061 060 040 102 
   705	030605	101 123 111 103 040 
   706	030606	111 116 123 124 122 
   707	030607	125 103 124 111 117 
   708	030610	116 040 104 111 101 
   709	030611	107 116 117 123 124 
   710	030612	111 103 040 043 071 
   711	030613	040 123 110 111 106 
   712	030614	124 055 122 117 124 
   713	030615	101 124 105 040 133 
   714	030616	104 101 113 101 111 
   715	030617	135 015 012 000 000 	/
   716
   717					;INITIALIZE SUBROUTINES
   718
   719	030620	265 00 0 00 030011 	START:	PGMINT
   720	030621	200 00 0 00 041614 		MOVE	[ASCIZ/AI/]
   721	030622	202 00 0 00 041536 		MOVEM	TLET
   722
   723	030623	254 00 0 00 030624 	STARTA:	JRST	E00		;GO PERFORM DIAGNOSTIC
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST FETCH, STORE AND DECODE FUNCTIONS                        SEQ 0029

   724					SUBTTL	DIAGNOSTIC SECTION - TEST FETCH, STORE AND DECODE FUNCTIONS
   725
   726					;TEST FETCH,STORE AND DECODE
   727					;TEST THE ABILITY OF ROT, ROTC TO FETCH AND STORE
   728					;AC,AC+1
   729					;TESTING IS ACCOMPLISHED BY ROTATING ZERO TIMES ALL
   730					;ZERO'S, ALL ONE'S.
   731					;OPERANDS SELECTED ARE LEAST AFFECTED BY
   732					;INADVERTENT ROTATING
   733					;FAILURE OF A SC BIT TO SET,OR SC TO
   734					;COUNT WILL RESULT IN LOOPING
   735
   736
   737			000001			AC=1
   738	030624				E00:	SAVEAC	(1,1)^
   739	030624	201 03 0 00 030624 		MOVEI	AC+2,.		;SAVE TEST PC
   740	030625	202 03 0 00 030051 		MOVEM	AC+2,TESTPC
   741	030626	201 03 0 00 000003 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   742	030627	202 03 0 00 041763 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   743
   744	030630	400 01 0 00 000000 	E100:	SETZ	AC,		;CLEAR AC
   745	030631	241 01 0 00 000000 		ROT	AC,0		;*ROTATE LEFT ZERO TIMES
   746	030632	332 00 0 00 000001 		SKIPE	AC		;TEST AC FOR ZERO
   747	030633	003 01 0 00 000101 		ER3	AC,101		;FETCH OR STORE FAILED
   748	030634	321 03 0 00 030630 		JUMPL	AC+2,E100	;LOOP ON ERROR SWITCH
   749
   750	030635	477 01 0 00 000000 	E200:	SETOB	AC,AC-1		;SET AC,AC-1 FOR COMPARE
   751	030636	241 01 0 00 000000 		ROT	AC,0		;*ROTATE LEFT ZERO TIMES
   752	030637	312 01 0 00 000000 		CAME 	AC,AC-1		;TEST AC FOR A -1
   753	030640	003 01 0 00 000201 		ER3	AC,201		;FETCH OR STORE FAILED
   754	030641	321 03 0 00 030635 		JUMPL	AC+2,E200	;LOOP ON ERROR SWITCH
   755
   756			000002			AC=2
   757						SAVEAC	(1,1)^
   758	030642	201 04 0 00 030642 		MOVEI	AC+2,.		;SAVE TEST PC
   759	030643	202 04 0 00 030051 		MOVEM	AC+2,TESTPC
   760	030644	201 04 0 00 000004 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   761	030645	202 04 0 00 041763 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   762
   763	030646	403 02 0 00 000003 	E300:	SETZB	AC,AC+1		;CLEAR AC,AC+1
   764	030647	245 02 0 00 000000 		ROTC	AC,0		;*ROTATE COMBINED LEFT ZERO TIMES
   765	030650	332 00 0 00 000002 		SKIPE	AC		;TEST AC FOR ZERO
   766	030651	003 02 0 00 000301 		ER3	AC,301		;FETCH OR STORE AC FAILED
   767	030652	332 00 0 00 000003 		SKIPE	AC+1		;TEST AC+1 FOR ZERO
   768	030653	004 03 0 00 000301 		ER4	AC+1,301	;FETCH OR STORE AC+1 FAILED
   769	030654	321 04 0 00 030646 		JUMPL	AC+2,E300	;LOOP ON ERROR SWITCH
   770
   771	030655	474 01 0 00 000000 	E400:	SETO	AC-1,		;SET UP FOR COMPARISON
   772	030656	477 02 0 00 000003 		SETOB	AC,AC+1		;SET AC,AC+1
   773	030657	245 02 0 00 000000 		ROTC	AC,0		;*ROTATE COMBINED LEFT ZERO TIMES
   774	030660	312 02 0 00 000001 		CAME	AC,AC-1		;TEST AC FOR A -1
   775	030661	003 02 0 00 000401 		ER3	AC,401		;FETCH OR STORE AC FAILED
   776	030662	312 03 0 00 000001 		CAME	AC+1,AC-1	;TEST AC+1 FOR A -1
   777	030663	004 03 0 00 000401 		ER4	AC+1,401	;FETCH OR STORE AC+1 FAILED
   778	030664	321 04 0 00 030655 		JUMPL	AC+2,E400	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST FETCH, STORE AND DECODE FUNCTIONS                        SEQ 0030

   779					;TEST FETCH,STORE AND DECODE
   780					;TEST THE ABILITY OF LSH, LSHC TO FETCH AND STORE
   781					;AC,AC+1
   782					;TESTING IS ACCOMPLISHED BY SHIFTING ZERO TIMES ALL
   783					;ZERO'S ALL ONE'S
   784					;OPERANDS SELECTED ARE LEAST AFFECTED BY
   785					;INADVERTENT SHIFTING
   786					;FAILURE OF A SC BIT TO SET,OR SC TO
   787					;COUNT WILL RESULT IN LOOPING
   788
   789			000003			AC=3
   790						SAVEAC	(1,1)^
   791	030665	201 05 0 00 030665 		MOVEI	AC+2,.		;SAVE TEST PC
   792	030666	202 05 0 00 030051 		MOVEM	AC+2,TESTPC
   793	030667	201 05 0 00 000005 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   794	030670	202 05 0 00 041763 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   795
   796	030671	400 03 0 00 000000 	E500:	SETZ	AC,		;CLEAR AC
   797	030672	242 03 0 00 000000 		LSH	AC,0		;*SHIFT LEFT ZERO TIMES
   798	030673	332 00 0 00 000003 		SKIPE	AC		;TEST AC FOR ZERO
   799	030674	003 03 0 00 000501 		ER3	AC,501		;FETCH OR STORE AC FAILED
   800	030675	321 05 0 00 030671 		JUMPL	AC+2,E500	;LOOP ON ERROR SWITCH
   801
   802	030676	477 03 0 00 000002 	E600:	SETOB	AC,AC-1		;SET AC,AC-1 FOR COMPARE
   803	030677	242 03 0 00 000000 		LSH	AC,0		;*SHIFT LEFT ZERO TIMES
   804	030700	312 03 0 00 000002 		CAME	AC,AC-1		;TEST AC FOR -1
   805	030701	003 03 0 00 000601 		ER3	AC,601		;FETCH OR STORE AC FAILED
   806	030702	321 05 0 00 030676 		JUMPL	AC+2,E600	;LOOP ON ERROR SWITCH
   807
   808			000014			AC=14
   809						SAVEAC	(1,1)^
   810	030703	201 16 0 00 030703 		MOVEI	AC+2,.		;SAVE TEST PC
   811	030704	202 16 0 00 030051 		MOVEM	AC+2,TESTPC
   812	030705	201 16 0 00 000016 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   813	030706	202 16 0 00 041763 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   814
   815	030707	403 14 0 00 000015 	E700:	SETZB	AC,AC+1		;CLEAR AC,AC+1
   816	030710	246 14 0 00 000000 		LSHC	AC,0		;*SHIFT COMBINED LEFT ZERO TIMES
   817	030711	332 00 0 00 000014 		SKIPE	AC		;TEST AC FOR 0
   818	030712	003 14 0 00 000701 		ER3	AC,701		;FETCH OR STORE AC FAILED
   819	030713	332 00 0 00 000015 		SKIPE	AC+1		;TEST AC+1 FOR 0
   820	030714	004 15 0 00 000701 		ER4	AC+1,701	;FETCH OR STORE AC+1 FAILED
   821	030715	321 16 0 00 030707 		JUMPL	AC+2,E700	;LOOP ON ERROR SWITCH
   822
   823	030716	474 13 0 00 000000 	E1000:	SETO	AC-1,		;SET UP FOR COMPARISON
   824	030717	477 14 0 00 000015 		SETOB	AC,AC+1		;SET AC,AC+1
   825	030720	246 14 0 00 000000 		LSHC	AC,0		;*SHIFT COMBINED LEFT ZERO TIMES
   826	030721	312 14 0 00 000013 		CAME	AC,AC-1		;TEST AC FOR -1
   827	030722	003 14 0 00 001001 		ER3	AC,1001		;FETCH OR STORE AC FAILED
   828	030723	312 15 0 00 000013 		CAME	AC+1,AC-1	;TEST AC+1 FOR -1
   829	030724	004 15 0 00 001001 		ER4	AC+1,1001	;FETCH OR STORE AC+1 FAILED
   830	030725	321 16 0 00 030716 		JUMPL	AC+2,E1000	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 4
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST FETCH, STORE AND DECODE FUNCTIONS                        SEQ 0031

   831					;TEST FETCH,STORE AND DECODE
   832					;TEST THE ABILITY OF ASH, ASHC TO FETCH AND STORE
   833					;AC,AC+1
   834					;TESTING IS ACCOMPLISHED BY SHIFTING ZERO TIMES ALL
   835					;ZERO'S ALL ONES
   836					;OPERANDS SELECTED ARE LEAST AFFECTED BY
   837					;INADVERTENT SHIFTING
   838					;FAILURE OF A SC BIT TO SET,OR SC TO
   839					;COUNT WILL RESULT IN LOOPING
   840
   841			000013			AC=13
   842						SAVEAC	(1,1)^
   843	030726	201 15 0 00 030726 		MOVEI	AC+2,.		;SAVE TEST PC
   844	030727	202 15 0 00 030051 		MOVEM	AC+2,TESTPC
   845	030730	201 15 0 00 000015 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   846	030731	202 15 0 00 041763 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   847
   848	030732	400 13 0 00 000000 	E1100:	SETZ	AC,		;CLEAR AC
   849	030733	240 13 0 00 000000 		ASH	AC,0		;*SHIFT LEFT ZERO TIMES
   850	030734	332 00 0 00 000013 		SKIPE	AC		;TEST AC FOR ZERO
   851	030735	003 13 0 00 001101 		ER3	AC,1101		;FETCH OR STORE AC FAILED
   852	030736	321 15 0 00 030732 		JUMPL	AC+2,E1100	;LOOP ON ERROR SWITCH
   853
   854	030737	477 13 0 00 000012 	E1200:	SETOB	AC,AC-1		;SET AC,AC-1 FOR COMPARE
   855	030740	240 13 0 00 000000 		ASH	AC,0		;*SHIFT LEFT ZERO TIMES
   856	030741	312 13 0 00 000012 		CAME	AC,AC-1		;TEST AC FOR A -1
   857	030742	003 13 0 00 001201 		ER3	AC,1201		;FETCH OR STORE AC FAILED
   858	030743	321 15 0 00 030737 		JUMPL	AC+2,E1200	;LOOP ON ERROR SWITCH
   859
   860			000012			AC=12
   861						SAVEAC	(1,1)^
   862	030744	201 14 0 00 030744 		MOVEI	AC+2,.		;SAVE TEST PC
   863	030745	202 14 0 00 030051 		MOVEM	AC+2,TESTPC
   864	030746	201 14 0 00 000014 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   865	030747	202 14 0 00 041763 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   866
   867	030750	403 12 0 00 000013 	E1300:	SETZB	AC,AC+1		;CLEAR AC,AC+1
   868	030751	244 12 0 00 000000 		ASHC	AC,0		;*SHIFT COMBINED LEFT ZERO TIMES
   869	030752	332 00 0 00 000012 		SKIPE	AC		;TEST AC FOR 0
   870	030753	003 12 0 00 001301 		ER3	AC,1301		;FETCH OR STORE AC FAILED
   871	030754	332 00 0 00 000013 		SKIPE	AC+1		;TEST AC+1 FOR 0
   872	030755	004 13 0 00 001301 		ER4	AC+1,1301	;FETCH OR STORE AC+1 FAILED
   873	030756	321 14 0 00 030750 		JUMPL	AC+2,E1300	;LOOP ON ERROR SWITCH
   874
   875	030757	474 11 0 00 000000 	E1400:	SETO	AC-1,		;SET UP FOR COMPARISON
   876	030760	477 12 0 00 000013 		SETOB	AC,AC+1		;SET AC,AC+1
   877	030761	244 12 0 00 000000 		ASHC	AC,0		;*SHIFT COMBINED LEFT ZERO TIMES
   878	030762	312 12 0 00 000011 		CAME	AC,AC-1		;TEST AC FOR A -1
   879	030763	003 12 0 00 001401 		ER3	AC,1401		;FETCH OR STORE AC FAILED
   880	030764	312 13 0 00 000011 		CAME	AC+1,AC-1	;TEST AC+1 FOR A -1
   881	030765	004 13 0 00 001401 		ER4	AC+1,1401	;FETCH OR STORE AC+1 FAILED
   882	030766	321 14 0 00 030757 		JUMPL	AC+2,E1400	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 5
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - CHECK SIGN BIT OF AC+1 FOR ASHC                               SEQ 0032

   883					SUBTTL	DIAGNOSTIC SECTION - CHECK SIGN BIT OF AC+1 FOR ASHC
   884
   885					;VERIFY THAT THE SIGN BIT OF AC+1 IS NOT MADE TO AGREE WITH THE SIGN BIT OF AC
   886					;WHEN THE 'E' FIELD OF ASHC SECIFIES A SHIFT OF ZERO BIT POSITIONS.
   887					;HENCE, C(AC+1) IS NOT ALTERE BY 'ASHC AC,0'.
   888					;CHECK THIS WHEN THE SIGN BIT OF AC IS ZERO AND THE SIGN BIT OF AC+1 IS ONE.
   889
   890						SR2	(443,0,0,-1,-1,0,0,-1,-1,ASHC,0)^
   891					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
   892					;DATA SPECIFIED IN [XWD 0,0] AND [XWD -1,-1] 0 BIT POSITIONS AND
   893					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
   894					;[XWD -1,-1]
   895
   896	030767	200 12 0 00 041615 	E44300:	MOVE	AC,[XWD 0,0]	;INITIALIZE AC
   897	030770	200 13 0 00 041616 		MOVE	AC+1,[XWD -1,-1]	;INITIALIZE AC+1
   898	030771	244 12 0 00 000000 		ASHC	AC,0			;*SHIFT/ROTATE COMBINED 0 PLACES
   899	030772	312 12 0 00 041615 		CAME	AC,[XWD 0,0]	;IS RESULT IN AC CORRECT?
   900	030773	003 12 0 00 044301 		ER3	AC,44301			;RESULT IN AC IS INCORRECT
   901	030774	312 13 0 00 041616 		CAME	AC+1,[XWD -1,-1]	;IS RESULT IN AC+1 CORRECT?
   902	030775	004 13 0 00 044301 		ER4	AC+1,44301		;RESULT IN AC+1 IS INCORRECT
   903	030776	321 14 0 00 030767 		JUMPL	AC+2,E44300		;LOOP ON ERROR SWITCH^
   904
   905					;VERIFY THAT THE SIGN BIT OF AC+1 IS NOT MADE TO AGREE WITH THE SIGN BIT OF AC
   906					;WHEN THE 'E' FIELD OF ASHC SECIFIES A SHIFT OF ZERO BIT POSITIONS.
   907					;HENCE, C(AC+1) IS NOT ALTERE BY 'ASHC AC,0'.
   908					;CHECK THIS WHEN THE SIGN BIT OF AC IS ONE AND THE SIGN BIT OF AC+1 IS ZERO.
   909						SR2	(444,-1,-1,0,0,-1,-1,0,0,ASHC,0)^
   910					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
   911					;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 0,0] 0 BIT POSITIONS AND
   912					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
   913					;[XWD 0,0]
   914
   915	030777	200 12 0 00 041616 	E44400:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
   916	031000	200 13 0 00 041615 		MOVE	AC+1,[XWD 0,0]	;INITIALIZE AC+1
   917	031001	244 12 0 00 000000 		ASHC	AC,0			;*SHIFT/ROTATE COMBINED 0 PLACES
   918	031002	312 12 0 00 041616 		CAME	AC,[XWD -1,-1]	;IS RESULT IN AC CORRECT?
   919	031003	003 12 0 00 044401 		ER3	AC,44401			;RESULT IN AC IS INCORRECT
   920	031004	312 13 0 00 041615 		CAME	AC+1,[XWD 0,0]	;IS RESULT IN AC+1 CORRECT?
   921	031005	004 13 0 00 044401 		ER4	AC+1,44401		;RESULT IN AC+1 IS INCORRECT
   922	031006	321 14 0 00 030777 		JUMPL	AC+2,E44400		;LOOP ON ERROR SWITCH^
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 6
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0033

   923					SUBTTL	DIAGNOSTIC SECTION - TEST MQ-ADDER GATING
   924
   925			000010			AC=10
   926						SAVEAC	(1,1)^
   927	031007	201 12 0 00 031007 		MOVEI	AC+2,.		;SAVE TEST PC
   928	031010	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
   929	031011	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
   930	031012	202 12 0 00 041763 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
   931
   932			001500		SN=1500
   933			000000			ZZ=0
   934								;CHECK AC+1 RIGHT <
   935					E1500:	REPEAT	^D18,<
   936					
   937					;VERIFY MQ-AD GATING
   938					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
   939					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
   940					;REPEAT FOR ALL 36 BITS OF MQ
   941					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
   942					SN=SN+1
   943						ZZ=ZZ+ZZ			;TESTED BIT
   944						IFE	ZZ,<ZZ=1>
   945						SETZM	AC			;CLEAR AC
   946						MOVEI	AC+1,ZZ			;INITIALIZE AC+1
   947						ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
   948						CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
   949						ER4	AC+1,SN			;MQ-AD GATE FAILED
   950						JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
   951					>
   952
   953
   954					;VERIFY MQ-AD GATING
   955					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
   956					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
   957					;REPEAT FOR ALL 36 BITS OF MQ
   958					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
   959			001501		SN=SN+1
   960			000000			ZZ=ZZ+ZZ			;TESTED BIT
   961			000001			IFE	ZZ,<ZZ=1>
   962	031013	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
   963	031014	201 11 0 00 000001 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
   964	031015	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
   965	031016	302 11 0 00 000001 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
   966	031017	004 11 0 00 001501 		ER4	AC+1,SN			;MQ-AD GATE FAILED
   967	031020	321 12 0 00 031013 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
   968
   969
   970
   971					;VERIFY MQ-AD GATING
   972					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
   973					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
   974					;REPEAT FOR ALL 36 BITS OF MQ
   975					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
   976			001502		SN=SN+1
   977			000002			ZZ=ZZ+ZZ			;TESTED BIT
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 6-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0034

   978						IFE	ZZ,<ZZ=1>
   979	031021	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
   980	031022	201 11 0 00 000002 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
   981	031023	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
   982	031024	302 11 0 00 000002 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
   983	031025	004 11 0 00 001502 		ER4	AC+1,SN			;MQ-AD GATE FAILED
   984	031026	321 12 0 00 031021 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
   985
   986
   987
   988					;VERIFY MQ-AD GATING
   989					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
   990					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
   991					;REPEAT FOR ALL 36 BITS OF MQ
   992					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
   993			001503		SN=SN+1
   994			000004			ZZ=ZZ+ZZ			;TESTED BIT
   995						IFE	ZZ,<ZZ=1>
   996	031027	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
   997	031030	201 11 0 00 000004 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
   998	031031	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
   999	031032	302 11 0 00 000004 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
  1000	031033	004 11 0 00 001503 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1001	031034	321 12 0 00 031027 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1002
  1003
  1004
  1005					;VERIFY MQ-AD GATING
  1006					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1007					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1008					;REPEAT FOR ALL 36 BITS OF MQ
  1009					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
  1010			001504		SN=SN+1
  1011			000010			ZZ=ZZ+ZZ			;TESTED BIT
  1012						IFE	ZZ,<ZZ=1>
  1013	031035	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1014	031036	201 11 0 00 000010 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
  1015	031037	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
  1016	031040	302 11 0 00 000010 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
  1017	031041	004 11 0 00 001504 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1018	031042	321 12 0 00 031035 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1019
  1020
  1021
  1022					;VERIFY MQ-AD GATING
  1023					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1024					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1025					;REPEAT FOR ALL 36 BITS OF MQ
  1026					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
  1027			001505		SN=SN+1
  1028			000020			ZZ=ZZ+ZZ			;TESTED BIT
  1029						IFE	ZZ,<ZZ=1>
  1030	031043	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1031	031044	201 11 0 00 000020 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
  1032	031045	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 6-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0035

  1033	031046	302 11 0 00 000020 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
  1034	031047	004 11 0 00 001505 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1035	031050	321 12 0 00 031043 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1036
  1037
  1038
  1039					;VERIFY MQ-AD GATING
  1040					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1041					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1042					;REPEAT FOR ALL 36 BITS OF MQ
  1043					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
  1044			001506		SN=SN+1
  1045			000040			ZZ=ZZ+ZZ			;TESTED BIT
  1046						IFE	ZZ,<ZZ=1>
  1047	031051	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1048	031052	201 11 0 00 000040 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
  1049	031053	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
  1050	031054	302 11 0 00 000040 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
  1051	031055	004 11 0 00 001506 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1052	031056	321 12 0 00 031051 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1053
  1054
  1055
  1056					;VERIFY MQ-AD GATING
  1057					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1058					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1059					;REPEAT FOR ALL 36 BITS OF MQ
  1060					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
  1061			001507		SN=SN+1
  1062			000100			ZZ=ZZ+ZZ			;TESTED BIT
  1063						IFE	ZZ,<ZZ=1>
  1064	031057	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1065	031060	201 11 0 00 000100 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
  1066	031061	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
  1067	031062	302 11 0 00 000100 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
  1068	031063	004 11 0 00 001507 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1069	031064	321 12 0 00 031057 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1070
  1071
  1072
  1073					;VERIFY MQ-AD GATING
  1074					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1075					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1076					;REPEAT FOR ALL 36 BITS OF MQ
  1077					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
  1078			001510		SN=SN+1
  1079			000200			ZZ=ZZ+ZZ			;TESTED BIT
  1080						IFE	ZZ,<ZZ=1>
  1081	031065	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1082	031066	201 11 0 00 000200 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
  1083	031067	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
  1084	031070	302 11 0 00 000200 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
  1085	031071	004 11 0 00 001510 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1086	031072	321 12 0 00 031065 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1087
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 6-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0036

  1088
  1089
  1090					;VERIFY MQ-AD GATING
  1091					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1092					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1093					;REPEAT FOR ALL 36 BITS OF MQ
  1094					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
  1095			001511		SN=SN+1
  1096			000400			ZZ=ZZ+ZZ			;TESTED BIT
  1097						IFE	ZZ,<ZZ=1>
  1098	031073	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1099	031074	201 11 0 00 000400 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
  1100	031075	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
  1101	031076	302 11 0 00 000400 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
  1102	031077	004 11 0 00 001511 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1103	031100	321 12 0 00 031073 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1104
  1105
  1106
  1107					;VERIFY MQ-AD GATING
  1108					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1109					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1110					;REPEAT FOR ALL 36 BITS OF MQ
  1111					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
  1112			001512		SN=SN+1
  1113			001000			ZZ=ZZ+ZZ			;TESTED BIT
  1114						IFE	ZZ,<ZZ=1>
  1115	031101	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1116	031102	201 11 0 00 001000 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
  1117	031103	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
  1118	031104	302 11 0 00 001000 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
  1119	031105	004 11 0 00 001512 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1120	031106	321 12 0 00 031101 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1121
  1122
  1123
  1124					;VERIFY MQ-AD GATING
  1125					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1126					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1127					;REPEAT FOR ALL 36 BITS OF MQ
  1128					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
  1129			001513		SN=SN+1
  1130			002000			ZZ=ZZ+ZZ			;TESTED BIT
  1131						IFE	ZZ,<ZZ=1>
  1132	031107	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1133	031110	201 11 0 00 002000 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
  1134	031111	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
  1135	031112	302 11 0 00 002000 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
  1136	031113	004 11 0 00 001513 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1137	031114	321 12 0 00 031107 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1138
  1139
  1140
  1141					;VERIFY MQ-AD GATING
  1142					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 6-4
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0037

  1143					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1144					;REPEAT FOR ALL 36 BITS OF MQ
  1145					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
  1146			001514		SN=SN+1
  1147			004000			ZZ=ZZ+ZZ			;TESTED BIT
  1148						IFE	ZZ,<ZZ=1>
  1149	031115	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1150	031116	201 11 0 00 004000 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
  1151	031117	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
  1152	031120	302 11 0 00 004000 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
  1153	031121	004 11 0 00 001514 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1154	031122	321 12 0 00 031115 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1155
  1156
  1157
  1158					;VERIFY MQ-AD GATING
  1159					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1160					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1161					;REPEAT FOR ALL 36 BITS OF MQ
  1162					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
  1163			001515		SN=SN+1
  1164			010000			ZZ=ZZ+ZZ			;TESTED BIT
  1165						IFE	ZZ,<ZZ=1>
  1166	031123	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1167	031124	201 11 0 00 010000 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
  1168	031125	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
  1169	031126	302 11 0 00 010000 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
  1170	031127	004 11 0 00 001515 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1171	031130	321 12 0 00 031123 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1172
  1173
  1174
  1175					;VERIFY MQ-AD GATING
  1176					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1177					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1178					;REPEAT FOR ALL 36 BITS OF MQ
  1179					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
  1180			001516		SN=SN+1
  1181			020000			ZZ=ZZ+ZZ			;TESTED BIT
  1182						IFE	ZZ,<ZZ=1>
  1183	031131	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1184	031132	201 11 0 00 020000 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
  1185	031133	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
  1186	031134	302 11 0 00 020000 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
  1187	031135	004 11 0 00 001516 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1188	031136	321 12 0 00 031131 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1189
  1190
  1191
  1192					;VERIFY MQ-AD GATING
  1193					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1194					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1195					;REPEAT FOR ALL 36 BITS OF MQ
  1196					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
  1197			001517		SN=SN+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 6-5
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0038

  1198			040000			ZZ=ZZ+ZZ			;TESTED BIT
  1199						IFE	ZZ,<ZZ=1>
  1200	031137	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1201	031140	201 11 0 00 040000 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
  1202	031141	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
  1203	031142	302 11 0 00 040000 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
  1204	031143	004 11 0 00 001517 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1205	031144	321 12 0 00 031137 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1206
  1207
  1208
  1209					;VERIFY MQ-AD GATING
  1210					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1211					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1212					;REPEAT FOR ALL 36 BITS OF MQ
  1213					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
  1214			001520		SN=SN+1
  1215			100000			ZZ=ZZ+ZZ			;TESTED BIT
  1216						IFE	ZZ,<ZZ=1>
  1217	031145	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1218	031146	201 11 0 00 100000 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
  1219	031147	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
  1220	031150	302 11 0 00 100000 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
  1221	031151	004 11 0 00 001520 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1222	031152	321 12 0 00 031145 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1223
  1224
  1225
  1226					;VERIFY MQ-AD GATING
  1227					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1228					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1229					;REPEAT FOR ALL 36 BITS OF MQ
  1230					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
  1231			001521		SN=SN+1
  1232			200000			ZZ=ZZ+ZZ			;TESTED BIT
  1233						IFE	ZZ,<ZZ=1>
  1234	031153	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1235	031154	201 11 0 00 200000 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
  1236	031155	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
  1237	031156	302 11 0 00 200000 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
  1238	031157	004 11 0 00 001521 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1239	031160	321 12 0 00 031153 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1240
  1241
  1242
  1243					;VERIFY MQ-AD GATING
  1244					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1245					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1246					;REPEAT FOR ALL 36 BITS OF MQ
  1247					;RESULT IN AC+1 SHOULD BE SAME AS INTIALIZATION DATA
  1248			001522		SN=SN+1
  1249			400000			ZZ=ZZ+ZZ			;TESTED BIT
  1250						IFE	ZZ,<ZZ=1>
  1251	031161	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1252	031162	201 11 0 00 400000 		MOVEI	AC+1,ZZ			;INITIALIZE AC+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 6-6
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0039

  1253	031163	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSIOTIONS
  1254	031164	302 11 0 00 400000 		CAIE	AC+1,ZZ			;CHECK BIT (N) OF AC+1
  1255	031165	004 11 0 00 001522 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1256	031166	321 12 0 00 031161 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1257
  1258					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 6-7
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0040

  1259			000000		ZZ=0
  1260								;CHECK AC+1 LEFT <
  1261						REPEAT	^D18,<
  1262					
  1263					;VERIFY MQ-AD GATING
  1264					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1265					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1266					;REPEAT FOR ALL 36 BITS OF MQ
  1267					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1268					SN=SN+1
  1269						ZZ=ZZ+ZZ			;TESTED BIT
  1270						IFE	ZZ,<ZZ=1>
  1271						SETZM	AC			;CLEAR AC
  1272						MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1273						MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1274						ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1275						CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1276						ER4	AC+1,SN			;MQ-AD GATE FAILED
  1277						JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1278					>
  1279
  1280
  1281					;VERIFY MQ-AD GATING
  1282					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1283					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1284					;REPEAT FOR ALL 36 BITS OF MQ
  1285					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1286			001523		SN=SN+1
  1287			000000			ZZ=ZZ+ZZ			;TESTED BIT
  1288			000001			IFE	ZZ,<ZZ=1>
  1289	031167	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1290	031170	205 11 0 00 000001 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1291	031171	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1292	031172	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1293	031173	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1294	031174	004 11 0 00 001523 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1295	031175	321 12 0 00 031170 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1296
  1297
  1298
  1299					;VERIFY MQ-AD GATING
  1300					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1301					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1302					;REPEAT FOR ALL 36 BITS OF MQ
  1303					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1304			001524		SN=SN+1
  1305			000002			ZZ=ZZ+ZZ			;TESTED BIT
  1306						IFE	ZZ,<ZZ=1>
  1307	031176	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1308	031177	205 11 0 00 000002 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1309	031200	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1310	031201	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1311	031202	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1312	031203	004 11 0 00 001524 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1313	031204	321 12 0 00 031177 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 6-8
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0041

  1314
  1315
  1316
  1317					;VERIFY MQ-AD GATING
  1318					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1319					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1320					;REPEAT FOR ALL 36 BITS OF MQ
  1321					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1322			001525		SN=SN+1
  1323			000004			ZZ=ZZ+ZZ			;TESTED BIT
  1324						IFE	ZZ,<ZZ=1>
  1325	031205	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1326	031206	205 11 0 00 000004 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1327	031207	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1328	031210	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1329	031211	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1330	031212	004 11 0 00 001525 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1331	031213	321 12 0 00 031206 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1332
  1333
  1334
  1335					;VERIFY MQ-AD GATING
  1336					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1337					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1338					;REPEAT FOR ALL 36 BITS OF MQ
  1339					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1340			001526		SN=SN+1
  1341			000010			ZZ=ZZ+ZZ			;TESTED BIT
  1342						IFE	ZZ,<ZZ=1>
  1343	031214	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1344	031215	205 11 0 00 000010 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1345	031216	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1346	031217	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1347	031220	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1348	031221	004 11 0 00 001526 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1349	031222	321 12 0 00 031215 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1350
  1351
  1352
  1353					;VERIFY MQ-AD GATING
  1354					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1355					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1356					;REPEAT FOR ALL 36 BITS OF MQ
  1357					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1358			001527		SN=SN+1
  1359			000020			ZZ=ZZ+ZZ			;TESTED BIT
  1360						IFE	ZZ,<ZZ=1>
  1361	031223	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1362	031224	205 11 0 00 000020 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1363	031225	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1364	031226	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1365	031227	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1366	031230	004 11 0 00 001527 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1367	031231	321 12 0 00 031224 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1368
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 6-9
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0042

  1369
  1370
  1371					;VERIFY MQ-AD GATING
  1372					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1373					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1374					;REPEAT FOR ALL 36 BITS OF MQ
  1375					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1376			001530		SN=SN+1
  1377			000040			ZZ=ZZ+ZZ			;TESTED BIT
  1378						IFE	ZZ,<ZZ=1>
  1379	031232	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1380	031233	205 11 0 00 000040 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1381	031234	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1382	031235	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1383	031236	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1384	031237	004 11 0 00 001530 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1385	031240	321 12 0 00 031233 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1386
  1387
  1388
  1389					;VERIFY MQ-AD GATING
  1390					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1391					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1392					;REPEAT FOR ALL 36 BITS OF MQ
  1393					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1394			001531		SN=SN+1
  1395			000100			ZZ=ZZ+ZZ			;TESTED BIT
  1396						IFE	ZZ,<ZZ=1>
  1397	031241	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1398	031242	205 11 0 00 000100 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1399	031243	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1400	031244	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1401	031245	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1402	031246	004 11 0 00 001531 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1403	031247	321 12 0 00 031242 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1404
  1405
  1406
  1407					;VERIFY MQ-AD GATING
  1408					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1409					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1410					;REPEAT FOR ALL 36 BITS OF MQ
  1411					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1412			001532		SN=SN+1
  1413			000200			ZZ=ZZ+ZZ			;TESTED BIT
  1414						IFE	ZZ,<ZZ=1>
  1415	031250	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1416	031251	205 11 0 00 000200 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1417	031252	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1418	031253	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1419	031254	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1420	031255	004 11 0 00 001532 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1421	031256	321 12 0 00 031251 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1422
  1423
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 6-10
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0043

  1424
  1425					;VERIFY MQ-AD GATING
  1426					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1427					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1428					;REPEAT FOR ALL 36 BITS OF MQ
  1429					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1430			001533		SN=SN+1
  1431			000400			ZZ=ZZ+ZZ			;TESTED BIT
  1432						IFE	ZZ,<ZZ=1>
  1433	031257	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1434	031260	205 11 0 00 000400 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1435	031261	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1436	031262	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1437	031263	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1438	031264	004 11 0 00 001533 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1439	031265	321 12 0 00 031260 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1440
  1441
  1442
  1443					;VERIFY MQ-AD GATING
  1444					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1445					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1446					;REPEAT FOR ALL 36 BITS OF MQ
  1447					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1448			001534		SN=SN+1
  1449			001000			ZZ=ZZ+ZZ			;TESTED BIT
  1450						IFE	ZZ,<ZZ=1>
  1451	031266	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1452	031267	205 11 0 00 001000 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1453	031270	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1454	031271	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1455	031272	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1456	031273	004 11 0 00 001534 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1457	031274	321 12 0 00 031267 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1458
  1459
  1460
  1461					;VERIFY MQ-AD GATING
  1462					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1463					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1464					;REPEAT FOR ALL 36 BITS OF MQ
  1465					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1466			001535		SN=SN+1
  1467			002000			ZZ=ZZ+ZZ			;TESTED BIT
  1468						IFE	ZZ,<ZZ=1>
  1469	031275	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1470	031276	205 11 0 00 002000 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1471	031277	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1472	031300	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1473	031301	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1474	031302	004 11 0 00 001535 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1475	031303	321 12 0 00 031276 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1476
  1477
  1478
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 6-11
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0044

  1479					;VERIFY MQ-AD GATING
  1480					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1481					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1482					;REPEAT FOR ALL 36 BITS OF MQ
  1483					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1484			001536		SN=SN+1
  1485			004000			ZZ=ZZ+ZZ			;TESTED BIT
  1486						IFE	ZZ,<ZZ=1>
  1487	031304	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1488	031305	205 11 0 00 004000 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1489	031306	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1490	031307	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1491	031310	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1492	031311	004 11 0 00 001536 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1493	031312	321 12 0 00 031305 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1494
  1495
  1496
  1497					;VERIFY MQ-AD GATING
  1498					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1499					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1500					;REPEAT FOR ALL 36 BITS OF MQ
  1501					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1502			001537		SN=SN+1
  1503			010000			ZZ=ZZ+ZZ			;TESTED BIT
  1504						IFE	ZZ,<ZZ=1>
  1505	031313	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1506	031314	205 11 0 00 010000 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1507	031315	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1508	031316	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1509	031317	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1510	031320	004 11 0 00 001537 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1511	031321	321 12 0 00 031314 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1512
  1513
  1514
  1515					;VERIFY MQ-AD GATING
  1516					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1517					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1518					;REPEAT FOR ALL 36 BITS OF MQ
  1519					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1520			001540		SN=SN+1
  1521			020000			ZZ=ZZ+ZZ			;TESTED BIT
  1522						IFE	ZZ,<ZZ=1>
  1523	031322	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1524	031323	205 11 0 00 020000 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1525	031324	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1526	031325	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1527	031326	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1528	031327	004 11 0 00 001540 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1529	031330	321 12 0 00 031323 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1530
  1531
  1532
  1533					;VERIFY MQ-AD GATING
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 6-12
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0045

  1534					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1535					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1536					;REPEAT FOR ALL 36 BITS OF MQ
  1537					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1538			001541		SN=SN+1
  1539			040000			ZZ=ZZ+ZZ			;TESTED BIT
  1540						IFE	ZZ,<ZZ=1>
  1541	031331	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1542	031332	205 11 0 00 040000 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1543	031333	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1544	031334	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1545	031335	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1546	031336	004 11 0 00 001541 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1547	031337	321 12 0 00 031332 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1548
  1549
  1550
  1551					;VERIFY MQ-AD GATING
  1552					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1553					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1554					;REPEAT FOR ALL 36 BITS OF MQ
  1555					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1556			001542		SN=SN+1
  1557			100000			ZZ=ZZ+ZZ			;TESTED BIT
  1558						IFE	ZZ,<ZZ=1>
  1559	031340	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1560	031341	205 11 0 00 100000 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1561	031342	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1562	031343	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1563	031344	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1564	031345	004 11 0 00 001542 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1565	031346	321 12 0 00 031341 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1566
  1567
  1568
  1569					;VERIFY MQ-AD GATING
  1570					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
  1571					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1572					;REPEAT FOR ALL 36 BITS OF MQ
  1573					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1574			001543		SN=SN+1
  1575			200000			ZZ=ZZ+ZZ			;TESTED BIT
  1576						IFE	ZZ,<ZZ=1>
  1577	031347	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1578	031350	205 11 0 00 200000 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1579	031351	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1580	031352	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1581	031353	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1582	031354	004 11 0 00 001543 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1583	031355	321 12 0 00 031350 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1584
  1585
  1586
  1587					;VERIFY MQ-AD GATING
  1588					;ROTC A RIPPLED ONE ZERO POSITIONS IN AC+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 6-13
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0046

  1589					;FIRST CLEAR AC; THEN, SET ONE BIT OF AC+1
  1590					;REPEAT FOR ALL 36 BITS OF MQ
  1591					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1592			001544		SN=SN+1
  1593			400000			ZZ=ZZ+ZZ			;TESTED BIT
  1594						IFE	ZZ,<ZZ=1>
  1595	031356	402 00 0 00 000010 		SETZM	AC			;CLEAR AC
  1596	031357	205 11 0 00 400000 		MOVSI	AC+1,ZZ			;INITIALIZE AC+1
  1597	031360	200 07 0 00 000011 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1598	031361	245 10 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1599	031362	312 11 0 00 000007 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1600	031363	004 11 0 00 001544 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1601	031364	321 12 0 00 031357 		JUMPL	AC+2,.-5		;LOOP ON ERROR SWITCH
  1602
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 7
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0047

  1603			000007			AC=7
  1604						SAVEAC	(1,1)^
  1605	031365	201 11 0 00 031365 		MOVEI	AC+2,.		;SAVE TEST PC
  1606	031366	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  1607	031367	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  1608	031370	202 11 0 00 041763 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  1609
  1610			001600		SN=1600
  1611
  1612			000000			ZZ=0
  1613
  1614								;CHECK AC+1 RIGHT <
  1615					E1600:	REPEAT	^D18,<
  1616					
  1617					;VERIFY MQ-AD GATING
  1618					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1619					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1620					;REPEAT FOR ALL 36 BITS OF MQ
  1621					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1622					SN=SN+1
  1623						ZZ=ZZ+ZZ+1			;TESTED BIT
  1624						IFE	ZZ,<ZZ=-2>
  1625						SETOM	AC			;INITIALIZE TO ALL ONES
  1626						HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1627						MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1628						ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1629						CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1630						ER4	AC+1,SN			;MQ-AD GATE FAILED
  1631						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1632					>
  1633
  1634
  1635					;VERIFY MQ-AD GATING
  1636					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1637					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1638					;REPEAT FOR ALL 36 BITS OF MQ
  1639					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1640			001601		SN=SN+1
  1641			000001			ZZ=ZZ+ZZ+1			;TESTED BIT
  1642						IFE	ZZ,<ZZ=-2>
  1643	031371	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
  1644	031372	561 10 0 00 000001 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1645	031373	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1646	031374	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1647	031375	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1648	031376	004 10 0 00 001601 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1649	031377	321 11 0 00 031371 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1650
  1651
  1652
  1653					;VERIFY MQ-AD GATING
  1654					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1655					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1656					;REPEAT FOR ALL 36 BITS OF MQ
  1657					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 7-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0048

  1658			001602		SN=SN+1
  1659			000003			ZZ=ZZ+ZZ+1			;TESTED BIT
  1660						IFE	ZZ,<ZZ=-2>
  1661	031400	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
  1662	031401	561 10 0 00 000003 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1663	031402	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1664	031403	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1665	031404	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1666	031405	004 10 0 00 001602 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1667	031406	321 11 0 00 031400 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1668
  1669
  1670
  1671					;VERIFY MQ-AD GATING
  1672					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1673					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1674					;REPEAT FOR ALL 36 BITS OF MQ
  1675					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1676			001603		SN=SN+1
  1677			000007			ZZ=ZZ+ZZ+1			;TESTED BIT
  1678						IFE	ZZ,<ZZ=-2>
  1679	031407	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
  1680	031410	561 10 0 00 000007 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1681	031411	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1682	031412	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1683	031413	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1684	031414	004 10 0 00 001603 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1685	031415	321 11 0 00 031407 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1686
  1687
  1688
  1689					;VERIFY MQ-AD GATING
  1690					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1691					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1692					;REPEAT FOR ALL 36 BITS OF MQ
  1693					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1694			001604		SN=SN+1
  1695			000017			ZZ=ZZ+ZZ+1			;TESTED BIT
  1696						IFE	ZZ,<ZZ=-2>
  1697	031416	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
  1698	031417	561 10 0 00 000017 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1699	031420	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1700	031421	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1701	031422	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1702	031423	004 10 0 00 001604 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1703	031424	321 11 0 00 031416 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1704
  1705
  1706
  1707					;VERIFY MQ-AD GATING
  1708					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1709					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1710					;REPEAT FOR ALL 36 BITS OF MQ
  1711					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1712			001605		SN=SN+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 7-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0049

  1713			000037			ZZ=ZZ+ZZ+1			;TESTED BIT
  1714						IFE	ZZ,<ZZ=-2>
  1715	031425	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
  1716	031426	561 10 0 00 000037 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1717	031427	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1718	031430	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1719	031431	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1720	031432	004 10 0 00 001605 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1721	031433	321 11 0 00 031425 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1722
  1723
  1724
  1725					;VERIFY MQ-AD GATING
  1726					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1727					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1728					;REPEAT FOR ALL 36 BITS OF MQ
  1729					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1730			001606		SN=SN+1
  1731			000077			ZZ=ZZ+ZZ+1			;TESTED BIT
  1732						IFE	ZZ,<ZZ=-2>
  1733	031434	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
  1734	031435	561 10 0 00 000077 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1735	031436	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1736	031437	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1737	031440	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1738	031441	004 10 0 00 001606 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1739	031442	321 11 0 00 031434 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1740
  1741
  1742
  1743					;VERIFY MQ-AD GATING
  1744					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1745					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1746					;REPEAT FOR ALL 36 BITS OF MQ
  1747					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1748			001607		SN=SN+1
  1749			000177			ZZ=ZZ+ZZ+1			;TESTED BIT
  1750						IFE	ZZ,<ZZ=-2>
  1751	031443	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
  1752	031444	561 10 0 00 000177 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1753	031445	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1754	031446	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1755	031447	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1756	031450	004 10 0 00 001607 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1757	031451	321 11 0 00 031443 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1758
  1759
  1760
  1761					;VERIFY MQ-AD GATING
  1762					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1763					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1764					;REPEAT FOR ALL 36 BITS OF MQ
  1765					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1766			001610		SN=SN+1
  1767			000377			ZZ=ZZ+ZZ+1			;TESTED BIT
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 7-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0050

  1768						IFE	ZZ,<ZZ=-2>
  1769	031452	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
  1770	031453	561 10 0 00 000377 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1771	031454	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1772	031455	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1773	031456	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1774	031457	004 10 0 00 001610 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1775	031460	321 11 0 00 031452 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1776
  1777
  1778
  1779					;VERIFY MQ-AD GATING
  1780					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1781					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1782					;REPEAT FOR ALL 36 BITS OF MQ
  1783					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1784			001611		SN=SN+1
  1785			000777			ZZ=ZZ+ZZ+1			;TESTED BIT
  1786						IFE	ZZ,<ZZ=-2>
  1787	031461	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
  1788	031462	561 10 0 00 000777 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1789	031463	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1790	031464	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1791	031465	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1792	031466	004 10 0 00 001611 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1793	031467	321 11 0 00 031461 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1794
  1795
  1796
  1797					;VERIFY MQ-AD GATING
  1798					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1799					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1800					;REPEAT FOR ALL 36 BITS OF MQ
  1801					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1802			001612		SN=SN+1
  1803			001777			ZZ=ZZ+ZZ+1			;TESTED BIT
  1804						IFE	ZZ,<ZZ=-2>
  1805	031470	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
  1806	031471	561 10 0 00 001777 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1807	031472	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1808	031473	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1809	031474	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1810	031475	004 10 0 00 001612 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1811	031476	321 11 0 00 031470 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1812
  1813
  1814
  1815					;VERIFY MQ-AD GATING
  1816					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1817					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1818					;REPEAT FOR ALL 36 BITS OF MQ
  1819					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1820			001613		SN=SN+1
  1821			003777			ZZ=ZZ+ZZ+1			;TESTED BIT
  1822						IFE	ZZ,<ZZ=-2>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 7-4
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0051

  1823	031477	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
  1824	031500	561 10 0 00 003777 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1825	031501	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1826	031502	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1827	031503	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1828	031504	004 10 0 00 001613 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1829	031505	321 11 0 00 031477 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1830
  1831
  1832
  1833					;VERIFY MQ-AD GATING
  1834					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1835					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1836					;REPEAT FOR ALL 36 BITS OF MQ
  1837					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1838			001614		SN=SN+1
  1839			007777			ZZ=ZZ+ZZ+1			;TESTED BIT
  1840						IFE	ZZ,<ZZ=-2>
  1841	031506	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
  1842	031507	561 10 0 00 007777 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1843	031510	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1844	031511	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1845	031512	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1846	031513	004 10 0 00 001614 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1847	031514	321 11 0 00 031506 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1848
  1849
  1850
  1851					;VERIFY MQ-AD GATING
  1852					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1853					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1854					;REPEAT FOR ALL 36 BITS OF MQ
  1855					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1856			001615		SN=SN+1
  1857			017777			ZZ=ZZ+ZZ+1			;TESTED BIT
  1858						IFE	ZZ,<ZZ=-2>
  1859	031515	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
  1860	031516	561 10 0 00 017777 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1861	031517	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1862	031520	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1863	031521	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1864	031522	004 10 0 00 001615 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1865	031523	321 11 0 00 031515 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1866
  1867
  1868
  1869					;VERIFY MQ-AD GATING
  1870					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1871					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1872					;REPEAT FOR ALL 36 BITS OF MQ
  1873					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1874			001616		SN=SN+1
  1875			037777			ZZ=ZZ+ZZ+1			;TESTED BIT
  1876						IFE	ZZ,<ZZ=-2>
  1877	031524	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 7-5
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0052

  1878	031525	561 10 0 00 037777 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1879	031526	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1880	031527	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1881	031530	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1882	031531	004 10 0 00 001616 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1883	031532	321 11 0 00 031524 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1884
  1885
  1886
  1887					;VERIFY MQ-AD GATING
  1888					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1889					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1890					;REPEAT FOR ALL 36 BITS OF MQ
  1891					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1892			001617		SN=SN+1
  1893			077777			ZZ=ZZ+ZZ+1			;TESTED BIT
  1894						IFE	ZZ,<ZZ=-2>
  1895	031533	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
  1896	031534	561 10 0 00 077777 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1897	031535	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1898	031536	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1899	031537	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1900	031540	004 10 0 00 001617 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1901	031541	321 11 0 00 031533 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1902
  1903
  1904
  1905					;VERIFY MQ-AD GATING
  1906					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1907					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1908					;REPEAT FOR ALL 36 BITS OF MQ
  1909					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1910			001620		SN=SN+1
  1911			177777			ZZ=ZZ+ZZ+1			;TESTED BIT
  1912						IFE	ZZ,<ZZ=-2>
  1913	031542	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
  1914	031543	561 10 0 00 177777 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1915	031544	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1916	031545	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1917	031546	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1918	031547	004 10 0 00 001620 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1919	031550	321 11 0 00 031542 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1920
  1921
  1922
  1923					;VERIFY MQ-AD GATING
  1924					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1925					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1926					;REPEAT FOR ALL 36 BITS OF MQ
  1927					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1928			001621		SN=SN+1
  1929			377777			ZZ=ZZ+ZZ+1			;TESTED BIT
  1930						IFE	ZZ,<ZZ=-2>
  1931	031551	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
  1932	031552	561 10 0 00 377777 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 7-6
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0053

  1933	031553	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1934	031554	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1935	031555	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1936	031556	004 10 0 00 001621 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1937	031557	321 11 0 00 031551 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1938
  1939
  1940
  1941					;VERIFY MQ-AD GATING
  1942					;ROTC A RIPPLED ZERO ZERO POSITIONS IN AC+1
  1943					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1944					;REPEAT FOR ALL 36 BITS OF MQ
  1945					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1946			001622		SN=SN+1
  1947			777777			ZZ=ZZ+ZZ+1			;TESTED BIT
  1948						IFE	ZZ,<ZZ=-2>
  1949	031560	476 00 0 00 000007 		SETOM	AC			;INITIALIZE TO ALL ONES
  1950	031561	561 10 0 00 777777 		HRROI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1951	031562	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1952	031563	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1953	031564	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1954	031565	004 10 0 00 001622 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1955	031566	321 11 0 00 031560 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1956
  1957					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 7-7
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0054

  1958			000000		ZZ=0
  1959								;CHECK AC+1 LEFT <
  1960						REPEAT	^D18,<
  1961					
  1962					;VERIFY MQ-AD GATING
  1963					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  1964					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1965					;REPEAT FOR ALL 36 BITS OF MQ
  1966					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1967					SN=SN+1
  1968						ZZ=ZZ+ZZ+1			;TESTED BIT
  1969						IFE	ZZ,<ZZ=-2>
  1970						SETOM	AC			;INITIALIZE	AC TO ALL ONES
  1971						HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1972						MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1973						ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1974						CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1975						ER4	AC+1,SN			;MQ-AD GATE FAILED
  1976						JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1977					>
  1978
  1979
  1980					;VERIFY MQ-AD GATING
  1981					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  1982					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  1983					;REPEAT FOR ALL 36 BITS OF MQ
  1984					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  1985			001623		SN=SN+1
  1986			000001			ZZ=ZZ+ZZ+1			;TESTED BIT
  1987						IFE	ZZ,<ZZ=-2>
  1988	031567	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  1989	031570	525 10 0 00 000001 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  1990	031571	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  1991	031572	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  1992	031573	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  1993	031574	004 10 0 00 001623 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  1994	031575	321 11 0 00 031567 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  1995
  1996
  1997
  1998					;VERIFY MQ-AD GATING
  1999					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  2000					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  2001					;REPEAT FOR ALL 36 BITS OF MQ
  2002					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  2003			001624		SN=SN+1
  2004			000003			ZZ=ZZ+ZZ+1			;TESTED BIT
  2005						IFE	ZZ,<ZZ=-2>
  2006	031576	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  2007	031577	525 10 0 00 000003 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  2008	031600	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  2009	031601	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  2010	031602	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  2011	031603	004 10 0 00 001624 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  2012	031604	321 11 0 00 031576 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 7-8
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0055

  2013
  2014
  2015
  2016					;VERIFY MQ-AD GATING
  2017					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  2018					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  2019					;REPEAT FOR ALL 36 BITS OF MQ
  2020					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  2021			001625		SN=SN+1
  2022			000007			ZZ=ZZ+ZZ+1			;TESTED BIT
  2023						IFE	ZZ,<ZZ=-2>
  2024	031605	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  2025	031606	525 10 0 00 000007 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  2026	031607	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  2027	031610	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  2028	031611	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  2029	031612	004 10 0 00 001625 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  2030	031613	321 11 0 00 031605 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2031
  2032
  2033
  2034					;VERIFY MQ-AD GATING
  2035					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  2036					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  2037					;REPEAT FOR ALL 36 BITS OF MQ
  2038					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  2039			001626		SN=SN+1
  2040			000017			ZZ=ZZ+ZZ+1			;TESTED BIT
  2041						IFE	ZZ,<ZZ=-2>
  2042	031614	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  2043	031615	525 10 0 00 000017 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  2044	031616	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  2045	031617	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  2046	031620	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  2047	031621	004 10 0 00 001626 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  2048	031622	321 11 0 00 031614 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2049
  2050
  2051
  2052					;VERIFY MQ-AD GATING
  2053					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  2054					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  2055					;REPEAT FOR ALL 36 BITS OF MQ
  2056					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  2057			001627		SN=SN+1
  2058			000037			ZZ=ZZ+ZZ+1			;TESTED BIT
  2059						IFE	ZZ,<ZZ=-2>
  2060	031623	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  2061	031624	525 10 0 00 000037 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  2062	031625	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  2063	031626	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  2064	031627	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  2065	031630	004 10 0 00 001627 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  2066	031631	321 11 0 00 031623 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2067
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 7-9
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0056

  2068
  2069
  2070					;VERIFY MQ-AD GATING
  2071					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  2072					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  2073					;REPEAT FOR ALL 36 BITS OF MQ
  2074					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  2075			001630		SN=SN+1
  2076			000077			ZZ=ZZ+ZZ+1			;TESTED BIT
  2077						IFE	ZZ,<ZZ=-2>
  2078	031632	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  2079	031633	525 10 0 00 000077 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  2080	031634	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  2081	031635	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  2082	031636	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  2083	031637	004 10 0 00 001630 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  2084	031640	321 11 0 00 031632 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2085
  2086
  2087
  2088					;VERIFY MQ-AD GATING
  2089					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  2090					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  2091					;REPEAT FOR ALL 36 BITS OF MQ
  2092					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  2093			001631		SN=SN+1
  2094			000177			ZZ=ZZ+ZZ+1			;TESTED BIT
  2095						IFE	ZZ,<ZZ=-2>
  2096	031641	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  2097	031642	525 10 0 00 000177 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  2098	031643	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  2099	031644	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  2100	031645	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  2101	031646	004 10 0 00 001631 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  2102	031647	321 11 0 00 031641 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2103
  2104
  2105
  2106					;VERIFY MQ-AD GATING
  2107					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  2108					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  2109					;REPEAT FOR ALL 36 BITS OF MQ
  2110					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  2111			001632		SN=SN+1
  2112			000377			ZZ=ZZ+ZZ+1			;TESTED BIT
  2113						IFE	ZZ,<ZZ=-2>
  2114	031650	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  2115	031651	525 10 0 00 000377 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  2116	031652	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  2117	031653	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  2118	031654	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  2119	031655	004 10 0 00 001632 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  2120	031656	321 11 0 00 031650 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2121
  2122
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 7-10
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0057

  2123
  2124					;VERIFY MQ-AD GATING
  2125					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  2126					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  2127					;REPEAT FOR ALL 36 BITS OF MQ
  2128					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  2129			001633		SN=SN+1
  2130			000777			ZZ=ZZ+ZZ+1			;TESTED BIT
  2131						IFE	ZZ,<ZZ=-2>
  2132	031657	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  2133	031660	525 10 0 00 000777 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  2134	031661	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  2135	031662	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  2136	031663	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  2137	031664	004 10 0 00 001633 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  2138	031665	321 11 0 00 031657 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2139
  2140
  2141
  2142					;VERIFY MQ-AD GATING
  2143					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  2144					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  2145					;REPEAT FOR ALL 36 BITS OF MQ
  2146					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  2147			001634		SN=SN+1
  2148			001777			ZZ=ZZ+ZZ+1			;TESTED BIT
  2149						IFE	ZZ,<ZZ=-2>
  2150	031666	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  2151	031667	525 10 0 00 001777 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  2152	031670	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  2153	031671	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  2154	031672	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  2155	031673	004 10 0 00 001634 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  2156	031674	321 11 0 00 031666 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2157
  2158
  2159
  2160					;VERIFY MQ-AD GATING
  2161					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  2162					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  2163					;REPEAT FOR ALL 36 BITS OF MQ
  2164					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  2165			001635		SN=SN+1
  2166			003777			ZZ=ZZ+ZZ+1			;TESTED BIT
  2167						IFE	ZZ,<ZZ=-2>
  2168	031675	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  2169	031676	525 10 0 00 003777 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  2170	031677	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  2171	031700	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  2172	031701	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  2173	031702	004 10 0 00 001635 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  2174	031703	321 11 0 00 031675 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2175
  2176
  2177
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 7-11
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0058

  2178					;VERIFY MQ-AD GATING
  2179					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  2180					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  2181					;REPEAT FOR ALL 36 BITS OF MQ
  2182					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  2183			001636		SN=SN+1
  2184			007777			ZZ=ZZ+ZZ+1			;TESTED BIT
  2185						IFE	ZZ,<ZZ=-2>
  2186	031704	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  2187	031705	525 10 0 00 007777 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  2188	031706	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  2189	031707	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  2190	031710	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  2191	031711	004 10 0 00 001636 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  2192	031712	321 11 0 00 031704 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2193
  2194
  2195
  2196					;VERIFY MQ-AD GATING
  2197					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  2198					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  2199					;REPEAT FOR ALL 36 BITS OF MQ
  2200					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  2201			001637		SN=SN+1
  2202			017777			ZZ=ZZ+ZZ+1			;TESTED BIT
  2203						IFE	ZZ,<ZZ=-2>
  2204	031713	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  2205	031714	525 10 0 00 017777 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  2206	031715	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  2207	031716	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  2208	031717	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  2209	031720	004 10 0 00 001637 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  2210	031721	321 11 0 00 031713 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2211
  2212
  2213
  2214					;VERIFY MQ-AD GATING
  2215					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  2216					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  2217					;REPEAT FOR ALL 36 BITS OF MQ
  2218					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  2219			001640		SN=SN+1
  2220			037777			ZZ=ZZ+ZZ+1			;TESTED BIT
  2221						IFE	ZZ,<ZZ=-2>
  2222	031722	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  2223	031723	525 10 0 00 037777 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  2224	031724	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  2225	031725	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  2226	031726	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  2227	031727	004 10 0 00 001640 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  2228	031730	321 11 0 00 031722 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2229
  2230
  2231
  2232					;VERIFY MQ-AD GATING
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 7-12
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0059

  2233					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  2234					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  2235					;REPEAT FOR ALL 36 BITS OF MQ
  2236					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  2237			001641		SN=SN+1
  2238			077777			ZZ=ZZ+ZZ+1			;TESTED BIT
  2239						IFE	ZZ,<ZZ=-2>
  2240	031731	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  2241	031732	525 10 0 00 077777 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  2242	031733	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  2243	031734	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  2244	031735	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  2245	031736	004 10 0 00 001641 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  2246	031737	321 11 0 00 031731 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2247
  2248
  2249
  2250					;VERIFY MQ-AD GATING
  2251					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  2252					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  2253					;REPEAT FOR ALL 36 BITS OF MQ
  2254					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  2255			001642		SN=SN+1
  2256			177777			ZZ=ZZ+ZZ+1			;TESTED BIT
  2257						IFE	ZZ,<ZZ=-2>
  2258	031740	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  2259	031741	525 10 0 00 177777 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  2260	031742	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  2261	031743	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  2262	031744	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  2263	031745	004 10 0 00 001642 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  2264	031746	321 11 0 00 031740 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2265
  2266
  2267
  2268					;VERIFY MQ-AD GATING
  2269					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
  2270					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  2271					;REPEAT FOR ALL 36 BITS OF MQ
  2272					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  2273			001643		SN=SN+1
  2274			377777			ZZ=ZZ+ZZ+1			;TESTED BIT
  2275						IFE	ZZ,<ZZ=-2>
  2276	031747	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  2277	031750	525 10 0 00 377777 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  2278	031751	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  2279	031752	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  2280	031753	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  2281	031754	004 10 0 00 001643 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  2282	031755	321 11 0 00 031747 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2283
  2284
  2285
  2286					;VERIFY MQ-AD GATING
  2287					;ROTC A RIPPLED ZERO ZERO POSIOTIONS IN AC+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 7-13
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ-ADDER GATING                                          SEQ 0060

  2288					;FIRST SET AC TO ALL ONES; THEN, SET ALL BUT ONE BIT OF AC+1
  2289					;REPEAT FOR ALL 36 BITS OF MQ
  2290					;RESULT IN AC+1 SHOULD BE SAME AS INITIALIZATION DATA
  2291			001644		SN=SN+1
  2292			777777			ZZ=ZZ+ZZ+1			;TESTED BIT
  2293						IFE	ZZ,<ZZ=-2>
  2294	031756	476 00 0 00 000007 		SETOM	AC			;INITIALIZE	AC TO ALL ONES
  2295	031757	525 10 0 00 777777 		HRLOI	AC+1,ZZ&777777		;INITIALIZE AC+1
  2296	031760	200 06 0 00 000010 		MOVE	AC-1,AC+1		;SETUP FOR COMPARISON
  2297	031761	245 07 0 00 000000 		ROTC	AC,0		;*ROT 0 BIT POSITIONS
  2298	031762	312 10 0 00 000006 		CAME	AC+1,AC-1		;CHECK BIT (N) OF AC+1
  2299	031763	004 10 0 00 001644 		ER4	AC+1,SN			;MQ-AD GATE FAILED
  2300	031764	321 11 0 00 031756 		JUMPL	AC+2,.-6		;LOOP ON ERROR SWITCH
  2301
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 8
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - BASIC SHIFT TEST (0,1,-1,-2 BIT POSITIONS)                    SEQ 0061

  2302					SUBTTL	DIAGNOSTIC SECTION - BASIC SHIFT TEST (0,1,-1,-2 BIT POSITIONS)
  2303
  2304					;BASIC SHIFT TEST
  2305					;TEST ABILITY TO SHIFT A BIT 0,1,-1 AND -2 POSITIONS
  2306
  2307			000004			AC=4
  2308						SAVEAC	(1,1)^
  2309	031765	201 06 0 00 031765 		MOVEI	AC+2,.		;SAVE TEST PC
  2310	031766	202 06 0 00 030051 		MOVEM	AC+2,TESTPC
  2311	031767	201 06 0 00 000006 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2312	031770	202 06 0 00 041763 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2313
  2314					;TEST ABILITY TO SHIFT A BIT ZERO POSITIONS USING LSH
  2315						SR1	(17,0,10,0,10,LSH,0)^
  2316					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,10] 0 BIT
  2317					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,10]
  2318					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
  2319
  2320	031771	200 04 0 00 041617 	E1700:	MOVE	AC,[XWD 0,10]	;INITIALIZE AC
  2321	031772	200 05 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
  2322	031773	242 04 0 00 000000 		LSH	AC,0			;*SHIFT/ROTATE 0 BIT POSITIONS
  2323	031774	312 04 0 00 041617 		CAME	AC,[XWD 0,10]	;IS RESULT IN AC CORRECT?
  2324	031775	003 04 0 00 001701 		ER3	AC,1701			;RESULT IN AC IS INCORRECT
  2325	031776	312 05 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
  2326	031777	004 05 0 00 001701 		ER4	AC+1,1701		;C(AC+1) WAS MODIFIED INCORRECTLY
  2327	032000	321 06 0 00 031771 		JUMPL	AC+2,E1700		;LOOP ON ERROR SWITCH^
  2328
  2329					;TEST ABILITY TO SHIFT A BIT LEFT ONE POSITION USING LSH
  2330						SR1	(20,0,10,0,20,LSH,1)^
  2331					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,10] 1 BIT
  2332					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,20]
  2333					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
  2334
  2335	032001	200 04 0 00 041617 	E2000:	MOVE	AC,[XWD 0,10]	;INITIALIZE AC
  2336	032002	200 05 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
  2337	032003	242 04 0 00 000001 		LSH	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
  2338	032004	312 04 0 00 041621 		CAME	AC,[XWD 0,20]	;IS RESULT IN AC CORRECT?
  2339	032005	003 04 0 00 002001 		ER3	AC,2001			;RESULT IN AC IS INCORRECT
  2340	032006	312 05 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
  2341	032007	004 05 0 00 002001 		ER4	AC+1,2001		;C(AC+1) WAS MODIFIED INCORRECTLY
  2342	032010	321 06 0 00 032001 		JUMPL	AC+2,E2000		;LOOP ON ERROR SWITCH^
  2343
  2344					;TEST ABILITY TO SHIFT A BIT RIGHT ONE POSITION USING LSH
  2345						SR1	(442,0,10,0,4,LSH,-1)^
  2346					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,10] -1 BIT
  2347					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,4]
  2348					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
  2349
  2350	032011	200 04 0 00 041617 	E44200:	MOVE	AC,[XWD 0,10]	;INITIALIZE AC
  2351	032012	200 05 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
  2352	032013	242 04 0 00 777777 		LSH	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
  2353	032014	312 04 0 00 041622 		CAME	AC,[XWD 0,4]	;IS RESULT IN AC CORRECT?
  2354	032015	003 04 0 00 044201 		ER3	AC,44201			;RESULT IN AC IS INCORRECT
  2355	032016	312 05 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
  2356	032017	004 05 0 00 044201 		ER4	AC+1,44201		;C(AC+1) WAS MODIFIED INCORRECTLY
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 8-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - BASIC SHIFT TEST (0,1,-1,-2 BIT POSITIONS)                    SEQ 0062

  2357	032020	321 06 0 00 032011 		JUMPL	AC+2,E44200		;LOOP ON ERROR SWITCH^
  2358
  2359					;TEST ABILITY TO SHIFT A BIT RIGHT TWO POSITIONS USING LSH
  2360						SR1	(21,0,10,0,2,LSH,-2)^
  2361					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,10] -2 BIT
  2362					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2]
  2363					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
  2364
  2365	032021	200 04 0 00 041617 	E2100:	MOVE	AC,[XWD 0,10]	;INITIALIZE AC
  2366	032022	200 05 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
  2367	032023	242 04 0 00 777776 		LSH	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
  2368	032024	312 04 0 00 041623 		CAME	AC,[XWD 0,2]	;IS RESULT IN AC CORRECT?
  2369	032025	003 04 0 00 002101 		ER3	AC,2101			;RESULT IN AC IS INCORRECT
  2370	032026	312 05 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
  2371	032027	004 05 0 00 002101 		ER4	AC+1,2101		;C(AC+1) WAS MODIFIED INCORRECTLY
  2372	032030	321 06 0 00 032021 		JUMPL	AC+2,E2100		;LOOP ON ERROR SWITCH^
  2373					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 8-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - BASIC SHIFT TEST (0,1,-1,-2 BIT POSITIONS)                    SEQ 0063

  2374					;TEST ABILITY TO SHIFT A BIT ZERO POSITIONS USING LSHC
  2375						SR2	(22,0,10,0,10,0,10,0,10,LSHC,0)^
  2376					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
  2377					;DATA SPECIFIED IN [XWD 0,10] AND [XWD 0,10] 0 BIT POSITIONS AND
  2378					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,10] AND
  2379					;[XWD 0,10]
  2380
  2381	032031	200 04 0 00 041617 	E2200:	MOVE	AC,[XWD 0,10]	;INITIALIZE AC
  2382	032032	200 05 0 00 041617 		MOVE	AC+1,[XWD 0,10]	;INITIALIZE AC+1
  2383	032033	246 04 0 00 000000 		LSHC	AC,0			;*SHIFT/ROTATE COMBINED 0 PLACES
  2384	032034	312 04 0 00 041617 		CAME	AC,[XWD 0,10]	;IS RESULT IN AC CORRECT?
  2385	032035	003 04 0 00 002201 		ER3	AC,2201			;RESULT IN AC IS INCORRECT
  2386	032036	312 05 0 00 041617 		CAME	AC+1,[XWD 0,10]	;IS RESULT IN AC+1 CORRECT?
  2387	032037	004 05 0 00 002201 		ER4	AC+1,2201		;RESULT IN AC+1 IS INCORRECT
  2388	032040	321 06 0 00 032031 		JUMPL	AC+2,E2200		;LOOP ON ERROR SWITCH^
  2389
  2390					;TEST ABILITY TO SHIFT A BIT LEFT ONE POSITION USING LSHC
  2391						SR2	(23,0,10,0,10,0,20,0,20,LSHC,1)^
  2392					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
  2393					;DATA SPECIFIED IN [XWD 0,10] AND [XWD 0,10] 1 BIT POSITIONS AND
  2394					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,20] AND
  2395					;[XWD 0,20]
  2396
  2397	032041	200 04 0 00 041617 	E2300:	MOVE	AC,[XWD 0,10]	;INITIALIZE AC
  2398	032042	200 05 0 00 041617 		MOVE	AC+1,[XWD 0,10]	;INITIALIZE AC+1
  2399	032043	246 04 0 00 000001 		LSHC	AC,1			;*SHIFT/ROTATE COMBINED 1 PLACES
  2400	032044	312 04 0 00 041621 		CAME	AC,[XWD 0,20]	;IS RESULT IN AC CORRECT?
  2401	032045	003 04 0 00 002301 		ER3	AC,2301			;RESULT IN AC IS INCORRECT
  2402	032046	312 05 0 00 041621 		CAME	AC+1,[XWD 0,20]	;IS RESULT IN AC+1 CORRECT?
  2403	032047	004 05 0 00 002301 		ER4	AC+1,2301		;RESULT IN AC+1 IS INCORRECT
  2404	032050	321 06 0 00 032041 		JUMPL	AC+2,E2300		;LOOP ON ERROR SWITCH^
  2405
  2406					;TEST ABILITY TO SHIFT A BIT RIGHT ONE POSITION USING LSHC
  2407						SR2	(24,0,10,0,10,0,4,0,4,LSHC,-1)^
  2408					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
  2409					;DATA SPECIFIED IN [XWD 0,10] AND [XWD 0,10] -1 BIT POSITIONS AND
  2410					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,4] AND
  2411					;[XWD 0,4]
  2412
  2413	032051	200 04 0 00 041617 	E2400:	MOVE	AC,[XWD 0,10]	;INITIALIZE AC
  2414	032052	200 05 0 00 041617 		MOVE	AC+1,[XWD 0,10]	;INITIALIZE AC+1
  2415	032053	246 04 0 00 777777 		LSHC	AC,-1			;*SHIFT/ROTATE COMBINED -1 PLACES
  2416	032054	312 04 0 00 041622 		CAME	AC,[XWD 0,4]	;IS RESULT IN AC CORRECT?
  2417	032055	003 04 0 00 002401 		ER3	AC,2401			;RESULT IN AC IS INCORRECT
  2418	032056	312 05 0 00 041622 		CAME	AC+1,[XWD 0,4]	;IS RESULT IN AC+1 CORRECT?
  2419	032057	004 05 0 00 002401 		ER4	AC+1,2401		;RESULT IN AC+1 IS INCORRECT
  2420	032060	321 06 0 00 032051 		JUMPL	AC+2,E2400		;LOOP ON ERROR SWITCH^
  2421
  2422					;TEST ABILITY TO SHIFT A BIT RIGHT TWO POSITIONS USING LSHC
  2423						SR2	(25,0,10,0,10,0,2,0,2,LSHC,-2)^
  2424					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
  2425					;DATA SPECIFIED IN [XWD 0,10] AND [XWD 0,10] -2 BIT POSITIONS AND
  2426					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND
  2427					;[XWD 0,2]
  2428
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 8-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - BASIC SHIFT TEST (0,1,-1,-2 BIT POSITIONS)                    SEQ 0064

  2429	032061	200 04 0 00 041617 	E2500:	MOVE	AC,[XWD 0,10]	;INITIALIZE AC
  2430	032062	200 05 0 00 041617 		MOVE	AC+1,[XWD 0,10]	;INITIALIZE AC+1
  2431	032063	246 04 0 00 777776 		LSHC	AC,-2			;*SHIFT/ROTATE COMBINED -2 PLACES
  2432	032064	312 04 0 00 041623 		CAME	AC,[XWD 0,2]	;IS RESULT IN AC CORRECT?
  2433	032065	003 04 0 00 002501 		ER3	AC,2501			;RESULT IN AC IS INCORRECT
  2434	032066	312 05 0 00 041623 		CAME	AC+1,[XWD 0,2]	;IS RESULT IN AC+1 CORRECT?
  2435	032067	004 05 0 00 002501 		ER4	AC+1,2501		;RESULT IN AC+1 IS INCORRECT
  2436	032070	321 06 0 00 032061 		JUMPL	AC+2,E2500		;LOOP ON ERROR SWITCH^
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 9
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SAC FUNCTION                                             SEQ 0065

  2437					SUBTTL	DIAGNOSTIC SECTION - TEST SAC FUNCTION
  2438
  2439			000010			AC=10
  2440						SAVEAC	(1,1)^
  2441	032071	201 12 0 00 032071 		MOVEI	AC+2,.		;SAVE TEST PC
  2442	032072	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  2443	032073	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2444	032074	202 12 0 00 041763 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2445
  2446			002600		SN=2600
  2447			000001			ZZ=1
  2448
  2449							;TEST SAC
  2450					E2600:	REPEAT	^D3,<
  2451					SN=SN+1
  2452					;FURTHER TEST OF SAC,SAC2
  2453					;TEST FOR ASSERTION OF SAC INH
  2454					;TEST ASSUMES ABILITY TO ROTATE
  2455					;TO SOME DEGREE
  2456						ZZ=ZZ+ZZ
  2457						HRRZI	AC,400000	;SET BIT 18
  2458						ROT	AC,ZZ		;*ROT LEFT (N) NUMBER OF TIMES
  2459						CAIN	AC,400000	;TEST FOR SAC
  2460						ER3	AC,SN		;STORE AC FAILED
  2461						JUMPL	AC+2,.-4	;LOOP ON ERROR SWITCH
  2462					>
  2463
  2464			002601		SN=SN+1
  2465					;FURTHER TEST OF SAC,SAC2
  2466					;TEST FOR ASSERTION OF SAC INH
  2467					;TEST ASSUMES ABILITY TO ROTATE
  2468					;TO SOME DEGREE
  2469			000002			ZZ=ZZ+ZZ
  2470	032075	551 10 0 00 400000 		HRRZI	AC,400000	;SET BIT 18
  2471	032076	241 10 0 00 000002 		ROT	AC,ZZ		;*ROT LEFT (N) NUMBER OF TIMES
  2472	032077	306 10 0 00 400000 		CAIN	AC,400000	;TEST FOR SAC
  2473	032100	003 10 0 00 002601 		ER3	AC,SN		;STORE AC FAILED
  2474	032101	321 12 0 00 032075 		JUMPL	AC+2,.-4	;LOOP ON ERROR SWITCH
  2475
  2476
  2477			002602		SN=SN+1
  2478					;FURTHER TEST OF SAC,SAC2
  2479					;TEST FOR ASSERTION OF SAC INH
  2480					;TEST ASSUMES ABILITY TO ROTATE
  2481					;TO SOME DEGREE
  2482			000004			ZZ=ZZ+ZZ
  2483	032102	551 10 0 00 400000 		HRRZI	AC,400000	;SET BIT 18
  2484	032103	241 10 0 00 000004 		ROT	AC,ZZ		;*ROT LEFT (N) NUMBER OF TIMES
  2485	032104	306 10 0 00 400000 		CAIN	AC,400000	;TEST FOR SAC
  2486	032105	003 10 0 00 002602 		ER3	AC,SN		;STORE AC FAILED
  2487	032106	321 12 0 00 032102 		JUMPL	AC+2,.-4	;LOOP ON ERROR SWITCH
  2488
  2489
  2490			002603		SN=SN+1
  2491					;FURTHER TEST OF SAC,SAC2
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 9-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SAC FUNCTION                                             SEQ 0066

  2492					;TEST FOR ASSERTION OF SAC INH
  2493					;TEST ASSUMES ABILITY TO ROTATE
  2494					;TO SOME DEGREE
  2495			000010			ZZ=ZZ+ZZ
  2496	032107	551 10 0 00 400000 		HRRZI	AC,400000	;SET BIT 18
  2497	032110	241 10 0 00 000010 		ROT	AC,ZZ		;*ROT LEFT (N) NUMBER OF TIMES
  2498	032111	306 10 0 00 400000 		CAIN	AC,400000	;TEST FOR SAC
  2499	032112	003 10 0 00 002603 		ER3	AC,SN		;STORE AC FAILED
  2500	032113	321 12 0 00 032107 		JUMPL	AC+2,.-4	;LOOP ON ERROR SWITCH
  2501
  2502					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 9-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SAC FUNCTION                                             SEQ 0067

  2503			002700		SN=2700
  2504			000001			ZZ=1
  2505
  2506							;TEST SAC
  2507					E2700:	REPEAT	^D3,<
  2508					SN=SN+1
  2509					;FURTHER TEST OF SAC,SAC2
  2510					;TEST FOR ASSERTION OF SAC INH
  2511					;TEST ASSUMES ABILITY TO ROTATE
  2512					;TO SOME DEGREE
  2513					
  2514						ZZ=ZZ+ZZ
  2515						SETZ	AC,		;CLEAR AC
  2516						HRRZI	AC+1,400000	;SET BIT 18
  2517						ROTC	AC,ZZ		;*ROT LEFT (N) NUMBER OF TIMES
  2518						CAIN	AC+1,400000	;TEST FOR SAC
  2519						ER4	AC+1,SN		;STORE AC+1 FAILED
  2520						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2521					>
  2522
  2523			002701		SN=SN+1
  2524					;FURTHER TEST OF SAC,SAC2
  2525					;TEST FOR ASSERTION OF SAC INH
  2526					;TEST ASSUMES ABILITY TO ROTATE
  2527					;TO SOME DEGREE
  2528
  2529			000002			ZZ=ZZ+ZZ
  2530	032114	400 10 0 00 000000 		SETZ	AC,		;CLEAR AC
  2531	032115	551 11 0 00 400000 		HRRZI	AC+1,400000	;SET BIT 18
  2532	032116	245 10 0 00 000002 		ROTC	AC,ZZ		;*ROT LEFT (N) NUMBER OF TIMES
  2533	032117	306 11 0 00 400000 		CAIN	AC+1,400000	;TEST FOR SAC
  2534	032120	004 11 0 00 002701 		ER4	AC+1,SN		;STORE AC+1 FAILED
  2535	032121	321 12 0 00 032114 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2536
  2537
  2538			002702		SN=SN+1
  2539					;FURTHER TEST OF SAC,SAC2
  2540					;TEST FOR ASSERTION OF SAC INH
  2541					;TEST ASSUMES ABILITY TO ROTATE
  2542					;TO SOME DEGREE
  2543
  2544			000004			ZZ=ZZ+ZZ
  2545	032122	400 10 0 00 000000 		SETZ	AC,		;CLEAR AC
  2546	032123	551 11 0 00 400000 		HRRZI	AC+1,400000	;SET BIT 18
  2547	032124	245 10 0 00 000004 		ROTC	AC,ZZ		;*ROT LEFT (N) NUMBER OF TIMES
  2548	032125	306 11 0 00 400000 		CAIN	AC+1,400000	;TEST FOR SAC
  2549	032126	004 11 0 00 002702 		ER4	AC+1,SN		;STORE AC+1 FAILED
  2550	032127	321 12 0 00 032122 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2551
  2552
  2553			002703		SN=SN+1
  2554					;FURTHER TEST OF SAC,SAC2
  2555					;TEST FOR ASSERTION OF SAC INH
  2556					;TEST ASSUMES ABILITY TO ROTATE
  2557					;TO SOME DEGREE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 9-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SAC FUNCTION                                             SEQ 0068

  2558
  2559			000010			ZZ=ZZ+ZZ
  2560	032130	400 10 0 00 000000 		SETZ	AC,		;CLEAR AC
  2561	032131	551 11 0 00 400000 		HRRZI	AC+1,400000	;SET BIT 18
  2562	032132	245 10 0 00 000010 		ROTC	AC,ZZ		;*ROT LEFT (N) NUMBER OF TIMES
  2563	032133	306 11 0 00 400000 		CAIN	AC+1,400000	;TEST FOR SAC
  2564	032134	004 11 0 00 002703 		ER4	AC+1,SN		;STORE AC+1 FAILED
  2565	032135	321 12 0 00 032130 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2566
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 10
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0069

  2567					SUBTTL	DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR
  2568
  2569					;TEST ROT LEFT ONE BIT POSITION USING ALL ZEROS
  2570					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2571					;AN ERROR OCCURS IF C(AC) IS NON-ZERO AFTER ROTATING
  2572
  2573			000011			AC=11
  2574						SAVEAC	(1,1)^
  2575	032136	201 13 0 00 032136 		MOVEI	AC+2,.		;SAVE TEST PC
  2576	032137	202 13 0 00 030051 		MOVEM	AC+2,TESTPC
  2577	032140	201 13 0 00 000013 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  2578	032141	202 13 0 00 041763 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  2579
  2580	032142	403 11 0 00 000010 	E3000:	SETZB	AC,AC-1		;INITIALIZE AC AND EXPECTED RESULT TO ZERO
  2581	032143	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  2582	032144	312 11 0 00 000010 		CAME	AC,AC-1		;TEST AC FOR ALL ZEROS
  2583	032145	003 11 0 00 003001 		ER3	AC,3001		;AD-AR GATING FAILED
  2584	032146	321 13 0 00 032147 		JUMPL	AC+2,E3100	;LOOP ON ERROR SWITCH
  2585
  2586					;TEST ROT LEFT ONE BIT POSITION USING ALL ONES
  2587					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2588					;AN ERROR OCCURS IF C(AC) IS NOT ALL ONES AFTER ROTATING
  2589
  2590	032147	477 11 0 00 000010 	E3100:	SETOB	AC,AC-1		;INITIALIZE AC AND EXPECTED RESULT TO ALL ONES
  2591	032150	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  2592	032151	312 11 0 00 000010 		CAME	AC,AC-1		;TEST AC FOR ALL ONES
  2593	032152	003 11 0 00 003101 		ER3	AC,3101		;AD-AR GATING FAILED
  2594	032153	321 13 0 00 032147 		JUMPL	AC+2,E3100	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 11
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0070

  2595			003200		SN=3200
  2596			000000			ZZ=0
  2597
  2598							;TEST AC RIGHT HALF <
  2599					E3200:	REPEAT 	^D18,<
  2600					;TEST ROT LEFT ONE BIT POSITION
  2601					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2602					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2603					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2604					;IS ONE AFTER ROTATING
  2605					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  2606					
  2607					SN=SN+1
  2608						ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2609						IFE	ZZ,<ZZ=1>
  2610						YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2611						MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2612						IFN	<ZZ-400000>,<
  2613						MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2614						IFE	<ZZ-400000>,<
  2615						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2616						ROT	AC,1		;*ROTATE LEFT ONE
  2617						CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2618						ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2619						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2620					>
  2621
  2622					;TEST ROT LEFT ONE BIT POSITION
  2623					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2624					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2625					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2626					;IS ONE AFTER ROTATING
  2627					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  2628
  2629			003201		SN=SN+1
  2630			000000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2631			000001			IFE	ZZ,<ZZ=1>
  2632			000002			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2633	032154	201 11 0 00 000001 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2634						IFN	<ZZ-400000>,<
  2635	032155	201 10 0 00 000002 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2636						IFE	<ZZ-400000>,<
  2637						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2638	032156	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  2639	032157	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2640	032160	003 11 0 00 003201 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2641	032161	321 13 0 00 032154 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2642
  2643
  2644					;TEST ROT LEFT ONE BIT POSITION
  2645					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2646					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2647					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2648					;IS ONE AFTER ROTATING
  2649					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 11-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0071

  2650
  2651			003202		SN=SN+1
  2652			000002			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2653						IFE	ZZ,<ZZ=1>
  2654			000004			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2655	032162	201 11 0 00 000002 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2656						IFN	<ZZ-400000>,<
  2657	032163	201 10 0 00 000004 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2658						IFE	<ZZ-400000>,<
  2659						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2660	032164	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  2661	032165	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2662	032166	003 11 0 00 003202 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2663	032167	321 13 0 00 032162 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2664
  2665
  2666					;TEST ROT LEFT ONE BIT POSITION
  2667					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2668					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2669					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2670					;IS ONE AFTER ROTATING
  2671					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  2672
  2673			003203		SN=SN+1
  2674			000004			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2675						IFE	ZZ,<ZZ=1>
  2676			000010			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2677	032170	201 11 0 00 000004 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2678						IFN	<ZZ-400000>,<
  2679	032171	201 10 0 00 000010 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2680						IFE	<ZZ-400000>,<
  2681						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2682	032172	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  2683	032173	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2684	032174	003 11 0 00 003203 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2685	032175	321 13 0 00 032170 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2686
  2687
  2688					;TEST ROT LEFT ONE BIT POSITION
  2689					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2690					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2691					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2692					;IS ONE AFTER ROTATING
  2693					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  2694
  2695			003204		SN=SN+1
  2696			000010			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2697						IFE	ZZ,<ZZ=1>
  2698			000020			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2699	032176	201 11 0 00 000010 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2700						IFN	<ZZ-400000>,<
  2701	032177	201 10 0 00 000020 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2702						IFE	<ZZ-400000>,<
  2703						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2704	032200	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 11-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0072

  2705	032201	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2706	032202	003 11 0 00 003204 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2707	032203	321 13 0 00 032176 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2708
  2709
  2710					;TEST ROT LEFT ONE BIT POSITION
  2711					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2712					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2713					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2714					;IS ONE AFTER ROTATING
  2715					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  2716
  2717			003205		SN=SN+1
  2718			000020			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2719						IFE	ZZ,<ZZ=1>
  2720			000040			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2721	032204	201 11 0 00 000020 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2722						IFN	<ZZ-400000>,<
  2723	032205	201 10 0 00 000040 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2724						IFE	<ZZ-400000>,<
  2725						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2726	032206	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  2727	032207	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2728	032210	003 11 0 00 003205 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2729	032211	321 13 0 00 032204 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2730
  2731
  2732					;TEST ROT LEFT ONE BIT POSITION
  2733					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2734					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2735					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2736					;IS ONE AFTER ROTATING
  2737					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  2738
  2739			003206		SN=SN+1
  2740			000040			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2741						IFE	ZZ,<ZZ=1>
  2742			000100			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2743	032212	201 11 0 00 000040 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2744						IFN	<ZZ-400000>,<
  2745	032213	201 10 0 00 000100 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2746						IFE	<ZZ-400000>,<
  2747						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2748	032214	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  2749	032215	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2750	032216	003 11 0 00 003206 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2751	032217	321 13 0 00 032212 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2752
  2753
  2754					;TEST ROT LEFT ONE BIT POSITION
  2755					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2756					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2757					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2758					;IS ONE AFTER ROTATING
  2759					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 11-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0073

  2760
  2761			003207		SN=SN+1
  2762			000100			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2763						IFE	ZZ,<ZZ=1>
  2764			000200			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2765	032220	201 11 0 00 000100 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2766						IFN	<ZZ-400000>,<
  2767	032221	201 10 0 00 000200 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2768						IFE	<ZZ-400000>,<
  2769						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2770	032222	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  2771	032223	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2772	032224	003 11 0 00 003207 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2773	032225	321 13 0 00 032220 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2774
  2775
  2776					;TEST ROT LEFT ONE BIT POSITION
  2777					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2778					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2779					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2780					;IS ONE AFTER ROTATING
  2781					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  2782
  2783			003210		SN=SN+1
  2784			000200			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2785						IFE	ZZ,<ZZ=1>
  2786			000400			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2787	032226	201 11 0 00 000200 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2788						IFN	<ZZ-400000>,<
  2789	032227	201 10 0 00 000400 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2790						IFE	<ZZ-400000>,<
  2791						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2792	032230	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  2793	032231	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2794	032232	003 11 0 00 003210 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2795	032233	321 13 0 00 032226 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2796
  2797
  2798					;TEST ROT LEFT ONE BIT POSITION
  2799					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2800					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2801					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2802					;IS ONE AFTER ROTATING
  2803					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  2804
  2805			003211		SN=SN+1
  2806			000400			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2807						IFE	ZZ,<ZZ=1>
  2808			001000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2809	032234	201 11 0 00 000400 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2810						IFN	<ZZ-400000>,<
  2811	032235	201 10 0 00 001000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2812						IFE	<ZZ-400000>,<
  2813						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2814	032236	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 11-4
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0074

  2815	032237	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2816	032240	003 11 0 00 003211 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2817	032241	321 13 0 00 032234 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2818
  2819
  2820					;TEST ROT LEFT ONE BIT POSITION
  2821					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2822					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2823					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2824					;IS ONE AFTER ROTATING
  2825					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  2826
  2827			003212		SN=SN+1
  2828			001000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2829						IFE	ZZ,<ZZ=1>
  2830			002000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2831	032242	201 11 0 00 001000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2832						IFN	<ZZ-400000>,<
  2833	032243	201 10 0 00 002000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2834						IFE	<ZZ-400000>,<
  2835						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2836	032244	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  2837	032245	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2838	032246	003 11 0 00 003212 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2839	032247	321 13 0 00 032242 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2840
  2841
  2842					;TEST ROT LEFT ONE BIT POSITION
  2843					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2844					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2845					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2846					;IS ONE AFTER ROTATING
  2847					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  2848
  2849			003213		SN=SN+1
  2850			002000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2851						IFE	ZZ,<ZZ=1>
  2852			004000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2853	032250	201 11 0 00 002000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2854						IFN	<ZZ-400000>,<
  2855	032251	201 10 0 00 004000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2856						IFE	<ZZ-400000>,<
  2857						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2858	032252	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  2859	032253	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2860	032254	003 11 0 00 003213 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2861	032255	321 13 0 00 032250 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2862
  2863
  2864					;TEST ROT LEFT ONE BIT POSITION
  2865					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2866					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2867					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2868					;IS ONE AFTER ROTATING
  2869					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 11-5
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0075

  2870
  2871			003214		SN=SN+1
  2872			004000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2873						IFE	ZZ,<ZZ=1>
  2874			010000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2875	032256	201 11 0 00 004000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2876						IFN	<ZZ-400000>,<
  2877	032257	201 10 0 00 010000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2878						IFE	<ZZ-400000>,<
  2879						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2880	032260	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  2881	032261	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2882	032262	003 11 0 00 003214 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2883	032263	321 13 0 00 032256 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2884
  2885
  2886					;TEST ROT LEFT ONE BIT POSITION
  2887					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2888					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2889					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2890					;IS ONE AFTER ROTATING
  2891					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  2892
  2893			003215		SN=SN+1
  2894			010000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2895						IFE	ZZ,<ZZ=1>
  2896			020000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2897	032264	201 11 0 00 010000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2898						IFN	<ZZ-400000>,<
  2899	032265	201 10 0 00 020000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2900						IFE	<ZZ-400000>,<
  2901						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2902	032266	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  2903	032267	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2904	032270	003 11 0 00 003215 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2905	032271	321 13 0 00 032264 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2906
  2907
  2908					;TEST ROT LEFT ONE BIT POSITION
  2909					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2910					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2911					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2912					;IS ONE AFTER ROTATING
  2913					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  2914
  2915			003216		SN=SN+1
  2916			020000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2917						IFE	ZZ,<ZZ=1>
  2918			040000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2919	032272	201 11 0 00 020000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2920						IFN	<ZZ-400000>,<
  2921	032273	201 10 0 00 040000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2922						IFE	<ZZ-400000>,<
  2923						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2924	032274	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 11-6
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0076

  2925	032275	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2926	032276	003 11 0 00 003216 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2927	032277	321 13 0 00 032272 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2928
  2929
  2930					;TEST ROT LEFT ONE BIT POSITION
  2931					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2932					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2933					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2934					;IS ONE AFTER ROTATING
  2935					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  2936
  2937			003217		SN=SN+1
  2938			040000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2939						IFE	ZZ,<ZZ=1>
  2940			100000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2941	032300	201 11 0 00 040000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2942						IFN	<ZZ-400000>,<
  2943	032301	201 10 0 00 100000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2944						IFE	<ZZ-400000>,<
  2945						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2946	032302	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  2947	032303	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2948	032304	003 11 0 00 003217 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2949	032305	321 13 0 00 032300 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2950
  2951
  2952					;TEST ROT LEFT ONE BIT POSITION
  2953					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2954					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2955					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2956					;IS ONE AFTER ROTATING
  2957					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  2958
  2959			003220		SN=SN+1
  2960			100000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2961						IFE	ZZ,<ZZ=1>
  2962			200000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2963	032306	201 11 0 00 100000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2964						IFN	<ZZ-400000>,<
  2965	032307	201 10 0 00 200000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2966						IFE	<ZZ-400000>,<
  2967						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2968	032310	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  2969	032311	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2970	032312	003 11 0 00 003220 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2971	032313	321 13 0 00 032306 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2972
  2973
  2974					;TEST ROT LEFT ONE BIT POSITION
  2975					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2976					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2977					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  2978					;IS ONE AFTER ROTATING
  2979					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 11-7
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0077

  2980
  2981			003221		SN=SN+1
  2982			200000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  2983						IFE	ZZ,<ZZ=1>
  2984			400000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  2985	032314	201 11 0 00 200000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  2986						IFN	<ZZ-400000>,<
  2987	032315	201 10 0 00 400000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  2988						IFE	<ZZ-400000>,<
  2989						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  2990	032316	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  2991	032317	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  2992	032320	003 11 0 00 003221 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  2993	032321	321 13 0 00 032314 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  2994
  2995
  2996					;TEST ROT LEFT ONE BIT POSITION
  2997					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  2998					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  2999					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT 
  3000					;IS ONE AFTER ROTATING
  3001					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3002
  3003			003222		SN=SN+1
  3004			400000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3005						IFE	ZZ,<ZZ=1>
  3006		000001	000000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3007	032322	201 11 0 00 400000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  3008						IFN	<ZZ-400000>,<
  3009						MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  3010						IFE	<ZZ-400000>,<
  3011	032323	205 10 0 00 000001 		MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  3012	032324	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3013	032325	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  3014	032326	003 11 0 00 003222 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3015	032327	321 13 0 00 032322 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3016
  3017					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 11-8
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0078

  3018			000000			ZZ=0
  3019
  3020							;TEST AC LEFT HALF <
  3021						REPEAT	^D18,<;TEST ROT LEFT ONE BIT POSITION
  3022					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3023					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3024					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3025					;ONE AFTER ROTATING
  3026					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3027					
  3028					SN=SN+1
  3029					
  3030						ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3031						IFE	ZZ,<ZZ=1>
  3032						YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3033						MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3034						IFN	<ZZ-400000>,<
  3035						MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3036						IFE	<ZZ-400000>,<
  3037						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3038						ROT	AC,1		;*ROTATE LEFT ONE
  3039						CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  3040						ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3041						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3042					>
  3043					;TEST ROT LEFT ONE BIT POSITION
  3044					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3045					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3046					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3047					;ONE AFTER ROTATING
  3048					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3049
  3050			003223		SN=SN+1
  3051
  3052			000000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3053			000001			IFE	ZZ,<ZZ=1>
  3054			000002			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3055	032330	205 11 0 00 000001 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3056						IFN	<ZZ-400000>,<
  3057	032331	205 10 0 00 000002 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3058						IFE	<ZZ-400000>,<
  3059						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3060	032332	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3061	032333	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  3062	032334	003 11 0 00 003223 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3063	032335	321 13 0 00 032330 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3064
  3065					;TEST ROT LEFT ONE BIT POSITION
  3066					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3067					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3068					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3069					;ONE AFTER ROTATING
  3070					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3071
  3072			003224		SN=SN+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 11-9
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0079

  3073
  3074			000002			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3075						IFE	ZZ,<ZZ=1>
  3076			000004			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3077	032336	205 11 0 00 000002 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3078						IFN	<ZZ-400000>,<
  3079	032337	205 10 0 00 000004 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3080						IFE	<ZZ-400000>,<
  3081						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3082	032340	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3083	032341	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  3084	032342	003 11 0 00 003224 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3085	032343	321 13 0 00 032336 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3086
  3087					;TEST ROT LEFT ONE BIT POSITION
  3088					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3089					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3090					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3091					;ONE AFTER ROTATING
  3092					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3093
  3094			003225		SN=SN+1
  3095
  3096			000004			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3097						IFE	ZZ,<ZZ=1>
  3098			000010			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3099	032344	205 11 0 00 000004 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3100						IFN	<ZZ-400000>,<
  3101	032345	205 10 0 00 000010 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3102						IFE	<ZZ-400000>,<
  3103						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3104	032346	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3105	032347	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  3106	032350	003 11 0 00 003225 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3107	032351	321 13 0 00 032344 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3108
  3109					;TEST ROT LEFT ONE BIT POSITION
  3110					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3111					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3112					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3113					;ONE AFTER ROTATING
  3114					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3115
  3116			003226		SN=SN+1
  3117
  3118			000010			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3119						IFE	ZZ,<ZZ=1>
  3120			000020			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3121	032352	205 11 0 00 000010 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3122						IFN	<ZZ-400000>,<
  3123	032353	205 10 0 00 000020 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3124						IFE	<ZZ-400000>,<
  3125						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3126	032354	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3127	032355	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 11-10
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0080

  3128	032356	003 11 0 00 003226 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3129	032357	321 13 0 00 032352 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3130
  3131					;TEST ROT LEFT ONE BIT POSITION
  3132					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3133					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3134					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3135					;ONE AFTER ROTATING
  3136					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3137
  3138			003227		SN=SN+1
  3139
  3140			000020			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3141						IFE	ZZ,<ZZ=1>
  3142			000040			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3143	032360	205 11 0 00 000020 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3144						IFN	<ZZ-400000>,<
  3145	032361	205 10 0 00 000040 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3146						IFE	<ZZ-400000>,<
  3147						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3148	032362	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3149	032363	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  3150	032364	003 11 0 00 003227 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3151	032365	321 13 0 00 032360 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3152
  3153					;TEST ROT LEFT ONE BIT POSITION
  3154					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3155					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3156					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3157					;ONE AFTER ROTATING
  3158					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3159
  3160			003230		SN=SN+1
  3161
  3162			000040			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3163						IFE	ZZ,<ZZ=1>
  3164			000100			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3165	032366	205 11 0 00 000040 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3166						IFN	<ZZ-400000>,<
  3167	032367	205 10 0 00 000100 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3168						IFE	<ZZ-400000>,<
  3169						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3170	032370	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3171	032371	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  3172	032372	003 11 0 00 003230 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3173	032373	321 13 0 00 032366 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3174
  3175					;TEST ROT LEFT ONE BIT POSITION
  3176					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3177					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3178					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3179					;ONE AFTER ROTATING
  3180					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3181
  3182			003231		SN=SN+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 11-11
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0081

  3183
  3184			000100			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3185						IFE	ZZ,<ZZ=1>
  3186			000200			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3187	032374	205 11 0 00 000100 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3188						IFN	<ZZ-400000>,<
  3189	032375	205 10 0 00 000200 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3190						IFE	<ZZ-400000>,<
  3191						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3192	032376	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3193	032377	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  3194	032400	003 11 0 00 003231 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3195	032401	321 13 0 00 032374 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3196
  3197					;TEST ROT LEFT ONE BIT POSITION
  3198					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3199					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3200					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3201					;ONE AFTER ROTATING
  3202					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3203
  3204			003232		SN=SN+1
  3205
  3206			000200			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3207						IFE	ZZ,<ZZ=1>
  3208			000400			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3209	032402	205 11 0 00 000200 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3210						IFN	<ZZ-400000>,<
  3211	032403	205 10 0 00 000400 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3212						IFE	<ZZ-400000>,<
  3213						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3214	032404	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3215	032405	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  3216	032406	003 11 0 00 003232 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3217	032407	321 13 0 00 032402 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3218
  3219					;TEST ROT LEFT ONE BIT POSITION
  3220					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3221					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3222					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3223					;ONE AFTER ROTATING
  3224					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3225
  3226			003233		SN=SN+1
  3227
  3228			000400			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3229						IFE	ZZ,<ZZ=1>
  3230			001000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3231	032410	205 11 0 00 000400 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3232						IFN	<ZZ-400000>,<
  3233	032411	205 10 0 00 001000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3234						IFE	<ZZ-400000>,<
  3235						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3236	032412	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3237	032413	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 11-12
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0082

  3238	032414	003 11 0 00 003233 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3239	032415	321 13 0 00 032410 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3240
  3241					;TEST ROT LEFT ONE BIT POSITION
  3242					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3243					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3244					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3245					;ONE AFTER ROTATING
  3246					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3247
  3248			003234		SN=SN+1
  3249
  3250			001000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3251						IFE	ZZ,<ZZ=1>
  3252			002000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3253	032416	205 11 0 00 001000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3254						IFN	<ZZ-400000>,<
  3255	032417	205 10 0 00 002000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3256						IFE	<ZZ-400000>,<
  3257						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3258	032420	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3259	032421	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  3260	032422	003 11 0 00 003234 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3261	032423	321 13 0 00 032416 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3262
  3263					;TEST ROT LEFT ONE BIT POSITION
  3264					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3265					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3266					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3267					;ONE AFTER ROTATING
  3268					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3269
  3270			003235		SN=SN+1
  3271
  3272			002000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3273						IFE	ZZ,<ZZ=1>
  3274			004000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3275	032424	205 11 0 00 002000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3276						IFN	<ZZ-400000>,<
  3277	032425	205 10 0 00 004000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3278						IFE	<ZZ-400000>,<
  3279						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3280	032426	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3281	032427	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  3282	032430	003 11 0 00 003235 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3283	032431	321 13 0 00 032424 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3284
  3285					;TEST ROT LEFT ONE BIT POSITION
  3286					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3287					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3288					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3289					;ONE AFTER ROTATING
  3290					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3291
  3292			003236		SN=SN+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 11-13
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0083

  3293
  3294			004000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3295						IFE	ZZ,<ZZ=1>
  3296			010000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3297	032432	205 11 0 00 004000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3298						IFN	<ZZ-400000>,<
  3299	032433	205 10 0 00 010000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3300						IFE	<ZZ-400000>,<
  3301						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3302	032434	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3303	032435	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  3304	032436	003 11 0 00 003236 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3305	032437	321 13 0 00 032432 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3306
  3307					;TEST ROT LEFT ONE BIT POSITION
  3308					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3309					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3310					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3311					;ONE AFTER ROTATING
  3312					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3313
  3314			003237		SN=SN+1
  3315
  3316			010000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3317						IFE	ZZ,<ZZ=1>
  3318			020000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3319	032440	205 11 0 00 010000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3320						IFN	<ZZ-400000>,<
  3321	032441	205 10 0 00 020000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3322						IFE	<ZZ-400000>,<
  3323						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3324	032442	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3325	032443	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  3326	032444	003 11 0 00 003237 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3327	032445	321 13 0 00 032440 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3328
  3329					;TEST ROT LEFT ONE BIT POSITION
  3330					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3331					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3332					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3333					;ONE AFTER ROTATING
  3334					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3335
  3336			003240		SN=SN+1
  3337
  3338			020000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3339						IFE	ZZ,<ZZ=1>
  3340			040000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3341	032446	205 11 0 00 020000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3342						IFN	<ZZ-400000>,<
  3343	032447	205 10 0 00 040000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3344						IFE	<ZZ-400000>,<
  3345						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3346	032450	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3347	032451	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 11-14
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0084

  3348	032452	003 11 0 00 003240 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3349	032453	321 13 0 00 032446 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3350
  3351					;TEST ROT LEFT ONE BIT POSITION
  3352					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3353					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3354					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3355					;ONE AFTER ROTATING
  3356					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3357
  3358			003241		SN=SN+1
  3359
  3360			040000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3361						IFE	ZZ,<ZZ=1>
  3362			100000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3363	032454	205 11 0 00 040000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3364						IFN	<ZZ-400000>,<
  3365	032455	205 10 0 00 100000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3366						IFE	<ZZ-400000>,<
  3367						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3368	032456	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3369	032457	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  3370	032460	003 11 0 00 003241 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3371	032461	321 13 0 00 032454 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3372
  3373					;TEST ROT LEFT ONE BIT POSITION
  3374					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3375					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3376					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3377					;ONE AFTER ROTATING
  3378					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3379
  3380			003242		SN=SN+1
  3381
  3382			100000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3383						IFE	ZZ,<ZZ=1>
  3384			200000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3385	032462	205 11 0 00 100000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3386						IFN	<ZZ-400000>,<
  3387	032463	205 10 0 00 200000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3388						IFE	<ZZ-400000>,<
  3389						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3390	032464	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3391	032465	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  3392	032466	003 11 0 00 003242 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3393	032467	321 13 0 00 032462 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3394
  3395					;TEST ROT LEFT ONE BIT POSITION
  3396					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3397					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3398					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3399					;ONE AFTER ROTATING
  3400					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3401
  3402			003243		SN=SN+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 11-15
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0085

  3403
  3404			200000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3405						IFE	ZZ,<ZZ=1>
  3406			400000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3407	032470	205 11 0 00 200000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3408						IFN	<ZZ-400000>,<
  3409	032471	205 10 0 00 400000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3410						IFE	<ZZ-400000>,<
  3411						MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3412	032472	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3413	032473	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  3414	032474	003 11 0 00 003243 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3415	032475	321 13 0 00 032470 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3416
  3417					;TEST ROT LEFT ONE BIT POSITION
  3418					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  3419					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3420					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  3421					;ONE AFTER ROTATING
  3422					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  3423
  3424			003244		SN=SN+1
  3425
  3426			400000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  3427						IFE	ZZ,<ZZ=1>
  3428		000001	000000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  3429	032476	205 11 0 00 400000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  3430						IFN	<ZZ-400000>,<
  3431						MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  3432						IFE	<ZZ-400000>,<
  3433	032477	201 10 0 00 000001 		MOVEI	AC-1,1		;SETUP FOR COMPARISON>
  3434	032500	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3435	032501	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ONE
  3436	032502	003 11 0 00 003244 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3437	032503	321 13 0 00 032476 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3438
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 12
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0086

  3439			003300		SN=3300
  3440			000000			ZZ=0
  3441
  3442						;TEST AC RIGHT HALF<
  3443					E3300:	REPEAT	^D18,<;TEST ROT LEFT ONE BIT POSITION
  3444					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3445					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3446					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3447					;IS ZERO AFTER ROTATING.
  3448					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3449					
  3450					SN=SN+1
  3451						ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3452						IFE	<ZZ-1>,<ZZ=-2>
  3453						YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3454						HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3455						IFN	<<ZZ-377777>&377777>,<
  3456						HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3457						IFE	<<ZZ-377777>&777777>,<
  3458						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3459						ROT	AC,1		;*ROTATE LEFT ONE
  3460						CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3461						ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3462						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3463					>
  3464					;TEST ROT LEFT ONE BIT POSITION
  3465					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3466					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3467					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3468					;IS ZERO AFTER ROTATING.
  3469					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3470
  3471			003301		SN=SN+1
  3472			000001			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3473		777777	777776			IFE	<ZZ-1>,<ZZ=-2>
  3474			777775			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3475	032504	561 11 0 00 777776 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3476						IFN	<<ZZ-377777>&377777>,<
  3477	032505	561 10 0 00 777775 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3478						IFE	<<ZZ-377777>&777777>,<
  3479						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3480	032506	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3481	032507	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3482	032510	003 11 0 00 003301 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3483	032511	321 13 0 00 032504 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3484
  3485					;TEST ROT LEFT ONE BIT POSITION
  3486					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3487					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3488					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3489					;IS ZERO AFTER ROTATING.
  3490					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3491
  3492			003302		SN=SN+1
  3493		777777	777775			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 12-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0087

  3494						IFE	<ZZ-1>,<ZZ=-2>
  3495			777773			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3496	032512	561 11 0 00 777775 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3497						IFN	<<ZZ-377777>&377777>,<
  3498	032513	561 10 0 00 777773 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3499						IFE	<<ZZ-377777>&777777>,<
  3500						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3501	032514	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3502	032515	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3503	032516	003 11 0 00 003302 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3504	032517	321 13 0 00 032512 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3505
  3506					;TEST ROT LEFT ONE BIT POSITION
  3507					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3508					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3509					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3510					;IS ZERO AFTER ROTATING.
  3511					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3512
  3513			003303		SN=SN+1
  3514		777777	777773			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3515						IFE	<ZZ-1>,<ZZ=-2>
  3516			777767			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3517	032520	561 11 0 00 777773 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3518						IFN	<<ZZ-377777>&377777>,<
  3519	032521	561 10 0 00 777767 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3520						IFE	<<ZZ-377777>&777777>,<
  3521						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3522	032522	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3523	032523	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3524	032524	003 11 0 00 003303 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3525	032525	321 13 0 00 032520 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3526
  3527					;TEST ROT LEFT ONE BIT POSITION
  3528					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3529					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3530					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3531					;IS ZERO AFTER ROTATING.
  3532					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3533
  3534			003304		SN=SN+1
  3535		777777	777767			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3536						IFE	<ZZ-1>,<ZZ=-2>
  3537			777757			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3538	032526	561 11 0 00 777767 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3539						IFN	<<ZZ-377777>&377777>,<
  3540	032527	561 10 0 00 777757 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3541						IFE	<<ZZ-377777>&777777>,<
  3542						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3543	032530	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3544	032531	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3545	032532	003 11 0 00 003304 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3546	032533	321 13 0 00 032526 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3547
  3548					;TEST ROT LEFT ONE BIT POSITION
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 12-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0088

  3549					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3550					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3551					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3552					;IS ZERO AFTER ROTATING.
  3553					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3554
  3555			003305		SN=SN+1
  3556		777777	777757			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3557						IFE	<ZZ-1>,<ZZ=-2>
  3558			777737			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3559	032534	561 11 0 00 777757 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3560						IFN	<<ZZ-377777>&377777>,<
  3561	032535	561 10 0 00 777737 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3562						IFE	<<ZZ-377777>&777777>,<
  3563						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3564	032536	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3565	032537	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3566	032540	003 11 0 00 003305 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3567	032541	321 13 0 00 032534 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3568
  3569					;TEST ROT LEFT ONE BIT POSITION
  3570					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3571					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3572					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3573					;IS ZERO AFTER ROTATING.
  3574					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3575
  3576			003306		SN=SN+1
  3577		777777	777737			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3578						IFE	<ZZ-1>,<ZZ=-2>
  3579			777677			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3580	032542	561 11 0 00 777737 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3581						IFN	<<ZZ-377777>&377777>,<
  3582	032543	561 10 0 00 777677 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3583						IFE	<<ZZ-377777>&777777>,<
  3584						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3585	032544	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3586	032545	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3587	032546	003 11 0 00 003306 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3588	032547	321 13 0 00 032542 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3589
  3590					;TEST ROT LEFT ONE BIT POSITION
  3591					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3592					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3593					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3594					;IS ZERO AFTER ROTATING.
  3595					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3596
  3597			003307		SN=SN+1
  3598		777777	777677			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3599						IFE	<ZZ-1>,<ZZ=-2>
  3600			777577			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3601	032550	561 11 0 00 777677 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3602						IFN	<<ZZ-377777>&377777>,<
  3603	032551	561 10 0 00 777577 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 12-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0089

  3604						IFE	<<ZZ-377777>&777777>,<
  3605						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3606	032552	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3607	032553	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3608	032554	003 11 0 00 003307 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3609	032555	321 13 0 00 032550 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3610
  3611					;TEST ROT LEFT ONE BIT POSITION
  3612					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3613					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3614					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3615					;IS ZERO AFTER ROTATING.
  3616					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3617
  3618			003310		SN=SN+1
  3619		777777	777577			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3620						IFE	<ZZ-1>,<ZZ=-2>
  3621			777377			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3622	032556	561 11 0 00 777577 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3623						IFN	<<ZZ-377777>&377777>,<
  3624	032557	561 10 0 00 777377 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3625						IFE	<<ZZ-377777>&777777>,<
  3626						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3627	032560	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3628	032561	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3629	032562	003 11 0 00 003310 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3630	032563	321 13 0 00 032556 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3631
  3632					;TEST ROT LEFT ONE BIT POSITION
  3633					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3634					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3635					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3636					;IS ZERO AFTER ROTATING.
  3637					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3638
  3639			003311		SN=SN+1
  3640		777777	777377			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3641						IFE	<ZZ-1>,<ZZ=-2>
  3642			776777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3643	032564	561 11 0 00 777377 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3644						IFN	<<ZZ-377777>&377777>,<
  3645	032565	561 10 0 00 776777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3646						IFE	<<ZZ-377777>&777777>,<
  3647						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3648	032566	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3649	032567	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3650	032570	003 11 0 00 003311 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3651	032571	321 13 0 00 032564 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3652
  3653					;TEST ROT LEFT ONE BIT POSITION
  3654					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3655					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3656					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3657					;IS ZERO AFTER ROTATING.
  3658					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 12-4
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0090

  3659
  3660			003312		SN=SN+1
  3661		777777	776777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3662						IFE	<ZZ-1>,<ZZ=-2>
  3663			775777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3664	032572	561 11 0 00 776777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3665						IFN	<<ZZ-377777>&377777>,<
  3666	032573	561 10 0 00 775777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3667						IFE	<<ZZ-377777>&777777>,<
  3668						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3669	032574	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3670	032575	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3671	032576	003 11 0 00 003312 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3672	032577	321 13 0 00 032572 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3673
  3674					;TEST ROT LEFT ONE BIT POSITION
  3675					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3676					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3677					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3678					;IS ZERO AFTER ROTATING.
  3679					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3680
  3681			003313		SN=SN+1
  3682		777777	775777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3683						IFE	<ZZ-1>,<ZZ=-2>
  3684			773777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3685	032600	561 11 0 00 775777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3686						IFN	<<ZZ-377777>&377777>,<
  3687	032601	561 10 0 00 773777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3688						IFE	<<ZZ-377777>&777777>,<
  3689						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3690	032602	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3691	032603	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3692	032604	003 11 0 00 003313 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3693	032605	321 13 0 00 032600 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3694
  3695					;TEST ROT LEFT ONE BIT POSITION
  3696					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3697					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3698					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3699					;IS ZERO AFTER ROTATING.
  3700					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3701
  3702			003314		SN=SN+1
  3703		777777	773777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3704						IFE	<ZZ-1>,<ZZ=-2>
  3705			767777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3706	032606	561 11 0 00 773777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3707						IFN	<<ZZ-377777>&377777>,<
  3708	032607	561 10 0 00 767777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3709						IFE	<<ZZ-377777>&777777>,<
  3710						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3711	032610	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3712	032611	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3713	032612	003 11 0 00 003314 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 12-5
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0091

  3714	032613	321 13 0 00 032606 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3715
  3716					;TEST ROT LEFT ONE BIT POSITION
  3717					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3718					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3719					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3720					;IS ZERO AFTER ROTATING.
  3721					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3722
  3723			003315		SN=SN+1
  3724		777777	767777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3725						IFE	<ZZ-1>,<ZZ=-2>
  3726			757777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3727	032614	561 11 0 00 767777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3728						IFN	<<ZZ-377777>&377777>,<
  3729	032615	561 10 0 00 757777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3730						IFE	<<ZZ-377777>&777777>,<
  3731						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3732	032616	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3733	032617	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3734	032620	003 11 0 00 003315 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3735	032621	321 13 0 00 032614 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3736
  3737					;TEST ROT LEFT ONE BIT POSITION
  3738					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3739					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3740					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3741					;IS ZERO AFTER ROTATING.
  3742					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3743
  3744			003316		SN=SN+1
  3745		777777	757777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3746						IFE	<ZZ-1>,<ZZ=-2>
  3747			737777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3748	032622	561 11 0 00 757777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3749						IFN	<<ZZ-377777>&377777>,<
  3750	032623	561 10 0 00 737777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3751						IFE	<<ZZ-377777>&777777>,<
  3752						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3753	032624	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3754	032625	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3755	032626	003 11 0 00 003316 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3756	032627	321 13 0 00 032622 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3757
  3758					;TEST ROT LEFT ONE BIT POSITION
  3759					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3760					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3761					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3762					;IS ZERO AFTER ROTATING.
  3763					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3764
  3765			003317		SN=SN+1
  3766		777777	737777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3767						IFE	<ZZ-1>,<ZZ=-2>
  3768			677777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 12-6
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0092

  3769	032630	561 11 0 00 737777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3770						IFN	<<ZZ-377777>&377777>,<
  3771	032631	561 10 0 00 677777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3772						IFE	<<ZZ-377777>&777777>,<
  3773						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3774	032632	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3775	032633	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3776	032634	003 11 0 00 003317 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3777	032635	321 13 0 00 032630 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3778
  3779					;TEST ROT LEFT ONE BIT POSITION
  3780					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3781					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3782					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3783					;IS ZERO AFTER ROTATING.
  3784					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3785
  3786			003320		SN=SN+1
  3787		777777	677777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3788						IFE	<ZZ-1>,<ZZ=-2>
  3789			577777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3790	032636	561 11 0 00 677777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3791						IFN	<<ZZ-377777>&377777>,<
  3792	032637	561 10 0 00 577777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3793						IFE	<<ZZ-377777>&777777>,<
  3794						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3795	032640	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3796	032641	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3797	032642	003 11 0 00 003320 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3798	032643	321 13 0 00 032636 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3799
  3800					;TEST ROT LEFT ONE BIT POSITION
  3801					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3802					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3803					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3804					;IS ZERO AFTER ROTATING.
  3805					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3806
  3807			003321		SN=SN+1
  3808		777777	577777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3809						IFE	<ZZ-1>,<ZZ=-2>
  3810			377777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3811	032644	561 11 0 00 577777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3812						IFN	<<ZZ-377777>&377777>,<
  3813	032645	561 10 0 00 377777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3814						IFE	<<ZZ-377777>&777777>,<
  3815						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3816	032646	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3817	032647	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3818	032650	003 11 0 00 003321 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3819	032651	321 13 0 00 032644 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3820
  3821					;TEST ROT LEFT ONE BIT POSITION
  3822					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3823					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 12-7
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0093

  3824					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3825					;IS ZERO AFTER ROTATING.
  3826					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3827
  3828			003322		SN=SN+1
  3829		777777	377777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3830						IFE	<ZZ-1>,<ZZ=-2>
  3831			777777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3832	032652	561 11 0 00 377777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  3833						IFN	<<ZZ-377777>&377777>,<
  3834						HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  3835						IFE	<<ZZ-377777>&777777>,<
  3836	032653	525 10 0 00 777776 		HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  3837	032654	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3838	032655	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) A ZERO
  3839	032656	003 11 0 00 003322 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3840	032657	321 13 0 00 032652 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3841
  3842					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 12-8
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0094

  3843			000000			ZZ=0
  3844						;TEST AC LEFT HALF<
  3845						REPEAT	^D18,<;TEST ROT LEFT ONE BIT POSITION
  3846					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3847					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3848					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3849					;IS ZERO AFTER ROTATING.
  3850					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3851					
  3852					SN=SN+1
  3853						ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3854						IFE	<ZZ-1>,<ZZ=-2>
  3855						YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3856						HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  3857						IFN	<<ZZ-377777>&777777>,<
  3858						HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  3859						IFE	<<ZZ-377777>&777777>,<
  3860						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  3861						ROT	AC,1		;*ROTATE LEFT ONE
  3862						CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  3863						ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3864						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3865					>
  3866					;TEST ROT LEFT ONE BIT POSITION
  3867					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3868					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3869					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3870					;IS ZERO AFTER ROTATING.
  3871					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3872
  3873			003323		SN=SN+1
  3874			000001			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3875		777777	777776			IFE	<ZZ-1>,<ZZ=-2>
  3876			777775			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3877	032660	525 11 0 00 777776 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  3878						IFN	<<ZZ-377777>&777777>,<
  3879	032661	525 10 0 00 777775 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  3880						IFE	<<ZZ-377777>&777777>,<
  3881						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  3882	032662	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3883	032663	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  3884	032664	003 11 0 00 003323 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3885	032665	321 13 0 00 032660 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3886
  3887					;TEST ROT LEFT ONE BIT POSITION
  3888					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3889					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3890					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3891					;IS ZERO AFTER ROTATING.
  3892					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3893
  3894			003324		SN=SN+1
  3895		777777	777775			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3896						IFE	<ZZ-1>,<ZZ=-2>
  3897			777773			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 12-9
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0095

  3898	032666	525 11 0 00 777775 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  3899						IFN	<<ZZ-377777>&777777>,<
  3900	032667	525 10 0 00 777773 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  3901						IFE	<<ZZ-377777>&777777>,<
  3902						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  3903	032670	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3904	032671	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  3905	032672	003 11 0 00 003324 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3906	032673	321 13 0 00 032666 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3907
  3908					;TEST ROT LEFT ONE BIT POSITION
  3909					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3910					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3911					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3912					;IS ZERO AFTER ROTATING.
  3913					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3914
  3915			003325		SN=SN+1
  3916		777777	777773			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3917						IFE	<ZZ-1>,<ZZ=-2>
  3918			777767			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3919	032674	525 11 0 00 777773 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  3920						IFN	<<ZZ-377777>&777777>,<
  3921	032675	525 10 0 00 777767 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  3922						IFE	<<ZZ-377777>&777777>,<
  3923						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  3924	032676	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3925	032677	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  3926	032700	003 11 0 00 003325 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3927	032701	321 13 0 00 032674 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3928
  3929					;TEST ROT LEFT ONE BIT POSITION
  3930					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3931					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3932					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3933					;IS ZERO AFTER ROTATING.
  3934					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3935
  3936			003326		SN=SN+1
  3937		777777	777767			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3938						IFE	<ZZ-1>,<ZZ=-2>
  3939			777757			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3940	032702	525 11 0 00 777767 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  3941						IFN	<<ZZ-377777>&777777>,<
  3942	032703	525 10 0 00 777757 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  3943						IFE	<<ZZ-377777>&777777>,<
  3944						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  3945	032704	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3946	032705	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  3947	032706	003 11 0 00 003326 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3948	032707	321 13 0 00 032702 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3949
  3950					;TEST ROT LEFT ONE BIT POSITION
  3951					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3952					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 12-10
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0096

  3953					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3954					;IS ZERO AFTER ROTATING.
  3955					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3956
  3957			003327		SN=SN+1
  3958		777777	777757			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3959						IFE	<ZZ-1>,<ZZ=-2>
  3960			777737			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3961	032710	525 11 0 00 777757 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  3962						IFN	<<ZZ-377777>&777777>,<
  3963	032711	525 10 0 00 777737 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  3964						IFE	<<ZZ-377777>&777777>,<
  3965						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  3966	032712	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3967	032713	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  3968	032714	003 11 0 00 003327 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3969	032715	321 13 0 00 032710 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3970
  3971					;TEST ROT LEFT ONE BIT POSITION
  3972					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3973					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3974					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3975					;IS ZERO AFTER ROTATING.
  3976					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3977
  3978			003330		SN=SN+1
  3979		777777	777737			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  3980						IFE	<ZZ-1>,<ZZ=-2>
  3981			777677			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  3982	032716	525 11 0 00 777737 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  3983						IFN	<<ZZ-377777>&777777>,<
  3984	032717	525 10 0 00 777677 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  3985						IFE	<<ZZ-377777>&777777>,<
  3986						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  3987	032720	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  3988	032721	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  3989	032722	003 11 0 00 003330 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  3990	032723	321 13 0 00 032716 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  3991
  3992					;TEST ROT LEFT ONE BIT POSITION
  3993					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  3994					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  3995					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  3996					;IS ZERO AFTER ROTATING.
  3997					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  3998
  3999			003331		SN=SN+1
  4000		777777	777677			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  4001						IFE	<ZZ-1>,<ZZ=-2>
  4002			777577			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  4003	032724	525 11 0 00 777677 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  4004						IFN	<<ZZ-377777>&777777>,<
  4005	032725	525 10 0 00 777577 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  4006						IFE	<<ZZ-377777>&777777>,<
  4007						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 12-11
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0097

  4008	032726	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  4009	032727	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  4010	032730	003 11 0 00 003331 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4011	032731	321 13 0 00 032724 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4012
  4013					;TEST ROT LEFT ONE BIT POSITION
  4014					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  4015					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4016					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  4017					;IS ZERO AFTER ROTATING.
  4018					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  4019
  4020			003332		SN=SN+1
  4021		777777	777577			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  4022						IFE	<ZZ-1>,<ZZ=-2>
  4023			777377			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  4024	032732	525 11 0 00 777577 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  4025						IFN	<<ZZ-377777>&777777>,<
  4026	032733	525 10 0 00 777377 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  4027						IFE	<<ZZ-377777>&777777>,<
  4028						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  4029	032734	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  4030	032735	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  4031	032736	003 11 0 00 003332 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4032	032737	321 13 0 00 032732 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4033
  4034					;TEST ROT LEFT ONE BIT POSITION
  4035					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  4036					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4037					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  4038					;IS ZERO AFTER ROTATING.
  4039					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  4040
  4041			003333		SN=SN+1
  4042		777777	777377			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  4043						IFE	<ZZ-1>,<ZZ=-2>
  4044			776777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  4045	032740	525 11 0 00 777377 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  4046						IFN	<<ZZ-377777>&777777>,<
  4047	032741	525 10 0 00 776777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  4048						IFE	<<ZZ-377777>&777777>,<
  4049						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  4050	032742	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  4051	032743	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  4052	032744	003 11 0 00 003333 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4053	032745	321 13 0 00 032740 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4054
  4055					;TEST ROT LEFT ONE BIT POSITION
  4056					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  4057					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4058					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  4059					;IS ZERO AFTER ROTATING.
  4060					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  4061
  4062			003334		SN=SN+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 12-12
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0098

  4063		777777	776777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  4064						IFE	<ZZ-1>,<ZZ=-2>
  4065			775777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  4066	032746	525 11 0 00 776777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  4067						IFN	<<ZZ-377777>&777777>,<
  4068	032747	525 10 0 00 775777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  4069						IFE	<<ZZ-377777>&777777>,<
  4070						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  4071	032750	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  4072	032751	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  4073	032752	003 11 0 00 003334 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4074	032753	321 13 0 00 032746 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4075
  4076					;TEST ROT LEFT ONE BIT POSITION
  4077					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  4078					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4079					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  4080					;IS ZERO AFTER ROTATING.
  4081					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  4082
  4083			003335		SN=SN+1
  4084		777777	775777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  4085						IFE	<ZZ-1>,<ZZ=-2>
  4086			773777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  4087	032754	525 11 0 00 775777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  4088						IFN	<<ZZ-377777>&777777>,<
  4089	032755	525 10 0 00 773777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  4090						IFE	<<ZZ-377777>&777777>,<
  4091						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  4092	032756	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  4093	032757	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  4094	032760	003 11 0 00 003335 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4095	032761	321 13 0 00 032754 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4096
  4097					;TEST ROT LEFT ONE BIT POSITION
  4098					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  4099					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4100					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  4101					;IS ZERO AFTER ROTATING.
  4102					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  4103
  4104			003336		SN=SN+1
  4105		777777	773777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  4106						IFE	<ZZ-1>,<ZZ=-2>
  4107			767777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  4108	032762	525 11 0 00 773777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  4109						IFN	<<ZZ-377777>&777777>,<
  4110	032763	525 10 0 00 767777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  4111						IFE	<<ZZ-377777>&777777>,<
  4112						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  4113	032764	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  4114	032765	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  4115	032766	003 11 0 00 003336 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4116	032767	321 13 0 00 032762 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4117
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 12-13
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0099

  4118					;TEST ROT LEFT ONE BIT POSITION
  4119					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  4120					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4121					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  4122					;IS ZERO AFTER ROTATING.
  4123					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  4124
  4125			003337		SN=SN+1
  4126		777777	767777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  4127						IFE	<ZZ-1>,<ZZ=-2>
  4128			757777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  4129	032770	525 11 0 00 767777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  4130						IFN	<<ZZ-377777>&777777>,<
  4131	032771	525 10 0 00 757777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  4132						IFE	<<ZZ-377777>&777777>,<
  4133						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  4134	032772	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  4135	032773	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  4136	032774	003 11 0 00 003337 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4137	032775	321 13 0 00 032770 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4138
  4139					;TEST ROT LEFT ONE BIT POSITION
  4140					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  4141					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4142					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  4143					;IS ZERO AFTER ROTATING.
  4144					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  4145
  4146			003340		SN=SN+1
  4147		777777	757777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  4148						IFE	<ZZ-1>,<ZZ=-2>
  4149			737777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  4150	032776	525 11 0 00 757777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  4151						IFN	<<ZZ-377777>&777777>,<
  4152	032777	525 10 0 00 737777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  4153						IFE	<<ZZ-377777>&777777>,<
  4154						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  4155	033000	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  4156	033001	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  4157	033002	003 11 0 00 003340 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4158	033003	321 13 0 00 032776 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4159
  4160					;TEST ROT LEFT ONE BIT POSITION
  4161					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  4162					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4163					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  4164					;IS ZERO AFTER ROTATING.
  4165					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  4166
  4167			003341		SN=SN+1
  4168		777777	737777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  4169						IFE	<ZZ-1>,<ZZ=-2>
  4170			677777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  4171	033004	525 11 0 00 737777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  4172						IFN	<<ZZ-377777>&777777>,<
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 12-14
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0100

  4173	033005	525 10 0 00 677777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  4174						IFE	<<ZZ-377777>&777777>,<
  4175						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  4176	033006	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  4177	033007	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  4178	033010	003 11 0 00 003341 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4179	033011	321 13 0 00 033004 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4180
  4181					;TEST ROT LEFT ONE BIT POSITION
  4182					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  4183					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4184					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  4185					;IS ZERO AFTER ROTATING.
  4186					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  4187
  4188			003342		SN=SN+1
  4189		777777	677777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  4190						IFE	<ZZ-1>,<ZZ=-2>
  4191			577777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  4192	033012	525 11 0 00 677777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  4193						IFN	<<ZZ-377777>&777777>,<
  4194	033013	525 10 0 00 577777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  4195						IFE	<<ZZ-377777>&777777>,<
  4196						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  4197	033014	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  4198	033015	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  4199	033016	003 11 0 00 003342 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4200	033017	321 13 0 00 033012 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4201
  4202					;TEST ROT LEFT ONE BIT POSITION
  4203					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  4204					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4205					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  4206					;IS ZERO AFTER ROTATING.
  4207					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  4208
  4209			003343		SN=SN+1
  4210		777777	577777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  4211						IFE	<ZZ-1>,<ZZ=-2>
  4212			377777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  4213	033020	525 11 0 00 577777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  4214						IFN	<<ZZ-377777>&777777>,<
  4215	033021	525 10 0 00 377777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  4216						IFE	<<ZZ-377777>&777777>,<
  4217						HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  4218	033022	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  4219	033023	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  4220	033024	003 11 0 00 003343 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4221	033025	321 13 0 00 033020 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4222
  4223					;TEST ROT LEFT ONE BIT POSITION
  4224					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  4225					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4226					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  4227					;IS ZERO AFTER ROTATING.
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 12-15
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0101

  4228					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  4229
  4230			003344		SN=SN+1
  4231		777777	377777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  4232						IFE	<ZZ-1>,<ZZ=-2>
  4233			777777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  4234	033026	525 11 0 00 377777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  4235						IFN	<<ZZ-377777>&777777>,<
  4236						HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  4237						IFE	<<ZZ-377777>&777777>,<
  4238	033027	561 10 0 00 777776 		HRROI	AC-1,-2		;SETUP FOR COMPARISON>
  4239	033030	241 11 0 00 000001 		ROT	AC,1		;*ROTATE LEFT ONE
  4240	033031	312 11 0 00 000010 		CAME	AC,AC-1		;TEST FOR BIT (N-1) OR ZERO
  4241	033032	003 11 0 00 003344 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4242	033033	321 13 0 00 033026 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4243
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 13
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0102

  4244
  4245					;TEST ROT RIGHT ONE BIT POSITION
  4246					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD.
  4247					;AN ERROR OCCURS IF C(AC) IS NON-ZERO AFTER ROTATING
  4248
  4249			000010			AC=10
  4250						SAVEAC	(1,1)^
  4251	033034	201 12 0 00 033034 		MOVEI	AC+2,.		;SAVE TEST PC
  4252	033035	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  4253	033036	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  4254	033037	202 12 0 00 041763 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  4255
  4256	033040	403 10 0 00 000007 	E3400:	SETZB	AC,AC-1		;INITIALIZE AC AND EXPECTED RESULT TO ZERO
  4257	033041	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4258	033042	312 10 0 00 000007 		CAME	AC,AC-1		;TEST AC FOR ALL ZEROS
  4259	033043	003 10 0 00 003401 		ER3	AC,3401		;AD-AR GATING FAILED
  4260	033044	321 12 0 00 033040 		JUMPL	AC+2,E3400	;LOOP ON ERROR SWITCH
  4261
  4262					;TEST ROT RIGHT ONE BIT POSITION
  4263					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4264					;AN ERROR OCCURS IF C(AC) IS NOT ALL ONES AFTER ROTATING
  4265
  4266	033045	477 10 0 00 000007 	E3500:	SETOB	AC,AC-1		;INITIALIZE AC AND EXPECTED RESULT TO ALL ONES
  4267	033046	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4268	033047	312 10 0 00 000007 		CAME	AC,AC-1		;TEST AC FOR ALL ONES.
  4269	033050	003 10 0 00 003501 		ER3	AC,3501		;AD-AR GATING FAILED
  4270	033051	321 12 0 00 033045 		JUMPL	AC+2,E3500	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 14
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0103

  4271			003600		SN=3600
  4272			000000			ZZ=0
  4273
  4274							;TEST AC LEFT HALF<
  4275					E3600:	REPEAT	^D18,<;TEST ROT RIGHT ONE BIT POSITION
  4276					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4277					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4278					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4279					;BIT IS ONE AFTER ROTATING
  4280					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4281					
  4282					SN=SN+1
  4283						ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4284						IFE	ZZ,<ZZ=400000>
  4285						YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4286						MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4287						IFN	<ZZ-1>,<
  4288						MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4289						IFE	<ZZ-1>,<
  4290						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4291						ROT	AC,-1		;*ROTATE RIGHT ONE
  4292						CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4293						ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4294						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4295					>
  4296					;TEST ROT RIGHT ONE BIT POSITION
  4297					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4298					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4299					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4300					;BIT IS ONE AFTER ROTATING
  4301					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4302
  4303			003601		SN=SN+1
  4304			000000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4305			400000			IFE	ZZ,<ZZ=400000>
  4306			200000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4307	033052	205 10 0 00 400000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4308						IFN	<ZZ-1>,<
  4309	033053	205 07 0 00 200000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4310						IFE	<ZZ-1>,<
  4311						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4312	033054	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4313	033055	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4314	033056	003 10 0 00 003601 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4315	033057	321 12 0 00 033052 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4316
  4317					;TEST ROT RIGHT ONE BIT POSITION
  4318					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4319					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4320					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4321					;BIT IS ONE AFTER ROTATING
  4322					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4323
  4324			003602		SN=SN+1
  4325			200000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 14-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0104

  4326						IFE	ZZ,<ZZ=400000>
  4327			100000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4328	033060	205 10 0 00 200000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4329						IFN	<ZZ-1>,<
  4330	033061	205 07 0 00 100000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4331						IFE	<ZZ-1>,<
  4332						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4333	033062	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4334	033063	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4335	033064	003 10 0 00 003602 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4336	033065	321 12 0 00 033060 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4337
  4338					;TEST ROT RIGHT ONE BIT POSITION
  4339					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4340					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4341					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4342					;BIT IS ONE AFTER ROTATING
  4343					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4344
  4345			003603		SN=SN+1
  4346			100000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4347						IFE	ZZ,<ZZ=400000>
  4348			040000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4349	033066	205 10 0 00 100000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4350						IFN	<ZZ-1>,<
  4351	033067	205 07 0 00 040000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4352						IFE	<ZZ-1>,<
  4353						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4354	033070	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4355	033071	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4356	033072	003 10 0 00 003603 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4357	033073	321 12 0 00 033066 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4358
  4359					;TEST ROT RIGHT ONE BIT POSITION
  4360					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4361					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4362					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4363					;BIT IS ONE AFTER ROTATING
  4364					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4365
  4366			003604		SN=SN+1
  4367			040000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4368						IFE	ZZ,<ZZ=400000>
  4369			020000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4370	033074	205 10 0 00 040000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4371						IFN	<ZZ-1>,<
  4372	033075	205 07 0 00 020000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4373						IFE	<ZZ-1>,<
  4374						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4375	033076	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4376	033077	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4377	033100	003 10 0 00 003604 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4378	033101	321 12 0 00 033074 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4379
  4380					;TEST ROT RIGHT ONE BIT POSITION
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 14-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0105

  4381					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4382					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4383					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4384					;BIT IS ONE AFTER ROTATING
  4385					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4386
  4387			003605		SN=SN+1
  4388			020000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4389						IFE	ZZ,<ZZ=400000>
  4390			010000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4391	033102	205 10 0 00 020000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4392						IFN	<ZZ-1>,<
  4393	033103	205 07 0 00 010000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4394						IFE	<ZZ-1>,<
  4395						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4396	033104	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4397	033105	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4398	033106	003 10 0 00 003605 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4399	033107	321 12 0 00 033102 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4400
  4401					;TEST ROT RIGHT ONE BIT POSITION
  4402					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4403					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4404					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4405					;BIT IS ONE AFTER ROTATING
  4406					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4407
  4408			003606		SN=SN+1
  4409			010000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4410						IFE	ZZ,<ZZ=400000>
  4411			004000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4412	033110	205 10 0 00 010000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4413						IFN	<ZZ-1>,<
  4414	033111	205 07 0 00 004000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4415						IFE	<ZZ-1>,<
  4416						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4417	033112	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4418	033113	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4419	033114	003 10 0 00 003606 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4420	033115	321 12 0 00 033110 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4421
  4422					;TEST ROT RIGHT ONE BIT POSITION
  4423					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4424					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4425					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4426					;BIT IS ONE AFTER ROTATING
  4427					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4428
  4429			003607		SN=SN+1
  4430			004000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4431						IFE	ZZ,<ZZ=400000>
  4432			002000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4433	033116	205 10 0 00 004000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4434						IFN	<ZZ-1>,<
  4435	033117	205 07 0 00 002000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 14-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0106

  4436						IFE	<ZZ-1>,<
  4437						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4438	033120	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4439	033121	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4440	033122	003 10 0 00 003607 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4441	033123	321 12 0 00 033116 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4442
  4443					;TEST ROT RIGHT ONE BIT POSITION
  4444					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4445					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4446					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4447					;BIT IS ONE AFTER ROTATING
  4448					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4449
  4450			003610		SN=SN+1
  4451			002000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4452						IFE	ZZ,<ZZ=400000>
  4453			001000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4454	033124	205 10 0 00 002000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4455						IFN	<ZZ-1>,<
  4456	033125	205 07 0 00 001000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4457						IFE	<ZZ-1>,<
  4458						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4459	033126	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4460	033127	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4461	033130	003 10 0 00 003610 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4462	033131	321 12 0 00 033124 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4463
  4464					;TEST ROT RIGHT ONE BIT POSITION
  4465					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4466					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4467					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4468					;BIT IS ONE AFTER ROTATING
  4469					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4470
  4471			003611		SN=SN+1
  4472			001000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4473						IFE	ZZ,<ZZ=400000>
  4474			000400			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4475	033132	205 10 0 00 001000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4476						IFN	<ZZ-1>,<
  4477	033133	205 07 0 00 000400 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4478						IFE	<ZZ-1>,<
  4479						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4480	033134	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4481	033135	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4482	033136	003 10 0 00 003611 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4483	033137	321 12 0 00 033132 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4484
  4485					;TEST ROT RIGHT ONE BIT POSITION
  4486					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4487					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4488					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4489					;BIT IS ONE AFTER ROTATING
  4490					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 14-4
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0107

  4491
  4492			003612		SN=SN+1
  4493			000400			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4494						IFE	ZZ,<ZZ=400000>
  4495			000200			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4496	033140	205 10 0 00 000400 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4497						IFN	<ZZ-1>,<
  4498	033141	205 07 0 00 000200 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4499						IFE	<ZZ-1>,<
  4500						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4501	033142	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4502	033143	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4503	033144	003 10 0 00 003612 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4504	033145	321 12 0 00 033140 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4505
  4506					;TEST ROT RIGHT ONE BIT POSITION
  4507					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4508					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4509					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4510					;BIT IS ONE AFTER ROTATING
  4511					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4512
  4513			003613		SN=SN+1
  4514			000200			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4515						IFE	ZZ,<ZZ=400000>
  4516			000100			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4517	033146	205 10 0 00 000200 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4518						IFN	<ZZ-1>,<
  4519	033147	205 07 0 00 000100 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4520						IFE	<ZZ-1>,<
  4521						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4522	033150	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4523	033151	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4524	033152	003 10 0 00 003613 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4525	033153	321 12 0 00 033146 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4526
  4527					;TEST ROT RIGHT ONE BIT POSITION
  4528					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4529					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4530					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4531					;BIT IS ONE AFTER ROTATING
  4532					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4533
  4534			003614		SN=SN+1
  4535			000100			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4536						IFE	ZZ,<ZZ=400000>
  4537			000040			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4538	033154	205 10 0 00 000100 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4539						IFN	<ZZ-1>,<
  4540	033155	205 07 0 00 000040 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4541						IFE	<ZZ-1>,<
  4542						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4543	033156	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4544	033157	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4545	033160	003 10 0 00 003614 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 14-5
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0108

  4546	033161	321 12 0 00 033154 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4547
  4548					;TEST ROT RIGHT ONE BIT POSITION
  4549					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4550					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4551					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4552					;BIT IS ONE AFTER ROTATING
  4553					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4554
  4555			003615		SN=SN+1
  4556			000040			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4557						IFE	ZZ,<ZZ=400000>
  4558			000020			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4559	033162	205 10 0 00 000040 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4560						IFN	<ZZ-1>,<
  4561	033163	205 07 0 00 000020 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4562						IFE	<ZZ-1>,<
  4563						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4564	033164	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4565	033165	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4566	033166	003 10 0 00 003615 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4567	033167	321 12 0 00 033162 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4568
  4569					;TEST ROT RIGHT ONE BIT POSITION
  4570					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4571					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4572					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4573					;BIT IS ONE AFTER ROTATING
  4574					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4575
  4576			003616		SN=SN+1
  4577			000020			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4578						IFE	ZZ,<ZZ=400000>
  4579			000010			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4580	033170	205 10 0 00 000020 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4581						IFN	<ZZ-1>,<
  4582	033171	205 07 0 00 000010 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4583						IFE	<ZZ-1>,<
  4584						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4585	033172	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4586	033173	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4587	033174	003 10 0 00 003616 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4588	033175	321 12 0 00 033170 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4589
  4590					;TEST ROT RIGHT ONE BIT POSITION
  4591					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4592					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4593					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4594					;BIT IS ONE AFTER ROTATING
  4595					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4596
  4597			003617		SN=SN+1
  4598			000010			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4599						IFE	ZZ,<ZZ=400000>
  4600			000004			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 14-6
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0109

  4601	033176	205 10 0 00 000010 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4602						IFN	<ZZ-1>,<
  4603	033177	205 07 0 00 000004 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4604						IFE	<ZZ-1>,<
  4605						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4606	033200	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4607	033201	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4608	033202	003 10 0 00 003617 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4609	033203	321 12 0 00 033176 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4610
  4611					;TEST ROT RIGHT ONE BIT POSITION
  4612					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4613					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4614					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4615					;BIT IS ONE AFTER ROTATING
  4616					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4617
  4618			003620		SN=SN+1
  4619			000004			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4620						IFE	ZZ,<ZZ=400000>
  4621			000002			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4622	033204	205 10 0 00 000004 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4623						IFN	<ZZ-1>,<
  4624	033205	205 07 0 00 000002 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4625						IFE	<ZZ-1>,<
  4626						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4627	033206	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4628	033207	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4629	033210	003 10 0 00 003620 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4630	033211	321 12 0 00 033204 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4631
  4632					;TEST ROT RIGHT ONE BIT POSITION
  4633					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4634					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4635					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4636					;BIT IS ONE AFTER ROTATING
  4637					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4638
  4639			003621		SN=SN+1
  4640			000002			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4641						IFE	ZZ,<ZZ=400000>
  4642			000001			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4643	033212	205 10 0 00 000002 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4644						IFN	<ZZ-1>,<
  4645	033213	205 07 0 00 000001 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4646						IFE	<ZZ-1>,<
  4647						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4648	033214	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4649	033215	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4650	033216	003 10 0 00 003621 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4651	033217	321 12 0 00 033212 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4652
  4653					;TEST ROT RIGHT ONE BIT POSITION
  4654					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4655					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 14-7
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0110

  4656					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  4657					;BIT IS ONE AFTER ROTATING
  4658					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4659
  4660			003622		SN=SN+1
  4661			000001			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4662						IFE	ZZ,<ZZ=400000>
  4663			000000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4664	033220	205 10 0 00 000001 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  4665						IFN	<ZZ-1>,<
  4666						MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  4667						IFE	<ZZ-1>,<
  4668	033221	201 07 0 00 400000 		MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  4669	033222	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4670	033223	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ONE
  4671	033224	003 10 0 00 003622 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4672	033225	321 12 0 00 033220 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4673
  4674					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 14-8
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0111

  4675			000000			ZZ=0
  4676
  4677							;TEST AC RIGHT HALF<
  4678						REPEAT	^D18,<;TEST ROT RIGHT ONE BIT POSITION
  4679					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4680					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4681					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  4682					;ONE AFTER ROTATING
  4683					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4684					
  4685					SN=SN+1
  4686						ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4687						IFE	ZZ,<ZZ=400000>
  4688						YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4689						MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  4690						IFN	<ZZ-1>,<
  4691						MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  4692						IFE	<ZZ-1>,<
  4693						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  4694						ROT	AC,-1		;*ROTATE RIGHT ONE
  4695						CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  4696						ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4697						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4698					>
  4699					;TEST ROT RIGHT ONE BIT POSITION
  4700					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4701					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4702					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  4703					;ONE AFTER ROTATING
  4704					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4705
  4706			003623		SN=SN+1
  4707			000000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4708			400000			IFE	ZZ,<ZZ=400000>
  4709			200000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4710	033226	201 10 0 00 400000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  4711						IFN	<ZZ-1>,<
  4712	033227	201 07 0 00 200000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  4713						IFE	<ZZ-1>,<
  4714						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  4715	033230	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4716	033231	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  4717	033232	003 10 0 00 003623 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4718	033233	321 12 0 00 033226 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4719
  4720					;TEST ROT RIGHT ONE BIT POSITION
  4721					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4722					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4723					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  4724					;ONE AFTER ROTATING
  4725					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4726
  4727			003624		SN=SN+1
  4728			200000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4729						IFE	ZZ,<ZZ=400000>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 14-9
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0112

  4730			100000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4731	033234	201 10 0 00 200000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  4732						IFN	<ZZ-1>,<
  4733	033235	201 07 0 00 100000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  4734						IFE	<ZZ-1>,<
  4735						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  4736	033236	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4737	033237	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  4738	033240	003 10 0 00 003624 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4739	033241	321 12 0 00 033234 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4740
  4741					;TEST ROT RIGHT ONE BIT POSITION
  4742					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4743					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4744					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  4745					;ONE AFTER ROTATING
  4746					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4747
  4748			003625		SN=SN+1
  4749			100000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4750						IFE	ZZ,<ZZ=400000>
  4751			040000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4752	033242	201 10 0 00 100000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  4753						IFN	<ZZ-1>,<
  4754	033243	201 07 0 00 040000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  4755						IFE	<ZZ-1>,<
  4756						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  4757	033244	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4758	033245	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  4759	033246	003 10 0 00 003625 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4760	033247	321 12 0 00 033242 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4761
  4762					;TEST ROT RIGHT ONE BIT POSITION
  4763					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4764					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4765					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  4766					;ONE AFTER ROTATING
  4767					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4768
  4769			003626		SN=SN+1
  4770			040000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4771						IFE	ZZ,<ZZ=400000>
  4772			020000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4773	033250	201 10 0 00 040000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  4774						IFN	<ZZ-1>,<
  4775	033251	201 07 0 00 020000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  4776						IFE	<ZZ-1>,<
  4777						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  4778	033252	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4779	033253	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  4780	033254	003 10 0 00 003626 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4781	033255	321 12 0 00 033250 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4782
  4783					;TEST ROT RIGHT ONE BIT POSITION
  4784					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 14-10
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0113

  4785					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4786					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  4787					;ONE AFTER ROTATING
  4788					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4789
  4790			003627		SN=SN+1
  4791			020000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4792						IFE	ZZ,<ZZ=400000>
  4793			010000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4794	033256	201 10 0 00 020000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  4795						IFN	<ZZ-1>,<
  4796	033257	201 07 0 00 010000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  4797						IFE	<ZZ-1>,<
  4798						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  4799	033260	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4800	033261	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  4801	033262	003 10 0 00 003627 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4802	033263	321 12 0 00 033256 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4803
  4804					;TEST ROT RIGHT ONE BIT POSITION
  4805					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4806					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4807					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  4808					;ONE AFTER ROTATING
  4809					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4810
  4811			003630		SN=SN+1
  4812			010000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4813						IFE	ZZ,<ZZ=400000>
  4814			004000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4815	033264	201 10 0 00 010000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  4816						IFN	<ZZ-1>,<
  4817	033265	201 07 0 00 004000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  4818						IFE	<ZZ-1>,<
  4819						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  4820	033266	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4821	033267	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  4822	033270	003 10 0 00 003630 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4823	033271	321 12 0 00 033264 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4824
  4825					;TEST ROT RIGHT ONE BIT POSITION
  4826					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4827					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4828					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  4829					;ONE AFTER ROTATING
  4830					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4831
  4832			003631		SN=SN+1
  4833			004000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4834						IFE	ZZ,<ZZ=400000>
  4835			002000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4836	033272	201 10 0 00 004000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  4837						IFN	<ZZ-1>,<
  4838	033273	201 07 0 00 002000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  4839						IFE	<ZZ-1>,<
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 14-11
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0114

  4840						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  4841	033274	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4842	033275	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  4843	033276	003 10 0 00 003631 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4844	033277	321 12 0 00 033272 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4845
  4846					;TEST ROT RIGHT ONE BIT POSITION
  4847					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4848					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4849					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  4850					;ONE AFTER ROTATING
  4851					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4852
  4853			003632		SN=SN+1
  4854			002000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4855						IFE	ZZ,<ZZ=400000>
  4856			001000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4857	033300	201 10 0 00 002000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  4858						IFN	<ZZ-1>,<
  4859	033301	201 07 0 00 001000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  4860						IFE	<ZZ-1>,<
  4861						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  4862	033302	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4863	033303	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  4864	033304	003 10 0 00 003632 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4865	033305	321 12 0 00 033300 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4866
  4867					;TEST ROT RIGHT ONE BIT POSITION
  4868					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4869					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4870					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  4871					;ONE AFTER ROTATING
  4872					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4873
  4874			003633		SN=SN+1
  4875			001000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4876						IFE	ZZ,<ZZ=400000>
  4877			000400			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4878	033306	201 10 0 00 001000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  4879						IFN	<ZZ-1>,<
  4880	033307	201 07 0 00 000400 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  4881						IFE	<ZZ-1>,<
  4882						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  4883	033310	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4884	033311	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  4885	033312	003 10 0 00 003633 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4886	033313	321 12 0 00 033306 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4887
  4888					;TEST ROT RIGHT ONE BIT POSITION
  4889					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4890					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4891					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  4892					;ONE AFTER ROTATING
  4893					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4894
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 14-12
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0115

  4895			003634		SN=SN+1
  4896			000400			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4897						IFE	ZZ,<ZZ=400000>
  4898			000200			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4899	033314	201 10 0 00 000400 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  4900						IFN	<ZZ-1>,<
  4901	033315	201 07 0 00 000200 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  4902						IFE	<ZZ-1>,<
  4903						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  4904	033316	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4905	033317	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  4906	033320	003 10 0 00 003634 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4907	033321	321 12 0 00 033314 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4908
  4909					;TEST ROT RIGHT ONE BIT POSITION
  4910					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4911					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4912					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  4913					;ONE AFTER ROTATING
  4914					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4915
  4916			003635		SN=SN+1
  4917			000200			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4918						IFE	ZZ,<ZZ=400000>
  4919			000100			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4920	033322	201 10 0 00 000200 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  4921						IFN	<ZZ-1>,<
  4922	033323	201 07 0 00 000100 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  4923						IFE	<ZZ-1>,<
  4924						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  4925	033324	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4926	033325	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  4927	033326	003 10 0 00 003635 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4928	033327	321 12 0 00 033322 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4929
  4930					;TEST ROT RIGHT ONE BIT POSITION
  4931					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4932					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4933					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  4934					;ONE AFTER ROTATING
  4935					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4936
  4937			003636		SN=SN+1
  4938			000100			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4939						IFE	ZZ,<ZZ=400000>
  4940			000040			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4941	033330	201 10 0 00 000100 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  4942						IFN	<ZZ-1>,<
  4943	033331	201 07 0 00 000040 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  4944						IFE	<ZZ-1>,<
  4945						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  4946	033332	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4947	033333	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  4948	033334	003 10 0 00 003636 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4949	033335	321 12 0 00 033330 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 14-13
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0116

  4950
  4951					;TEST ROT RIGHT ONE BIT POSITION
  4952					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4953					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4954					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  4955					;ONE AFTER ROTATING
  4956					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4957
  4958			003637		SN=SN+1
  4959			000040			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4960						IFE	ZZ,<ZZ=400000>
  4961			000020			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4962	033336	201 10 0 00 000040 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  4963						IFN	<ZZ-1>,<
  4964	033337	201 07 0 00 000020 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  4965						IFE	<ZZ-1>,<
  4966						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  4967	033340	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4968	033341	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  4969	033342	003 10 0 00 003637 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4970	033343	321 12 0 00 033336 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4971
  4972					;TEST ROT RIGHT ONE BIT POSITION
  4973					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4974					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4975					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  4976					;ONE AFTER ROTATING
  4977					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4978
  4979			003640		SN=SN+1
  4980			000020			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  4981						IFE	ZZ,<ZZ=400000>
  4982			000010			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  4983	033344	201 10 0 00 000020 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  4984						IFN	<ZZ-1>,<
  4985	033345	201 07 0 00 000010 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  4986						IFE	<ZZ-1>,<
  4987						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  4988	033346	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  4989	033347	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  4990	033350	003 10 0 00 003640 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  4991	033351	321 12 0 00 033344 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  4992
  4993					;TEST ROT RIGHT ONE BIT POSITION
  4994					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  4995					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  4996					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  4997					;ONE AFTER ROTATING
  4998					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  4999
  5000			003641		SN=SN+1
  5001			000010			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  5002						IFE	ZZ,<ZZ=400000>
  5003			000004			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  5004	033352	201 10 0 00 000010 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 14-14
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0117

  5005						IFN	<ZZ-1>,<
  5006	033353	201 07 0 00 000004 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  5007						IFE	<ZZ-1>,<
  5008						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  5009	033354	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5010	033355	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  5011	033356	003 10 0 00 003641 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5012	033357	321 12 0 00 033352 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5013
  5014					;TEST ROT RIGHT ONE BIT POSITION
  5015					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  5016					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5017					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  5018					;ONE AFTER ROTATING
  5019					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  5020
  5021			003642		SN=SN+1
  5022			000004			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  5023						IFE	ZZ,<ZZ=400000>
  5024			000002			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  5025	033360	201 10 0 00 000004 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  5026						IFN	<ZZ-1>,<
  5027	033361	201 07 0 00 000002 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  5028						IFE	<ZZ-1>,<
  5029						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  5030	033362	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5031	033363	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  5032	033364	003 10 0 00 003642 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5033	033365	321 12 0 00 033360 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5034
  5035					;TEST ROT RIGHT ONE BIT POSITION
  5036					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  5037					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5038					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  5039					;ONE AFTER ROTATING
  5040					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  5041
  5042			003643		SN=SN+1
  5043			000002			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  5044						IFE	ZZ,<ZZ=400000>
  5045			000001			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  5046	033366	201 10 0 00 000002 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  5047						IFN	<ZZ-1>,<
  5048	033367	201 07 0 00 000001 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  5049						IFE	<ZZ-1>,<
  5050						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  5051	033370	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5052	033371	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  5053	033372	003 10 0 00 003643 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5054	033373	321 12 0 00 033366 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5055
  5056					;TEST ROT RIGHT ONE BIT POSITION
  5057					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  5058					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5059					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 14-15
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0118

  5060					;ONE AFTER ROTATING
  5061					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  5062
  5063			003644		SN=SN+1
  5064			000001			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  5065						IFE	ZZ,<ZZ=400000>
  5066			000000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  5067	033374	201 10 0 00 000001 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  5068						IFN	<ZZ-1>,<
  5069						MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  5070						IFE	<ZZ-1>,<
  5071	033375	205 07 0 00 400000 		MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  5072	033376	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5073	033377	312 10 0 00 000007 		CAME	AC,AC-1			;TEST FOR BIT (N+1) A ONE
  5074	033400	003 10 0 00 003644 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5075	033401	321 12 0 00 033374 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5076
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 15
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0119

  5077			003700		SN=3700
  5078			000001			ZZ=1
  5079
  5080						;TEST AC LEFT HALF<
  5081					E3700:	REPEAT	^D18,<;TEST ROT RIGHT ONE BIT POSITION
  5082					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5083					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5084					;IS ZERO AFTER ROTATING.
  5085					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5086					
  5087					SN=SN+1
  5088						ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5089						IFE	<ZZ>,<ZZ=777777377777>
  5090						YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5091						HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  5092						IFN	<ZZ&777777-777776>,<
  5093						HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5094						IFE	<ZZ&777777-777776>,<
  5095						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5096						ROT	AC,-1		;*ROTATE RIGHT ONE
  5097						CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5098						ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5099						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5100					>
  5101					;TEST ROT RIGHT ONE BIT POSITION
  5102					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5103					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5104					;IS ZERO AFTER ROTATING.
  5105					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5106
  5107			003701		SN=SN+1
  5108			000000			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5109		777777	377777			IFE	<ZZ>,<ZZ=777777377777>
  5110			577777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5111	033402	525 10 0 00 377777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  5112						IFN	<ZZ&777777-777776>,<
  5113	033403	525 07 0 00 577777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5114						IFE	<ZZ&777777-777776>,<
  5115						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5116	033404	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5117	033405	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5118	033406	003 10 0 00 003701 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5119	033407	321 12 0 00 033402 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5120
  5121					;TEST ROT RIGHT ONE BIT POSITION
  5122					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5123					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5124					;IS ZERO AFTER ROTATING.
  5125					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5126
  5127			003702		SN=SN+1
  5128		777777	577777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5129						IFE	<ZZ>,<ZZ=777777377777>
  5130			677777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5131	033410	525 10 0 00 577777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 15-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0120

  5132						IFN	<ZZ&777777-777776>,<
  5133	033411	525 07 0 00 677777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5134						IFE	<ZZ&777777-777776>,<
  5135						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5136	033412	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5137	033413	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5138	033414	003 10 0 00 003702 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5139	033415	321 12 0 00 033410 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5140
  5141					;TEST ROT RIGHT ONE BIT POSITION
  5142					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5143					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5144					;IS ZERO AFTER ROTATING.
  5145					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5146
  5147			003703		SN=SN+1
  5148		777777	677777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5149						IFE	<ZZ>,<ZZ=777777377777>
  5150			737777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5151	033416	525 10 0 00 677777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  5152						IFN	<ZZ&777777-777776>,<
  5153	033417	525 07 0 00 737777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5154						IFE	<ZZ&777777-777776>,<
  5155						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5156	033420	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5157	033421	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5158	033422	003 10 0 00 003703 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5159	033423	321 12 0 00 033416 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5160
  5161					;TEST ROT RIGHT ONE BIT POSITION
  5162					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5163					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5164					;IS ZERO AFTER ROTATING.
  5165					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5166
  5167			003704		SN=SN+1
  5168		777777	737777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5169						IFE	<ZZ>,<ZZ=777777377777>
  5170			757777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5171	033424	525 10 0 00 737777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  5172						IFN	<ZZ&777777-777776>,<
  5173	033425	525 07 0 00 757777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5174						IFE	<ZZ&777777-777776>,<
  5175						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5176	033426	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5177	033427	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5178	033430	003 10 0 00 003704 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5179	033431	321 12 0 00 033424 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5180
  5181					;TEST ROT RIGHT ONE BIT POSITION
  5182					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5183					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5184					;IS ZERO AFTER ROTATING.
  5185					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5186
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 15-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0121

  5187			003705		SN=SN+1
  5188		777777	757777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5189						IFE	<ZZ>,<ZZ=777777377777>
  5190			767777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5191	033432	525 10 0 00 757777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  5192						IFN	<ZZ&777777-777776>,<
  5193	033433	525 07 0 00 767777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5194						IFE	<ZZ&777777-777776>,<
  5195						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5196	033434	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5197	033435	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5198	033436	003 10 0 00 003705 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5199	033437	321 12 0 00 033432 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5200
  5201					;TEST ROT RIGHT ONE BIT POSITION
  5202					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5203					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5204					;IS ZERO AFTER ROTATING.
  5205					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5206
  5207			003706		SN=SN+1
  5208		777777	767777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5209						IFE	<ZZ>,<ZZ=777777377777>
  5210			773777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5211	033440	525 10 0 00 767777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  5212						IFN	<ZZ&777777-777776>,<
  5213	033441	525 07 0 00 773777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5214						IFE	<ZZ&777777-777776>,<
  5215						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5216	033442	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5217	033443	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5218	033444	003 10 0 00 003706 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5219	033445	321 12 0 00 033440 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5220
  5221					;TEST ROT RIGHT ONE BIT POSITION
  5222					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5223					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5224					;IS ZERO AFTER ROTATING.
  5225					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5226
  5227			003707		SN=SN+1
  5228		777777	773777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5229						IFE	<ZZ>,<ZZ=777777377777>
  5230			775777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5231	033446	525 10 0 00 773777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  5232						IFN	<ZZ&777777-777776>,<
  5233	033447	525 07 0 00 775777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5234						IFE	<ZZ&777777-777776>,<
  5235						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5236	033450	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5237	033451	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5238	033452	003 10 0 00 003707 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5239	033453	321 12 0 00 033446 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5240
  5241					;TEST ROT RIGHT ONE BIT POSITION
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 15-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0122

  5242					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5243					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5244					;IS ZERO AFTER ROTATING.
  5245					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5246
  5247			003710		SN=SN+1
  5248		777777	775777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5249						IFE	<ZZ>,<ZZ=777777377777>
  5250			776777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5251	033454	525 10 0 00 775777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  5252						IFN	<ZZ&777777-777776>,<
  5253	033455	525 07 0 00 776777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5254						IFE	<ZZ&777777-777776>,<
  5255						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5256	033456	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5257	033457	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5258	033460	003 10 0 00 003710 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5259	033461	321 12 0 00 033454 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5260
  5261					;TEST ROT RIGHT ONE BIT POSITION
  5262					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5263					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5264					;IS ZERO AFTER ROTATING.
  5265					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5266
  5267			003711		SN=SN+1
  5268		777777	776777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5269						IFE	<ZZ>,<ZZ=777777377777>
  5270			777377			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5271	033462	525 10 0 00 776777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  5272						IFN	<ZZ&777777-777776>,<
  5273	033463	525 07 0 00 777377 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5274						IFE	<ZZ&777777-777776>,<
  5275						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5276	033464	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5277	033465	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5278	033466	003 10 0 00 003711 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5279	033467	321 12 0 00 033462 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5280
  5281					;TEST ROT RIGHT ONE BIT POSITION
  5282					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5283					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5284					;IS ZERO AFTER ROTATING.
  5285					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5286
  5287			003712		SN=SN+1
  5288		777777	777377			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5289						IFE	<ZZ>,<ZZ=777777377777>
  5290			777577			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5291	033470	525 10 0 00 777377 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  5292						IFN	<ZZ&777777-777776>,<
  5293	033471	525 07 0 00 777577 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5294						IFE	<ZZ&777777-777776>,<
  5295						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5296	033472	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 15-4
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0123

  5297	033473	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5298	033474	003 10 0 00 003712 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5299	033475	321 12 0 00 033470 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5300
  5301					;TEST ROT RIGHT ONE BIT POSITION
  5302					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5303					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5304					;IS ZERO AFTER ROTATING.
  5305					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5306
  5307			003713		SN=SN+1
  5308		777777	777577			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5309						IFE	<ZZ>,<ZZ=777777377777>
  5310			777677			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5311	033476	525 10 0 00 777577 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  5312						IFN	<ZZ&777777-777776>,<
  5313	033477	525 07 0 00 777677 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5314						IFE	<ZZ&777777-777776>,<
  5315						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5316	033500	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5317	033501	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5318	033502	003 10 0 00 003713 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5319	033503	321 12 0 00 033476 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5320
  5321					;TEST ROT RIGHT ONE BIT POSITION
  5322					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5323					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5324					;IS ZERO AFTER ROTATING.
  5325					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5326
  5327			003714		SN=SN+1
  5328		777777	777677			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5329						IFE	<ZZ>,<ZZ=777777377777>
  5330			777737			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5331	033504	525 10 0 00 777677 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  5332						IFN	<ZZ&777777-777776>,<
  5333	033505	525 07 0 00 777737 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5334						IFE	<ZZ&777777-777776>,<
  5335						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5336	033506	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5337	033507	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5338	033510	003 10 0 00 003714 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5339	033511	321 12 0 00 033504 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5340
  5341					;TEST ROT RIGHT ONE BIT POSITION
  5342					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5343					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5344					;IS ZERO AFTER ROTATING.
  5345					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5346
  5347			003715		SN=SN+1
  5348		777777	777737			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5349						IFE	<ZZ>,<ZZ=777777377777>
  5350			777757			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5351	033512	525 10 0 00 777737 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 15-5
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0124

  5352						IFN	<ZZ&777777-777776>,<
  5353	033513	525 07 0 00 777757 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5354						IFE	<ZZ&777777-777776>,<
  5355						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5356	033514	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5357	033515	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5358	033516	003 10 0 00 003715 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5359	033517	321 12 0 00 033512 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5360
  5361					;TEST ROT RIGHT ONE BIT POSITION
  5362					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5363					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5364					;IS ZERO AFTER ROTATING.
  5365					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5366
  5367			003716		SN=SN+1
  5368		777777	777757			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5369						IFE	<ZZ>,<ZZ=777777377777>
  5370			777767			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5371	033520	525 10 0 00 777757 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  5372						IFN	<ZZ&777777-777776>,<
  5373	033521	525 07 0 00 777767 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5374						IFE	<ZZ&777777-777776>,<
  5375						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5376	033522	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5377	033523	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5378	033524	003 10 0 00 003716 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5379	033525	321 12 0 00 033520 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5380
  5381					;TEST ROT RIGHT ONE BIT POSITION
  5382					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5383					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5384					;IS ZERO AFTER ROTATING.
  5385					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5386
  5387			003717		SN=SN+1
  5388		777777	777767			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5389						IFE	<ZZ>,<ZZ=777777377777>
  5390			777773			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5391	033526	525 10 0 00 777767 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  5392						IFN	<ZZ&777777-777776>,<
  5393	033527	525 07 0 00 777773 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5394						IFE	<ZZ&777777-777776>,<
  5395						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5396	033530	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5397	033531	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5398	033532	003 10 0 00 003717 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5399	033533	321 12 0 00 033526 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5400
  5401					;TEST ROT RIGHT ONE BIT POSITION
  5402					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5403					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5404					;IS ZERO AFTER ROTATING.
  5405					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5406
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 15-6
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0125

  5407			003720		SN=SN+1
  5408		777777	777773			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5409						IFE	<ZZ>,<ZZ=777777377777>
  5410			777775			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5411	033534	525 10 0 00 777773 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  5412						IFN	<ZZ&777777-777776>,<
  5413	033535	525 07 0 00 777775 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5414						IFE	<ZZ&777777-777776>,<
  5415						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5416	033536	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5417	033537	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5418	033540	003 10 0 00 003720 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5419	033541	321 12 0 00 033534 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5420
  5421					;TEST ROT RIGHT ONE BIT POSITION
  5422					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5423					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5424					;IS ZERO AFTER ROTATING.
  5425					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5426
  5427			003721		SN=SN+1
  5428		777777	777775			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5429						IFE	<ZZ>,<ZZ=777777377777>
  5430			777776			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5431	033542	525 10 0 00 777775 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  5432						IFN	<ZZ&777777-777776>,<
  5433	033543	525 07 0 00 777776 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5434						IFE	<ZZ&777777-777776>,<
  5435						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5436	033544	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5437	033545	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5438	033546	003 10 0 00 003721 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5439	033547	321 12 0 00 033542 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5440
  5441					;TEST ROT RIGHT ONE BIT POSITION
  5442					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5443					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5444					;IS ZERO AFTER ROTATING.
  5445					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5446
  5447			003722		SN=SN+1
  5448		777777	777776			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5449						IFE	<ZZ>,<ZZ=777777377777>
  5450			777777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5451	033550	525 10 0 00 777776 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  5452						IFN	<ZZ&777777-777776>,<
  5453						HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  5454						IFE	<ZZ&777777-777776>,<
  5455	033551	561 07 0 00 377777 		HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  5456	033552	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5457	033553	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5458	033554	003 10 0 00 003722 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5459	033555	321 12 0 00 033550 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5460
  5461					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 15-7
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0126

  5462			000001			ZZ=1
  5463
  5464						;TEST AC RIGHT HALF<
  5465						REPEAT	^D18,<;TEST ROT RIGHT ONE BIT POSITION
  5466					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5467					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5468					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5469					;IS ZERO AFTER ROTATING.
  5470					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5471					
  5472					SN=SN+1
  5473						ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5474						IFE	<ZZ>,<ZZ=777777377777>
  5475						YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5476						HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5477						IFN	<ZZ&777777-777776>,<
  5478						HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5479						IFE	<ZZ&777777-777776>,<
  5480						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5481						ROT	AC,-1		;*ROTATE RIGHT ONE
  5482						CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5483						ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5484						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5485					>
  5486					;TEST ROT RIGHT ONE BIT POSITION
  5487					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5488					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5489					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5490					;IS ZERO AFTER ROTATING.
  5491					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5492
  5493			003723		SN=SN+1
  5494			000000			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5495		777777	377777			IFE	<ZZ>,<ZZ=777777377777>
  5496			577777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5497	033556	561 10 0 00 377777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5498						IFN	<ZZ&777777-777776>,<
  5499	033557	561 07 0 00 577777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5500						IFE	<ZZ&777777-777776>,<
  5501						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5502	033560	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5503	033561	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5504	033562	003 10 0 00 003723 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5505	033563	321 12 0 00 033556 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5506
  5507					;TEST ROT RIGHT ONE BIT POSITION
  5508					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5509					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5510					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5511					;IS ZERO AFTER ROTATING.
  5512					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5513
  5514			003724		SN=SN+1
  5515		777777	577777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5516						IFE	<ZZ>,<ZZ=777777377777>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 15-8
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0127

  5517			677777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5518	033564	561 10 0 00 577777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5519						IFN	<ZZ&777777-777776>,<
  5520	033565	561 07 0 00 677777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5521						IFE	<ZZ&777777-777776>,<
  5522						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5523	033566	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5524	033567	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5525	033570	003 10 0 00 003724 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5526	033571	321 12 0 00 033564 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5527
  5528					;TEST ROT RIGHT ONE BIT POSITION
  5529					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5530					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5531					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5532					;IS ZERO AFTER ROTATING.
  5533					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5534
  5535			003725		SN=SN+1
  5536		777777	677777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5537						IFE	<ZZ>,<ZZ=777777377777>
  5538			737777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5539	033572	561 10 0 00 677777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5540						IFN	<ZZ&777777-777776>,<
  5541	033573	561 07 0 00 737777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5542						IFE	<ZZ&777777-777776>,<
  5543						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5544	033574	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5545	033575	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5546	033576	003 10 0 00 003725 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5547	033577	321 12 0 00 033572 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5548
  5549					;TEST ROT RIGHT ONE BIT POSITION
  5550					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5551					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5552					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5553					;IS ZERO AFTER ROTATING.
  5554					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5555
  5556			003726		SN=SN+1
  5557		777777	737777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5558						IFE	<ZZ>,<ZZ=777777377777>
  5559			757777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5560	033600	561 10 0 00 737777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5561						IFN	<ZZ&777777-777776>,<
  5562	033601	561 07 0 00 757777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5563						IFE	<ZZ&777777-777776>,<
  5564						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5565	033602	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5566	033603	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5567	033604	003 10 0 00 003726 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5568	033605	321 12 0 00 033600 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5569
  5570					;TEST ROT RIGHT ONE BIT POSITION
  5571					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 15-9
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0128

  5572					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5573					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5574					;IS ZERO AFTER ROTATING.
  5575					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5576
  5577			003727		SN=SN+1
  5578		777777	757777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5579						IFE	<ZZ>,<ZZ=777777377777>
  5580			767777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5581	033606	561 10 0 00 757777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5582						IFN	<ZZ&777777-777776>,<
  5583	033607	561 07 0 00 767777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5584						IFE	<ZZ&777777-777776>,<
  5585						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5586	033610	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5587	033611	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5588	033612	003 10 0 00 003727 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5589	033613	321 12 0 00 033606 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5590
  5591					;TEST ROT RIGHT ONE BIT POSITION
  5592					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5593					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5594					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5595					;IS ZERO AFTER ROTATING.
  5596					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5597
  5598			003730		SN=SN+1
  5599		777777	767777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5600						IFE	<ZZ>,<ZZ=777777377777>
  5601			773777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5602	033614	561 10 0 00 767777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5603						IFN	<ZZ&777777-777776>,<
  5604	033615	561 07 0 00 773777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5605						IFE	<ZZ&777777-777776>,<
  5606						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5607	033616	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5608	033617	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5609	033620	003 10 0 00 003730 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5610	033621	321 12 0 00 033614 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5611
  5612					;TEST ROT RIGHT ONE BIT POSITION
  5613					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5614					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5615					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5616					;IS ZERO AFTER ROTATING.
  5617					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5618
  5619			003731		SN=SN+1
  5620		777777	773777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5621						IFE	<ZZ>,<ZZ=777777377777>
  5622			775777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5623	033622	561 10 0 00 773777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5624						IFN	<ZZ&777777-777776>,<
  5625	033623	561 07 0 00 775777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5626						IFE	<ZZ&777777-777776>,<
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 15-10
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0129

  5627						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5628	033624	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5629	033625	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5630	033626	003 10 0 00 003731 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5631	033627	321 12 0 00 033622 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5632
  5633					;TEST ROT RIGHT ONE BIT POSITION
  5634					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5635					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5636					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5637					;IS ZERO AFTER ROTATING.
  5638					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5639
  5640			003732		SN=SN+1
  5641		777777	775777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5642						IFE	<ZZ>,<ZZ=777777377777>
  5643			776777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5644	033630	561 10 0 00 775777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5645						IFN	<ZZ&777777-777776>,<
  5646	033631	561 07 0 00 776777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5647						IFE	<ZZ&777777-777776>,<
  5648						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5649	033632	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5650	033633	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5651	033634	003 10 0 00 003732 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5652	033635	321 12 0 00 033630 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5653
  5654					;TEST ROT RIGHT ONE BIT POSITION
  5655					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5656					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5657					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5658					;IS ZERO AFTER ROTATING.
  5659					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5660
  5661			003733		SN=SN+1
  5662		777777	776777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5663						IFE	<ZZ>,<ZZ=777777377777>
  5664			777377			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5665	033636	561 10 0 00 776777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5666						IFN	<ZZ&777777-777776>,<
  5667	033637	561 07 0 00 777377 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5668						IFE	<ZZ&777777-777776>,<
  5669						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5670	033640	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5671	033641	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5672	033642	003 10 0 00 003733 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5673	033643	321 12 0 00 033636 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5674
  5675					;TEST ROT RIGHT ONE BIT POSITION
  5676					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5677					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5678					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5679					;IS ZERO AFTER ROTATING.
  5680					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5681
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 15-11
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0130

  5682			003734		SN=SN+1
  5683		777777	777377			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5684						IFE	<ZZ>,<ZZ=777777377777>
  5685			777577			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5686	033644	561 10 0 00 777377 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5687						IFN	<ZZ&777777-777776>,<
  5688	033645	561 07 0 00 777577 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5689						IFE	<ZZ&777777-777776>,<
  5690						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5691	033646	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5692	033647	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5693	033650	003 10 0 00 003734 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5694	033651	321 12 0 00 033644 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5695
  5696					;TEST ROT RIGHT ONE BIT POSITION
  5697					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5698					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5699					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5700					;IS ZERO AFTER ROTATING.
  5701					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5702
  5703			003735		SN=SN+1
  5704		777777	777577			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5705						IFE	<ZZ>,<ZZ=777777377777>
  5706			777677			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5707	033652	561 10 0 00 777577 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5708						IFN	<ZZ&777777-777776>,<
  5709	033653	561 07 0 00 777677 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5710						IFE	<ZZ&777777-777776>,<
  5711						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5712	033654	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5713	033655	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5714	033656	003 10 0 00 003735 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5715	033657	321 12 0 00 033652 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5716
  5717					;TEST ROT RIGHT ONE BIT POSITION
  5718					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5719					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5720					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5721					;IS ZERO AFTER ROTATING.
  5722					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5723
  5724			003736		SN=SN+1
  5725		777777	777677			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5726						IFE	<ZZ>,<ZZ=777777377777>
  5727			777737			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5728	033660	561 10 0 00 777677 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5729						IFN	<ZZ&777777-777776>,<
  5730	033661	561 07 0 00 777737 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5731						IFE	<ZZ&777777-777776>,<
  5732						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5733	033662	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5734	033663	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5735	033664	003 10 0 00 003736 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5736	033665	321 12 0 00 033660 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 15-12
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0131

  5737
  5738					;TEST ROT RIGHT ONE BIT POSITION
  5739					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5740					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5741					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5742					;IS ZERO AFTER ROTATING.
  5743					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5744
  5745			003737		SN=SN+1
  5746		777777	777737			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5747						IFE	<ZZ>,<ZZ=777777377777>
  5748			777757			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5749	033666	561 10 0 00 777737 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5750						IFN	<ZZ&777777-777776>,<
  5751	033667	561 07 0 00 777757 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5752						IFE	<ZZ&777777-777776>,<
  5753						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5754	033670	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5755	033671	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5756	033672	003 10 0 00 003737 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5757	033673	321 12 0 00 033666 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5758
  5759					;TEST ROT RIGHT ONE BIT POSITION
  5760					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5761					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5762					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5763					;IS ZERO AFTER ROTATING.
  5764					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5765
  5766			003740		SN=SN+1
  5767		777777	777757			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5768						IFE	<ZZ>,<ZZ=777777377777>
  5769			777767			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5770	033674	561 10 0 00 777757 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5771						IFN	<ZZ&777777-777776>,<
  5772	033675	561 07 0 00 777767 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5773						IFE	<ZZ&777777-777776>,<
  5774						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5775	033676	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5776	033677	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5777	033700	003 10 0 00 003740 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5778	033701	321 12 0 00 033674 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5779
  5780					;TEST ROT RIGHT ONE BIT POSITION
  5781					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5782					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5783					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5784					;IS ZERO AFTER ROTATING.
  5785					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5786
  5787			003741		SN=SN+1
  5788		777777	777767			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5789						IFE	<ZZ>,<ZZ=777777377777>
  5790			777773			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5791	033702	561 10 0 00 777767 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 15-13
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0132

  5792						IFN	<ZZ&777777-777776>,<
  5793	033703	561 07 0 00 777773 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5794						IFE	<ZZ&777777-777776>,<
  5795						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5796	033704	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5797	033705	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5798	033706	003 10 0 00 003741 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5799	033707	321 12 0 00 033702 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5800
  5801					;TEST ROT RIGHT ONE BIT POSITION
  5802					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5803					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5804					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5805					;IS ZERO AFTER ROTATING.
  5806					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5807
  5808			003742		SN=SN+1
  5809		777777	777773			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5810						IFE	<ZZ>,<ZZ=777777377777>
  5811			777775			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5812	033710	561 10 0 00 777773 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5813						IFN	<ZZ&777777-777776>,<
  5814	033711	561 07 0 00 777775 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5815						IFE	<ZZ&777777-777776>,<
  5816						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5817	033712	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5818	033713	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5819	033714	003 10 0 00 003742 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5820	033715	321 12 0 00 033710 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5821
  5822					;TEST ROT RIGHT ONE BIT POSITION
  5823					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5824					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5825					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  5826					;IS ZERO AFTER ROTATING.
  5827					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5828
  5829			003743		SN=SN+1
  5830		777777	777775			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5831						IFE	<ZZ>,<ZZ=777777377777>
  5832			777776			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5833	033716	561 10 0 00 777775 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5834						IFN	<ZZ&777777-777776>,<
  5835	033717	561 07 0 00 777776 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5836						IFE	<ZZ&777777-777776>,<
  5837						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5838	033720	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5839	033721	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5840	033722	003 10 0 00 003743 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5841	033723	321 12 0 00 033716 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5842
  5843					;TEST ROT RIGHT ONE BIT POSITION
  5844					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  5845					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5846					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 15-14
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0133

  5847					;IS ZERO AFTER ROTATING.
  5848					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  5849
  5850			003744		SN=SN+1
  5851		777777	777776			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  5852						IFE	<ZZ>,<ZZ=777777377777>
  5853			777777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
  5854	033724	561 10 0 00 777776 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  5855						IFN	<ZZ&777777-777776>,<
  5856						HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  5857						IFE	<ZZ&777777-777776>,<
  5858	033725	525 07 0 00 377777 		HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  5859	033726	241 10 0 00 777777 		ROT	AC,-1		;*ROTATE RIGHT ONE
  5860	033727	312 10 0 00 000007 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  5861	033730	003 10 0 00 003744 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5862	033731	321 12 0 00 033724 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5863
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 16
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0134

  5864					;TEST ROT RIGHT TWO BIT POSITIONS
  5865					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5866					;AN ERROR OCCURS IF C(AC) IS NON-ZERO AFTER ROTATING
  5867
  5868			000007			AC=7
  5869						SAVEAC	(1,1)^
  5870	033732	201 11 0 00 033732 		MOVEI	AC+2,.		;SAVE TEST PC
  5871	033733	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  5872	033734	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  5873	033735	202 11 0 00 041763 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  5874
  5875	033736	403 07 0 00 000006 	E4000:	SETZB	AC,AC-1		;INITIALIZE AC AND EXPECTED RESULT TO ZERO
  5876	033737	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  5877	033740	312 07 0 00 000006 		CAME	AC,AC-1		;TEST AC FOR ALL ZEROS
  5878	033741	003 07 0 00 004001 		ER3	AC,4001		;AD-AR GATING FAILED
  5879	033742	321 11 0 00 033736 		JUMPL	AC+2,E4000	;LOOP ON ERROR SWITCH
  5880
  5881					;TEST ROT RIGHT TWO BIT POSITIONS
  5882					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5883					;AN ERROR OCCURS IF C(AC) IS NOT ALL ONES AFTER ROTATING
  5884
  5885	033743	477 07 0 00 000006 	E4100:	SETOB	AC,AC-1		;INITIALIZE AC AND EXPECTED RESULT TO ALL ONES
  5886	033744	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  5887	033745	312 07 0 00 000006 		CAME	AC,AC-1		;TEST AC FOR ALL ONES.
  5888	033746	003 07 0 00 004101 		ER3	AC,4101		;AD-AR GATING FAILED
  5889	033747	321 11 0 00 033743 		JUMPL	AC+2,E4100	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 17
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0135

  5890
  5891			004200		SN=4200
  5892			000000			ZZ=0
  5893
  5894							;TEST AC LEFT HALF<
  5895					E4200:	REPEAT	^D18,<;TEST ROT RIGHT TWO BIT POSITIONS
  5896					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  5897					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5898					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  5899					;BIT IS ONE AFTER ROTATING
  5900					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  5901					
  5902					SN=SN+1
  5903						ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  5904						IFE	ZZ,<ZZ=400000>
  5905						YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  5906						MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  5907						IFG	<ZZ-2>,<
  5908						MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  5909						IFE	<ZZ-2>,<
  5910						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  5911						IFE	<ZZ-1>,<
  5912						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  5913						ROT	AC,-2		;*ROTATE RIGHT TWO
  5914						CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  5915						ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5916						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5917					>
  5918					;TEST ROT RIGHT TWO BIT POSITIONS
  5919					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  5920					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5921					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  5922					;BIT IS ONE AFTER ROTATING
  5923					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  5924
  5925			004201		SN=SN+1
  5926			000000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  5927			400000			IFE	ZZ,<ZZ=400000>
  5928			100000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  5929	033750	205 07 0 00 400000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  5930						IFG	<ZZ-2>,<
  5931	033751	205 06 0 00 100000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  5932						IFE	<ZZ-2>,<
  5933						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  5934						IFE	<ZZ-1>,<
  5935						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  5936	033752	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  5937	033753	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  5938	033754	003 07 0 00 004201 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5939	033755	321 11 0 00 033750 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5940
  5941					;TEST ROT RIGHT TWO BIT POSITIONS
  5942					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  5943					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5944					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 17-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0136

  5945					;BIT IS ONE AFTER ROTATING
  5946					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  5947
  5948			004202		SN=SN+1
  5949			200000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  5950						IFE	ZZ,<ZZ=400000>
  5951			040000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  5952	033756	205 07 0 00 200000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  5953						IFG	<ZZ-2>,<
  5954	033757	205 06 0 00 040000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  5955						IFE	<ZZ-2>,<
  5956						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  5957						IFE	<ZZ-1>,<
  5958						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  5959	033760	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  5960	033761	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  5961	033762	003 07 0 00 004202 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5962	033763	321 11 0 00 033756 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5963
  5964					;TEST ROT RIGHT TWO BIT POSITIONS
  5965					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  5966					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5967					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  5968					;BIT IS ONE AFTER ROTATING
  5969					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  5970
  5971			004203		SN=SN+1
  5972			100000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  5973						IFE	ZZ,<ZZ=400000>
  5974			020000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  5975	033764	205 07 0 00 100000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  5976						IFG	<ZZ-2>,<
  5977	033765	205 06 0 00 020000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  5978						IFE	<ZZ-2>,<
  5979						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  5980						IFE	<ZZ-1>,<
  5981						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  5982	033766	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  5983	033767	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  5984	033770	003 07 0 00 004203 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  5985	033771	321 11 0 00 033764 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  5986
  5987					;TEST ROT RIGHT TWO BIT POSITIONS
  5988					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  5989					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  5990					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  5991					;BIT IS ONE AFTER ROTATING
  5992					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  5993
  5994			004204		SN=SN+1
  5995			040000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  5996						IFE	ZZ,<ZZ=400000>
  5997			010000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  5998	033772	205 07 0 00 040000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  5999						IFG	<ZZ-2>,<
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 17-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0137

  6000	033773	205 06 0 00 010000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  6001						IFE	<ZZ-2>,<
  6002						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  6003						IFE	<ZZ-1>,<
  6004						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  6005	033774	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6006	033775	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6007	033776	003 07 0 00 004204 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6008	033777	321 11 0 00 033772 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6009
  6010					;TEST ROT RIGHT TWO BIT POSITIONS
  6011					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  6012					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6013					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  6014					;BIT IS ONE AFTER ROTATING
  6015					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6016
  6017			004205		SN=SN+1
  6018			020000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6019						IFE	ZZ,<ZZ=400000>
  6020			004000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6021	034000	205 07 0 00 020000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  6022						IFG	<ZZ-2>,<
  6023	034001	205 06 0 00 004000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  6024						IFE	<ZZ-2>,<
  6025						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  6026						IFE	<ZZ-1>,<
  6027						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  6028	034002	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6029	034003	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6030	034004	003 07 0 00 004205 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6031	034005	321 11 0 00 034000 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6032
  6033					;TEST ROT RIGHT TWO BIT POSITIONS
  6034					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  6035					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6036					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  6037					;BIT IS ONE AFTER ROTATING
  6038					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6039
  6040			004206		SN=SN+1
  6041			010000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6042						IFE	ZZ,<ZZ=400000>
  6043			002000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6044	034006	205 07 0 00 010000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  6045						IFG	<ZZ-2>,<
  6046	034007	205 06 0 00 002000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  6047						IFE	<ZZ-2>,<
  6048						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  6049						IFE	<ZZ-1>,<
  6050						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  6051	034010	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6052	034011	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6053	034012	003 07 0 00 004206 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6054	034013	321 11 0 00 034006 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 17-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0138

  6055
  6056					;TEST ROT RIGHT TWO BIT POSITIONS
  6057					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  6058					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6059					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  6060					;BIT IS ONE AFTER ROTATING
  6061					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6062
  6063			004207		SN=SN+1
  6064			004000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6065						IFE	ZZ,<ZZ=400000>
  6066			001000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6067	034014	205 07 0 00 004000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  6068						IFG	<ZZ-2>,<
  6069	034015	205 06 0 00 001000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  6070						IFE	<ZZ-2>,<
  6071						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  6072						IFE	<ZZ-1>,<
  6073						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  6074	034016	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6075	034017	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6076	034020	003 07 0 00 004207 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6077	034021	321 11 0 00 034014 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6078
  6079					;TEST ROT RIGHT TWO BIT POSITIONS
  6080					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  6081					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6082					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  6083					;BIT IS ONE AFTER ROTATING
  6084					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6085
  6086			004210		SN=SN+1
  6087			002000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6088						IFE	ZZ,<ZZ=400000>
  6089			000400			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6090	034022	205 07 0 00 002000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  6091						IFG	<ZZ-2>,<
  6092	034023	205 06 0 00 000400 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  6093						IFE	<ZZ-2>,<
  6094						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  6095						IFE	<ZZ-1>,<
  6096						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  6097	034024	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6098	034025	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6099	034026	003 07 0 00 004210 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6100	034027	321 11 0 00 034022 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6101
  6102					;TEST ROT RIGHT TWO BIT POSITIONS
  6103					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  6104					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6105					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  6106					;BIT IS ONE AFTER ROTATING
  6107					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6108
  6109			004211		SN=SN+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 17-4
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0139

  6110			001000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6111						IFE	ZZ,<ZZ=400000>
  6112			000200			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6113	034030	205 07 0 00 001000 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  6114						IFG	<ZZ-2>,<
  6115	034031	205 06 0 00 000200 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  6116						IFE	<ZZ-2>,<
  6117						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  6118						IFE	<ZZ-1>,<
  6119						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  6120	034032	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6121	034033	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6122	034034	003 07 0 00 004211 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6123	034035	321 11 0 00 034030 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6124
  6125					;TEST ROT RIGHT TWO BIT POSITIONS
  6126					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  6127					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6128					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  6129					;BIT IS ONE AFTER ROTATING
  6130					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6131
  6132			004212		SN=SN+1
  6133			000400			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6134						IFE	ZZ,<ZZ=400000>
  6135			000100			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6136	034036	205 07 0 00 000400 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  6137						IFG	<ZZ-2>,<
  6138	034037	205 06 0 00 000100 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  6139						IFE	<ZZ-2>,<
  6140						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  6141						IFE	<ZZ-1>,<
  6142						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  6143	034040	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6144	034041	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6145	034042	003 07 0 00 004212 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6146	034043	321 11 0 00 034036 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6147
  6148					;TEST ROT RIGHT TWO BIT POSITIONS
  6149					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  6150					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6151					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  6152					;BIT IS ONE AFTER ROTATING
  6153					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6154
  6155			004213		SN=SN+1
  6156			000200			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6157						IFE	ZZ,<ZZ=400000>
  6158			000040			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6159	034044	205 07 0 00 000200 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  6160						IFG	<ZZ-2>,<
  6161	034045	205 06 0 00 000040 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  6162						IFE	<ZZ-2>,<
  6163						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  6164						IFE	<ZZ-1>,<
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 17-5
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0140

  6165						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  6166	034046	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6167	034047	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6168	034050	003 07 0 00 004213 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6169	034051	321 11 0 00 034044 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6170
  6171					;TEST ROT RIGHT TWO BIT POSITIONS
  6172					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  6173					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6174					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  6175					;BIT IS ONE AFTER ROTATING
  6176					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6177
  6178			004214		SN=SN+1
  6179			000100			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6180						IFE	ZZ,<ZZ=400000>
  6181			000020			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6182	034052	205 07 0 00 000100 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  6183						IFG	<ZZ-2>,<
  6184	034053	205 06 0 00 000020 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  6185						IFE	<ZZ-2>,<
  6186						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  6187						IFE	<ZZ-1>,<
  6188						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  6189	034054	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6190	034055	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6191	034056	003 07 0 00 004214 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6192	034057	321 11 0 00 034052 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6193
  6194					;TEST ROT RIGHT TWO BIT POSITIONS
  6195					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  6196					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6197					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  6198					;BIT IS ONE AFTER ROTATING
  6199					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6200
  6201			004215		SN=SN+1
  6202			000040			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6203						IFE	ZZ,<ZZ=400000>
  6204			000010			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6205	034060	205 07 0 00 000040 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  6206						IFG	<ZZ-2>,<
  6207	034061	205 06 0 00 000010 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  6208						IFE	<ZZ-2>,<
  6209						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  6210						IFE	<ZZ-1>,<
  6211						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  6212	034062	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6213	034063	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6214	034064	003 07 0 00 004215 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6215	034065	321 11 0 00 034060 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6216
  6217					;TEST ROT RIGHT TWO BIT POSITIONS
  6218					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  6219					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 17-6
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0141

  6220					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  6221					;BIT IS ONE AFTER ROTATING
  6222					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6223
  6224			004216		SN=SN+1
  6225			000020			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6226						IFE	ZZ,<ZZ=400000>
  6227			000004			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6228	034066	205 07 0 00 000020 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  6229						IFG	<ZZ-2>,<
  6230	034067	205 06 0 00 000004 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  6231						IFE	<ZZ-2>,<
  6232						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  6233						IFE	<ZZ-1>,<
  6234						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  6235	034070	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6236	034071	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6237	034072	003 07 0 00 004216 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6238	034073	321 11 0 00 034066 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6239
  6240					;TEST ROT RIGHT TWO BIT POSITIONS
  6241					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  6242					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6243					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  6244					;BIT IS ONE AFTER ROTATING
  6245					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6246
  6247			004217		SN=SN+1
  6248			000010			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6249						IFE	ZZ,<ZZ=400000>
  6250			000002			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6251	034074	205 07 0 00 000010 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  6252						IFG	<ZZ-2>,<
  6253	034075	205 06 0 00 000002 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  6254						IFE	<ZZ-2>,<
  6255						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  6256						IFE	<ZZ-1>,<
  6257						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  6258	034076	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6259	034077	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6260	034100	003 07 0 00 004217 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6261	034101	321 11 0 00 034074 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6262
  6263					;TEST ROT RIGHT TWO BIT POSITIONS
  6264					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  6265					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6266					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  6267					;BIT IS ONE AFTER ROTATING
  6268					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6269
  6270			004220		SN=SN+1
  6271			000004			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6272						IFE	ZZ,<ZZ=400000>
  6273			000001			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6274	034102	205 07 0 00 000004 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 17-7
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0142

  6275						IFG	<ZZ-2>,<
  6276	034103	205 06 0 00 000001 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  6277						IFE	<ZZ-2>,<
  6278						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  6279						IFE	<ZZ-1>,<
  6280						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  6281	034104	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6282	034105	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6283	034106	003 07 0 00 004220 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6284	034107	321 11 0 00 034102 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6285
  6286					;TEST ROT RIGHT TWO BIT POSITIONS
  6287					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  6288					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6289					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  6290					;BIT IS ONE AFTER ROTATING
  6291					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6292
  6293			004221		SN=SN+1
  6294			000002			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6295						IFE	ZZ,<ZZ=400000>
  6296			000000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6297	034110	205 07 0 00 000002 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  6298						IFG	<ZZ-2>,<
  6299						MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  6300						IFE	<ZZ-2>,<
  6301	034111	201 06 0 00 400000 		MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  6302						IFE	<ZZ-1>,<
  6303						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  6304	034112	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6305	034113	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6306	034114	003 07 0 00 004221 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6307	034115	321 11 0 00 034110 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6308
  6309					;TEST ROT RIGHT TWO BIT POSITIONS
  6310					;TEST ABILITY TO ROTATE A ONE GHROUGH THE 36 BITS OF THE AR
  6311					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6312					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER
  6313					;BIT IS ONE AFTER ROTATING
  6314					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6315
  6316			004222		SN=SN+1
  6317			000001			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6318						IFE	ZZ,<ZZ=400000>
  6319			000000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6320	034116	205 07 0 00 000001 		MOVSI	AC,ZZ		;SET BIT (N) OF AC LEFT
  6321						IFG	<ZZ-2>,<
  6322						MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  6323						IFE	<ZZ-2>,<
  6324						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
  6325						IFE	<ZZ-1>,<
  6326	034117	201 06 0 00 200000 		MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
  6327	034120	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6328	034121	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6329	034122	003 07 0 00 004222 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 17-8
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0143

  6330	034123	321 11 0 00 034116 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6331
  6332					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 17-9
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0144

  6333			000000			ZZ=0
  6334
  6335							;TEST AC RIGHT HALF <
  6336						REPEAT	^D18,<;TEST ROT RIGHT TWO BIT POSITIONS
  6337					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6338					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6339					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6340					;ONE AFTER ROTATING
  6341					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6342					
  6343					SN=SN+1
  6344						ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6345						IFE	ZZ,<ZZ=400000>
  6346						YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6347						MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6348						IFG	<ZZ-2>,<
  6349						MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6350						IFE	<ZZ-2>,<
  6351						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6352						IFE	<ZZ-1>,<
  6353						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6354						ROT	AC,-2		;*ROTATE RIGHT TWO
  6355						CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6356						ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6357						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6358					>
  6359					;TEST ROT RIGHT TWO BIT POSITIONS
  6360					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6361					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6362					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6363					;ONE AFTER ROTATING
  6364					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6365
  6366			004223		SN=SN+1
  6367			000000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6368			400000			IFE	ZZ,<ZZ=400000>
  6369			100000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6370	034124	201 07 0 00 400000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6371						IFG	<ZZ-2>,<
  6372	034125	201 06 0 00 100000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6373						IFE	<ZZ-2>,<
  6374						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6375						IFE	<ZZ-1>,<
  6376						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6377	034126	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6378	034127	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6379	034130	003 07 0 00 004223 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6380	034131	321 11 0 00 034124 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6381
  6382					;TEST ROT RIGHT TWO BIT POSITIONS
  6383					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6384					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6385					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6386					;ONE AFTER ROTATING
  6387					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 17-10
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0145

  6388
  6389			004224		SN=SN+1
  6390			200000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6391						IFE	ZZ,<ZZ=400000>
  6392			040000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6393	034132	201 07 0 00 200000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6394						IFG	<ZZ-2>,<
  6395	034133	201 06 0 00 040000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6396						IFE	<ZZ-2>,<
  6397						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6398						IFE	<ZZ-1>,<
  6399						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6400	034134	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6401	034135	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6402	034136	003 07 0 00 004224 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6403	034137	321 11 0 00 034132 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6404
  6405					;TEST ROT RIGHT TWO BIT POSITIONS
  6406					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6407					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6408					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6409					;ONE AFTER ROTATING
  6410					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6411
  6412			004225		SN=SN+1
  6413			100000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6414						IFE	ZZ,<ZZ=400000>
  6415			020000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6416	034140	201 07 0 00 100000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6417						IFG	<ZZ-2>,<
  6418	034141	201 06 0 00 020000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6419						IFE	<ZZ-2>,<
  6420						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6421						IFE	<ZZ-1>,<
  6422						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6423	034142	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6424	034143	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6425	034144	003 07 0 00 004225 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6426	034145	321 11 0 00 034140 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6427
  6428					;TEST ROT RIGHT TWO BIT POSITIONS
  6429					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6430					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6431					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6432					;ONE AFTER ROTATING
  6433					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6434
  6435			004226		SN=SN+1
  6436			040000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6437						IFE	ZZ,<ZZ=400000>
  6438			010000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6439	034146	201 07 0 00 040000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6440						IFG	<ZZ-2>,<
  6441	034147	201 06 0 00 010000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6442						IFE	<ZZ-2>,<
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 17-11
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0146

  6443						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6444						IFE	<ZZ-1>,<
  6445						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6446	034150	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6447	034151	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6448	034152	003 07 0 00 004226 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6449	034153	321 11 0 00 034146 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6450
  6451					;TEST ROT RIGHT TWO BIT POSITIONS
  6452					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6453					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6454					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6455					;ONE AFTER ROTATING
  6456					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6457
  6458			004227		SN=SN+1
  6459			020000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6460						IFE	ZZ,<ZZ=400000>
  6461			004000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6462	034154	201 07 0 00 020000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6463						IFG	<ZZ-2>,<
  6464	034155	201 06 0 00 004000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6465						IFE	<ZZ-2>,<
  6466						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6467						IFE	<ZZ-1>,<
  6468						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6469	034156	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6470	034157	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6471	034160	003 07 0 00 004227 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6472	034161	321 11 0 00 034154 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6473
  6474					;TEST ROT RIGHT TWO BIT POSITIONS
  6475					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6476					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6477					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6478					;ONE AFTER ROTATING
  6479					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6480
  6481			004230		SN=SN+1
  6482			010000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6483						IFE	ZZ,<ZZ=400000>
  6484			002000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6485	034162	201 07 0 00 010000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6486						IFG	<ZZ-2>,<
  6487	034163	201 06 0 00 002000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6488						IFE	<ZZ-2>,<
  6489						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6490						IFE	<ZZ-1>,<
  6491						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6492	034164	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6493	034165	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6494	034166	003 07 0 00 004230 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6495	034167	321 11 0 00 034162 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6496
  6497					;TEST ROT RIGHT TWO BIT POSITIONS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 17-12
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0147

  6498					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6499					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6500					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6501					;ONE AFTER ROTATING
  6502					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6503
  6504			004231		SN=SN+1
  6505			004000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6506						IFE	ZZ,<ZZ=400000>
  6507			001000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6508	034170	201 07 0 00 004000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6509						IFG	<ZZ-2>,<
  6510	034171	201 06 0 00 001000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6511						IFE	<ZZ-2>,<
  6512						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6513						IFE	<ZZ-1>,<
  6514						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6515	034172	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6516	034173	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6517	034174	003 07 0 00 004231 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6518	034175	321 11 0 00 034170 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6519
  6520					;TEST ROT RIGHT TWO BIT POSITIONS
  6521					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6522					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6523					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6524					;ONE AFTER ROTATING
  6525					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6526
  6527			004232		SN=SN+1
  6528			002000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6529						IFE	ZZ,<ZZ=400000>
  6530			000400			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6531	034176	201 07 0 00 002000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6532						IFG	<ZZ-2>,<
  6533	034177	201 06 0 00 000400 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6534						IFE	<ZZ-2>,<
  6535						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6536						IFE	<ZZ-1>,<
  6537						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6538	034200	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6539	034201	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6540	034202	003 07 0 00 004232 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6541	034203	321 11 0 00 034176 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6542
  6543					;TEST ROT RIGHT TWO BIT POSITIONS
  6544					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6545					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6546					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6547					;ONE AFTER ROTATING
  6548					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6549
  6550			004233		SN=SN+1
  6551			001000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6552						IFE	ZZ,<ZZ=400000>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 17-13
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0148

  6553			000200			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6554	034204	201 07 0 00 001000 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6555						IFG	<ZZ-2>,<
  6556	034205	201 06 0 00 000200 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6557						IFE	<ZZ-2>,<
  6558						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6559						IFE	<ZZ-1>,<
  6560						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6561	034206	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6562	034207	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6563	034210	003 07 0 00 004233 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6564	034211	321 11 0 00 034204 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6565
  6566					;TEST ROT RIGHT TWO BIT POSITIONS
  6567					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6568					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6569					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6570					;ONE AFTER ROTATING
  6571					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6572
  6573			004234		SN=SN+1
  6574			000400			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6575						IFE	ZZ,<ZZ=400000>
  6576			000100			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6577	034212	201 07 0 00 000400 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6578						IFG	<ZZ-2>,<
  6579	034213	201 06 0 00 000100 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6580						IFE	<ZZ-2>,<
  6581						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6582						IFE	<ZZ-1>,<
  6583						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6584	034214	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6585	034215	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6586	034216	003 07 0 00 004234 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6587	034217	321 11 0 00 034212 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6588
  6589					;TEST ROT RIGHT TWO BIT POSITIONS
  6590					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6591					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6592					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6593					;ONE AFTER ROTATING
  6594					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6595
  6596			004235		SN=SN+1
  6597			000200			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6598						IFE	ZZ,<ZZ=400000>
  6599			000040			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6600	034220	201 07 0 00 000200 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6601						IFG	<ZZ-2>,<
  6602	034221	201 06 0 00 000040 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6603						IFE	<ZZ-2>,<
  6604						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6605						IFE	<ZZ-1>,<
  6606						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6607	034222	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 17-14
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0149

  6608	034223	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6609	034224	003 07 0 00 004235 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6610	034225	321 11 0 00 034220 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6611
  6612					;TEST ROT RIGHT TWO BIT POSITIONS
  6613					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6614					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6615					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6616					;ONE AFTER ROTATING
  6617					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6618
  6619			004236		SN=SN+1
  6620			000100			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6621						IFE	ZZ,<ZZ=400000>
  6622			000020			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6623	034226	201 07 0 00 000100 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6624						IFG	<ZZ-2>,<
  6625	034227	201 06 0 00 000020 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6626						IFE	<ZZ-2>,<
  6627						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6628						IFE	<ZZ-1>,<
  6629						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6630	034230	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6631	034231	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6632	034232	003 07 0 00 004236 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6633	034233	321 11 0 00 034226 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6634
  6635					;TEST ROT RIGHT TWO BIT POSITIONS
  6636					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6637					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6638					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6639					;ONE AFTER ROTATING
  6640					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6641
  6642			004237		SN=SN+1
  6643			000040			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6644						IFE	ZZ,<ZZ=400000>
  6645			000010			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6646	034234	201 07 0 00 000040 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6647						IFG	<ZZ-2>,<
  6648	034235	201 06 0 00 000010 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6649						IFE	<ZZ-2>,<
  6650						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6651						IFE	<ZZ-1>,<
  6652						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6653	034236	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6654	034237	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6655	034240	003 07 0 00 004237 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6656	034241	321 11 0 00 034234 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6657
  6658					;TEST ROT RIGHT TWO BIT POSITIONS
  6659					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6660					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6661					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6662					;ONE AFTER ROTATING
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 17-15
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0150

  6663					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6664
  6665			004240		SN=SN+1
  6666			000020			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6667						IFE	ZZ,<ZZ=400000>
  6668			000004			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6669	034242	201 07 0 00 000020 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6670						IFG	<ZZ-2>,<
  6671	034243	201 06 0 00 000004 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6672						IFE	<ZZ-2>,<
  6673						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6674						IFE	<ZZ-1>,<
  6675						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6676	034244	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6677	034245	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6678	034246	003 07 0 00 004240 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6679	034247	321 11 0 00 034242 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6680
  6681					;TEST ROT RIGHT TWO BIT POSITIONS
  6682					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6683					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6684					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6685					;ONE AFTER ROTATING
  6686					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6687
  6688			004241		SN=SN+1
  6689			000010			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6690						IFE	ZZ,<ZZ=400000>
  6691			000002			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6692	034250	201 07 0 00 000010 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6693						IFG	<ZZ-2>,<
  6694	034251	201 06 0 00 000002 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6695						IFE	<ZZ-2>,<
  6696						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6697						IFE	<ZZ-1>,<
  6698						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6699	034252	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6700	034253	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6701	034254	003 07 0 00 004241 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6702	034255	321 11 0 00 034250 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6703
  6704					;TEST ROT RIGHT TWO BIT POSITIONS
  6705					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6706					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6707					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6708					;ONE AFTER ROTATING
  6709					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6710
  6711			004242		SN=SN+1
  6712			000004			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6713						IFE	ZZ,<ZZ=400000>
  6714			000001			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6715	034256	201 07 0 00 000004 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6716						IFG	<ZZ-2>,<
  6717	034257	201 06 0 00 000001 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 17-16
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0151

  6718						IFE	<ZZ-2>,<
  6719						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6720						IFE	<ZZ-1>,<
  6721						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6722	034260	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6723	034261	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6724	034262	003 07 0 00 004242 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6725	034263	321 11 0 00 034256 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6726
  6727					;TEST ROT RIGHT TWO BIT POSITIONS
  6728					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6729					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6730					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6731					;ONE AFTER ROTATING
  6732					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6733
  6734			004243		SN=SN+1
  6735			000002			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6736						IFE	ZZ,<ZZ=400000>
  6737			000000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6738	034264	201 07 0 00 000002 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6739						IFG	<ZZ-2>,<
  6740						MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6741						IFE	<ZZ-2>,<
  6742	034265	205 06 0 00 400000 		MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6743						IFE	<ZZ-1>,<
  6744						MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6745	034266	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6746	034267	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6747	034270	003 07 0 00 004243 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6748	034271	321 11 0 00 034264 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6749
  6750					;TEST ROT RIGHT TWO BIT POSITIONS
  6751					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE AR
  6752					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6753					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY OTHER BIT IS
  6754					;ONE AFTER ROTATING
  6755					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS
  6756
  6757			004244		SN=SN+1
  6758			000001			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  6759						IFE	ZZ,<ZZ=400000>
  6760			000000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
  6761	034272	201 07 0 00 000001 		MOVEI	AC,ZZ		;SET BIT (N) OF AC RIGHT
  6762						IFG	<ZZ-2>,<
  6763						MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  6764						IFE	<ZZ-2>,<
  6765						MOVSI	AC-1,400000	;SETUP FOR COMPARISON>
  6766						IFE	<ZZ-1>,<
  6767	034273	205 06 0 00 200000 		MOVSI	AC-1,200000	;SETUP FOR COMPARISON>
  6768	034274	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6769	034275	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ONE
  6770	034276	003 07 0 00 004244 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6771	034277	321 11 0 00 034272 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6772
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 18
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0152

  6773			004300		SN=4300
  6774			000001			ZZ=1
  6775
  6776							;TEST AC LEFT HALF<
  6777					E4300:	REPEAT	^D18,<;TEST ROT RIGHT TWO BIT POSITIONS
  6778					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  6779					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6780					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  6781					;IS ZERO AFTER ROTATING.
  6782					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  6783					
  6784					SN=SN+1
  6785						ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  6786						IFE	<ZZ>,<ZZ=777777377777>
  6787						YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  6788						HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  6789						IFL	<ZZ&777777-777775>,<
  6790						HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  6791						IFE	<ZZ&777777-777775>,<
  6792						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  6793						IFE	<ZZ&777777-777776>,<
  6794						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  6795						ROT	AC,-2		;*ROTATE RIGHT TWO
  6796						CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  6797						ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6798						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6799					>
  6800					;TEST ROT RIGHT TWO BIT POSITIONS
  6801					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  6802					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6803					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  6804					;IS ZERO AFTER ROTATING.
  6805					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  6806
  6807			004301		SN=SN+1
  6808			000000			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  6809		777777	377777			IFE	<ZZ>,<ZZ=777777377777>
  6810			677777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  6811	034300	525 07 0 00 377777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  6812						IFL	<ZZ&777777-777775>,<
  6813	034301	525 06 0 00 677777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  6814						IFE	<ZZ&777777-777775>,<
  6815						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  6816						IFE	<ZZ&777777-777776>,<
  6817						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  6818	034302	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6819	034303	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  6820	034304	003 07 0 00 004301 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6821	034305	321 11 0 00 034300 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6822
  6823					;TEST ROT RIGHT TWO BIT POSITIONS
  6824					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  6825					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6826					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  6827					;IS ZERO AFTER ROTATING.
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 18-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0153

  6828					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  6829
  6830			004302		SN=SN+1
  6831		777777	577777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  6832						IFE	<ZZ>,<ZZ=777777377777>
  6833			737777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  6834	034306	525 07 0 00 577777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  6835						IFL	<ZZ&777777-777775>,<
  6836	034307	525 06 0 00 737777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  6837						IFE	<ZZ&777777-777775>,<
  6838						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  6839						IFE	<ZZ&777777-777776>,<
  6840						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  6841	034310	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6842	034311	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  6843	034312	003 07 0 00 004302 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6844	034313	321 11 0 00 034306 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6845
  6846					;TEST ROT RIGHT TWO BIT POSITIONS
  6847					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  6848					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6849					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  6850					;IS ZERO AFTER ROTATING.
  6851					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  6852
  6853			004303		SN=SN+1
  6854		777777	677777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  6855						IFE	<ZZ>,<ZZ=777777377777>
  6856			757777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  6857	034314	525 07 0 00 677777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  6858						IFL	<ZZ&777777-777775>,<
  6859	034315	525 06 0 00 757777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  6860						IFE	<ZZ&777777-777775>,<
  6861						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  6862						IFE	<ZZ&777777-777776>,<
  6863						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  6864	034316	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6865	034317	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  6866	034320	003 07 0 00 004303 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6867	034321	321 11 0 00 034314 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6868
  6869					;TEST ROT RIGHT TWO BIT POSITIONS
  6870					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  6871					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6872					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  6873					;IS ZERO AFTER ROTATING.
  6874					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  6875
  6876			004304		SN=SN+1
  6877		777777	737777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  6878						IFE	<ZZ>,<ZZ=777777377777>
  6879			767777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  6880	034322	525 07 0 00 737777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  6881						IFL	<ZZ&777777-777775>,<
  6882	034323	525 06 0 00 767777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 18-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0154

  6883						IFE	<ZZ&777777-777775>,<
  6884						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  6885						IFE	<ZZ&777777-777776>,<
  6886						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  6887	034324	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6888	034325	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  6889	034326	003 07 0 00 004304 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6890	034327	321 11 0 00 034322 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6891
  6892					;TEST ROT RIGHT TWO BIT POSITIONS
  6893					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  6894					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6895					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  6896					;IS ZERO AFTER ROTATING.
  6897					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  6898
  6899			004305		SN=SN+1
  6900		777777	757777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  6901						IFE	<ZZ>,<ZZ=777777377777>
  6902			773777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  6903	034330	525 07 0 00 757777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  6904						IFL	<ZZ&777777-777775>,<
  6905	034331	525 06 0 00 773777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  6906						IFE	<ZZ&777777-777775>,<
  6907						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  6908						IFE	<ZZ&777777-777776>,<
  6909						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  6910	034332	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6911	034333	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  6912	034334	003 07 0 00 004305 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6913	034335	321 11 0 00 034330 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6914
  6915					;TEST ROT RIGHT TWO BIT POSITIONS
  6916					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  6917					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6918					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  6919					;IS ZERO AFTER ROTATING.
  6920					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  6921
  6922			004306		SN=SN+1
  6923		777777	767777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  6924						IFE	<ZZ>,<ZZ=777777377777>
  6925			775777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  6926	034336	525 07 0 00 767777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  6927						IFL	<ZZ&777777-777775>,<
  6928	034337	525 06 0 00 775777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  6929						IFE	<ZZ&777777-777775>,<
  6930						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  6931						IFE	<ZZ&777777-777776>,<
  6932						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  6933	034340	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6934	034341	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  6935	034342	003 07 0 00 004306 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6936	034343	321 11 0 00 034336 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6937
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 18-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0155

  6938					;TEST ROT RIGHT TWO BIT POSITIONS
  6939					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  6940					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6941					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  6942					;IS ZERO AFTER ROTATING.
  6943					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  6944
  6945			004307		SN=SN+1
  6946		777777	773777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  6947						IFE	<ZZ>,<ZZ=777777377777>
  6948			776777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  6949	034344	525 07 0 00 773777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  6950						IFL	<ZZ&777777-777775>,<
  6951	034345	525 06 0 00 776777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  6952						IFE	<ZZ&777777-777775>,<
  6953						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  6954						IFE	<ZZ&777777-777776>,<
  6955						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  6956	034346	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6957	034347	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  6958	034350	003 07 0 00 004307 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6959	034351	321 11 0 00 034344 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6960
  6961					;TEST ROT RIGHT TWO BIT POSITIONS
  6962					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  6963					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6964					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  6965					;IS ZERO AFTER ROTATING.
  6966					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  6967
  6968			004310		SN=SN+1
  6969		777777	775777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  6970						IFE	<ZZ>,<ZZ=777777377777>
  6971			777377			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  6972	034352	525 07 0 00 775777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  6973						IFL	<ZZ&777777-777775>,<
  6974	034353	525 06 0 00 777377 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  6975						IFE	<ZZ&777777-777775>,<
  6976						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  6977						IFE	<ZZ&777777-777776>,<
  6978						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  6979	034354	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  6980	034355	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  6981	034356	003 07 0 00 004310 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  6982	034357	321 11 0 00 034352 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  6983
  6984					;TEST ROT RIGHT TWO BIT POSITIONS
  6985					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  6986					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  6987					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  6988					;IS ZERO AFTER ROTATING.
  6989					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  6990
  6991			004311		SN=SN+1
  6992		777777	776777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 18-4
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0156

  6993						IFE	<ZZ>,<ZZ=777777377777>
  6994			777577			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  6995	034360	525 07 0 00 776777 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  6996						IFL	<ZZ&777777-777775>,<
  6997	034361	525 06 0 00 777577 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  6998						IFE	<ZZ&777777-777775>,<
  6999						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  7000						IFE	<ZZ&777777-777776>,<
  7001						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  7002	034362	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7003	034363	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  7004	034364	003 07 0 00 004311 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7005	034365	321 11 0 00 034360 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7006
  7007					;TEST ROT RIGHT TWO BIT POSITIONS
  7008					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7009					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7010					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7011					;IS ZERO AFTER ROTATING.
  7012					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7013
  7014			004312		SN=SN+1
  7015		777777	777377			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7016						IFE	<ZZ>,<ZZ=777777377777>
  7017			777677			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7018	034366	525 07 0 00 777377 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  7019						IFL	<ZZ&777777-777775>,<
  7020	034367	525 06 0 00 777677 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  7021						IFE	<ZZ&777777-777775>,<
  7022						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  7023						IFE	<ZZ&777777-777776>,<
  7024						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  7025	034370	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7026	034371	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  7027	034372	003 07 0 00 004312 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7028	034373	321 11 0 00 034366 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7029
  7030					;TEST ROT RIGHT TWO BIT POSITIONS
  7031					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7032					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7033					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7034					;IS ZERO AFTER ROTATING.
  7035					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7036
  7037			004313		SN=SN+1
  7038		777777	777577			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7039						IFE	<ZZ>,<ZZ=777777377777>
  7040			777737			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7041	034374	525 07 0 00 777577 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  7042						IFL	<ZZ&777777-777775>,<
  7043	034375	525 06 0 00 777737 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  7044						IFE	<ZZ&777777-777775>,<
  7045						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  7046						IFE	<ZZ&777777-777776>,<
  7047						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 18-5
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0157

  7048	034376	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7049	034377	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  7050	034400	003 07 0 00 004313 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7051	034401	321 11 0 00 034374 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7052
  7053					;TEST ROT RIGHT TWO BIT POSITIONS
  7054					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7055					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7056					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7057					;IS ZERO AFTER ROTATING.
  7058					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7059
  7060			004314		SN=SN+1
  7061		777777	777677			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7062						IFE	<ZZ>,<ZZ=777777377777>
  7063			777757			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7064	034402	525 07 0 00 777677 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  7065						IFL	<ZZ&777777-777775>,<
  7066	034403	525 06 0 00 777757 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  7067						IFE	<ZZ&777777-777775>,<
  7068						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  7069						IFE	<ZZ&777777-777776>,<
  7070						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  7071	034404	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7072	034405	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  7073	034406	003 07 0 00 004314 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7074	034407	321 11 0 00 034402 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7075
  7076					;TEST ROT RIGHT TWO BIT POSITIONS
  7077					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7078					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7079					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7080					;IS ZERO AFTER ROTATING.
  7081					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7082
  7083			004315		SN=SN+1
  7084		777777	777737			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7085						IFE	<ZZ>,<ZZ=777777377777>
  7086			777767			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7087	034410	525 07 0 00 777737 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  7088						IFL	<ZZ&777777-777775>,<
  7089	034411	525 06 0 00 777767 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  7090						IFE	<ZZ&777777-777775>,<
  7091						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  7092						IFE	<ZZ&777777-777776>,<
  7093						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  7094	034412	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7095	034413	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  7096	034414	003 07 0 00 004315 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7097	034415	321 11 0 00 034410 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7098
  7099					;TEST ROT RIGHT TWO BIT POSITIONS
  7100					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7101					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7102					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 18-6
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0158

  7103					;IS ZERO AFTER ROTATING.
  7104					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7105
  7106			004316		SN=SN+1
  7107		777777	777757			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7108						IFE	<ZZ>,<ZZ=777777377777>
  7109			777773			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7110	034416	525 07 0 00 777757 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  7111						IFL	<ZZ&777777-777775>,<
  7112	034417	525 06 0 00 777773 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  7113						IFE	<ZZ&777777-777775>,<
  7114						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  7115						IFE	<ZZ&777777-777776>,<
  7116						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  7117	034420	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7118	034421	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  7119	034422	003 07 0 00 004316 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7120	034423	321 11 0 00 034416 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7121
  7122					;TEST ROT RIGHT TWO BIT POSITIONS
  7123					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7124					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7125					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7126					;IS ZERO AFTER ROTATING.
  7127					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7128
  7129			004317		SN=SN+1
  7130		777777	777767			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7131						IFE	<ZZ>,<ZZ=777777377777>
  7132			777775			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7133	034424	525 07 0 00 777767 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  7134						IFL	<ZZ&777777-777775>,<
  7135	034425	525 06 0 00 777775 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  7136						IFE	<ZZ&777777-777775>,<
  7137						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  7138						IFE	<ZZ&777777-777776>,<
  7139						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  7140	034426	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7141	034427	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  7142	034430	003 07 0 00 004317 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7143	034431	321 11 0 00 034424 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7144
  7145					;TEST ROT RIGHT TWO BIT POSITIONS
  7146					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7147					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7148					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7149					;IS ZERO AFTER ROTATING.
  7150					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7151
  7152			004320		SN=SN+1
  7153		777777	777773			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7154						IFE	<ZZ>,<ZZ=777777377777>
  7155			777776			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7156	034432	525 07 0 00 777773 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  7157						IFL	<ZZ&777777-777775>,<
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 18-7
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0159

  7158	034433	525 06 0 00 777776 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  7159						IFE	<ZZ&777777-777775>,<
  7160						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  7161						IFE	<ZZ&777777-777776>,<
  7162						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  7163	034434	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7164	034435	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  7165	034436	003 07 0 00 004320 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7166	034437	321 11 0 00 034432 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7167
  7168					;TEST ROT RIGHT TWO BIT POSITIONS
  7169					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7170					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7171					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7172					;IS ZERO AFTER ROTATING.
  7173					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7174
  7175			004321		SN=SN+1
  7176		777777	777775			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7177						IFE	<ZZ>,<ZZ=777777377777>
  7178			777777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7179	034440	525 07 0 00 777775 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  7180						IFL	<ZZ&777777-777775>,<
  7181						HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  7182						IFE	<ZZ&777777-777775>,<
  7183	034441	561 06 0 00 377777 		HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  7184						IFE	<ZZ&777777-777776>,<
  7185						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  7186	034442	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7187	034443	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  7188	034444	003 07 0 00 004321 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7189	034445	321 11 0 00 034440 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7190
  7191					;TEST ROT RIGHT TWO BIT POSITIONS
  7192					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7193					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7194					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7195					;IS ZERO AFTER ROTATING.
  7196					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7197
  7198			004322		SN=SN+1
  7199		777777	777776			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7200						IFE	<ZZ>,<ZZ=777777377777>
  7201			777777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7202	034446	525 07 0 00 777776 		HRLOI	AC,ZZ&777777	;CLEAR BIT (N) OF AC LEFT
  7203						IFL	<ZZ&777777-777775>,<
  7204						HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
  7205						IFE	<ZZ&777777-777775>,<
  7206						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
  7207						IFE	<ZZ&777777-777776>,<
  7208	034447	561 06 0 00 577777 		HRROI	AC-1,577777	;SETUP FOR COMPARISON>
  7209	034450	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7210	034451	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+2) A ZERO
  7211	034452	003 07 0 00 004322 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7212	034453	321 11 0 00 034446 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 18-8
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0160

  7213
  7214					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 18-9
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0161

  7215			000001			ZZ=1
  7216
  7217							;TEST AC RIGHT HALF<
  7218						REPEAT	^D18,<;TEST ROT RIGHT TWO BIT POSITIONS
  7219					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7220					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7221					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7222					;IS ZERO AFTER ROTATING.
  7223					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7224					
  7225					SN=SN+1
  7226						ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7227						IFE	<ZZ>,<ZZ=777777377777>
  7228						YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7229						HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7230						IFL	<ZZ&777777-777775>,<
  7231						HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7232						IFE	<ZZ&777777-777775>,<
  7233						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7234						IFE	<ZZ&777777-777776>,<
  7235						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7236						ROT	AC,-2		;*ROTATE RIGHT TWO
  7237						CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7238						ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7239						JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7240					>
  7241					;TEST ROT RIGHT TWO BIT POSITIONS
  7242					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7243					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7244					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7245					;IS ZERO AFTER ROTATING.
  7246					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7247
  7248			004323		SN=SN+1
  7249			000000			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7250		777777	377777			IFE	<ZZ>,<ZZ=777777377777>
  7251			677777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7252	034454	561 07 0 00 377777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7253						IFL	<ZZ&777777-777775>,<
  7254	034455	561 06 0 00 677777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7255						IFE	<ZZ&777777-777775>,<
  7256						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7257						IFE	<ZZ&777777-777776>,<
  7258						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7259	034456	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7260	034457	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7261	034460	003 07 0 00 004323 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7262	034461	321 11 0 00 034454 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7263
  7264					;TEST ROT RIGHT TWO BIT POSITIONS
  7265					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7266					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7267					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7268					;IS ZERO AFTER ROTATING.
  7269					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 18-10
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0162

  7270
  7271			004324		SN=SN+1
  7272		777777	577777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7273						IFE	<ZZ>,<ZZ=777777377777>
  7274			737777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7275	034462	561 07 0 00 577777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7276						IFL	<ZZ&777777-777775>,<
  7277	034463	561 06 0 00 737777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7278						IFE	<ZZ&777777-777775>,<
  7279						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7280						IFE	<ZZ&777777-777776>,<
  7281						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7282	034464	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7283	034465	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7284	034466	003 07 0 00 004324 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7285	034467	321 11 0 00 034462 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7286
  7287					;TEST ROT RIGHT TWO BIT POSITIONS
  7288					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7289					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7290					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7291					;IS ZERO AFTER ROTATING.
  7292					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7293
  7294			004325		SN=SN+1
  7295		777777	677777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7296						IFE	<ZZ>,<ZZ=777777377777>
  7297			757777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7298	034470	561 07 0 00 677777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7299						IFL	<ZZ&777777-777775>,<
  7300	034471	561 06 0 00 757777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7301						IFE	<ZZ&777777-777775>,<
  7302						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7303						IFE	<ZZ&777777-777776>,<
  7304						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7305	034472	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7306	034473	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7307	034474	003 07 0 00 004325 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7308	034475	321 11 0 00 034470 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7309
  7310					;TEST ROT RIGHT TWO BIT POSITIONS
  7311					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7312					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7313					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7314					;IS ZERO AFTER ROTATING.
  7315					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7316
  7317			004326		SN=SN+1
  7318		777777	737777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7319						IFE	<ZZ>,<ZZ=777777377777>
  7320			767777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7321	034476	561 07 0 00 737777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7322						IFL	<ZZ&777777-777775>,<
  7323	034477	561 06 0 00 767777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7324						IFE	<ZZ&777777-777775>,<
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 18-11
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0163

  7325						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7326						IFE	<ZZ&777777-777776>,<
  7327						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7328	034500	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7329	034501	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7330	034502	003 07 0 00 004326 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7331	034503	321 11 0 00 034476 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7332
  7333					;TEST ROT RIGHT TWO BIT POSITIONS
  7334					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7335					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7336					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7337					;IS ZERO AFTER ROTATING.
  7338					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7339
  7340			004327		SN=SN+1
  7341		777777	757777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7342						IFE	<ZZ>,<ZZ=777777377777>
  7343			773777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7344	034504	561 07 0 00 757777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7345						IFL	<ZZ&777777-777775>,<
  7346	034505	561 06 0 00 773777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7347						IFE	<ZZ&777777-777775>,<
  7348						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7349						IFE	<ZZ&777777-777776>,<
  7350						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7351	034506	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7352	034507	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7353	034510	003 07 0 00 004327 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7354	034511	321 11 0 00 034504 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7355
  7356					;TEST ROT RIGHT TWO BIT POSITIONS
  7357					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7358					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7359					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7360					;IS ZERO AFTER ROTATING.
  7361					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7362
  7363			004330		SN=SN+1
  7364		777777	767777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7365						IFE	<ZZ>,<ZZ=777777377777>
  7366			775777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7367	034512	561 07 0 00 767777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7368						IFL	<ZZ&777777-777775>,<
  7369	034513	561 06 0 00 775777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7370						IFE	<ZZ&777777-777775>,<
  7371						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7372						IFE	<ZZ&777777-777776>,<
  7373						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7374	034514	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7375	034515	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7376	034516	003 07 0 00 004330 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7377	034517	321 11 0 00 034512 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7378
  7379					;TEST ROT RIGHT TWO BIT POSITIONS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 18-12
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0164

  7380					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7381					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7382					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7383					;IS ZERO AFTER ROTATING.
  7384					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7385
  7386			004331		SN=SN+1
  7387		777777	773777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7388						IFE	<ZZ>,<ZZ=777777377777>
  7389			776777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7390	034520	561 07 0 00 773777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7391						IFL	<ZZ&777777-777775>,<
  7392	034521	561 06 0 00 776777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7393						IFE	<ZZ&777777-777775>,<
  7394						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7395						IFE	<ZZ&777777-777776>,<
  7396						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7397	034522	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7398	034523	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7399	034524	003 07 0 00 004331 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7400	034525	321 11 0 00 034520 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7401
  7402					;TEST ROT RIGHT TWO BIT POSITIONS
  7403					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7404					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7405					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7406					;IS ZERO AFTER ROTATING.
  7407					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7408
  7409			004332		SN=SN+1
  7410		777777	775777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7411						IFE	<ZZ>,<ZZ=777777377777>
  7412			777377			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7413	034526	561 07 0 00 775777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7414						IFL	<ZZ&777777-777775>,<
  7415	034527	561 06 0 00 777377 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7416						IFE	<ZZ&777777-777775>,<
  7417						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7418						IFE	<ZZ&777777-777776>,<
  7419						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7420	034530	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7421	034531	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7422	034532	003 07 0 00 004332 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7423	034533	321 11 0 00 034526 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7424
  7425					;TEST ROT RIGHT TWO BIT POSITIONS
  7426					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7427					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7428					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7429					;IS ZERO AFTER ROTATING.
  7430					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7431
  7432			004333		SN=SN+1
  7433		777777	776777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7434						IFE	<ZZ>,<ZZ=777777377777>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 18-13
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0165

  7435			777577			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7436	034534	561 07 0 00 776777 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7437						IFL	<ZZ&777777-777775>,<
  7438	034535	561 06 0 00 777577 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7439						IFE	<ZZ&777777-777775>,<
  7440						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7441						IFE	<ZZ&777777-777776>,<
  7442						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7443	034536	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7444	034537	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7445	034540	003 07 0 00 004333 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7446	034541	321 11 0 00 034534 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7447
  7448					;TEST ROT RIGHT TWO BIT POSITIONS
  7449					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7450					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7451					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7452					;IS ZERO AFTER ROTATING.
  7453					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7454
  7455			004334		SN=SN+1
  7456		777777	777377			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7457						IFE	<ZZ>,<ZZ=777777377777>
  7458			777677			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7459	034542	561 07 0 00 777377 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7460						IFL	<ZZ&777777-777775>,<
  7461	034543	561 06 0 00 777677 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7462						IFE	<ZZ&777777-777775>,<
  7463						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7464						IFE	<ZZ&777777-777776>,<
  7465						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7466	034544	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7467	034545	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7468	034546	003 07 0 00 004334 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7469	034547	321 11 0 00 034542 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7470
  7471					;TEST ROT RIGHT TWO BIT POSITIONS
  7472					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7473					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7474					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7475					;IS ZERO AFTER ROTATING.
  7476					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7477
  7478			004335		SN=SN+1
  7479		777777	777577			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7480						IFE	<ZZ>,<ZZ=777777377777>
  7481			777737			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7482	034550	561 07 0 00 777577 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7483						IFL	<ZZ&777777-777775>,<
  7484	034551	561 06 0 00 777737 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7485						IFE	<ZZ&777777-777775>,<
  7486						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7487						IFE	<ZZ&777777-777776>,<
  7488						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7489	034552	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 18-14
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0166

  7490	034553	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7491	034554	003 07 0 00 004335 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7492	034555	321 11 0 00 034550 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7493
  7494					;TEST ROT RIGHT TWO BIT POSITIONS
  7495					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7496					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7497					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7498					;IS ZERO AFTER ROTATING.
  7499					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7500
  7501			004336		SN=SN+1
  7502		777777	777677			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7503						IFE	<ZZ>,<ZZ=777777377777>
  7504			777757			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7505	034556	561 07 0 00 777677 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7506						IFL	<ZZ&777777-777775>,<
  7507	034557	561 06 0 00 777757 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7508						IFE	<ZZ&777777-777775>,<
  7509						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7510						IFE	<ZZ&777777-777776>,<
  7511						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7512	034560	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7513	034561	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7514	034562	003 07 0 00 004336 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7515	034563	321 11 0 00 034556 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7516
  7517					;TEST ROT RIGHT TWO BIT POSITIONS
  7518					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7519					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7520					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7521					;IS ZERO AFTER ROTATING.
  7522					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7523
  7524			004337		SN=SN+1
  7525		777777	777737			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7526						IFE	<ZZ>,<ZZ=777777377777>
  7527			777767			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7528	034564	561 07 0 00 777737 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7529						IFL	<ZZ&777777-777775>,<
  7530	034565	561 06 0 00 777767 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7531						IFE	<ZZ&777777-777775>,<
  7532						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7533						IFE	<ZZ&777777-777776>,<
  7534						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7535	034566	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7536	034567	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7537	034570	003 07 0 00 004337 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7538	034571	321 11 0 00 034564 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7539
  7540					;TEST ROT RIGHT TWO BIT POSITIONS
  7541					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7542					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7543					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7544					;IS ZERO AFTER ROTATING.
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 18-15
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0167

  7545					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7546
  7547			004340		SN=SN+1
  7548		777777	777757			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7549						IFE	<ZZ>,<ZZ=777777377777>
  7550			777773			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7551	034572	561 07 0 00 777757 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7552						IFL	<ZZ&777777-777775>,<
  7553	034573	561 06 0 00 777773 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7554						IFE	<ZZ&777777-777775>,<
  7555						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7556						IFE	<ZZ&777777-777776>,<
  7557						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7558	034574	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7559	034575	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7560	034576	003 07 0 00 004340 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7561	034577	321 11 0 00 034572 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7562
  7563					;TEST ROT RIGHT TWO BIT POSITIONS
  7564					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7565					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7566					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7567					;IS ZERO AFTER ROTATING.
  7568					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7569
  7570			004341		SN=SN+1
  7571		777777	777767			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7572						IFE	<ZZ>,<ZZ=777777377777>
  7573			777775			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7574	034600	561 07 0 00 777767 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7575						IFL	<ZZ&777777-777775>,<
  7576	034601	561 06 0 00 777775 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7577						IFE	<ZZ&777777-777775>,<
  7578						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7579						IFE	<ZZ&777777-777776>,<
  7580						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7581	034602	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7582	034603	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7583	034604	003 07 0 00 004341 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7584	034605	321 11 0 00 034600 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7585
  7586					;TEST ROT RIGHT TWO BIT POSITIONS
  7587					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7588					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7589					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7590					;IS ZERO AFTER ROTATING.
  7591					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7592
  7593			004342		SN=SN+1
  7594		777777	777773			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7595						IFE	<ZZ>,<ZZ=777777377777>
  7596			777776			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7597	034606	561 07 0 00 777773 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7598						IFL	<ZZ&777777-777775>,<
  7599	034607	561 06 0 00 777776 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 18-16
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST SHIFT LOGIC GATES BETWEEN AD AND AR                      SEQ 0168

  7600						IFE	<ZZ&777777-777775>,<
  7601						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7602						IFE	<ZZ&777777-777776>,<
  7603						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7604	034610	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7605	034611	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7606	034612	003 07 0 00 004342 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7607	034613	321 11 0 00 034606 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7608
  7609					;TEST ROT RIGHT TWO BIT POSITIONS
  7610					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7611					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7612					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7613					;IS ZERO AFTER ROTATING.
  7614					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7615
  7616			004343		SN=SN+1
  7617		777777	777775			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7618						IFE	<ZZ>,<ZZ=777777377777>
  7619			777777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7620	034614	561 07 0 00 777775 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7621						IFL	<ZZ&777777-777775>,<
  7622						HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7623						IFE	<ZZ&777777-777775>,<
  7624	034615	525 06 0 00 377777 		HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7625						IFE	<ZZ&777777-777776>,<
  7626						HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7627	034616	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7628	034617	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7629	034620	003 07 0 00 004343 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7630	034621	321 11 0 00 034614 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7631
  7632					;TEST ROT RIGHT TWO BIT POSITIONS
  7633					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE AR
  7634					;TEST SHIFT LOGIC GATES BETWEEN AR AND AD
  7635					;AN ERROR OCCURS IF THE TESTED BIT IS ONE AND/OR ANY OTHER BIT
  7636					;IS ZERO AFTER ROTATING.
  7637					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  7638
  7639			004344		SN=SN+1
  7640		777777	777776			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
  7641						IFE	<ZZ>,<ZZ=777777377777>
  7642			777777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
  7643	034622	561 07 0 00 777776 		HRROI	AC,ZZ&777777	;CLEAR BIT (N) OF AC RIGHT
  7644						IFL	<ZZ&777777-777775>,<
  7645						HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  7646						IFE	<ZZ&777777-777775>,<
  7647						HRLOI	AC-1,377777	;SETUP FOR COMPARISON>
  7648						IFE	<ZZ&777777-777776>,<
  7649	034623	525 06 0 00 577777 		HRLOI	AC-1,577777	;SETUP FOR COMPARISON>
  7650	034624	241 07 0 00 777776 		ROT	AC,-2		;*ROTATE RIGHT TWO
  7651	034625	312 07 0 00 000006 		CAME	AC,AC-1		;TEST FOR BIT (N+1) A ZERO
  7652	034626	003 07 0 00 004344 		ER3	AC,SN		;AD-AR GATE UNDER TEST FAILED
  7653	034627	321 11 0 00 034622 		JUMPL	AC+2,.-5	;LOOP ON ERROR SWITCH
  7654
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 19
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0169

  7655					SUBTTL	DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES
  7656
  7657					;TEST ROTC LEFT ONE BIT POSITION USING ALL ZEROS
  7658					;TEST MQ SHIFT LOGIC GATES
  7659					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND
  7660					;AC+1 IS TESTED
  7661					;AN ERROR OCCURS IF C(AC+1) IS NON-ZERO AFTER ROTATING
  7662
  7663			000010			AC=10
  7664						SAVEAC	(1,1)^
  7665	034630	201 12 0 00 034630 		MOVEI	AC+2,.		;SAVE TEST PC
  7666	034631	202 12 0 00 030051 		MOVEM	AC+2,TESTPC
  7667	034632	201 12 0 00 000012 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  7668	034633	202 12 0 00 041763 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  7669
  7670	034634	403 10 0 00 000011 	E4400:	SETZB	AC,AC+1		;INITIALIZE AC,AC+1 TO ALL ZEROS
  7671	034635	402 00 0 00 000007 		SETZM	AC-1		;INITIALIZE RESULT TO ZERO
  7672	034636	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  7673	034637	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST AC+1 FOR ALL ZEROS
  7674	034640	004 11 0 00 004401 		ER4	AC+1,4401	;MQ GATING FAILED
  7675	034641	321 12 0 00 034634 		JUMPL	AC+2,E4400	;LOOP ON ERROR SWITCH
  7676
  7677					;TEST ROTC LEFT ONE BIT POSITION USING ALL ONES
  7678					;TEST MQ SHIFT LOGIC GATES
  7679					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND
  7680					;AC+1 IS TESTED
  7681					;AN ERROR OCCURS IF C(AC+1) IS NON-ZERO AFTER ROTATING
  7682
  7683	034642	477 10 0 00 000011 	E4500:	SETOB	AC,AC+1		;INITIALIZE AC,AC+1 TO ALL ONES
  7684	034643	476 00 0 00 000007 		SETOM	AC-1		;INITIALIZE RESULT TO ALL ONES
  7685	034644	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  7686	034645	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST AC+1 FOR ALL ONES
  7687	034646	004 11 0 00 004501 		ER4	AC+1,4501	;MQ GATING FAILED
  7688	034647	321 12 0 00 034642 		JUMPL	AC+2,E4500	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 20
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0170

  7689			004600		SN=4600
  7690			000000			ZZ=0
  7691
  7692							;TEST AC+1 RIGHT HALF <
  7693					E4600:	REPEAT	^D18,<;TEST ROTC LEFT ONE BIT POSITION
  7694					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  7695					;TEST MQ SHIFT LOGIC GATES
  7696					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  7697					;IS TESTED.
  7698					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  7699					;OTHER BIT IS A ONE AFTER ROTATING
  7700					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  7701					
  7702					SN=SN+1
  7703						ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  7704						IFE	ZZ,<ZZ=1>
  7705						YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  7706						SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  7707						MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  7708						IFN	<ZZ-400000>,<
  7709						MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  7710						IFE	<ZZ-400000>,<
  7711						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  7712						ROTC	AC,1		;*ROTATE LEFT ONE
  7713						CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  7714						ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  7715						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  7716					>
  7717					;TEST ROTC LEFT ONE BIT POSITION
  7718					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  7719					;TEST MQ SHIFT LOGIC GATES
  7720					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  7721					;IS TESTED.
  7722					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  7723					;OTHER BIT IS A ONE AFTER ROTATING
  7724					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  7725
  7726			004601		SN=SN+1
  7727			000000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  7728			000001			IFE	ZZ,<ZZ=1>
  7729			000002			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  7730	034650	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  7731	034651	201 11 0 00 000001 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  7732						IFN	<ZZ-400000>,<
  7733	034652	201 07 0 00 000002 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  7734						IFE	<ZZ-400000>,<
  7735						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  7736	034653	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  7737	034654	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  7738	034655	004 11 0 00 004601 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  7739	034656	321 12 0 00 034650 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  7740
  7741					;TEST ROTC LEFT ONE BIT POSITION
  7742					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  7743					;TEST MQ SHIFT LOGIC GATES
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 20-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0171

  7744					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  7745					;IS TESTED.
  7746					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  7747					;OTHER BIT IS A ONE AFTER ROTATING
  7748					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  7749
  7750			004602		SN=SN+1
  7751			000002			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  7752						IFE	ZZ,<ZZ=1>
  7753			000004			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  7754	034657	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  7755	034660	201 11 0 00 000002 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  7756						IFN	<ZZ-400000>,<
  7757	034661	201 07 0 00 000004 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  7758						IFE	<ZZ-400000>,<
  7759						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  7760	034662	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  7761	034663	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  7762	034664	004 11 0 00 004602 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  7763	034665	321 12 0 00 034657 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  7764
  7765					;TEST ROTC LEFT ONE BIT POSITION
  7766					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  7767					;TEST MQ SHIFT LOGIC GATES
  7768					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  7769					;IS TESTED.
  7770					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  7771					;OTHER BIT IS A ONE AFTER ROTATING
  7772					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  7773
  7774			004603		SN=SN+1
  7775			000004			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  7776						IFE	ZZ,<ZZ=1>
  7777			000010			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  7778	034666	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  7779	034667	201 11 0 00 000004 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  7780						IFN	<ZZ-400000>,<
  7781	034670	201 07 0 00 000010 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  7782						IFE	<ZZ-400000>,<
  7783						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  7784	034671	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  7785	034672	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  7786	034673	004 11 0 00 004603 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  7787	034674	321 12 0 00 034666 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  7788
  7789					;TEST ROTC LEFT ONE BIT POSITION
  7790					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  7791					;TEST MQ SHIFT LOGIC GATES
  7792					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  7793					;IS TESTED.
  7794					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  7795					;OTHER BIT IS A ONE AFTER ROTATING
  7796					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  7797
  7798			004604		SN=SN+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 20-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0172

  7799			000010			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  7800						IFE	ZZ,<ZZ=1>
  7801			000020			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  7802	034675	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  7803	034676	201 11 0 00 000010 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  7804						IFN	<ZZ-400000>,<
  7805	034677	201 07 0 00 000020 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  7806						IFE	<ZZ-400000>,<
  7807						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  7808	034700	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  7809	034701	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  7810	034702	004 11 0 00 004604 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  7811	034703	321 12 0 00 034675 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  7812
  7813					;TEST ROTC LEFT ONE BIT POSITION
  7814					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  7815					;TEST MQ SHIFT LOGIC GATES
  7816					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  7817					;IS TESTED.
  7818					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  7819					;OTHER BIT IS A ONE AFTER ROTATING
  7820					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  7821
  7822			004605		SN=SN+1
  7823			000020			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  7824						IFE	ZZ,<ZZ=1>
  7825			000040			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  7826	034704	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  7827	034705	201 11 0 00 000020 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  7828						IFN	<ZZ-400000>,<
  7829	034706	201 07 0 00 000040 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  7830						IFE	<ZZ-400000>,<
  7831						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  7832	034707	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  7833	034710	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  7834	034711	004 11 0 00 004605 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  7835	034712	321 12 0 00 034704 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  7836
  7837					;TEST ROTC LEFT ONE BIT POSITION
  7838					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  7839					;TEST MQ SHIFT LOGIC GATES
  7840					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  7841					;IS TESTED.
  7842					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  7843					;OTHER BIT IS A ONE AFTER ROTATING
  7844					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  7845
  7846			004606		SN=SN+1
  7847			000040			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  7848						IFE	ZZ,<ZZ=1>
  7849			000100			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  7850	034713	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  7851	034714	201 11 0 00 000040 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  7852						IFN	<ZZ-400000>,<
  7853	034715	201 07 0 00 000100 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 20-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0173

  7854						IFE	<ZZ-400000>,<
  7855						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  7856	034716	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  7857	034717	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  7858	034720	004 11 0 00 004606 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  7859	034721	321 12 0 00 034713 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  7860
  7861					;TEST ROTC LEFT ONE BIT POSITION
  7862					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  7863					;TEST MQ SHIFT LOGIC GATES
  7864					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  7865					;IS TESTED.
  7866					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  7867					;OTHER BIT IS A ONE AFTER ROTATING
  7868					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  7869
  7870			004607		SN=SN+1
  7871			000100			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  7872						IFE	ZZ,<ZZ=1>
  7873			000200			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  7874	034722	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  7875	034723	201 11 0 00 000100 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  7876						IFN	<ZZ-400000>,<
  7877	034724	201 07 0 00 000200 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  7878						IFE	<ZZ-400000>,<
  7879						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  7880	034725	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  7881	034726	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  7882	034727	004 11 0 00 004607 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  7883	034730	321 12 0 00 034722 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  7884
  7885					;TEST ROTC LEFT ONE BIT POSITION
  7886					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  7887					;TEST MQ SHIFT LOGIC GATES
  7888					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  7889					;IS TESTED.
  7890					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  7891					;OTHER BIT IS A ONE AFTER ROTATING
  7892					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  7893
  7894			004610		SN=SN+1
  7895			000200			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  7896						IFE	ZZ,<ZZ=1>
  7897			000400			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  7898	034731	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  7899	034732	201 11 0 00 000200 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  7900						IFN	<ZZ-400000>,<
  7901	034733	201 07 0 00 000400 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  7902						IFE	<ZZ-400000>,<
  7903						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  7904	034734	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  7905	034735	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  7906	034736	004 11 0 00 004610 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  7907	034737	321 12 0 00 034731 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  7908
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 20-4
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0174

  7909					;TEST ROTC LEFT ONE BIT POSITION
  7910					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  7911					;TEST MQ SHIFT LOGIC GATES
  7912					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  7913					;IS TESTED.
  7914					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  7915					;OTHER BIT IS A ONE AFTER ROTATING
  7916					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  7917
  7918			004611		SN=SN+1
  7919			000400			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  7920						IFE	ZZ,<ZZ=1>
  7921			001000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  7922	034740	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  7923	034741	201 11 0 00 000400 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  7924						IFN	<ZZ-400000>,<
  7925	034742	201 07 0 00 001000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  7926						IFE	<ZZ-400000>,<
  7927						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  7928	034743	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  7929	034744	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  7930	034745	004 11 0 00 004611 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  7931	034746	321 12 0 00 034740 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  7932
  7933					;TEST ROTC LEFT ONE BIT POSITION
  7934					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  7935					;TEST MQ SHIFT LOGIC GATES
  7936					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  7937					;IS TESTED.
  7938					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  7939					;OTHER BIT IS A ONE AFTER ROTATING
  7940					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  7941
  7942			004612		SN=SN+1
  7943			001000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  7944						IFE	ZZ,<ZZ=1>
  7945			002000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  7946	034747	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  7947	034750	201 11 0 00 001000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  7948						IFN	<ZZ-400000>,<
  7949	034751	201 07 0 00 002000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  7950						IFE	<ZZ-400000>,<
  7951						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  7952	034752	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  7953	034753	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  7954	034754	004 11 0 00 004612 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  7955	034755	321 12 0 00 034747 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  7956
  7957					;TEST ROTC LEFT ONE BIT POSITION
  7958					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  7959					;TEST MQ SHIFT LOGIC GATES
  7960					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  7961					;IS TESTED.
  7962					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  7963					;OTHER BIT IS A ONE AFTER ROTATING
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 20-5
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0175

  7964					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  7965
  7966			004613		SN=SN+1
  7967			002000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  7968						IFE	ZZ,<ZZ=1>
  7969			004000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  7970	034756	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  7971	034757	201 11 0 00 002000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  7972						IFN	<ZZ-400000>,<
  7973	034760	201 07 0 00 004000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  7974						IFE	<ZZ-400000>,<
  7975						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  7976	034761	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  7977	034762	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  7978	034763	004 11 0 00 004613 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  7979	034764	321 12 0 00 034756 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  7980
  7981					;TEST ROTC LEFT ONE BIT POSITION
  7982					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  7983					;TEST MQ SHIFT LOGIC GATES
  7984					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  7985					;IS TESTED.
  7986					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  7987					;OTHER BIT IS A ONE AFTER ROTATING
  7988					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  7989
  7990			004614		SN=SN+1
  7991			004000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  7992						IFE	ZZ,<ZZ=1>
  7993			010000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  7994	034765	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  7995	034766	201 11 0 00 004000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  7996						IFN	<ZZ-400000>,<
  7997	034767	201 07 0 00 010000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  7998						IFE	<ZZ-400000>,<
  7999						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  8000	034770	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8001	034771	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8002	034772	004 11 0 00 004614 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8003	034773	321 12 0 00 034765 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8004
  8005					;TEST ROTC LEFT ONE BIT POSITION
  8006					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8007					;TEST MQ SHIFT LOGIC GATES
  8008					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8009					;IS TESTED.
  8010					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8011					;OTHER BIT IS A ONE AFTER ROTATING
  8012					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8013
  8014			004615		SN=SN+1
  8015			010000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8016						IFE	ZZ,<ZZ=1>
  8017			020000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8018	034774	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 20-6
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0176

  8019	034775	201 11 0 00 010000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  8020						IFN	<ZZ-400000>,<
  8021	034776	201 07 0 00 020000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  8022						IFE	<ZZ-400000>,<
  8023						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  8024	034777	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8025	035000	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8026	035001	004 11 0 00 004615 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8027	035002	321 12 0 00 034774 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8028
  8029					;TEST ROTC LEFT ONE BIT POSITION
  8030					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8031					;TEST MQ SHIFT LOGIC GATES
  8032					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8033					;IS TESTED.
  8034					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8035					;OTHER BIT IS A ONE AFTER ROTATING
  8036					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8037
  8038			004616		SN=SN+1
  8039			020000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8040						IFE	ZZ,<ZZ=1>
  8041			040000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8042	035003	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  8043	035004	201 11 0 00 020000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  8044						IFN	<ZZ-400000>,<
  8045	035005	201 07 0 00 040000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  8046						IFE	<ZZ-400000>,<
  8047						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  8048	035006	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8049	035007	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8050	035010	004 11 0 00 004616 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8051	035011	321 12 0 00 035003 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8052
  8053					;TEST ROTC LEFT ONE BIT POSITION
  8054					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8055					;TEST MQ SHIFT LOGIC GATES
  8056					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8057					;IS TESTED.
  8058					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8059					;OTHER BIT IS A ONE AFTER ROTATING
  8060					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8061
  8062			004617		SN=SN+1
  8063			040000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8064						IFE	ZZ,<ZZ=1>
  8065			100000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8066	035012	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  8067	035013	201 11 0 00 040000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  8068						IFN	<ZZ-400000>,<
  8069	035014	201 07 0 00 100000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  8070						IFE	<ZZ-400000>,<
  8071						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  8072	035015	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8073	035016	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 20-7
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0177

  8074	035017	004 11 0 00 004617 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8075	035020	321 12 0 00 035012 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8076
  8077					;TEST ROTC LEFT ONE BIT POSITION
  8078					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8079					;TEST MQ SHIFT LOGIC GATES
  8080					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8081					;IS TESTED.
  8082					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8083					;OTHER BIT IS A ONE AFTER ROTATING
  8084					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8085
  8086			004620		SN=SN+1
  8087			100000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8088						IFE	ZZ,<ZZ=1>
  8089			200000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8090	035021	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  8091	035022	201 11 0 00 100000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  8092						IFN	<ZZ-400000>,<
  8093	035023	201 07 0 00 200000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  8094						IFE	<ZZ-400000>,<
  8095						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  8096	035024	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8097	035025	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8098	035026	004 11 0 00 004620 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8099	035027	321 12 0 00 035021 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8100
  8101					;TEST ROTC LEFT ONE BIT POSITION
  8102					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8103					;TEST MQ SHIFT LOGIC GATES
  8104					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8105					;IS TESTED.
  8106					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8107					;OTHER BIT IS A ONE AFTER ROTATING
  8108					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8109
  8110			004621		SN=SN+1
  8111			200000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8112						IFE	ZZ,<ZZ=1>
  8113			400000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8114	035030	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  8115	035031	201 11 0 00 200000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  8116						IFN	<ZZ-400000>,<
  8117	035032	201 07 0 00 400000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  8118						IFE	<ZZ-400000>,<
  8119						MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  8120	035033	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8121	035034	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8122	035035	004 11 0 00 004621 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8123	035036	321 12 0 00 035030 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8124
  8125					;TEST ROTC LEFT ONE BIT POSITION
  8126					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8127					;TEST MQ SHIFT LOGIC GATES
  8128					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 20-8
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0178

  8129					;IS TESTED.
  8130					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8131					;OTHER BIT IS A ONE AFTER ROTATING
  8132					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8133
  8134			004622		SN=SN+1
  8135			400000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8136						IFE	ZZ,<ZZ=1>
  8137		000001	000000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8138	035037	400 10 0 00 000000 		SETZ	AC,		;INITILAIZE AC TO ALL ZEROS
  8139	035040	201 11 0 00 400000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  8140						IFN	<ZZ-400000>,<
  8141						MOVEI	AC-1,YY		;SETUP FOR COMPARISON>
  8142						IFE	<ZZ-400000>,<
  8143	035041	205 07 0 00 000001 		MOVSI	AC-1,1		;SETUP FOR COMPARISON>
  8144	035042	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8145	035043	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8146	035044	004 11 0 00 004622 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8147	035045	321 12 0 00 035037 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8148
  8149
  8150			000000			ZZ=0
  8151
  8152							;TEST AC+1 LEFT HALF <
  8153						REPEAT	^D17,<;TEST ROTC LEFT ONE BIT POSITION
  8154					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8155					;TEST MQ SHIFT LOGIC GATES
  8156					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8157					;IS TESTED.
  8158					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8159					;OTHER BIT IS A ONE AFTER ROTATING
  8160					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8161					
  8162					SN=SN+1
  8163						ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8164						IFE	ZZ,<ZZ=1>
  8165						YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8166						SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8167						MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  8168						MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8169						ROTC	AC,1		;*ROTATE LEFT ONE
  8170						CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8171						ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8172						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8173					>
  8174					;TEST ROTC LEFT ONE BIT POSITION
  8175					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8176					;TEST MQ SHIFT LOGIC GATES
  8177					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8178					;IS TESTED.
  8179					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8180					;OTHER BIT IS A ONE AFTER ROTATING
  8181					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8182
  8183			004623		SN=SN+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 20-9
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0179

  8184			000000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8185			000001			IFE	ZZ,<ZZ=1>
  8186			000002			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8187	035046	400 10 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8188	035047	205 11 0 00 000001 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  8189	035050	205 07 0 00 000002 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8190	035051	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8191	035052	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8192	035053	004 11 0 00 004623 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8193	035054	321 12 0 00 035046 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8194
  8195					;TEST ROTC LEFT ONE BIT POSITION
  8196					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8197					;TEST MQ SHIFT LOGIC GATES
  8198					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8199					;IS TESTED.
  8200					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8201					;OTHER BIT IS A ONE AFTER ROTATING
  8202					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8203
  8204			004624		SN=SN+1
  8205			000002			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8206						IFE	ZZ,<ZZ=1>
  8207			000004			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8208	035055	400 10 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8209	035056	205 11 0 00 000002 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  8210	035057	205 07 0 00 000004 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8211	035060	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8212	035061	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8213	035062	004 11 0 00 004624 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8214	035063	321 12 0 00 035055 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8215
  8216					;TEST ROTC LEFT ONE BIT POSITION
  8217					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8218					;TEST MQ SHIFT LOGIC GATES
  8219					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8220					;IS TESTED.
  8221					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8222					;OTHER BIT IS A ONE AFTER ROTATING
  8223					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8224
  8225			004625		SN=SN+1
  8226			000004			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8227						IFE	ZZ,<ZZ=1>
  8228			000010			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8229	035064	400 10 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8230	035065	205 11 0 00 000004 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  8231	035066	205 07 0 00 000010 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8232	035067	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8233	035070	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8234	035071	004 11 0 00 004625 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8235	035072	321 12 0 00 035064 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8236
  8237					;TEST ROTC LEFT ONE BIT POSITION
  8238					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 20-10
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0180

  8239					;TEST MQ SHIFT LOGIC GATES
  8240					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8241					;IS TESTED.
  8242					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8243					;OTHER BIT IS A ONE AFTER ROTATING
  8244					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8245
  8246			004626		SN=SN+1
  8247			000010			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8248						IFE	ZZ,<ZZ=1>
  8249			000020			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8250	035073	400 10 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8251	035074	205 11 0 00 000010 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  8252	035075	205 07 0 00 000020 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8253	035076	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8254	035077	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8255	035100	004 11 0 00 004626 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8256	035101	321 12 0 00 035073 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8257
  8258					;TEST ROTC LEFT ONE BIT POSITION
  8259					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8260					;TEST MQ SHIFT LOGIC GATES
  8261					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8262					;IS TESTED.
  8263					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8264					;OTHER BIT IS A ONE AFTER ROTATING
  8265					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8266
  8267			004627		SN=SN+1
  8268			000020			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8269						IFE	ZZ,<ZZ=1>
  8270			000040			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8271	035102	400 10 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8272	035103	205 11 0 00 000020 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  8273	035104	205 07 0 00 000040 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8274	035105	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8275	035106	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8276	035107	004 11 0 00 004627 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8277	035110	321 12 0 00 035102 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8278
  8279					;TEST ROTC LEFT ONE BIT POSITION
  8280					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8281					;TEST MQ SHIFT LOGIC GATES
  8282					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8283					;IS TESTED.
  8284					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8285					;OTHER BIT IS A ONE AFTER ROTATING
  8286					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8287
  8288			004630		SN=SN+1
  8289			000040			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8290						IFE	ZZ,<ZZ=1>
  8291			000100			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8292	035111	400 10 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8293	035112	205 11 0 00 000040 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 20-11
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0181

  8294	035113	205 07 0 00 000100 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8295	035114	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8296	035115	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8297	035116	004 11 0 00 004630 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8298	035117	321 12 0 00 035111 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8299
  8300					;TEST ROTC LEFT ONE BIT POSITION
  8301					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8302					;TEST MQ SHIFT LOGIC GATES
  8303					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8304					;IS TESTED.
  8305					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8306					;OTHER BIT IS A ONE AFTER ROTATING
  8307					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8308
  8309			004631		SN=SN+1
  8310			000100			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8311						IFE	ZZ,<ZZ=1>
  8312			000200			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8313	035120	400 10 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8314	035121	205 11 0 00 000100 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  8315	035122	205 07 0 00 000200 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8316	035123	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8317	035124	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8318	035125	004 11 0 00 004631 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8319	035126	321 12 0 00 035120 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8320
  8321					;TEST ROTC LEFT ONE BIT POSITION
  8322					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8323					;TEST MQ SHIFT LOGIC GATES
  8324					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8325					;IS TESTED.
  8326					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8327					;OTHER BIT IS A ONE AFTER ROTATING
  8328					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8329
  8330			004632		SN=SN+1
  8331			000200			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8332						IFE	ZZ,<ZZ=1>
  8333			000400			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8334	035127	400 10 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8335	035130	205 11 0 00 000200 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  8336	035131	205 07 0 00 000400 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8337	035132	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8338	035133	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8339	035134	004 11 0 00 004632 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8340	035135	321 12 0 00 035127 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8341
  8342					;TEST ROTC LEFT ONE BIT POSITION
  8343					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8344					;TEST MQ SHIFT LOGIC GATES
  8345					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8346					;IS TESTED.
  8347					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8348					;OTHER BIT IS A ONE AFTER ROTATING
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 20-12
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0182

  8349					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8350
  8351			004633		SN=SN+1
  8352			000400			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8353						IFE	ZZ,<ZZ=1>
  8354			001000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8355	035136	400 10 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8356	035137	205 11 0 00 000400 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  8357	035140	205 07 0 00 001000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8358	035141	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8359	035142	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8360	035143	004 11 0 00 004633 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8361	035144	321 12 0 00 035136 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8362
  8363					;TEST ROTC LEFT ONE BIT POSITION
  8364					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8365					;TEST MQ SHIFT LOGIC GATES
  8366					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8367					;IS TESTED.
  8368					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8369					;OTHER BIT IS A ONE AFTER ROTATING
  8370					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8371
  8372			004634		SN=SN+1
  8373			001000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8374						IFE	ZZ,<ZZ=1>
  8375			002000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8376	035145	400 10 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8377	035146	205 11 0 00 001000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  8378	035147	205 07 0 00 002000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8379	035150	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8380	035151	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8381	035152	004 11 0 00 004634 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8382	035153	321 12 0 00 035145 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8383
  8384					;TEST ROTC LEFT ONE BIT POSITION
  8385					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8386					;TEST MQ SHIFT LOGIC GATES
  8387					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8388					;IS TESTED.
  8389					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8390					;OTHER BIT IS A ONE AFTER ROTATING
  8391					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8392
  8393			004635		SN=SN+1
  8394			002000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8395						IFE	ZZ,<ZZ=1>
  8396			004000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8397	035154	400 10 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8398	035155	205 11 0 00 002000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  8399	035156	205 07 0 00 004000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8400	035157	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8401	035160	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8402	035161	004 11 0 00 004635 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8403	035162	321 12 0 00 035154 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 20-13
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0183

  8404
  8405					;TEST ROTC LEFT ONE BIT POSITION
  8406					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8407					;TEST MQ SHIFT LOGIC GATES
  8408					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8409					;IS TESTED.
  8410					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8411					;OTHER BIT IS A ONE AFTER ROTATING
  8412					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8413
  8414			004636		SN=SN+1
  8415			004000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8416						IFE	ZZ,<ZZ=1>
  8417			010000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8418	035163	400 10 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8419	035164	205 11 0 00 004000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  8420	035165	205 07 0 00 010000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8421	035166	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8422	035167	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8423	035170	004 11 0 00 004636 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8424	035171	321 12 0 00 035163 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8425
  8426					;TEST ROTC LEFT ONE BIT POSITION
  8427					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8428					;TEST MQ SHIFT LOGIC GATES
  8429					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8430					;IS TESTED.
  8431					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8432					;OTHER BIT IS A ONE AFTER ROTATING
  8433					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8434
  8435			004637		SN=SN+1
  8436			010000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8437						IFE	ZZ,<ZZ=1>
  8438			020000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8439	035172	400 10 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8440	035173	205 11 0 00 010000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  8441	035174	205 07 0 00 020000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8442	035175	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8443	035176	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8444	035177	004 11 0 00 004637 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8445	035200	321 12 0 00 035172 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8446
  8447					;TEST ROTC LEFT ONE BIT POSITION
  8448					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8449					;TEST MQ SHIFT LOGIC GATES
  8450					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8451					;IS TESTED.
  8452					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8453					;OTHER BIT IS A ONE AFTER ROTATING
  8454					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8455
  8456			004640		SN=SN+1
  8457			020000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8458						IFE	ZZ,<ZZ=1>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 20-14
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0184

  8459			040000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8460	035201	400 10 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8461	035202	205 11 0 00 020000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  8462	035203	205 07 0 00 040000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8463	035204	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8464	035205	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8465	035206	004 11 0 00 004640 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8466	035207	321 12 0 00 035201 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8467
  8468					;TEST ROTC LEFT ONE BIT POSITION
  8469					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8470					;TEST MQ SHIFT LOGIC GATES
  8471					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8472					;IS TESTED.
  8473					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8474					;OTHER BIT IS A ONE AFTER ROTATING
  8475					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8476
  8477			004641		SN=SN+1
  8478			040000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8479						IFE	ZZ,<ZZ=1>
  8480			100000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8481	035210	400 10 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8482	035211	205 11 0 00 040000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  8483	035212	205 07 0 00 100000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8484	035213	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8485	035214	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8486	035215	004 11 0 00 004641 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8487	035216	321 12 0 00 035210 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8488
  8489					;TEST ROTC LEFT ONE BIT POSITION
  8490					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8491					;TEST MQ SHIFT LOGIC GATES
  8492					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8493					;IS TESTED.
  8494					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8495					;OTHER BIT IS A ONE AFTER ROTATING
  8496					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8497
  8498			004642		SN=SN+1
  8499			100000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8500						IFE	ZZ,<ZZ=1>
  8501			200000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8502	035217	400 10 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8503	035220	205 11 0 00 100000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  8504	035221	205 07 0 00 200000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8505	035222	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8506	035223	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8507	035224	004 11 0 00 004642 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8508	035225	321 12 0 00 035217 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8509
  8510					;TEST ROTC LEFT ONE BIT POSITION
  8511					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  8512					;TEST MQ SHIFT LOGIC GATES
  8513					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 20-15
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0185

  8514					;IS TESTED.
  8515					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  8516					;OTHER BIT IS A ONE AFTER ROTATING
  8517					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  8518
  8519			004643		SN=SN+1
  8520			200000			ZZ=ZZ+ZZ		;SELECTED BIT BEFORE ROTATION
  8521						IFE	ZZ,<ZZ=1>
  8522			400000			YY=ZZ+ZZ		;SELECTED BIT AFTER ROTATION
  8523	035226	400 10 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  8524	035227	205 11 0 00 200000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  8525	035230	205 07 0 00 400000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON
  8526	035231	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8527	035232	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ONE
  8528	035233	004 11 0 00 004643 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8529	035234	321 12 0 00 035226 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8530
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 21
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0186

  8531			004700		SN=4700
  8532			000000			ZZ=0
  8533							;TEST AC+1 RIGHT HALF <
  8534					E4700:	REPEAT	^D18,<;TEST ROTC LEFT ONE BIT POSITION
  8535					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8536					;TEST MQ SHIFT LOGIC GATES
  8537					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8538					;IS TESTED.
  8539					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8540					;OTHER BIT IA A ZERO AFTER ROTATING
  8541					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8542					
  8543					SN=SN+1
  8544						ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8545						IFE	<ZZ-1>,<ZZ=-2>
  8546						YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8547						SETOM	AC		;INITIALIZE AC TO ALL ONES
  8548						HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8549						IFN	<ZZ-377777>&777777,<
  8550						HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8551						IFE	<ZZ-377777>&777777,<
  8552						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8553						ROTC	AC,1		;*ROTATE LEFT ONE
  8554						CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8555						ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8556						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8557					>
  8558					;TEST ROTC LEFT ONE BIT POSITION
  8559					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8560					;TEST MQ SHIFT LOGIC GATES
  8561					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8562					;IS TESTED.
  8563					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8564					;OTHER BIT IA A ZERO AFTER ROTATING
  8565					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8566
  8567			004701		SN=SN+1
  8568			000001			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8569		777777	777776			IFE	<ZZ-1>,<ZZ=-2>
  8570			777775			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8571	035235	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8572	035236	561 11 0 00 777776 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8573						IFN	<ZZ-377777>&777777,<
  8574	035237	561 07 0 00 777775 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8575						IFE	<ZZ-377777>&777777,<
  8576						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8577	035240	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8578	035241	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8579	035242	004 11 0 00 004701 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8580	035243	321 12 0 00 035235 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8581
  8582					;TEST ROTC LEFT ONE BIT POSITION
  8583					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8584					;TEST MQ SHIFT LOGIC GATES
  8585					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 21-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0187

  8586					;IS TESTED.
  8587					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8588					;OTHER BIT IA A ZERO AFTER ROTATING
  8589					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8590
  8591			004702		SN=SN+1
  8592		777777	777775			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8593						IFE	<ZZ-1>,<ZZ=-2>
  8594			777773			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8595	035244	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8596	035245	561 11 0 00 777775 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8597						IFN	<ZZ-377777>&777777,<
  8598	035246	561 07 0 00 777773 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8599						IFE	<ZZ-377777>&777777,<
  8600						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8601	035247	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8602	035250	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8603	035251	004 11 0 00 004702 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8604	035252	321 12 0 00 035244 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8605
  8606					;TEST ROTC LEFT ONE BIT POSITION
  8607					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8608					;TEST MQ SHIFT LOGIC GATES
  8609					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8610					;IS TESTED.
  8611					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8612					;OTHER BIT IA A ZERO AFTER ROTATING
  8613					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8614
  8615			004703		SN=SN+1
  8616		777777	777773			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8617						IFE	<ZZ-1>,<ZZ=-2>
  8618			777767			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8619	035253	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8620	035254	561 11 0 00 777773 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8621						IFN	<ZZ-377777>&777777,<
  8622	035255	561 07 0 00 777767 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8623						IFE	<ZZ-377777>&777777,<
  8624						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8625	035256	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8626	035257	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8627	035260	004 11 0 00 004703 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8628	035261	321 12 0 00 035253 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8629
  8630					;TEST ROTC LEFT ONE BIT POSITION
  8631					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8632					;TEST MQ SHIFT LOGIC GATES
  8633					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8634					;IS TESTED.
  8635					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8636					;OTHER BIT IA A ZERO AFTER ROTATING
  8637					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8638
  8639			004704		SN=SN+1
  8640		777777	777767			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 21-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0188

  8641						IFE	<ZZ-1>,<ZZ=-2>
  8642			777757			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8643	035262	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8644	035263	561 11 0 00 777767 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8645						IFN	<ZZ-377777>&777777,<
  8646	035264	561 07 0 00 777757 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8647						IFE	<ZZ-377777>&777777,<
  8648						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8649	035265	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8650	035266	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8651	035267	004 11 0 00 004704 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8652	035270	321 12 0 00 035262 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8653
  8654					;TEST ROTC LEFT ONE BIT POSITION
  8655					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8656					;TEST MQ SHIFT LOGIC GATES
  8657					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8658					;IS TESTED.
  8659					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8660					;OTHER BIT IA A ZERO AFTER ROTATING
  8661					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8662
  8663			004705		SN=SN+1
  8664		777777	777757			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8665						IFE	<ZZ-1>,<ZZ=-2>
  8666			777737			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8667	035271	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8668	035272	561 11 0 00 777757 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8669						IFN	<ZZ-377777>&777777,<
  8670	035273	561 07 0 00 777737 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8671						IFE	<ZZ-377777>&777777,<
  8672						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8673	035274	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8674	035275	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8675	035276	004 11 0 00 004705 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8676	035277	321 12 0 00 035271 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8677
  8678					;TEST ROTC LEFT ONE BIT POSITION
  8679					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8680					;TEST MQ SHIFT LOGIC GATES
  8681					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8682					;IS TESTED.
  8683					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8684					;OTHER BIT IA A ZERO AFTER ROTATING
  8685					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8686
  8687			004706		SN=SN+1
  8688		777777	777737			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8689						IFE	<ZZ-1>,<ZZ=-2>
  8690			777677			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8691	035300	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8692	035301	561 11 0 00 777737 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8693						IFN	<ZZ-377777>&777777,<
  8694	035302	561 07 0 00 777677 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8695						IFE	<ZZ-377777>&777777,<
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 21-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0189

  8696						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8697	035303	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8698	035304	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8699	035305	004 11 0 00 004706 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8700	035306	321 12 0 00 035300 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8701
  8702					;TEST ROTC LEFT ONE BIT POSITION
  8703					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8704					;TEST MQ SHIFT LOGIC GATES
  8705					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8706					;IS TESTED.
  8707					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8708					;OTHER BIT IA A ZERO AFTER ROTATING
  8709					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8710
  8711			004707		SN=SN+1
  8712		777777	777677			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8713						IFE	<ZZ-1>,<ZZ=-2>
  8714			777577			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8715	035307	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8716	035310	561 11 0 00 777677 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8717						IFN	<ZZ-377777>&777777,<
  8718	035311	561 07 0 00 777577 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8719						IFE	<ZZ-377777>&777777,<
  8720						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8721	035312	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8722	035313	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8723	035314	004 11 0 00 004707 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8724	035315	321 12 0 00 035307 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8725
  8726					;TEST ROTC LEFT ONE BIT POSITION
  8727					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8728					;TEST MQ SHIFT LOGIC GATES
  8729					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8730					;IS TESTED.
  8731					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8732					;OTHER BIT IA A ZERO AFTER ROTATING
  8733					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8734
  8735			004710		SN=SN+1
  8736		777777	777577			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8737						IFE	<ZZ-1>,<ZZ=-2>
  8738			777377			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8739	035316	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8740	035317	561 11 0 00 777577 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8741						IFN	<ZZ-377777>&777777,<
  8742	035320	561 07 0 00 777377 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8743						IFE	<ZZ-377777>&777777,<
  8744						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8745	035321	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8746	035322	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8747	035323	004 11 0 00 004710 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8748	035324	321 12 0 00 035316 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8749
  8750					;TEST ROTC LEFT ONE BIT POSITION
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 21-4
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0190

  8751					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8752					;TEST MQ SHIFT LOGIC GATES
  8753					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8754					;IS TESTED.
  8755					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8756					;OTHER BIT IA A ZERO AFTER ROTATING
  8757					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8758
  8759			004711		SN=SN+1
  8760		777777	777377			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8761						IFE	<ZZ-1>,<ZZ=-2>
  8762			776777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8763	035325	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8764	035326	561 11 0 00 777377 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8765						IFN	<ZZ-377777>&777777,<
  8766	035327	561 07 0 00 776777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8767						IFE	<ZZ-377777>&777777,<
  8768						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8769	035330	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8770	035331	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8771	035332	004 11 0 00 004711 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8772	035333	321 12 0 00 035325 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8773
  8774					;TEST ROTC LEFT ONE BIT POSITION
  8775					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8776					;TEST MQ SHIFT LOGIC GATES
  8777					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8778					;IS TESTED.
  8779					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8780					;OTHER BIT IA A ZERO AFTER ROTATING
  8781					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8782
  8783			004712		SN=SN+1
  8784		777777	776777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8785						IFE	<ZZ-1>,<ZZ=-2>
  8786			775777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8787	035334	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8788	035335	561 11 0 00 776777 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8789						IFN	<ZZ-377777>&777777,<
  8790	035336	561 07 0 00 775777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8791						IFE	<ZZ-377777>&777777,<
  8792						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8793	035337	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8794	035340	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8795	035341	004 11 0 00 004712 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8796	035342	321 12 0 00 035334 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8797
  8798					;TEST ROTC LEFT ONE BIT POSITION
  8799					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8800					;TEST MQ SHIFT LOGIC GATES
  8801					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8802					;IS TESTED.
  8803					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8804					;OTHER BIT IA A ZERO AFTER ROTATING
  8805					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 21-5
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0191

  8806
  8807			004713		SN=SN+1
  8808		777777	775777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8809						IFE	<ZZ-1>,<ZZ=-2>
  8810			773777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8811	035343	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8812	035344	561 11 0 00 775777 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8813						IFN	<ZZ-377777>&777777,<
  8814	035345	561 07 0 00 773777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8815						IFE	<ZZ-377777>&777777,<
  8816						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8817	035346	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8818	035347	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8819	035350	004 11 0 00 004713 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8820	035351	321 12 0 00 035343 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8821
  8822					;TEST ROTC LEFT ONE BIT POSITION
  8823					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8824					;TEST MQ SHIFT LOGIC GATES
  8825					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8826					;IS TESTED.
  8827					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8828					;OTHER BIT IA A ZERO AFTER ROTATING
  8829					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8830
  8831			004714		SN=SN+1
  8832		777777	773777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8833						IFE	<ZZ-1>,<ZZ=-2>
  8834			767777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8835	035352	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8836	035353	561 11 0 00 773777 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8837						IFN	<ZZ-377777>&777777,<
  8838	035354	561 07 0 00 767777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8839						IFE	<ZZ-377777>&777777,<
  8840						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8841	035355	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8842	035356	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8843	035357	004 11 0 00 004714 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8844	035360	321 12 0 00 035352 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8845
  8846					;TEST ROTC LEFT ONE BIT POSITION
  8847					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8848					;TEST MQ SHIFT LOGIC GATES
  8849					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8850					;IS TESTED.
  8851					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8852					;OTHER BIT IA A ZERO AFTER ROTATING
  8853					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8854
  8855			004715		SN=SN+1
  8856		777777	767777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8857						IFE	<ZZ-1>,<ZZ=-2>
  8858			757777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8859	035361	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8860	035362	561 11 0 00 767777 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 21-6
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0192

  8861						IFN	<ZZ-377777>&777777,<
  8862	035363	561 07 0 00 757777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8863						IFE	<ZZ-377777>&777777,<
  8864						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8865	035364	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8866	035365	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8867	035366	004 11 0 00 004715 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8868	035367	321 12 0 00 035361 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8869
  8870					;TEST ROTC LEFT ONE BIT POSITION
  8871					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8872					;TEST MQ SHIFT LOGIC GATES
  8873					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8874					;IS TESTED.
  8875					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8876					;OTHER BIT IA A ZERO AFTER ROTATING
  8877					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8878
  8879			004716		SN=SN+1
  8880		777777	757777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8881						IFE	<ZZ-1>,<ZZ=-2>
  8882			737777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8883	035370	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8884	035371	561 11 0 00 757777 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8885						IFN	<ZZ-377777>&777777,<
  8886	035372	561 07 0 00 737777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8887						IFE	<ZZ-377777>&777777,<
  8888						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8889	035373	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8890	035374	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8891	035375	004 11 0 00 004716 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8892	035376	321 12 0 00 035370 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8893
  8894					;TEST ROTC LEFT ONE BIT POSITION
  8895					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8896					;TEST MQ SHIFT LOGIC GATES
  8897					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8898					;IS TESTED.
  8899					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8900					;OTHER BIT IA A ZERO AFTER ROTATING
  8901					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8902
  8903			004717		SN=SN+1
  8904		777777	737777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8905						IFE	<ZZ-1>,<ZZ=-2>
  8906			677777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8907	035377	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8908	035400	561 11 0 00 737777 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8909						IFN	<ZZ-377777>&777777,<
  8910	035401	561 07 0 00 677777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8911						IFE	<ZZ-377777>&777777,<
  8912						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8913	035402	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8914	035403	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8915	035404	004 11 0 00 004717 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 21-7
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0193

  8916	035405	321 12 0 00 035377 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8917
  8918					;TEST ROTC LEFT ONE BIT POSITION
  8919					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8920					;TEST MQ SHIFT LOGIC GATES
  8921					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8922					;IS TESTED.
  8923					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8924					;OTHER BIT IA A ZERO AFTER ROTATING
  8925					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8926
  8927			004720		SN=SN+1
  8928		777777	677777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8929						IFE	<ZZ-1>,<ZZ=-2>
  8930			577777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8931	035406	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8932	035407	561 11 0 00 677777 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8933						IFN	<ZZ-377777>&777777,<
  8934	035410	561 07 0 00 577777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8935						IFE	<ZZ-377777>&777777,<
  8936						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8937	035411	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8938	035412	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8939	035413	004 11 0 00 004720 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8940	035414	321 12 0 00 035406 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8941
  8942					;TEST ROTC LEFT ONE BIT POSITION
  8943					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8944					;TEST MQ SHIFT LOGIC GATES
  8945					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8946					;IS TESTED.
  8947					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8948					;OTHER BIT IA A ZERO AFTER ROTATING
  8949					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8950
  8951			004721		SN=SN+1
  8952		777777	577777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8953						IFE	<ZZ-1>,<ZZ=-2>
  8954			377777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8955	035415	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8956	035416	561 11 0 00 577777 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8957						IFN	<ZZ-377777>&777777,<
  8958	035417	561 07 0 00 377777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8959						IFE	<ZZ-377777>&777777,<
  8960						HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8961	035420	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8962	035421	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8963	035422	004 11 0 00 004721 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8964	035423	321 12 0 00 035415 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8965
  8966					;TEST ROTC LEFT ONE BIT POSITION
  8967					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8968					;TEST MQ SHIFT LOGIC GATES
  8969					;AC,AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8970					;IS TESTED.
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 21-8
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0194

  8971					;AN ERROR OCCURS IF THE TESTED BIT IA A ONE AND/OR ANY
  8972					;OTHER BIT IA A ZERO AFTER ROTATING
  8973					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
  8974
  8975			004722		SN=SN+1
  8976		777777	377777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  8977						IFE	<ZZ-1>,<ZZ=-2>
  8978			777777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  8979	035424	476 00 0 00 000010 		SETOM	AC		;INITIALIZE AC TO ALL ONES
  8980	035425	561 11 0 00 377777 		HRROI	AC+1,ZZ		;CLEAR BIT (N) OF AC+1 RIGHT
  8981						IFN	<ZZ-377777>&777777,<
  8982						HRROI	AC-1,YY		;SETUP FOR COMPARISON>
  8983						IFE	<ZZ-377777>&777777,<
  8984	035426	525 07 0 00 777776 		HRLOI	AC-1,-2		;SETUP FOR COMPARISON>
  8985	035427	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  8986	035430	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  8987	035431	004 11 0 00 004722 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  8988	035432	321 12 0 00 035424 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  8989
  8990					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 21-9
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0195

  8991			000000			ZZ=0
  8992
  8993							;TEST AC+1 LEFT HALF <
  8994						REPEAT	^D17,<;TEST ROTC LEFT ONE BIT POSITION
  8995					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  8996					;TEST MQ SHIFT LOGIC GATES
  8997					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  8998					;IS TESTED.
  8999					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9000					;OTHER BIT IS A ZERO AFTER ROTATING
  9001					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  9002					;OF THE MQ
  9003					
  9004					SN=SN+1
  9005						ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9006						IFE	<ZZ-1>,<ZZ=-2>
  9007						YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9008						SETOM	AC		;INITAILIZE AC TO ALL ONES
  9009						HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9010						HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9011						ROTC	AC,1		;*ROTATE LEFT ONE
  9012						CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  9013						ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9014						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9015					>
  9016					;TEST ROTC LEFT ONE BIT POSITION
  9017					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  9018					;TEST MQ SHIFT LOGIC GATES
  9019					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  9020					;IS TESTED.
  9021					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9022					;OTHER BIT IS A ZERO AFTER ROTATING
  9023					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  9024					;OF THE MQ
  9025
  9026			004723		SN=SN+1
  9027			000001			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9028		777777	777776			IFE	<ZZ-1>,<ZZ=-2>
  9029			777775			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9030	035433	476 00 0 00 000010 		SETOM	AC		;INITAILIZE AC TO ALL ONES
  9031	035434	525 11 0 00 777776 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9032	035435	525 07 0 00 777775 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9033	035436	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  9034	035437	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  9035	035440	004 11 0 00 000000 		ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9036	035441	321 12 0 00 035433 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9037
  9038					;TEST ROTC LEFT ONE BIT POSITION
  9039					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  9040					;TEST MQ SHIFT LOGIC GATES
  9041					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  9042					;IS TESTED.
  9043					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9044					;OTHER BIT IS A ZERO AFTER ROTATING
  9045					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 21-10
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0196

  9046					;OF THE MQ
  9047
  9048			004724		SN=SN+1
  9049		777777	777775			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9050						IFE	<ZZ-1>,<ZZ=-2>
  9051			777773			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9052	035442	476 00 0 00 000010 		SETOM	AC		;INITAILIZE AC TO ALL ONES
  9053	035443	525 11 0 00 777775 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9054	035444	525 07 0 00 777773 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9055	035445	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  9056	035446	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  9057	035447	004 11 0 00 000000 		ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9058	035450	321 12 0 00 035442 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9059
  9060					;TEST ROTC LEFT ONE BIT POSITION
  9061					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  9062					;TEST MQ SHIFT LOGIC GATES
  9063					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  9064					;IS TESTED.
  9065					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9066					;OTHER BIT IS A ZERO AFTER ROTATING
  9067					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  9068					;OF THE MQ
  9069
  9070			004725		SN=SN+1
  9071		777777	777773			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9072						IFE	<ZZ-1>,<ZZ=-2>
  9073			777767			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9074	035451	476 00 0 00 000010 		SETOM	AC		;INITAILIZE AC TO ALL ONES
  9075	035452	525 11 0 00 777773 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9076	035453	525 07 0 00 777767 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9077	035454	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  9078	035455	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  9079	035456	004 11 0 00 000000 		ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9080	035457	321 12 0 00 035451 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9081
  9082					;TEST ROTC LEFT ONE BIT POSITION
  9083					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  9084					;TEST MQ SHIFT LOGIC GATES
  9085					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  9086					;IS TESTED.
  9087					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9088					;OTHER BIT IS A ZERO AFTER ROTATING
  9089					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  9090					;OF THE MQ
  9091
  9092			004726		SN=SN+1
  9093		777777	777767			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9094						IFE	<ZZ-1>,<ZZ=-2>
  9095			777757			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9096	035460	476 00 0 00 000010 		SETOM	AC		;INITAILIZE AC TO ALL ONES
  9097	035461	525 11 0 00 777767 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9098	035462	525 07 0 00 777757 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9099	035463	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  9100	035464	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 21-11
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0197

  9101	035465	004 11 0 00 000000 		ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9102	035466	321 12 0 00 035460 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9103
  9104					;TEST ROTC LEFT ONE BIT POSITION
  9105					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  9106					;TEST MQ SHIFT LOGIC GATES
  9107					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  9108					;IS TESTED.
  9109					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9110					;OTHER BIT IS A ZERO AFTER ROTATING
  9111					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  9112					;OF THE MQ
  9113
  9114			004727		SN=SN+1
  9115		777777	777757			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9116						IFE	<ZZ-1>,<ZZ=-2>
  9117			777737			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9118	035467	476 00 0 00 000010 		SETOM	AC		;INITAILIZE AC TO ALL ONES
  9119	035470	525 11 0 00 777757 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9120	035471	525 07 0 00 777737 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9121	035472	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  9122	035473	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  9123	035474	004 11 0 00 000000 		ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9124	035475	321 12 0 00 035467 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9125
  9126					;TEST ROTC LEFT ONE BIT POSITION
  9127					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  9128					;TEST MQ SHIFT LOGIC GATES
  9129					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  9130					;IS TESTED.
  9131					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9132					;OTHER BIT IS A ZERO AFTER ROTATING
  9133					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  9134					;OF THE MQ
  9135
  9136			004730		SN=SN+1
  9137		777777	777737			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9138						IFE	<ZZ-1>,<ZZ=-2>
  9139			777677			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9140	035476	476 00 0 00 000010 		SETOM	AC		;INITAILIZE AC TO ALL ONES
  9141	035477	525 11 0 00 777737 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9142	035500	525 07 0 00 777677 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9143	035501	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  9144	035502	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  9145	035503	004 11 0 00 000000 		ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9146	035504	321 12 0 00 035476 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9147
  9148					;TEST ROTC LEFT ONE BIT POSITION
  9149					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  9150					;TEST MQ SHIFT LOGIC GATES
  9151					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  9152					;IS TESTED.
  9153					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9154					;OTHER BIT IS A ZERO AFTER ROTATING
  9155					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 21-12
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0198

  9156					;OF THE MQ
  9157
  9158			004731		SN=SN+1
  9159		777777	777677			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9160						IFE	<ZZ-1>,<ZZ=-2>
  9161			777577			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9162	035505	476 00 0 00 000010 		SETOM	AC		;INITAILIZE AC TO ALL ONES
  9163	035506	525 11 0 00 777677 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9164	035507	525 07 0 00 777577 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9165	035510	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  9166	035511	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  9167	035512	004 11 0 00 000000 		ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9168	035513	321 12 0 00 035505 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9169
  9170					;TEST ROTC LEFT ONE BIT POSITION
  9171					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  9172					;TEST MQ SHIFT LOGIC GATES
  9173					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  9174					;IS TESTED.
  9175					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9176					;OTHER BIT IS A ZERO AFTER ROTATING
  9177					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  9178					;OF THE MQ
  9179
  9180			004732		SN=SN+1
  9181		777777	777577			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9182						IFE	<ZZ-1>,<ZZ=-2>
  9183			777377			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9184	035514	476 00 0 00 000010 		SETOM	AC		;INITAILIZE AC TO ALL ONES
  9185	035515	525 11 0 00 777577 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9186	035516	525 07 0 00 777377 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9187	035517	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  9188	035520	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  9189	035521	004 11 0 00 000000 		ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9190	035522	321 12 0 00 035514 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9191
  9192					;TEST ROTC LEFT ONE BIT POSITION
  9193					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  9194					;TEST MQ SHIFT LOGIC GATES
  9195					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  9196					;IS TESTED.
  9197					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9198					;OTHER BIT IS A ZERO AFTER ROTATING
  9199					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  9200					;OF THE MQ
  9201
  9202			004733		SN=SN+1
  9203		777777	777377			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9204						IFE	<ZZ-1>,<ZZ=-2>
  9205			776777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9206	035523	476 00 0 00 000010 		SETOM	AC		;INITAILIZE AC TO ALL ONES
  9207	035524	525 11 0 00 777377 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9208	035525	525 07 0 00 776777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9209	035526	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  9210	035527	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 21-13
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0199

  9211	035530	004 11 0 00 000000 		ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9212	035531	321 12 0 00 035523 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9213
  9214					;TEST ROTC LEFT ONE BIT POSITION
  9215					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  9216					;TEST MQ SHIFT LOGIC GATES
  9217					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  9218					;IS TESTED.
  9219					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9220					;OTHER BIT IS A ZERO AFTER ROTATING
  9221					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  9222					;OF THE MQ
  9223
  9224			004734		SN=SN+1
  9225		777777	776777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9226						IFE	<ZZ-1>,<ZZ=-2>
  9227			775777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9228	035532	476 00 0 00 000010 		SETOM	AC		;INITAILIZE AC TO ALL ONES
  9229	035533	525 11 0 00 776777 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9230	035534	525 07 0 00 775777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9231	035535	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  9232	035536	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  9233	035537	004 11 0 00 000000 		ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9234	035540	321 12 0 00 035532 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9235
  9236					;TEST ROTC LEFT ONE BIT POSITION
  9237					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  9238					;TEST MQ SHIFT LOGIC GATES
  9239					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  9240					;IS TESTED.
  9241					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9242					;OTHER BIT IS A ZERO AFTER ROTATING
  9243					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  9244					;OF THE MQ
  9245
  9246			004735		SN=SN+1
  9247		777777	775777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9248						IFE	<ZZ-1>,<ZZ=-2>
  9249			773777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9250	035541	476 00 0 00 000010 		SETOM	AC		;INITAILIZE AC TO ALL ONES
  9251	035542	525 11 0 00 775777 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9252	035543	525 07 0 00 773777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9253	035544	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  9254	035545	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  9255	035546	004 11 0 00 000000 		ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9256	035547	321 12 0 00 035541 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9257
  9258					;TEST ROTC LEFT ONE BIT POSITION
  9259					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  9260					;TEST MQ SHIFT LOGIC GATES
  9261					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  9262					;IS TESTED.
  9263					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9264					;OTHER BIT IS A ZERO AFTER ROTATING
  9265					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 21-14
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0200

  9266					;OF THE MQ
  9267
  9268			004736		SN=SN+1
  9269		777777	773777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9270						IFE	<ZZ-1>,<ZZ=-2>
  9271			767777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9272	035550	476 00 0 00 000010 		SETOM	AC		;INITAILIZE AC TO ALL ONES
  9273	035551	525 11 0 00 773777 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9274	035552	525 07 0 00 767777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9275	035553	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  9276	035554	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  9277	035555	004 11 0 00 000000 		ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9278	035556	321 12 0 00 035550 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9279
  9280					;TEST ROTC LEFT ONE BIT POSITION
  9281					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  9282					;TEST MQ SHIFT LOGIC GATES
  9283					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  9284					;IS TESTED.
  9285					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9286					;OTHER BIT IS A ZERO AFTER ROTATING
  9287					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  9288					;OF THE MQ
  9289
  9290			004737		SN=SN+1
  9291		777777	767777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9292						IFE	<ZZ-1>,<ZZ=-2>
  9293			757777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9294	035557	476 00 0 00 000010 		SETOM	AC		;INITAILIZE AC TO ALL ONES
  9295	035560	525 11 0 00 767777 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9296	035561	525 07 0 00 757777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9297	035562	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  9298	035563	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  9299	035564	004 11 0 00 000000 		ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9300	035565	321 12 0 00 035557 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9301
  9302					;TEST ROTC LEFT ONE BIT POSITION
  9303					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  9304					;TEST MQ SHIFT LOGIC GATES
  9305					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  9306					;IS TESTED.
  9307					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9308					;OTHER BIT IS A ZERO AFTER ROTATING
  9309					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  9310					;OF THE MQ
  9311
  9312			004740		SN=SN+1
  9313		777777	757777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9314						IFE	<ZZ-1>,<ZZ=-2>
  9315			737777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9316	035566	476 00 0 00 000010 		SETOM	AC		;INITAILIZE AC TO ALL ONES
  9317	035567	525 11 0 00 757777 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9318	035570	525 07 0 00 737777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9319	035571	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  9320	035572	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 21-15
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0201

  9321	035573	004 11 0 00 000000 		ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9322	035574	321 12 0 00 035566 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9323
  9324					;TEST ROTC LEFT ONE BIT POSITION
  9325					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  9326					;TEST MQ SHIFT LOGIC GATES
  9327					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  9328					;IS TESTED.
  9329					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9330					;OTHER BIT IS A ZERO AFTER ROTATING
  9331					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  9332					;OF THE MQ
  9333
  9334			004741		SN=SN+1
  9335		777777	737777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9336						IFE	<ZZ-1>,<ZZ=-2>
  9337			677777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9338	035575	476 00 0 00 000010 		SETOM	AC		;INITAILIZE AC TO ALL ONES
  9339	035576	525 11 0 00 737777 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9340	035577	525 07 0 00 677777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9341	035600	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  9342	035601	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  9343	035602	004 11 0 00 000000 		ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9344	035603	321 12 0 00 035575 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9345
  9346					;TEST ROTC LEFT ONE BIT POSITION
  9347					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  9348					;TEST MQ SHIFT LOGIC GATES
  9349					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  9350					;IS TESTED.
  9351					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9352					;OTHER BIT IS A ZERO AFTER ROTATING
  9353					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
  9354					;OF THE MQ
  9355
  9356			004742		SN=SN+1
  9357		777777	677777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9358						IFE	<ZZ-1>,<ZZ=-2>
  9359			577777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9360	035604	476 00 0 00 000010 		SETOM	AC		;INITAILIZE AC TO ALL ONES
  9361	035605	525 11 0 00 677777 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9362	035606	525 07 0 00 577777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9363	035607	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  9364	035610	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  9365	035611	004 11 0 00 000000 		ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9366	035612	321 12 0 00 035604 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9367
  9368					;TEST ROTC LEFT ONE BIT POSITION
  9369					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
  9370					;TEST MQ SHIFT LOGIC GATES
  9371					;AC, AC+1 ARE ROTATED LEFT ONE BIT POSITION AND AC+1
  9372					;IS TESTED.
  9373					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
  9374					;OTHER BIT IS A ZERO AFTER ROTATING
  9375					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 21-16
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0202

  9376					;OF THE MQ
  9377
  9378			004743		SN=SN+1
  9379		777777	577777			ZZ=ZZ+ZZ+1		;SELECTED BIT BEFORE ROTATION
  9380						IFE	<ZZ-1>,<ZZ=-2>
  9381			377777			YY=<ZZ+ZZ+1>&777777	;SELECTED BIT AFTER ROTATION
  9382	035613	476 00 0 00 000010 		SETOM	AC		;INITAILIZE AC TO ALL ONES
  9383	035614	525 11 0 00 577777 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
  9384	035615	525 07 0 00 377777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON
  9385	035616	245 10 0 00 000001 		ROTC	AC,1		;*ROTATE LEFT ONE
  9386	035617	312 11 0 00 000007 		CAME	AC+1,AC-1	;TEST FOR BIT (N-1) A ZERO
  9387	035620	004 11 0 00 000000 		ER4	AC+1,		;MQ GATE UNDER TEST FAILED
  9388	035621	321 12 0 00 035613 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9389
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 22
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0203

  9390					;TEST ROTC RIGHT ONE BIT POSITION USING ALL ZEROS
  9391					;TEST MQ SHIFT LOGIC GATES
  9392					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND
  9393					;AC+1 IS TESTED
  9394					;AN ERROR OCCURS IF C(AC+1) IS NON-ZERO AFTER ROTATING
  9395
  9396			000007			AC=7
  9397						SAVEAC	(1,1)^
  9398	035622	201 11 0 00 035622 		MOVEI	AC+2,.		;SAVE TEST PC
  9399	035623	202 11 0 00 030051 		MOVEM	AC+2,TESTPC
  9400	035624	201 11 0 00 000011 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
  9401	035625	202 11 0 00 041763 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
  9402
  9403	035626	403 07 0 00 000010 	E5000:	SETZB	AC,AC+1		;INITIALIZE AC,AC+1 TO ALL ZEROS
  9404	035627	402 00 0 00 000006 		SETZM	AC-1		;INITIALIZE RESULT TO ZERO
  9405	035630	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9406	035631	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST AC+1 FOR ALL ZEROS
  9407	035632	004 10 0 00 005001 		ER4	AC+1,5001	;MQ GRTING FAILED
  9408	035633	321 11 0 00 035626 		JUMPL	AC+2,E5000	;LOOP ON ERROR SWITCH
  9409
  9410					;TEST ROTC,RIGHT ONE BIT POSITION USING ALL ONES
  9411					;TEST MQ SHIFT LOGIC GATES
  9412					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND
  9413					;AC+1 IS TESTED
  9414					;AN ERROR OCCURS IF C(AC+1) IS NONZERO AFTER ROTATING
  9415
  9416	035634	477 07 0 00 000010 	E5100:	SETOB	AC,AC+1		;INITIALIZE AC,AC+1	TO ALL ONES
  9417	035635	476 00 0 00 000006 		SETOM	AC-1		;INITIALIZE RESULT TO ALL ONES
  9418	035636	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9419	035637	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST AC+1 FOR ALL ONES
  9420	035640	004 10 0 00 005101 		ER4	AC+1,5101	;MQ GATING FAILED
  9421	035641	321 11 0 00 035634 		JUMPL	AC+2,E5100	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 23
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0204

  9422			005200		SN=5200
  9423			000000			ZZ=0
  9424							;TEST AC+1 LEFT HALF<
  9425					E5200:	REPEAT	^D18,<;TEST ROTC RIGHT ONE BIT POSITION
  9426					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9427					;TEST MQ SHIFT LOGIC GATES
  9428					
  9429					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9430					;IS TESTED.
  9431					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9432					;OTHER BIT IS A ONE AFTER ROTATING
  9433					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9434					
  9435					SN=SN+1
  9436						ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9437						IFE	ZZ,<ZZ=400000>
  9438						YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9439						SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9440						MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9441						IFN	<ZZ-1>,	<
  9442						MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9443						IFE	<ZZ-1>,<
  9444						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9445						ROTC	AC,-1		;*ROTATE RIGHT ONE
  9446						CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9447						ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9448						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9449					>
  9450					;TEST ROTC RIGHT ONE BIT POSITION
  9451					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9452					;TEST MQ SHIFT LOGIC GATES
  9453
  9454					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9455					;IS TESTED.
  9456					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9457					;OTHER BIT IS A ONE AFTER ROTATING
  9458					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9459
  9460			005201		SN=SN+1
  9461			000000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9462			400000			IFE	ZZ,<ZZ=400000>
  9463			200000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9464	035642	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9465	035643	205 10 0 00 400000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9466						IFN	<ZZ-1>,	<
  9467	035644	205 06 0 00 200000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9468						IFE	<ZZ-1>,<
  9469						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9470	035645	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9471	035646	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9472	035647	004 10 0 00 005201 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9473	035650	321 11 0 00 035642 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9474
  9475					;TEST ROTC RIGHT ONE BIT POSITION
  9476					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 23-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0205

  9477					;TEST MQ SHIFT LOGIC GATES
  9478
  9479					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9480					;IS TESTED.
  9481					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9482					;OTHER BIT IS A ONE AFTER ROTATING
  9483					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9484
  9485			005202		SN=SN+1
  9486			200000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9487						IFE	ZZ,<ZZ=400000>
  9488			100000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9489	035651	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9490	035652	205 10 0 00 200000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9491						IFN	<ZZ-1>,	<
  9492	035653	205 06 0 00 100000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9493						IFE	<ZZ-1>,<
  9494						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9495	035654	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9496	035655	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9497	035656	004 10 0 00 005202 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9498	035657	321 11 0 00 035651 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9499
  9500					;TEST ROTC RIGHT ONE BIT POSITION
  9501					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9502					;TEST MQ SHIFT LOGIC GATES
  9503
  9504					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9505					;IS TESTED.
  9506					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9507					;OTHER BIT IS A ONE AFTER ROTATING
  9508					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9509
  9510			005203		SN=SN+1
  9511			100000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9512						IFE	ZZ,<ZZ=400000>
  9513			040000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9514	035660	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9515	035661	205 10 0 00 100000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9516						IFN	<ZZ-1>,	<
  9517	035662	205 06 0 00 040000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9518						IFE	<ZZ-1>,<
  9519						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9520	035663	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9521	035664	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9522	035665	004 10 0 00 005203 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9523	035666	321 11 0 00 035660 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9524
  9525					;TEST ROTC RIGHT ONE BIT POSITION
  9526					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9527					;TEST MQ SHIFT LOGIC GATES
  9528
  9529					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9530					;IS TESTED.
  9531					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 23-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0206

  9532					;OTHER BIT IS A ONE AFTER ROTATING
  9533					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9534
  9535			005204		SN=SN+1
  9536			040000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9537						IFE	ZZ,<ZZ=400000>
  9538			020000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9539	035667	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9540	035670	205 10 0 00 040000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9541						IFN	<ZZ-1>,	<
  9542	035671	205 06 0 00 020000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9543						IFE	<ZZ-1>,<
  9544						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9545	035672	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9546	035673	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9547	035674	004 10 0 00 005204 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9548	035675	321 11 0 00 035667 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9549
  9550					;TEST ROTC RIGHT ONE BIT POSITION
  9551					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9552					;TEST MQ SHIFT LOGIC GATES
  9553
  9554					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9555					;IS TESTED.
  9556					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9557					;OTHER BIT IS A ONE AFTER ROTATING
  9558					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9559
  9560			005205		SN=SN+1
  9561			020000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9562						IFE	ZZ,<ZZ=400000>
  9563			010000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9564	035676	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9565	035677	205 10 0 00 020000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9566						IFN	<ZZ-1>,	<
  9567	035700	205 06 0 00 010000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9568						IFE	<ZZ-1>,<
  9569						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9570	035701	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9571	035702	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9572	035703	004 10 0 00 005205 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9573	035704	321 11 0 00 035676 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9574
  9575					;TEST ROTC RIGHT ONE BIT POSITION
  9576					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9577					;TEST MQ SHIFT LOGIC GATES
  9578
  9579					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9580					;IS TESTED.
  9581					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9582					;OTHER BIT IS A ONE AFTER ROTATING
  9583					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9584
  9585			005206		SN=SN+1
  9586			010000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 23-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0207

  9587						IFE	ZZ,<ZZ=400000>
  9588			004000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9589	035705	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9590	035706	205 10 0 00 010000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9591						IFN	<ZZ-1>,	<
  9592	035707	205 06 0 00 004000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9593						IFE	<ZZ-1>,<
  9594						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9595	035710	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9596	035711	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9597	035712	004 10 0 00 005206 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9598	035713	321 11 0 00 035705 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9599
  9600					;TEST ROTC RIGHT ONE BIT POSITION
  9601					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9602					;TEST MQ SHIFT LOGIC GATES
  9603
  9604					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9605					;IS TESTED.
  9606					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9607					;OTHER BIT IS A ONE AFTER ROTATING
  9608					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9609
  9610			005207		SN=SN+1
  9611			004000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9612						IFE	ZZ,<ZZ=400000>
  9613			002000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9614	035714	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9615	035715	205 10 0 00 004000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9616						IFN	<ZZ-1>,	<
  9617	035716	205 06 0 00 002000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9618						IFE	<ZZ-1>,<
  9619						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9620	035717	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9621	035720	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9622	035721	004 10 0 00 005207 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9623	035722	321 11 0 00 035714 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9624
  9625					;TEST ROTC RIGHT ONE BIT POSITION
  9626					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9627					;TEST MQ SHIFT LOGIC GATES
  9628
  9629					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9630					;IS TESTED.
  9631					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9632					;OTHER BIT IS A ONE AFTER ROTATING
  9633					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9634
  9635			005210		SN=SN+1
  9636			002000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9637						IFE	ZZ,<ZZ=400000>
  9638			001000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9639	035723	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9640	035724	205 10 0 00 002000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9641						IFN	<ZZ-1>,	<
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 23-4
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0208

  9642	035725	205 06 0 00 001000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9643						IFE	<ZZ-1>,<
  9644						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9645	035726	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9646	035727	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9647	035730	004 10 0 00 005210 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9648	035731	321 11 0 00 035723 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9649
  9650					;TEST ROTC RIGHT ONE BIT POSITION
  9651					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9652					;TEST MQ SHIFT LOGIC GATES
  9653
  9654					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9655					;IS TESTED.
  9656					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9657					;OTHER BIT IS A ONE AFTER ROTATING
  9658					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9659
  9660			005211		SN=SN+1
  9661			001000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9662						IFE	ZZ,<ZZ=400000>
  9663			000400			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9664	035732	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9665	035733	205 10 0 00 001000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9666						IFN	<ZZ-1>,	<
  9667	035734	205 06 0 00 000400 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9668						IFE	<ZZ-1>,<
  9669						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9670	035735	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9671	035736	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9672	035737	004 10 0 00 005211 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9673	035740	321 11 0 00 035732 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9674
  9675					;TEST ROTC RIGHT ONE BIT POSITION
  9676					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9677					;TEST MQ SHIFT LOGIC GATES
  9678
  9679					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9680					;IS TESTED.
  9681					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9682					;OTHER BIT IS A ONE AFTER ROTATING
  9683					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9684
  9685			005212		SN=SN+1
  9686			000400			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9687						IFE	ZZ,<ZZ=400000>
  9688			000200			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9689	035741	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9690	035742	205 10 0 00 000400 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9691						IFN	<ZZ-1>,	<
  9692	035743	205 06 0 00 000200 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9693						IFE	<ZZ-1>,<
  9694						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9695	035744	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9696	035745	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 23-5
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0209

  9697	035746	004 10 0 00 005212 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9698	035747	321 11 0 00 035741 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9699
  9700					;TEST ROTC RIGHT ONE BIT POSITION
  9701					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9702					;TEST MQ SHIFT LOGIC GATES
  9703
  9704					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9705					;IS TESTED.
  9706					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9707					;OTHER BIT IS A ONE AFTER ROTATING
  9708					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9709
  9710			005213		SN=SN+1
  9711			000200			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9712						IFE	ZZ,<ZZ=400000>
  9713			000100			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9714	035750	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9715	035751	205 10 0 00 000200 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9716						IFN	<ZZ-1>,	<
  9717	035752	205 06 0 00 000100 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9718						IFE	<ZZ-1>,<
  9719						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9720	035753	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9721	035754	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9722	035755	004 10 0 00 005213 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9723	035756	321 11 0 00 035750 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9724
  9725					;TEST ROTC RIGHT ONE BIT POSITION
  9726					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9727					;TEST MQ SHIFT LOGIC GATES
  9728
  9729					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9730					;IS TESTED.
  9731					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9732					;OTHER BIT IS A ONE AFTER ROTATING
  9733					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9734
  9735			005214		SN=SN+1
  9736			000100			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9737						IFE	ZZ,<ZZ=400000>
  9738			000040			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9739	035757	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9740	035760	205 10 0 00 000100 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9741						IFN	<ZZ-1>,	<
  9742	035761	205 06 0 00 000040 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9743						IFE	<ZZ-1>,<
  9744						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9745	035762	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9746	035763	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9747	035764	004 10 0 00 005214 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9748	035765	321 11 0 00 035757 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9749
  9750					;TEST ROTC RIGHT ONE BIT POSITION
  9751					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 23-6
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0210

  9752					;TEST MQ SHIFT LOGIC GATES
  9753
  9754					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9755					;IS TESTED.
  9756					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9757					;OTHER BIT IS A ONE AFTER ROTATING
  9758					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9759
  9760			005215		SN=SN+1
  9761			000040			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9762						IFE	ZZ,<ZZ=400000>
  9763			000020			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9764	035766	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9765	035767	205 10 0 00 000040 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9766						IFN	<ZZ-1>,	<
  9767	035770	205 06 0 00 000020 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9768						IFE	<ZZ-1>,<
  9769						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9770	035771	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9771	035772	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9772	035773	004 10 0 00 005215 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9773	035774	321 11 0 00 035766 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9774
  9775					;TEST ROTC RIGHT ONE BIT POSITION
  9776					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9777					;TEST MQ SHIFT LOGIC GATES
  9778
  9779					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9780					;IS TESTED.
  9781					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9782					;OTHER BIT IS A ONE AFTER ROTATING
  9783					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9784
  9785			005216		SN=SN+1
  9786			000020			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9787						IFE	ZZ,<ZZ=400000>
  9788			000010			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9789	035775	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9790	035776	205 10 0 00 000020 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9791						IFN	<ZZ-1>,	<
  9792	035777	205 06 0 00 000010 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9793						IFE	<ZZ-1>,<
  9794						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9795	036000	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9796	036001	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9797	036002	004 10 0 00 005216 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9798	036003	321 11 0 00 035775 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9799
  9800					;TEST ROTC RIGHT ONE BIT POSITION
  9801					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9802					;TEST MQ SHIFT LOGIC GATES
  9803
  9804					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9805					;IS TESTED.
  9806					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 23-7
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0211

  9807					;OTHER BIT IS A ONE AFTER ROTATING
  9808					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9809
  9810			005217		SN=SN+1
  9811			000010			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9812						IFE	ZZ,<ZZ=400000>
  9813			000004			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9814	036004	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9815	036005	205 10 0 00 000010 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9816						IFN	<ZZ-1>,	<
  9817	036006	205 06 0 00 000004 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9818						IFE	<ZZ-1>,<
  9819						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9820	036007	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9821	036010	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9822	036011	004 10 0 00 005217 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9823	036012	321 11 0 00 036004 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9824
  9825					;TEST ROTC RIGHT ONE BIT POSITION
  9826					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9827					;TEST MQ SHIFT LOGIC GATES
  9828
  9829					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9830					;IS TESTED.
  9831					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9832					;OTHER BIT IS A ONE AFTER ROTATING
  9833					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9834
  9835			005220		SN=SN+1
  9836			000004			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9837						IFE	ZZ,<ZZ=400000>
  9838			000002			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9839	036013	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9840	036014	205 10 0 00 000004 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9841						IFN	<ZZ-1>,	<
  9842	036015	205 06 0 00 000002 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9843						IFE	<ZZ-1>,<
  9844						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9845	036016	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9846	036017	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9847	036020	004 10 0 00 005220 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9848	036021	321 11 0 00 036013 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9849
  9850					;TEST ROTC RIGHT ONE BIT POSITION
  9851					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9852					;TEST MQ SHIFT LOGIC GATES
  9853
  9854					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9855					;IS TESTED.
  9856					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9857					;OTHER BIT IS A ONE AFTER ROTATING
  9858					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9859
  9860			005221		SN=SN+1
  9861			000002			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 23-8
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0212

  9862						IFE	ZZ,<ZZ=400000>
  9863			000001			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9864	036022	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9865	036023	205 10 0 00 000002 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9866						IFN	<ZZ-1>,	<
  9867	036024	205 06 0 00 000001 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9868						IFE	<ZZ-1>,<
  9869						MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9870	036025	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9871	036026	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9872	036027	004 10 0 00 005221 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9873	036030	321 11 0 00 036022 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9874
  9875					;TEST ROTC RIGHT ONE BIT POSITION
  9876					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9877					;TEST MQ SHIFT LOGIC GATES
  9878
  9879					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9880					;IS TESTED.
  9881					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9882					;OTHER BIT IS A ONE AFTER ROTATING
  9883					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9884
  9885			005222		SN=SN+1
  9886			000001			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9887						IFE	ZZ,<ZZ=400000>
  9888			000000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9889	036031	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9890	036032	205 10 0 00 000001 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
  9891						IFN	<ZZ-1>,	<
  9892						MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
  9893						IFE	<ZZ-1>,<
  9894	036033	201 06 0 00 400000 		MOVEI	AC-1, 400000	;SETUP FOR COMPARISON>
  9895	036034	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9896	036035	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9897	036036	004 10 0 00 005222 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9898	036037	321 11 0 00 036031 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
  9899
  9900					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 23-9
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0213

  9901			000000			ZZ=0
  9902
  9903							;TEST AC+1 RIGHT HALF<
  9904						REPEAT	^D17,<;TEST ROTC RIGHT ONE BIT POSITION
  9905					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9906					;TEST MQ SHIFT LOGIC GATES
  9907					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9908					;IS TESTED.
  9909					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9910					;OTHER BIT IS A ONE AFTER ROTATING
  9911					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9912					
  9913					SN=SN+1
  9914						ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9915						IFE	ZZ,<ZZ=400000>
  9916						
  9917						YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9918						SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9919						MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  9920						MOVEI	AC-1,YY		;SETUP FOR COMPARISON
  9921						ROTC	AC,-1		;*ROTATE RIGHT ONE
  9922						CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9923						ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9924						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9925					>
  9926					;TEST ROTC RIGHT ONE BIT POSITION
  9927					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9928					;TEST MQ SHIFT LOGIC GATES
  9929					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9930					;IS TESTED.
  9931					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9932					;OTHER BIT IS A ONE AFTER ROTATING
  9933					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9934
  9935			005223		SN=SN+1
  9936			000000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9937			400000			IFE	ZZ,<ZZ=400000>
  9938	
  9939			200000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9940	036040	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9941	036041	201 10 0 00 400000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  9942	036042	201 06 0 00 200000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
  9943	036043	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9944	036044	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9945	036045	004 10 0 00 005223 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9946	036046	321 11 0 00 036040 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9947
  9948					;TEST ROTC RIGHT ONE BIT POSITION
  9949					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9950					;TEST MQ SHIFT LOGIC GATES
  9951					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9952					;IS TESTED.
  9953					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9954					;OTHER BIT IS A ONE AFTER ROTATING
  9955					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 23-10
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0214

  9956
  9957			005224		SN=SN+1
  9958			200000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9959						IFE	ZZ,<ZZ=400000>
  9960	
  9961			100000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9962	036047	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9963	036050	201 10 0 00 200000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  9964	036051	201 06 0 00 100000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
  9965	036052	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9966	036053	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9967	036054	004 10 0 00 005224 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9968	036055	321 11 0 00 036047 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9969
  9970					;TEST ROTC RIGHT ONE BIT POSITION
  9971					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9972					;TEST MQ SHIFT LOGIC GATES
  9973					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9974					;IS TESTED.
  9975					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9976					;OTHER BIT IS A ONE AFTER ROTATING
  9977					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
  9978
  9979			005225		SN=SN+1
  9980			100000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
  9981						IFE	ZZ,<ZZ=400000>
  9982	
  9983			040000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
  9984	036056	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
  9985	036057	201 10 0 00 100000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
  9986	036060	201 06 0 00 040000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
  9987	036061	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
  9988	036062	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
  9989	036063	004 10 0 00 005225 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
  9990	036064	321 11 0 00 036056 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
  9991
  9992					;TEST ROTC RIGHT ONE BIT POSITION
  9993					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
  9994					;TEST MQ SHIFT LOGIC GATES
  9995					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
  9996					;IS TESTED.
  9997					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
  9998					;OTHER BIT IS A ONE AFTER ROTATING
  9999					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 10000
 10001			005226		SN=SN+1
 10002			040000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 10003						IFE	ZZ,<ZZ=400000>
 10004	
 10005			020000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
 10006	036065	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 10007	036066	201 10 0 00 040000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 10008	036067	201 06 0 00 020000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 10009	036070	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10010	036071	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 23-11
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0215

 10011	036072	004 10 0 00 005226 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10012	036073	321 11 0 00 036065 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10013
 10014					;TEST ROTC RIGHT ONE BIT POSITION
 10015					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 10016					;TEST MQ SHIFT LOGIC GATES
 10017					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10018					;IS TESTED.
 10019					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 10020					;OTHER BIT IS A ONE AFTER ROTATING
 10021					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 10022
 10023			005227		SN=SN+1
 10024			020000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 10025						IFE	ZZ,<ZZ=400000>
 10026	
 10027			010000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
 10028	036074	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 10029	036075	201 10 0 00 020000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 10030	036076	201 06 0 00 010000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 10031	036077	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10032	036100	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
 10033	036101	004 10 0 00 005227 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10034	036102	321 11 0 00 036074 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10035
 10036					;TEST ROTC RIGHT ONE BIT POSITION
 10037					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 10038					;TEST MQ SHIFT LOGIC GATES
 10039					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10040					;IS TESTED.
 10041					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 10042					;OTHER BIT IS A ONE AFTER ROTATING
 10043					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 10044
 10045			005230		SN=SN+1
 10046			010000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 10047						IFE	ZZ,<ZZ=400000>
 10048	
 10049			004000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
 10050	036103	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 10051	036104	201 10 0 00 010000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 10052	036105	201 06 0 00 004000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 10053	036106	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10054	036107	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
 10055	036110	004 10 0 00 005230 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10056	036111	321 11 0 00 036103 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10057
 10058					;TEST ROTC RIGHT ONE BIT POSITION
 10059					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 10060					;TEST MQ SHIFT LOGIC GATES
 10061					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10062					;IS TESTED.
 10063					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 10064					;OTHER BIT IS A ONE AFTER ROTATING
 10065					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 23-12
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0216

 10066
 10067			005231		SN=SN+1
 10068			004000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 10069						IFE	ZZ,<ZZ=400000>
 10070	
 10071			002000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
 10072	036112	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 10073	036113	201 10 0 00 004000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 10074	036114	201 06 0 00 002000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 10075	036115	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10076	036116	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
 10077	036117	004 10 0 00 005231 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10078	036120	321 11 0 00 036112 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10079
 10080					;TEST ROTC RIGHT ONE BIT POSITION
 10081					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 10082					;TEST MQ SHIFT LOGIC GATES
 10083					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10084					;IS TESTED.
 10085					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 10086					;OTHER BIT IS A ONE AFTER ROTATING
 10087					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 10088
 10089			005232		SN=SN+1
 10090			002000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 10091						IFE	ZZ,<ZZ=400000>
 10092	
 10093			001000			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
 10094	036121	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 10095	036122	201 10 0 00 002000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 10096	036123	201 06 0 00 001000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 10097	036124	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10098	036125	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
 10099	036126	004 10 0 00 005232 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10100	036127	321 11 0 00 036121 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10101
 10102					;TEST ROTC RIGHT ONE BIT POSITION
 10103					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 10104					;TEST MQ SHIFT LOGIC GATES
 10105					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10106					;IS TESTED.
 10107					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 10108					;OTHER BIT IS A ONE AFTER ROTATING
 10109					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 10110
 10111			005233		SN=SN+1
 10112			001000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 10113						IFE	ZZ,<ZZ=400000>
 10114	
 10115			000400			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
 10116	036130	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 10117	036131	201 10 0 00 001000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 10118	036132	201 06 0 00 000400 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 10119	036133	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10120	036134	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 23-13
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0217

 10121	036135	004 10 0 00 005233 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10122	036136	321 11 0 00 036130 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10123
 10124					;TEST ROTC RIGHT ONE BIT POSITION
 10125					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 10126					;TEST MQ SHIFT LOGIC GATES
 10127					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10128					;IS TESTED.
 10129					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 10130					;OTHER BIT IS A ONE AFTER ROTATING
 10131					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 10132
 10133			005234		SN=SN+1
 10134			000400			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 10135						IFE	ZZ,<ZZ=400000>
 10136	
 10137			000200			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
 10138	036137	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 10139	036140	201 10 0 00 000400 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 10140	036141	201 06 0 00 000200 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 10141	036142	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10142	036143	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
 10143	036144	004 10 0 00 005234 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10144	036145	321 11 0 00 036137 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10145
 10146					;TEST ROTC RIGHT ONE BIT POSITION
 10147					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 10148					;TEST MQ SHIFT LOGIC GATES
 10149					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10150					;IS TESTED.
 10151					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 10152					;OTHER BIT IS A ONE AFTER ROTATING
 10153					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 10154
 10155			005235		SN=SN+1
 10156			000200			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 10157						IFE	ZZ,<ZZ=400000>
 10158	
 10159			000100			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
 10160	036146	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 10161	036147	201 10 0 00 000200 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 10162	036150	201 06 0 00 000100 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 10163	036151	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10164	036152	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
 10165	036153	004 10 0 00 005235 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10166	036154	321 11 0 00 036146 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10167
 10168					;TEST ROTC RIGHT ONE BIT POSITION
 10169					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 10170					;TEST MQ SHIFT LOGIC GATES
 10171					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10172					;IS TESTED.
 10173					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 10174					;OTHER BIT IS A ONE AFTER ROTATING
 10175					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 23-14
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0218

 10176
 10177			005236		SN=SN+1
 10178			000100			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 10179						IFE	ZZ,<ZZ=400000>
 10180	
 10181			000040			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
 10182	036155	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 10183	036156	201 10 0 00 000100 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 10184	036157	201 06 0 00 000040 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 10185	036160	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10186	036161	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
 10187	036162	004 10 0 00 005236 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10188	036163	321 11 0 00 036155 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10189
 10190					;TEST ROTC RIGHT ONE BIT POSITION
 10191					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 10192					;TEST MQ SHIFT LOGIC GATES
 10193					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10194					;IS TESTED.
 10195					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 10196					;OTHER BIT IS A ONE AFTER ROTATING
 10197					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 10198
 10199			005237		SN=SN+1
 10200			000040			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 10201						IFE	ZZ,<ZZ=400000>
 10202	
 10203			000020			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
 10204	036164	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 10205	036165	201 10 0 00 000040 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 10206	036166	201 06 0 00 000020 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 10207	036167	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10208	036170	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
 10209	036171	004 10 0 00 005237 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10210	036172	321 11 0 00 036164 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10211
 10212					;TEST ROTC RIGHT ONE BIT POSITION
 10213					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 10214					;TEST MQ SHIFT LOGIC GATES
 10215					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10216					;IS TESTED.
 10217					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 10218					;OTHER BIT IS A ONE AFTER ROTATING
 10219					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 10220
 10221			005240		SN=SN+1
 10222			000020			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 10223						IFE	ZZ,<ZZ=400000>
 10224	
 10225			000010			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
 10226	036173	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 10227	036174	201 10 0 00 000020 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 10228	036175	201 06 0 00 000010 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 10229	036176	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10230	036177	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 23-15
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0219

 10231	036200	004 10 0 00 005240 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10232	036201	321 11 0 00 036173 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10233
 10234					;TEST ROTC RIGHT ONE BIT POSITION
 10235					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 10236					;TEST MQ SHIFT LOGIC GATES
 10237					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10238					;IS TESTED.
 10239					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 10240					;OTHER BIT IS A ONE AFTER ROTATING
 10241					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 10242
 10243			005241		SN=SN+1
 10244			000010			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 10245						IFE	ZZ,<ZZ=400000>
 10246	
 10247			000004			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
 10248	036202	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 10249	036203	201 10 0 00 000010 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 10250	036204	201 06 0 00 000004 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 10251	036205	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10252	036206	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
 10253	036207	004 10 0 00 005241 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10254	036210	321 11 0 00 036202 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10255
 10256					;TEST ROTC RIGHT ONE BIT POSITION
 10257					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 10258					;TEST MQ SHIFT LOGIC GATES
 10259					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10260					;IS TESTED.
 10261					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 10262					;OTHER BIT IS A ONE AFTER ROTATING
 10263					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 10264
 10265			005242		SN=SN+1
 10266			000004			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 10267						IFE	ZZ,<ZZ=400000>
 10268	
 10269			000002			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
 10270	036211	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 10271	036212	201 10 0 00 000004 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 10272	036213	201 06 0 00 000002 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 10273	036214	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10274	036215	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
 10275	036216	004 10 0 00 005242 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10276	036217	321 11 0 00 036211 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10277
 10278					;TEST ROTC RIGHT ONE BIT POSITION
 10279					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 10280					;TEST MQ SHIFT LOGIC GATES
 10281					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10282					;IS TESTED.
 10283					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 10284					;OTHER BIT IS A ONE AFTER ROTATING
 10285					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 23-16
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0220

 10286
 10287			005243		SN=SN+1
 10288			000002			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 10289						IFE	ZZ,<ZZ=400000>
 10290	
 10291			000001			YY=ZZ/2			;SELECTED BIT AFTER ROTATION
 10292	036220	400 07 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 10293	036221	201 10 0 00 000002 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 10294	036222	201 06 0 00 000001 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 10295	036223	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10296	036224	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ONE
 10297	036225	004 10 0 00 005243 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10298	036226	321 11 0 00 036220 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10299
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 24
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0221

 10300			005300		SN=5300
 10301			000001			ZZ=1
 10302
 10303							;TEST AC+1 LEFT HALF<
 10304					E5300:	REPEAT	^D18,<;TEST ROTC RIGHT ONE BIT POSITION
 10305					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10306					;TEST MQ SHIFT LOGIC GATES
 10307					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10308					;IS TESTED.
 10309					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10310					;OTHER BIT IS A ZERO AFTER ROTATING
 10311					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10312					
 10313					SN=SN+1
 10314						ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10315						IFE	<ZZ>,<ZZ=777777377777>
 10316						YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10317						SETOM	AC		;INITIALIZE AC TO ALL CNES
 10318						HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10319						IFN	<ZZ-777776>&777777,<
 10320						HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10321						IFE	<ZZ-777776>&777777,<
 10322						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10323						ROTC	AC,-1		;*ROTATE RIGHT ONE
 10324						CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10325						ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10326						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10327					>
 10328					;TEST ROTC RIGHT ONE BIT POSITION
 10329					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10330					;TEST MQ SHIFT LOGIC GATES
 10331					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10332					;IS TESTED.
 10333					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10334					;OTHER BIT IS A ZERO AFTER ROTATING
 10335					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10336
 10337			005301		SN=SN+1
 10338			000000			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10339		777777	377777			IFE	<ZZ>,<ZZ=777777377777>
 10340			577777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10341	036227	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10342	036230	525 10 0 00 377777 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10343						IFN	<ZZ-777776>&777777,<
 10344	036231	525 06 0 00 577777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10345						IFE	<ZZ-777776>&777777,<
 10346						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10347	036232	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10348	036233	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10349	036234	004 10 0 00 005301 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10350	036235	321 11 0 00 036227 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10351
 10352					;TEST ROTC RIGHT ONE BIT POSITION
 10353					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10354					;TEST MQ SHIFT LOGIC GATES
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 24-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0222

 10355					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10356					;IS TESTED.
 10357					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10358					;OTHER BIT IS A ZERO AFTER ROTATING
 10359					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10360
 10361			005302		SN=SN+1
 10362		777777	577777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10363						IFE	<ZZ>,<ZZ=777777377777>
 10364			677777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10365	036236	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10366	036237	525 10 0 00 577777 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10367						IFN	<ZZ-777776>&777777,<
 10368	036240	525 06 0 00 677777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10369						IFE	<ZZ-777776>&777777,<
 10370						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10371	036241	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10372	036242	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10373	036243	004 10 0 00 005302 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10374	036244	321 11 0 00 036236 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10375
 10376					;TEST ROTC RIGHT ONE BIT POSITION
 10377					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10378					;TEST MQ SHIFT LOGIC GATES
 10379					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10380					;IS TESTED.
 10381					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10382					;OTHER BIT IS A ZERO AFTER ROTATING
 10383					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10384
 10385			005303		SN=SN+1
 10386		777777	677777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10387						IFE	<ZZ>,<ZZ=777777377777>
 10388			737777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10389	036245	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10390	036246	525 10 0 00 677777 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10391						IFN	<ZZ-777776>&777777,<
 10392	036247	525 06 0 00 737777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10393						IFE	<ZZ-777776>&777777,<
 10394						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10395	036250	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10396	036251	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10397	036252	004 10 0 00 005303 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10398	036253	321 11 0 00 036245 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10399
 10400					;TEST ROTC RIGHT ONE BIT POSITION
 10401					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10402					;TEST MQ SHIFT LOGIC GATES
 10403					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10404					;IS TESTED.
 10405					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10406					;OTHER BIT IS A ZERO AFTER ROTATING
 10407					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10408
 10409			005304		SN=SN+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 24-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0223

 10410		777777	737777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10411						IFE	<ZZ>,<ZZ=777777377777>
 10412			757777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10413	036254	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10414	036255	525 10 0 00 737777 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10415						IFN	<ZZ-777776>&777777,<
 10416	036256	525 06 0 00 757777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10417						IFE	<ZZ-777776>&777777,<
 10418						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10419	036257	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10420	036260	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10421	036261	004 10 0 00 005304 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10422	036262	321 11 0 00 036254 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10423
 10424					;TEST ROTC RIGHT ONE BIT POSITION
 10425					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10426					;TEST MQ SHIFT LOGIC GATES
 10427					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10428					;IS TESTED.
 10429					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10430					;OTHER BIT IS A ZERO AFTER ROTATING
 10431					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10432
 10433			005305		SN=SN+1
 10434		777777	757777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10435						IFE	<ZZ>,<ZZ=777777377777>
 10436			767777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10437	036263	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10438	036264	525 10 0 00 757777 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10439						IFN	<ZZ-777776>&777777,<
 10440	036265	525 06 0 00 767777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10441						IFE	<ZZ-777776>&777777,<
 10442						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10443	036266	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10444	036267	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10445	036270	004 10 0 00 005305 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10446	036271	321 11 0 00 036263 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10447
 10448					;TEST ROTC RIGHT ONE BIT POSITION
 10449					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10450					;TEST MQ SHIFT LOGIC GATES
 10451					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10452					;IS TESTED.
 10453					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10454					;OTHER BIT IS A ZERO AFTER ROTATING
 10455					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10456
 10457			005306		SN=SN+1
 10458		777777	767777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10459						IFE	<ZZ>,<ZZ=777777377777>
 10460			773777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10461	036272	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10462	036273	525 10 0 00 767777 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10463						IFN	<ZZ-777776>&777777,<
 10464	036274	525 06 0 00 773777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 24-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0224

 10465						IFE	<ZZ-777776>&777777,<
 10466						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10467	036275	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10468	036276	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10469	036277	004 10 0 00 005306 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10470	036300	321 11 0 00 036272 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10471
 10472					;TEST ROTC RIGHT ONE BIT POSITION
 10473					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10474					;TEST MQ SHIFT LOGIC GATES
 10475					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10476					;IS TESTED.
 10477					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10478					;OTHER BIT IS A ZERO AFTER ROTATING
 10479					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10480
 10481			005307		SN=SN+1
 10482		777777	773777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10483						IFE	<ZZ>,<ZZ=777777377777>
 10484			775777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10485	036301	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10486	036302	525 10 0 00 773777 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10487						IFN	<ZZ-777776>&777777,<
 10488	036303	525 06 0 00 775777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10489						IFE	<ZZ-777776>&777777,<
 10490						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10491	036304	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10492	036305	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10493	036306	004 10 0 00 005307 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10494	036307	321 11 0 00 036301 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10495
 10496					;TEST ROTC RIGHT ONE BIT POSITION
 10497					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10498					;TEST MQ SHIFT LOGIC GATES
 10499					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10500					;IS TESTED.
 10501					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10502					;OTHER BIT IS A ZERO AFTER ROTATING
 10503					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10504
 10505			005310		SN=SN+1
 10506		777777	775777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10507						IFE	<ZZ>,<ZZ=777777377777>
 10508			776777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10509	036310	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10510	036311	525 10 0 00 775777 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10511						IFN	<ZZ-777776>&777777,<
 10512	036312	525 06 0 00 776777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10513						IFE	<ZZ-777776>&777777,<
 10514						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10515	036313	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10516	036314	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10517	036315	004 10 0 00 005310 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10518	036316	321 11 0 00 036310 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10519
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 24-4
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0225

 10520					;TEST ROTC RIGHT ONE BIT POSITION
 10521					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10522					;TEST MQ SHIFT LOGIC GATES
 10523					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10524					;IS TESTED.
 10525					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10526					;OTHER BIT IS A ZERO AFTER ROTATING
 10527					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10528
 10529			005311		SN=SN+1
 10530		777777	776777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10531						IFE	<ZZ>,<ZZ=777777377777>
 10532			777377			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10533	036317	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10534	036320	525 10 0 00 776777 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10535						IFN	<ZZ-777776>&777777,<
 10536	036321	525 06 0 00 777377 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10537						IFE	<ZZ-777776>&777777,<
 10538						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10539	036322	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10540	036323	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10541	036324	004 10 0 00 005311 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10542	036325	321 11 0 00 036317 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10543
 10544					;TEST ROTC RIGHT ONE BIT POSITION
 10545					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10546					;TEST MQ SHIFT LOGIC GATES
 10547					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10548					;IS TESTED.
 10549					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10550					;OTHER BIT IS A ZERO AFTER ROTATING
 10551					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10552
 10553			005312		SN=SN+1
 10554		777777	777377			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10555						IFE	<ZZ>,<ZZ=777777377777>
 10556			777577			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10557	036326	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10558	036327	525 10 0 00 777377 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10559						IFN	<ZZ-777776>&777777,<
 10560	036330	525 06 0 00 777577 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10561						IFE	<ZZ-777776>&777777,<
 10562						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10563	036331	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10564	036332	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10565	036333	004 10 0 00 005312 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10566	036334	321 11 0 00 036326 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10567
 10568					;TEST ROTC RIGHT ONE BIT POSITION
 10569					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10570					;TEST MQ SHIFT LOGIC GATES
 10571					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10572					;IS TESTED.
 10573					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10574					;OTHER BIT IS A ZERO AFTER ROTATING
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 24-5
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0226

 10575					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10576
 10577			005313		SN=SN+1
 10578		777777	777577			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10579						IFE	<ZZ>,<ZZ=777777377777>
 10580			777677			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10581	036335	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10582	036336	525 10 0 00 777577 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10583						IFN	<ZZ-777776>&777777,<
 10584	036337	525 06 0 00 777677 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10585						IFE	<ZZ-777776>&777777,<
 10586						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10587	036340	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10588	036341	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10589	036342	004 10 0 00 005313 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10590	036343	321 11 0 00 036335 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10591
 10592					;TEST ROTC RIGHT ONE BIT POSITION
 10593					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10594					;TEST MQ SHIFT LOGIC GATES
 10595					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10596					;IS TESTED.
 10597					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10598					;OTHER BIT IS A ZERO AFTER ROTATING
 10599					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10600
 10601			005314		SN=SN+1
 10602		777777	777677			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10603						IFE	<ZZ>,<ZZ=777777377777>
 10604			777737			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10605	036344	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10606	036345	525 10 0 00 777677 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10607						IFN	<ZZ-777776>&777777,<
 10608	036346	525 06 0 00 777737 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10609						IFE	<ZZ-777776>&777777,<
 10610						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10611	036347	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10612	036350	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10613	036351	004 10 0 00 005314 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10614	036352	321 11 0 00 036344 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10615
 10616					;TEST ROTC RIGHT ONE BIT POSITION
 10617					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10618					;TEST MQ SHIFT LOGIC GATES
 10619					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10620					;IS TESTED.
 10621					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10622					;OTHER BIT IS A ZERO AFTER ROTATING
 10623					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10624
 10625			005315		SN=SN+1
 10626		777777	777737			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10627						IFE	<ZZ>,<ZZ=777777377777>
 10628			777757			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10629	036353	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 24-6
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0227

 10630	036354	525 10 0 00 777737 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10631						IFN	<ZZ-777776>&777777,<
 10632	036355	525 06 0 00 777757 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10633						IFE	<ZZ-777776>&777777,<
 10634						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10635	036356	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10636	036357	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10637	036360	004 10 0 00 005315 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10638	036361	321 11 0 00 036353 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10639
 10640					;TEST ROTC RIGHT ONE BIT POSITION
 10641					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10642					;TEST MQ SHIFT LOGIC GATES
 10643					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10644					;IS TESTED.
 10645					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10646					;OTHER BIT IS A ZERO AFTER ROTATING
 10647					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10648
 10649			005316		SN=SN+1
 10650		777777	777757			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10651						IFE	<ZZ>,<ZZ=777777377777>
 10652			777767			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10653	036362	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10654	036363	525 10 0 00 777757 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10655						IFN	<ZZ-777776>&777777,<
 10656	036364	525 06 0 00 777767 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10657						IFE	<ZZ-777776>&777777,<
 10658						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10659	036365	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10660	036366	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10661	036367	004 10 0 00 005316 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10662	036370	321 11 0 00 036362 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10663
 10664					;TEST ROTC RIGHT ONE BIT POSITION
 10665					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10666					;TEST MQ SHIFT LOGIC GATES
 10667					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10668					;IS TESTED.
 10669					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10670					;OTHER BIT IS A ZERO AFTER ROTATING
 10671					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10672
 10673			005317		SN=SN+1
 10674		777777	777767			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10675						IFE	<ZZ>,<ZZ=777777377777>
 10676			777773			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10677	036371	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10678	036372	525 10 0 00 777767 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10679						IFN	<ZZ-777776>&777777,<
 10680	036373	525 06 0 00 777773 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10681						IFE	<ZZ-777776>&777777,<
 10682						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10683	036374	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10684	036375	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 24-7
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0228

 10685	036376	004 10 0 00 005317 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10686	036377	321 11 0 00 036371 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10687
 10688					;TEST ROTC RIGHT ONE BIT POSITION
 10689					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10690					;TEST MQ SHIFT LOGIC GATES
 10691					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10692					;IS TESTED.
 10693					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10694					;OTHER BIT IS A ZERO AFTER ROTATING
 10695					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10696
 10697			005320		SN=SN+1
 10698		777777	777773			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10699						IFE	<ZZ>,<ZZ=777777377777>
 10700			777775			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10701	036400	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10702	036401	525 10 0 00 777773 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10703						IFN	<ZZ-777776>&777777,<
 10704	036402	525 06 0 00 777775 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10705						IFE	<ZZ-777776>&777777,<
 10706						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10707	036403	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10708	036404	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10709	036405	004 10 0 00 005320 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10710	036406	321 11 0 00 036400 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10711
 10712					;TEST ROTC RIGHT ONE BIT POSITION
 10713					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10714					;TEST MQ SHIFT LOGIC GATES
 10715					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10716					;IS TESTED.
 10717					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10718					;OTHER BIT IS A ZERO AFTER ROTATING
 10719					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10720
 10721			005321		SN=SN+1
 10722		777777	777775			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10723						IFE	<ZZ>,<ZZ=777777377777>
 10724			777776			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10725	036407	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10726	036410	525 10 0 00 777775 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10727						IFN	<ZZ-777776>&777777,<
 10728	036411	525 06 0 00 777776 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10729						IFE	<ZZ-777776>&777777,<
 10730						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10731	036412	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10732	036413	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10733	036414	004 10 0 00 005321 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10734	036415	321 11 0 00 036407 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10735
 10736					;TEST ROTC RIGHT ONE BIT POSITION
 10737					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10738					;TEST MQ SHIFT LOGIC GATES
 10739					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 24-8
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0229

 10740					;IS TESTED.
 10741					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10742					;OTHER BIT IS A ZERO AFTER ROTATING
 10743					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10744
 10745			005322		SN=SN+1
 10746		777777	777776			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10747						IFE	<ZZ>,<ZZ=777777377777>
 10748			777777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10749	036416	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10750	036417	525 10 0 00 777776 		HRLOI	AC+1,ZZ&777777	;SETUP BIT (N) OF AC+1 LEFT
 10751						IFN	<ZZ-777776>&777777,<
 10752						HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 10753						IFE	<ZZ-777776>&777777,<
 10754	036420	561 06 0 00 377777 		HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 10755	036421	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10756	036422	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10757	036423	004 10 0 00 005322 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10758	036424	321 11 0 00 036416 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH.
 10759
 10760					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 24-9
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0230

 10761			000001			ZZ=1
 10762
 10763							;TEST AC+1 RIGHT HALF<
 10764						REPEAT	^D17,<;TEST ROTC RIGHT ONE BIT POSITION
 10765					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10766					;TEST MQ SHIFT LOGIC GATES
 10767					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10768					;IS TESTED.
 10769					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10770					;OTHER BIT IS A ZERO AFTER ROTATING
 10771					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10772					
 10773					SN=SN+1
 10774						ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10775						IFE<ZZ>,<ZZ=777777377777>
 10776						YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10777						SETOM	AC		;INITIALIZE AC TO ALL CNES
 10778						HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 10779						HRROI	AC-1,YY		;SETUP FOR COMPARISON
 10780						ROTC	AC,-1		;*ROTATE RIGHT ONE
 10781						CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10782						ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10783						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10784					>
 10785					;TEST ROTC RIGHT ONE BIT POSITION
 10786					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10787					;TEST MQ SHIFT LOGIC GATES
 10788					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10789					;IS TESTED.
 10790					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10791					;OTHER BIT IS A ZERO AFTER ROTATING
 10792					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10793
 10794			005323		SN=SN+1
 10795			000000			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10796		777777	377777			IFE<ZZ>,<ZZ=777777377777>
 10797			577777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10798	036425	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10799	036426	561 10 0 00 377777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 10800	036427	561 06 0 00 577777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 10801	036430	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10802	036431	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10803	036432	004 10 0 00 005323 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10804	036433	321 11 0 00 036425 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10805
 10806					;TEST ROTC RIGHT ONE BIT POSITION
 10807					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10808					;TEST MQ SHIFT LOGIC GATES
 10809					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10810					;IS TESTED.
 10811					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10812					;OTHER BIT IS A ZERO AFTER ROTATING
 10813					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10814
 10815			005324		SN=SN+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 24-10
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0231

 10816		777777	577777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10817						IFE<ZZ>,<ZZ=777777377777>
 10818			677777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10819	036434	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10820	036435	561 10 0 00 577777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 10821	036436	561 06 0 00 677777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 10822	036437	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10823	036440	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10824	036441	004 10 0 00 005324 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10825	036442	321 11 0 00 036434 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10826
 10827					;TEST ROTC RIGHT ONE BIT POSITION
 10828					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10829					;TEST MQ SHIFT LOGIC GATES
 10830					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10831					;IS TESTED.
 10832					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10833					;OTHER BIT IS A ZERO AFTER ROTATING
 10834					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10835
 10836			005325		SN=SN+1
 10837		777777	677777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10838						IFE<ZZ>,<ZZ=777777377777>
 10839			737777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10840	036443	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10841	036444	561 10 0 00 677777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 10842	036445	561 06 0 00 737777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 10843	036446	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10844	036447	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10845	036450	004 10 0 00 005325 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10846	036451	321 11 0 00 036443 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10847
 10848					;TEST ROTC RIGHT ONE BIT POSITION
 10849					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10850					;TEST MQ SHIFT LOGIC GATES
 10851					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10852					;IS TESTED.
 10853					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10854					;OTHER BIT IS A ZERO AFTER ROTATING
 10855					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10856
 10857			005326		SN=SN+1
 10858		777777	737777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10859						IFE<ZZ>,<ZZ=777777377777>
 10860			757777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10861	036452	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10862	036453	561 10 0 00 737777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 10863	036454	561 06 0 00 757777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 10864	036455	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10865	036456	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10866	036457	004 10 0 00 005326 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10867	036460	321 11 0 00 036452 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10868
 10869					;TEST ROTC RIGHT ONE BIT POSITION
 10870					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 24-11
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0232

 10871					;TEST MQ SHIFT LOGIC GATES
 10872					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10873					;IS TESTED.
 10874					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10875					;OTHER BIT IS A ZERO AFTER ROTATING
 10876					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10877
 10878			005327		SN=SN+1
 10879		777777	757777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10880						IFE<ZZ>,<ZZ=777777377777>
 10881			767777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10882	036461	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10883	036462	561 10 0 00 757777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 10884	036463	561 06 0 00 767777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 10885	036464	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10886	036465	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10887	036466	004 10 0 00 005327 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10888	036467	321 11 0 00 036461 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10889
 10890					;TEST ROTC RIGHT ONE BIT POSITION
 10891					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10892					;TEST MQ SHIFT LOGIC GATES
 10893					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10894					;IS TESTED.
 10895					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10896					;OTHER BIT IS A ZERO AFTER ROTATING
 10897					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10898
 10899			005330		SN=SN+1
 10900		777777	767777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10901						IFE<ZZ>,<ZZ=777777377777>
 10902			773777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10903	036470	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10904	036471	561 10 0 00 767777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 10905	036472	561 06 0 00 773777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 10906	036473	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10907	036474	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10908	036475	004 10 0 00 005330 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10909	036476	321 11 0 00 036470 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10910
 10911					;TEST ROTC RIGHT ONE BIT POSITION
 10912					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10913					;TEST MQ SHIFT LOGIC GATES
 10914					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10915					;IS TESTED.
 10916					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10917					;OTHER BIT IS A ZERO AFTER ROTATING
 10918					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10919
 10920			005331		SN=SN+1
 10921		777777	773777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10922						IFE<ZZ>,<ZZ=777777377777>
 10923			775777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10924	036477	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10925	036500	561 10 0 00 773777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 24-12
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0233

 10926	036501	561 06 0 00 775777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 10927	036502	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10928	036503	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10929	036504	004 10 0 00 005331 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10930	036505	321 11 0 00 036477 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10931
 10932					;TEST ROTC RIGHT ONE BIT POSITION
 10933					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10934					;TEST MQ SHIFT LOGIC GATES
 10935					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10936					;IS TESTED.
 10937					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10938					;OTHER BIT IS A ZERO AFTER ROTATING
 10939					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10940
 10941			005332		SN=SN+1
 10942		777777	775777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10943						IFE<ZZ>,<ZZ=777777377777>
 10944			776777			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10945	036506	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10946	036507	561 10 0 00 775777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 10947	036510	561 06 0 00 776777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 10948	036511	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10949	036512	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10950	036513	004 10 0 00 005332 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10951	036514	321 11 0 00 036506 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10952
 10953					;TEST ROTC RIGHT ONE BIT POSITION
 10954					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10955					;TEST MQ SHIFT LOGIC GATES
 10956					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10957					;IS TESTED.
 10958					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10959					;OTHER BIT IS A ZERO AFTER ROTATING
 10960					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10961
 10962			005333		SN=SN+1
 10963		777777	776777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10964						IFE<ZZ>,<ZZ=777777377777>
 10965			777377			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10966	036515	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10967	036516	561 10 0 00 776777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 10968	036517	561 06 0 00 777377 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 10969	036520	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10970	036521	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10971	036522	004 10 0 00 005333 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10972	036523	321 11 0 00 036515 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10973
 10974					;TEST ROTC RIGHT ONE BIT POSITION
 10975					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10976					;TEST MQ SHIFT LOGIC GATES
 10977					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10978					;IS TESTED.
 10979					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 10980					;OTHER BIT IS A ZERO AFTER ROTATING
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 24-13
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0234

 10981					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 10982
 10983			005334		SN=SN+1
 10984		777777	777377			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 10985						IFE<ZZ>,<ZZ=777777377777>
 10986			777577			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 10987	036524	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 10988	036525	561 10 0 00 777377 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 10989	036526	561 06 0 00 777577 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 10990	036527	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 10991	036530	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 10992	036531	004 10 0 00 005334 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 10993	036532	321 11 0 00 036524 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 10994
 10995					;TEST ROTC RIGHT ONE BIT POSITION
 10996					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 10997					;TEST MQ SHIFT LOGIC GATES
 10998					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 10999					;IS TESTED.
 11000					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 11001					;OTHER BIT IS A ZERO AFTER ROTATING
 11002					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 11003
 11004			005335		SN=SN+1
 11005		777777	777577			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 11006						IFE<ZZ>,<ZZ=777777377777>
 11007			777677			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 11008	036533	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 11009	036534	561 10 0 00 777577 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 11010	036535	561 06 0 00 777677 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 11011	036536	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 11012	036537	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 11013	036540	004 10 0 00 005335 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11014	036541	321 11 0 00 036533 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11015
 11016					;TEST ROTC RIGHT ONE BIT POSITION
 11017					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 11018					;TEST MQ SHIFT LOGIC GATES
 11019					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 11020					;IS TESTED.
 11021					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 11022					;OTHER BIT IS A ZERO AFTER ROTATING
 11023					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 11024
 11025			005336		SN=SN+1
 11026		777777	777677			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 11027						IFE<ZZ>,<ZZ=777777377777>
 11028			777737			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 11029	036542	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 11030	036543	561 10 0 00 777677 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 11031	036544	561 06 0 00 777737 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 11032	036545	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 11033	036546	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 11034	036547	004 10 0 00 005336 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11035	036550	321 11 0 00 036542 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 24-14
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0235

 11036
 11037					;TEST ROTC RIGHT ONE BIT POSITION
 11038					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 11039					;TEST MQ SHIFT LOGIC GATES
 11040					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 11041					;IS TESTED.
 11042					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 11043					;OTHER BIT IS A ZERO AFTER ROTATING
 11044					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 11045
 11046			005337		SN=SN+1
 11047		777777	777737			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 11048						IFE<ZZ>,<ZZ=777777377777>
 11049			777757			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 11050	036551	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 11051	036552	561 10 0 00 777737 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 11052	036553	561 06 0 00 777757 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 11053	036554	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 11054	036555	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 11055	036556	004 10 0 00 005337 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11056	036557	321 11 0 00 036551 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11057
 11058					;TEST ROTC RIGHT ONE BIT POSITION
 11059					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 11060					;TEST MQ SHIFT LOGIC GATES
 11061					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 11062					;IS TESTED.
 11063					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 11064					;OTHER BIT IS A ZERO AFTER ROTATING
 11065					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 11066
 11067			005340		SN=SN+1
 11068		777777	777757			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 11069						IFE<ZZ>,<ZZ=777777377777>
 11070			777767			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 11071	036560	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 11072	036561	561 10 0 00 777757 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 11073	036562	561 06 0 00 777767 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 11074	036563	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 11075	036564	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 11076	036565	004 10 0 00 005340 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11077	036566	321 11 0 00 036560 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11078
 11079					;TEST ROTC RIGHT ONE BIT POSITION
 11080					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 11081					;TEST MQ SHIFT LOGIC GATES
 11082					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 11083					;IS TESTED.
 11084					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 11085					;OTHER BIT IS A ZERO AFTER ROTATING
 11086					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 11087
 11088			005341		SN=SN+1
 11089		777777	777767			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 11090						IFE<ZZ>,<ZZ=777777377777>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 24-15
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0236

 11091			777773			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 11092	036567	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 11093	036570	561 10 0 00 777767 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 11094	036571	561 06 0 00 777773 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 11095	036572	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 11096	036573	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 11097	036574	004 10 0 00 005341 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11098	036575	321 11 0 00 036567 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11099
 11100					;TEST ROTC RIGHT ONE BIT POSITION
 11101					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 11102					;TEST MQ SHIFT LOGIC GATES
 11103					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 11104					;IS TESTED.
 11105					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 11106					;OTHER BIT IS A ZERO AFTER ROTATING
 11107					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 11108
 11109			005342		SN=SN+1
 11110		777777	777773			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 11111						IFE<ZZ>,<ZZ=777777377777>
 11112			777775			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 11113	036576	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 11114	036577	561 10 0 00 777773 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 11115	036600	561 06 0 00 777775 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 11116	036601	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 11117	036602	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 11118	036603	004 10 0 00 005342 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11119	036604	321 11 0 00 036576 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11120
 11121					;TEST ROTC RIGHT ONE BIT POSITION
 11122					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 11123					;TEST MQ SHIFT LOGIC GATES
 11124					;AC,AC+1 ARE ROTATED RIGHT ONE BIT POSITION AND AC+1
 11125					;IS TESTED.
 11126					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 11127					;OTHER BIT IS A ZERO AFTER ROTATING
 11128					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 11129
 11130			005343		SN=SN+1
 11131		777777	777775			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 11132						IFE<ZZ>,<ZZ=777777377777>
 11133			777776			YY=<<ZZ-1>/2>&777777	;SELECTED BIT AFTER ROTATION
 11134	036605	476 00 0 00 000007 		SETOM	AC		;INITIALIZE AC TO ALL CNES
 11135	036606	561 10 0 00 777775 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 11136	036607	561 06 0 00 777776 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 11137	036610	245 07 0 00 777777 		ROTC	AC,-1		;*ROTATE RIGHT ONE
 11138	036611	312 10 0 00 000006 		CAME	AC+1,AC-1	;TEST FOR BIT (N+1) A ZERO
 11139	036612	004 10 0 00 005343 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11140	036613	321 11 0 00 036605 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11141
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 25
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0237

 11142					;TEST ROTC RIGHT TWO BIT POSITIONS USING ALL ZEROS
 11143					;TEST MQ SHIFT LOGIC GATES
 11144					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND
 11145					;AC+1 IS TESTED
 11146					;AN ERROR OCCURS IF C(AC+1) IS NON-ZERO AFTER ROTATING
 11147
 11148			000006			AC=6
 11149						SAVEAC	(1,1)^
 11150	036614	201 10 0 00 036614 		MOVEI	AC+2,.		;SAVE TEST PC
 11151	036615	202 10 0 00 030051 		MOVEM	AC+2,TESTPC
 11152	036616	201 10 0 00 000010 		MOVEI	AC+2,<AC+2>&17	;INFORM ERROR ROUTINE WHICH
 11153	036617	202 10 0 00 041763 		MOVEM	AC+2,ERRLOP#	;AC IS USED FOR ITERATION^
 11154	036620				E5400:
 11155	036620	403 06 0 00 000007 		SETZB	AC,AC+1		;INITIALIZE AC,AC+1 TO ALL ZEROS
 11156	036621	402 00 0 00 000005 		SETZM	AC-1		;INITIALIZE RESULT TO ZERO
 11157	036622	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11158	036623	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST AC+1 FOR ALL ZEROS
 11159	036624	004 07 0 00 005401 		ER4	AC+1,5401	;MQ GATING FAILED
 11160	036625	321 10 0 00 036620 		JUMPL	AC+2,E5400	;LOOP ON ERROR SWITCH
 11161
 11162					;TEST ROTC RIGHT TWO BIT POSITIONS USING ALL ONES
 11163					;TEST MQ SHIFT LOGIC GATES
 11164					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND
 11165					;AC+1 IS TESTED
 11166					;AN ERROR OCCURS IF C(AC+1) IS ZERO AFTER ROTATING
 11167
 11168	036626	477 06 0 00 000007 	E5500:	SETOB	AC,AC+1		;INITIALIZE AC,AC+1 TO ALL ONES
 11169	036627	476 00 0 00 000005 		SETOM	AC-1		;INITIALIZE RESULT TO ALL ONES
 11170	036630	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11171	036631	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST AC+1 FOR ALL ONES
 11172	036632	004 07 0 00 005501 		ER4	AC+1,5501	;MQ GATING FAILED
 11173	036633	321 10 0 00 036626 		JUMPL	AC+2,E5500	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 26
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0238

 11174			005600		SN=5600
 11175			000000			ZZ=0
 11176
 11177							;TEST AC+1 LEFT HALF<
 11178					E5600:	REPEAT	^D18,<;TEST ROTC RIGHT TWO BIT POSITIONS
 11179					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11180					;TEST MQ SHIFT LOGIC GATES
 11181					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11182					;IS TESTED.
 11183					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11184					;OTHER BIT IS A ONE AFTER ROTATING
 11185					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11186					
 11187					SN=SN+1
 11188						ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11189						IFE	ZZ,<ZZ=400000>
 11190						YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11191						SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11192						MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11193						IFG	<ZZ-2,>,<
 11194						MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11195						IFE	<ZZ-2>,<
 11196						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11197						IFE	<ZZ-1>,<
 11198						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11199						ROTC	AC,-2		;*ROTATE RIGHT TWO
 11200						CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11201						ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11202						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11203					>
 11204					;TEST ROTC RIGHT TWO BIT POSITIONS
 11205					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11206					;TEST MQ SHIFT LOGIC GATES
 11207					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11208					;IS TESTED.
 11209					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11210					;OTHER BIT IS A ONE AFTER ROTATING
 11211					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11212
 11213			005601		SN=SN+1
 11214			000000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11215			400000			IFE	ZZ,<ZZ=400000>
 11216			100000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11217	036634	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11218	036635	205 07 0 00 400000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11219						IFG	<ZZ-2,>,<
 11220	036636	205 05 0 00 100000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11221						IFE	<ZZ-2>,<
 11222						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11223						IFE	<ZZ-1>,<
 11224						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11225	036637	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11226	036640	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11227	036641	004 07 0 00 005601 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11228	036642	321 10 0 00 036634 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 26-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0239

 11229
 11230					;TEST ROTC RIGHT TWO BIT POSITIONS
 11231					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11232					;TEST MQ SHIFT LOGIC GATES
 11233					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11234					;IS TESTED.
 11235					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11236					;OTHER BIT IS A ONE AFTER ROTATING
 11237					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11238
 11239			005602		SN=SN+1
 11240			200000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11241						IFE	ZZ,<ZZ=400000>
 11242			040000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11243	036643	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11244	036644	205 07 0 00 200000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11245						IFG	<ZZ-2,>,<
 11246	036645	205 05 0 00 040000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11247						IFE	<ZZ-2>,<
 11248						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11249						IFE	<ZZ-1>,<
 11250						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11251	036646	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11252	036647	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11253	036650	004 07 0 00 005602 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11254	036651	321 10 0 00 036643 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11255
 11256					;TEST ROTC RIGHT TWO BIT POSITIONS
 11257					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11258					;TEST MQ SHIFT LOGIC GATES
 11259					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11260					;IS TESTED.
 11261					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11262					;OTHER BIT IS A ONE AFTER ROTATING
 11263					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11264
 11265			005603		SN=SN+1
 11266			100000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11267						IFE	ZZ,<ZZ=400000>
 11268			020000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11269	036652	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11270	036653	205 07 0 00 100000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11271						IFG	<ZZ-2,>,<
 11272	036654	205 05 0 00 020000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11273						IFE	<ZZ-2>,<
 11274						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11275						IFE	<ZZ-1>,<
 11276						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11277	036655	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11278	036656	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11279	036657	004 07 0 00 005603 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11280	036660	321 10 0 00 036652 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11281
 11282					;TEST ROTC RIGHT TWO BIT POSITIONS
 11283					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 26-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0240

 11284					;TEST MQ SHIFT LOGIC GATES
 11285					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11286					;IS TESTED.
 11287					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11288					;OTHER BIT IS A ONE AFTER ROTATING
 11289					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11290
 11291			005604		SN=SN+1
 11292			040000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11293						IFE	ZZ,<ZZ=400000>
 11294			010000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11295	036661	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11296	036662	205 07 0 00 040000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11297						IFG	<ZZ-2,>,<
 11298	036663	205 05 0 00 010000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11299						IFE	<ZZ-2>,<
 11300						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11301						IFE	<ZZ-1>,<
 11302						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11303	036664	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11304	036665	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11305	036666	004 07 0 00 005604 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11306	036667	321 10 0 00 036661 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11307
 11308					;TEST ROTC RIGHT TWO BIT POSITIONS
 11309					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11310					;TEST MQ SHIFT LOGIC GATES
 11311					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11312					;IS TESTED.
 11313					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11314					;OTHER BIT IS A ONE AFTER ROTATING
 11315					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11316
 11317			005605		SN=SN+1
 11318			020000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11319						IFE	ZZ,<ZZ=400000>
 11320			004000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11321	036670	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11322	036671	205 07 0 00 020000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11323						IFG	<ZZ-2,>,<
 11324	036672	205 05 0 00 004000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11325						IFE	<ZZ-2>,<
 11326						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11327						IFE	<ZZ-1>,<
 11328						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11329	036673	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11330	036674	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11331	036675	004 07 0 00 005605 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11332	036676	321 10 0 00 036670 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11333
 11334					;TEST ROTC RIGHT TWO BIT POSITIONS
 11335					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11336					;TEST MQ SHIFT LOGIC GATES
 11337					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11338					;IS TESTED.
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 26-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0241

 11339					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11340					;OTHER BIT IS A ONE AFTER ROTATING
 11341					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11342
 11343			005606		SN=SN+1
 11344			010000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11345						IFE	ZZ,<ZZ=400000>
 11346			002000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11347	036677	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11348	036700	205 07 0 00 010000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11349						IFG	<ZZ-2,>,<
 11350	036701	205 05 0 00 002000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11351						IFE	<ZZ-2>,<
 11352						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11353						IFE	<ZZ-1>,<
 11354						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11355	036702	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11356	036703	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11357	036704	004 07 0 00 005606 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11358	036705	321 10 0 00 036677 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11359
 11360					;TEST ROTC RIGHT TWO BIT POSITIONS
 11361					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11362					;TEST MQ SHIFT LOGIC GATES
 11363					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11364					;IS TESTED.
 11365					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11366					;OTHER BIT IS A ONE AFTER ROTATING
 11367					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11368
 11369			005607		SN=SN+1
 11370			004000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11371						IFE	ZZ,<ZZ=400000>
 11372			001000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11373	036706	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11374	036707	205 07 0 00 004000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11375						IFG	<ZZ-2,>,<
 11376	036710	205 05 0 00 001000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11377						IFE	<ZZ-2>,<
 11378						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11379						IFE	<ZZ-1>,<
 11380						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11381	036711	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11382	036712	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11383	036713	004 07 0 00 005607 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11384	036714	321 10 0 00 036706 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11385
 11386					;TEST ROTC RIGHT TWO BIT POSITIONS
 11387					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11388					;TEST MQ SHIFT LOGIC GATES
 11389					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11390					;IS TESTED.
 11391					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11392					;OTHER BIT IS A ONE AFTER ROTATING
 11393					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 26-4
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0242

 11394
 11395			005610		SN=SN+1
 11396			002000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11397						IFE	ZZ,<ZZ=400000>
 11398			000400			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11399	036715	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11400	036716	205 07 0 00 002000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11401						IFG	<ZZ-2,>,<
 11402	036717	205 05 0 00 000400 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11403						IFE	<ZZ-2>,<
 11404						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11405						IFE	<ZZ-1>,<
 11406						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11407	036720	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11408	036721	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11409	036722	004 07 0 00 005610 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11410	036723	321 10 0 00 036715 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11411
 11412					;TEST ROTC RIGHT TWO BIT POSITIONS
 11413					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11414					;TEST MQ SHIFT LOGIC GATES
 11415					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11416					;IS TESTED.
 11417					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11418					;OTHER BIT IS A ONE AFTER ROTATING
 11419					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11420
 11421			005611		SN=SN+1
 11422			001000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11423						IFE	ZZ,<ZZ=400000>
 11424			000200			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11425	036724	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11426	036725	205 07 0 00 001000 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11427						IFG	<ZZ-2,>,<
 11428	036726	205 05 0 00 000200 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11429						IFE	<ZZ-2>,<
 11430						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11431						IFE	<ZZ-1>,<
 11432						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11433	036727	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11434	036730	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11435	036731	004 07 0 00 005611 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11436	036732	321 10 0 00 036724 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11437
 11438					;TEST ROTC RIGHT TWO BIT POSITIONS
 11439					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11440					;TEST MQ SHIFT LOGIC GATES
 11441					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11442					;IS TESTED.
 11443					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11444					;OTHER BIT IS A ONE AFTER ROTATING
 11445					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11446
 11447			005612		SN=SN+1
 11448			000400			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 26-5
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0243

 11449						IFE	ZZ,<ZZ=400000>
 11450			000100			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11451	036733	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11452	036734	205 07 0 00 000400 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11453						IFG	<ZZ-2,>,<
 11454	036735	205 05 0 00 000100 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11455						IFE	<ZZ-2>,<
 11456						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11457						IFE	<ZZ-1>,<
 11458						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11459	036736	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11460	036737	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11461	036740	004 07 0 00 005612 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11462	036741	321 10 0 00 036733 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11463
 11464					;TEST ROTC RIGHT TWO BIT POSITIONS
 11465					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11466					;TEST MQ SHIFT LOGIC GATES
 11467					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11468					;IS TESTED.
 11469					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11470					;OTHER BIT IS A ONE AFTER ROTATING
 11471					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11472
 11473			005613		SN=SN+1
 11474			000200			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11475						IFE	ZZ,<ZZ=400000>
 11476			000040			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11477	036742	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11478	036743	205 07 0 00 000200 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11479						IFG	<ZZ-2,>,<
 11480	036744	205 05 0 00 000040 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11481						IFE	<ZZ-2>,<
 11482						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11483						IFE	<ZZ-1>,<
 11484						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11485	036745	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11486	036746	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11487	036747	004 07 0 00 005613 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11488	036750	321 10 0 00 036742 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11489
 11490					;TEST ROTC RIGHT TWO BIT POSITIONS
 11491					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11492					;TEST MQ SHIFT LOGIC GATES
 11493					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11494					;IS TESTED.
 11495					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11496					;OTHER BIT IS A ONE AFTER ROTATING
 11497					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11498
 11499			005614		SN=SN+1
 11500			000100			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11501						IFE	ZZ,<ZZ=400000>
 11502			000020			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11503	036751	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 26-6
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0244

 11504	036752	205 07 0 00 000100 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11505						IFG	<ZZ-2,>,<
 11506	036753	205 05 0 00 000020 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11507						IFE	<ZZ-2>,<
 11508						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11509						IFE	<ZZ-1>,<
 11510						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11511	036754	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11512	036755	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11513	036756	004 07 0 00 005614 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11514	036757	321 10 0 00 036751 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11515
 11516					;TEST ROTC RIGHT TWO BIT POSITIONS
 11517					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11518					;TEST MQ SHIFT LOGIC GATES
 11519					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11520					;IS TESTED.
 11521					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11522					;OTHER BIT IS A ONE AFTER ROTATING
 11523					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11524
 11525			005615		SN=SN+1
 11526			000040			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11527						IFE	ZZ,<ZZ=400000>
 11528			000010			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11529	036760	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11530	036761	205 07 0 00 000040 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11531						IFG	<ZZ-2,>,<
 11532	036762	205 05 0 00 000010 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11533						IFE	<ZZ-2>,<
 11534						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11535						IFE	<ZZ-1>,<
 11536						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11537	036763	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11538	036764	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11539	036765	004 07 0 00 005615 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11540	036766	321 10 0 00 036760 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11541
 11542					;TEST ROTC RIGHT TWO BIT POSITIONS
 11543					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11544					;TEST MQ SHIFT LOGIC GATES
 11545					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11546					;IS TESTED.
 11547					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11548					;OTHER BIT IS A ONE AFTER ROTATING
 11549					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11550
 11551			005616		SN=SN+1
 11552			000020			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11553						IFE	ZZ,<ZZ=400000>
 11554			000004			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11555	036767	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11556	036770	205 07 0 00 000020 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11557						IFG	<ZZ-2,>,<
 11558	036771	205 05 0 00 000004 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 26-7
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0245

 11559						IFE	<ZZ-2>,<
 11560						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11561						IFE	<ZZ-1>,<
 11562						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11563	036772	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11564	036773	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11565	036774	004 07 0 00 005616 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11566	036775	321 10 0 00 036767 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11567
 11568					;TEST ROTC RIGHT TWO BIT POSITIONS
 11569					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11570					;TEST MQ SHIFT LOGIC GATES
 11571					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11572					;IS TESTED.
 11573					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11574					;OTHER BIT IS A ONE AFTER ROTATING
 11575					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11576
 11577			005617		SN=SN+1
 11578			000010			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11579						IFE	ZZ,<ZZ=400000>
 11580			000002			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11581	036776	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11582	036777	205 07 0 00 000010 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11583						IFG	<ZZ-2,>,<
 11584	037000	205 05 0 00 000002 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11585						IFE	<ZZ-2>,<
 11586						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11587						IFE	<ZZ-1>,<
 11588						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11589	037001	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11590	037002	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11591	037003	004 07 0 00 005617 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11592	037004	321 10 0 00 036776 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11593
 11594					;TEST ROTC RIGHT TWO BIT POSITIONS
 11595					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11596					;TEST MQ SHIFT LOGIC GATES
 11597					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11598					;IS TESTED.
 11599					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11600					;OTHER BIT IS A ONE AFTER ROTATING
 11601					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11602
 11603			005620		SN=SN+1
 11604			000004			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11605						IFE	ZZ,<ZZ=400000>
 11606			000001			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11607	037005	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11608	037006	205 07 0 00 000004 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11609						IFG	<ZZ-2,>,<
 11610	037007	205 05 0 00 000001 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11611						IFE	<ZZ-2>,<
 11612						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11613						IFE	<ZZ-1>,<
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 26-8
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0246

 11614						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11615	037010	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11616	037011	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11617	037012	004 07 0 00 005620 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11618	037013	321 10 0 00 037005 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11619
 11620					;TEST ROTC RIGHT TWO BIT POSITIONS
 11621					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11622					;TEST MQ SHIFT LOGIC GATES
 11623					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11624					;IS TESTED.
 11625					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11626					;OTHER BIT IS A ONE AFTER ROTATING
 11627					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11628
 11629			005621		SN=SN+1
 11630			000002			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11631						IFE	ZZ,<ZZ=400000>
 11632			000000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11633	037014	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11634	037015	205 07 0 00 000002 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11635						IFG	<ZZ-2,>,<
 11636						MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11637						IFE	<ZZ-2>,<
 11638	037016	201 05 0 00 400000 		MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11639						IFE	<ZZ-1>,<
 11640						MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11641	037017	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11642	037020	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11643	037021	004 07 0 00 005621 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11644	037022	321 10 0 00 037014 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11645
 11646					;TEST ROTC RIGHT TWO BIT POSITIONS
 11647					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11648					;TEST MQ SHIFT LOGIC GATES
 11649					;AC,AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11650					;IS TESTED.
 11651					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11652					;OTHER BIT IS A ONE AFTER ROTATING
 11653					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11654
 11655			005622		SN=SN+1
 11656			000001			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11657						IFE	ZZ,<ZZ=400000>
 11658			000000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11659	037023	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11660	037024	205 07 0 00 000001 		MOVSI	AC+1,ZZ		;SET BIT (N) OF AC+1 LEFT
 11661						IFG	<ZZ-2,>,<
 11662	037025	205 05 0 00 000000 		MOVSI	AC-1,YY		;SETUP FOR COMPARISON>
 11663						IFE	<ZZ-2>,<
 11664						MOVEI	AC-1,400000	;SETUP FOR COMPARISON>
 11665						IFE	<ZZ-1>,<
 11666	037026	201 05 0 00 200000 		MOVEI	AC-1,200000	;SETUP FOR COMPARISON>
 11667	037027	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11668	037030	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 26-9
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0247

 11669	037031	004 07 0 00 005622 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11670	037032	321 10 0 00 037024 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11671
 11672					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 26-10
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0248

 11673			000000			ZZ=0
 11674
 11675							;TEST AC+1 RIGHT HALF<
 11676						REPEAT	^D16,<;TEST ROTC RIGHT TWO BIT POSITIONS
 11677					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11678					;TEST MQ SHIFT LOGIC GATES
 11679					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11680					;IS TESTED.
 11681					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11682					;OTHER BIT IS A ONE AFTER ROTATING
 11683					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11684					
 11685					SN=SN+1
 11686						ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11687						IFE	ZZ,<ZZ=400000>
 11688						YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11689						SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11690						MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 11691					
 11692						MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 11693						ROTC	AC,-2		;*ROTATE RIGHT TWO
 11694						CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11695						ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11696						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11697					>
 11698					;TEST ROTC RIGHT TWO BIT POSITIONS
 11699					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11700					;TEST MQ SHIFT LOGIC GATES
 11701					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11702					;IS TESTED.
 11703					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11704					;OTHER BIT IS A ONE AFTER ROTATING
 11705					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11706
 11707			005623		SN=SN+1
 11708			000000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11709			400000			IFE	ZZ,<ZZ=400000>
 11710			100000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11711	037033	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11712	037034	201 07 0 00 400000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 11713
 11714	037035	201 05 0 00 100000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 11715	037036	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11716	037037	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11717	037040	004 07 0 00 005623 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11718	037041	321 10 0 00 037033 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11719
 11720					;TEST ROTC RIGHT TWO BIT POSITIONS
 11721					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11722					;TEST MQ SHIFT LOGIC GATES
 11723					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11724					;IS TESTED.
 11725					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11726					;OTHER BIT IS A ONE AFTER ROTATING
 11727					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 26-11
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0249

 11728
 11729			005624		SN=SN+1
 11730			200000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11731						IFE	ZZ,<ZZ=400000>
 11732			040000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11733	037042	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11734	037043	201 07 0 00 200000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 11735
 11736	037044	201 05 0 00 040000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 11737	037045	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11738	037046	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11739	037047	004 07 0 00 005624 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11740	037050	321 10 0 00 037042 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11741
 11742					;TEST ROTC RIGHT TWO BIT POSITIONS
 11743					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11744					;TEST MQ SHIFT LOGIC GATES
 11745					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11746					;IS TESTED.
 11747					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11748					;OTHER BIT IS A ONE AFTER ROTATING
 11749					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11750
 11751			005625		SN=SN+1
 11752			100000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11753						IFE	ZZ,<ZZ=400000>
 11754			020000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11755	037051	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11756	037052	201 07 0 00 100000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 11757
 11758	037053	201 05 0 00 020000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 11759	037054	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11760	037055	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11761	037056	004 07 0 00 005625 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11762	037057	321 10 0 00 037051 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11763
 11764					;TEST ROTC RIGHT TWO BIT POSITIONS
 11765					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11766					;TEST MQ SHIFT LOGIC GATES
 11767					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11768					;IS TESTED.
 11769					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11770					;OTHER BIT IS A ONE AFTER ROTATING
 11771					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11772
 11773			005626		SN=SN+1
 11774			040000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11775						IFE	ZZ,<ZZ=400000>
 11776			010000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11777	037060	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11778	037061	201 07 0 00 040000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 11779
 11780	037062	201 05 0 00 010000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 11781	037063	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11782	037064	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 26-12
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0250

 11783	037065	004 07 0 00 005626 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11784	037066	321 10 0 00 037060 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11785
 11786					;TEST ROTC RIGHT TWO BIT POSITIONS
 11787					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11788					;TEST MQ SHIFT LOGIC GATES
 11789					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11790					;IS TESTED.
 11791					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11792					;OTHER BIT IS A ONE AFTER ROTATING
 11793					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11794
 11795			005627		SN=SN+1
 11796			020000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11797						IFE	ZZ,<ZZ=400000>
 11798			004000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11799	037067	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11800	037070	201 07 0 00 020000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 11801
 11802	037071	201 05 0 00 004000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 11803	037072	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11804	037073	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11805	037074	004 07 0 00 005627 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11806	037075	321 10 0 00 037067 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11807
 11808					;TEST ROTC RIGHT TWO BIT POSITIONS
 11809					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11810					;TEST MQ SHIFT LOGIC GATES
 11811					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11812					;IS TESTED.
 11813					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11814					;OTHER BIT IS A ONE AFTER ROTATING
 11815					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11816
 11817			005630		SN=SN+1
 11818			010000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11819						IFE	ZZ,<ZZ=400000>
 11820			002000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11821	037076	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11822	037077	201 07 0 00 010000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 11823
 11824	037100	201 05 0 00 002000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 11825	037101	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11826	037102	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11827	037103	004 07 0 00 005630 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11828	037104	321 10 0 00 037076 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11829
 11830					;TEST ROTC RIGHT TWO BIT POSITIONS
 11831					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11832					;TEST MQ SHIFT LOGIC GATES
 11833					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11834					;IS TESTED.
 11835					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11836					;OTHER BIT IS A ONE AFTER ROTATING
 11837					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 26-13
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0251

 11838
 11839			005631		SN=SN+1
 11840			004000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11841						IFE	ZZ,<ZZ=400000>
 11842			001000			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11843	037105	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11844	037106	201 07 0 00 004000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 11845
 11846	037107	201 05 0 00 001000 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 11847	037110	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11848	037111	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11849	037112	004 07 0 00 005631 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11850	037113	321 10 0 00 037105 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11851
 11852					;TEST ROTC RIGHT TWO BIT POSITIONS
 11853					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11854					;TEST MQ SHIFT LOGIC GATES
 11855					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11856					;IS TESTED.
 11857					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11858					;OTHER BIT IS A ONE AFTER ROTATING
 11859					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11860
 11861			005632		SN=SN+1
 11862			002000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11863						IFE	ZZ,<ZZ=400000>
 11864			000400			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11865	037114	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11866	037115	201 07 0 00 002000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 11867
 11868	037116	201 05 0 00 000400 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 11869	037117	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11870	037120	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11871	037121	004 07 0 00 005632 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11872	037122	321 10 0 00 037114 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11873
 11874					;TEST ROTC RIGHT TWO BIT POSITIONS
 11875					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11876					;TEST MQ SHIFT LOGIC GATES
 11877					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11878					;IS TESTED.
 11879					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11880					;OTHER BIT IS A ONE AFTER ROTATING
 11881					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11882
 11883			005633		SN=SN+1
 11884			001000			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11885						IFE	ZZ,<ZZ=400000>
 11886			000200			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11887	037123	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11888	037124	201 07 0 00 001000 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 11889
 11890	037125	201 05 0 00 000200 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 11891	037126	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11892	037127	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 26-14
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0252

 11893	037130	004 07 0 00 005633 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11894	037131	321 10 0 00 037123 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11895
 11896					;TEST ROTC RIGHT TWO BIT POSITIONS
 11897					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11898					;TEST MQ SHIFT LOGIC GATES
 11899					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11900					;IS TESTED.
 11901					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11902					;OTHER BIT IS A ONE AFTER ROTATING
 11903					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11904
 11905			005634		SN=SN+1
 11906			000400			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11907						IFE	ZZ,<ZZ=400000>
 11908			000100			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11909	037132	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11910	037133	201 07 0 00 000400 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 11911
 11912	037134	201 05 0 00 000100 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 11913	037135	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11914	037136	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11915	037137	004 07 0 00 005634 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11916	037140	321 10 0 00 037132 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11917
 11918					;TEST ROTC RIGHT TWO BIT POSITIONS
 11919					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11920					;TEST MQ SHIFT LOGIC GATES
 11921					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11922					;IS TESTED.
 11923					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11924					;OTHER BIT IS A ONE AFTER ROTATING
 11925					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11926
 11927			005635		SN=SN+1
 11928			000200			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11929						IFE	ZZ,<ZZ=400000>
 11930			000040			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11931	037141	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11932	037142	201 07 0 00 000200 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 11933
 11934	037143	201 05 0 00 000040 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 11935	037144	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11936	037145	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11937	037146	004 07 0 00 005635 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11938	037147	321 10 0 00 037141 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11939
 11940					;TEST ROTC RIGHT TWO BIT POSITIONS
 11941					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11942					;TEST MQ SHIFT LOGIC GATES
 11943					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11944					;IS TESTED.
 11945					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11946					;OTHER BIT IS A ONE AFTER ROTATING
 11947					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 26-15
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0253

 11948
 11949			005636		SN=SN+1
 11950			000100			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11951						IFE	ZZ,<ZZ=400000>
 11952			000020			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11953	037150	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11954	037151	201 07 0 00 000100 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 11955
 11956	037152	201 05 0 00 000020 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 11957	037153	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11958	037154	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11959	037155	004 07 0 00 005636 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11960	037156	321 10 0 00 037150 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11961
 11962					;TEST ROTC RIGHT TWO BIT POSITIONS
 11963					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11964					;TEST MQ SHIFT LOGIC GATES
 11965					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11966					;IS TESTED.
 11967					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11968					;OTHER BIT IS A ONE AFTER ROTATING
 11969					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11970
 11971			005637		SN=SN+1
 11972			000040			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11973						IFE	ZZ,<ZZ=400000>
 11974			000010			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11975	037157	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11976	037160	201 07 0 00 000040 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 11977
 11978	037161	201 05 0 00 000010 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 11979	037162	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 11980	037163	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 11981	037164	004 07 0 00 005637 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 11982	037165	321 10 0 00 037157 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 11983
 11984					;TEST ROTC RIGHT TWO BIT POSITIONS
 11985					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 11986					;TEST MQ SHIFT LOGIC GATES
 11987					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 11988					;IS TESTED.
 11989					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 11990					;OTHER BIT IS A ONE AFTER ROTATING
 11991					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 11992
 11993			005640		SN=SN+1
 11994			000020			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 11995						IFE	ZZ,<ZZ=400000>
 11996			000004			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 11997	037166	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 11998	037167	201 07 0 00 000020 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 11999
 12000	037170	201 05 0 00 000004 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 12001	037171	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12002	037172	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 26-16
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0254

 12003	037173	004 07 0 00 005640 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12004	037174	321 10 0 00 037166 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12005
 12006					;TEST ROTC RIGHT TWO BIT POSITIONS
 12007					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 12008					;TEST MQ SHIFT LOGIC GATES
 12009					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12010					;IS TESTED.
 12011					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 12012					;OTHER BIT IS A ONE AFTER ROTATING
 12013					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 12014
 12015			005641		SN=SN+1
 12016			000010			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 12017						IFE	ZZ,<ZZ=400000>
 12018			000002			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 12019	037175	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 12020	037176	201 07 0 00 000010 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 12021
 12022	037177	201 05 0 00 000002 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 12023	037200	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12024	037201	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 12025	037202	004 07 0 00 005641 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12026	037203	321 10 0 00 037175 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12027
 12028					;TEST ROTC RIGHT TWO BIT POSITIONS
 12029					;TEST ABILITY TO ROTATE A ONE THROUGH THE 36 BITS OF THE MQ
 12030					;TEST MQ SHIFT LOGIC GATES
 12031					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12032					;IS TESTED.
 12033					;AN ERROR OCCURS IF THE TESTED BIT IS ZERO AND/OR ANY
 12034					;OTHER BIT IS A ONE AFTER ROTATING
 12035					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ONE THROUGH ALL 36 BITS OF THE MQ
 12036
 12037			005642		SN=SN+1
 12038			000004			ZZ=ZZ/2			;SELECTED BIT BEFORE ROTATION
 12039						IFE	ZZ,<ZZ=400000>
 12040			000001			YY=ZZ/4			;SELECTED BIT AFTER ROTATION
 12041	037204	400 06 0 00 000000 		SETZ	AC,		;INITIALIZE AC TO ALL ZEROS
 12042	037205	201 07 0 00 000004 		MOVEI	AC+1,ZZ		;SET BIT (N) OF AC+1 RIGHT
 12043
 12044	037206	201 05 0 00 000001 		MOVEI	AC-1,YY		;SETUP FOR COMPARISON
 12045	037207	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12046	037210	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ONE
 12047	037211	004 07 0 00 005642 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12048	037212	321 10 0 00 037204 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12049
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 27
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0255

 12050			005700		SN=5700
 12051			000001			ZZ=1
 12052
 12053					 		;TEST AC+1 LEFT HALF <
 12054					E5700:	REPEAT ^D18,<;TEST ROTC RIGHT TWO BIT POSITIONS
 12055					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12056					;TEST MQ SHIFT LOGIC GATES
 12057					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12058					;IS TESTED.
 12059					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12060					;OTHER BIT IS A ZERO AFTER ROTATING
 12061					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12062					
 12063					SN=SN+1
 12064					
 12065						ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12066						IFE<ZZ>,<ZZ=777777377777>
 12067						YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12068						SETOM	AC		;INITIALIZE AC TO ALL ONES
 12069						HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12070						IFG	<ZZ-777775>&777777,<
 12071						HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12072						IFE	<ZZ-777775>&777777,<
 12073						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12074						IFE	<ZZ-777776>&777777,<
 12075						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12076						ROTC	AC,-2		;*ROTATE RIGHT TWO
 12077						CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12078						ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12079						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12080					>
 12081					;TEST ROTC RIGHT TWO BIT POSITIONS
 12082					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12083					;TEST MQ SHIFT LOGIC GATES
 12084					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12085					;IS TESTED.
 12086					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12087					;OTHER BIT IS A ZERO AFTER ROTATING
 12088					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12089
 12090			005701		SN=SN+1
 12091
 12092			000000			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12093		777777	377777			IFE<ZZ>,<ZZ=777777377777>
 12094			677777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12095	037213	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12096	037214	525 07 0 00 377777 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12097						IFG	<ZZ-777775>&777777,<
 12098	037215	525 05 0 00 677777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12099						IFE	<ZZ-777775>&777777,<
 12100						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12101						IFE	<ZZ-777776>&777777,<
 12102						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12103	037216	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12104	037217	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 27-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0256

 12105	037220	004 07 0 00 005701 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12106	037221	321 10 0 00 037213 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12107
 12108					;TEST ROTC RIGHT TWO BIT POSITIONS
 12109					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12110					;TEST MQ SHIFT LOGIC GATES
 12111					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12112					;IS TESTED.
 12113					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12114					;OTHER BIT IS A ZERO AFTER ROTATING
 12115					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12116
 12117			005702		SN=SN+1
 12118
 12119		777777	577777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12120						IFE<ZZ>,<ZZ=777777377777>
 12121			737777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12122	037222	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12123	037223	525 07 0 00 577777 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12124						IFG	<ZZ-777775>&777777,<
 12125	037224	525 05 0 00 737777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12126						IFE	<ZZ-777775>&777777,<
 12127						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12128						IFE	<ZZ-777776>&777777,<
 12129						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12130	037225	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12131	037226	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12132	037227	004 07 0 00 005702 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12133	037230	321 10 0 00 037222 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12134
 12135					;TEST ROTC RIGHT TWO BIT POSITIONS
 12136					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12137					;TEST MQ SHIFT LOGIC GATES
 12138					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12139					;IS TESTED.
 12140					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12141					;OTHER BIT IS A ZERO AFTER ROTATING
 12142					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12143
 12144			005703		SN=SN+1
 12145
 12146		777777	677777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12147						IFE<ZZ>,<ZZ=777777377777>
 12148			757777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12149	037231	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12150	037232	525 07 0 00 677777 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12151						IFG	<ZZ-777775>&777777,<
 12152	037233	525 05 0 00 757777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12153						IFE	<ZZ-777775>&777777,<
 12154						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12155						IFE	<ZZ-777776>&777777,<
 12156						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12157	037234	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12158	037235	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12159	037236	004 07 0 00 005703 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 27-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0257

 12160	037237	321 10 0 00 037231 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12161
 12162					;TEST ROTC RIGHT TWO BIT POSITIONS
 12163					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12164					;TEST MQ SHIFT LOGIC GATES
 12165					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12166					;IS TESTED.
 12167					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12168					;OTHER BIT IS A ZERO AFTER ROTATING
 12169					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12170
 12171			005704		SN=SN+1
 12172
 12173		777777	737777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12174						IFE<ZZ>,<ZZ=777777377777>
 12175			767777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12176	037240	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12177	037241	525 07 0 00 737777 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12178						IFG	<ZZ-777775>&777777,<
 12179	037242	525 05 0 00 767777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12180						IFE	<ZZ-777775>&777777,<
 12181						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12182						IFE	<ZZ-777776>&777777,<
 12183						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12184	037243	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12185	037244	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12186	037245	004 07 0 00 005704 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12187	037246	321 10 0 00 037240 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12188
 12189					;TEST ROTC RIGHT TWO BIT POSITIONS
 12190					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12191					;TEST MQ SHIFT LOGIC GATES
 12192					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12193					;IS TESTED.
 12194					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12195					;OTHER BIT IS A ZERO AFTER ROTATING
 12196					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12197
 12198			005705		SN=SN+1
 12199
 12200		777777	757777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12201						IFE<ZZ>,<ZZ=777777377777>
 12202			773777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12203	037247	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12204	037250	525 07 0 00 757777 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12205						IFG	<ZZ-777775>&777777,<
 12206	037251	525 05 0 00 773777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12207						IFE	<ZZ-777775>&777777,<
 12208						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12209						IFE	<ZZ-777776>&777777,<
 12210						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12211	037252	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12212	037253	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12213	037254	004 07 0 00 005705 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12214	037255	321 10 0 00 037247 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 27-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0258

 12215
 12216					;TEST ROTC RIGHT TWO BIT POSITIONS
 12217					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12218					;TEST MQ SHIFT LOGIC GATES
 12219					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12220					;IS TESTED.
 12221					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12222					;OTHER BIT IS A ZERO AFTER ROTATING
 12223					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12224
 12225			005706		SN=SN+1
 12226
 12227		777777	767777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12228						IFE<ZZ>,<ZZ=777777377777>
 12229			775777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12230	037256	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12231	037257	525 07 0 00 767777 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12232						IFG	<ZZ-777775>&777777,<
 12233	037260	525 05 0 00 775777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12234						IFE	<ZZ-777775>&777777,<
 12235						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12236						IFE	<ZZ-777776>&777777,<
 12237						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12238	037261	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12239	037262	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12240	037263	004 07 0 00 005706 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12241	037264	321 10 0 00 037256 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12242
 12243					;TEST ROTC RIGHT TWO BIT POSITIONS
 12244					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12245					;TEST MQ SHIFT LOGIC GATES
 12246					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12247					;IS TESTED.
 12248					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12249					;OTHER BIT IS A ZERO AFTER ROTATING
 12250					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12251
 12252			005707		SN=SN+1
 12253
 12254		777777	773777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12255						IFE<ZZ>,<ZZ=777777377777>
 12256			776777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12257	037265	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12258	037266	525 07 0 00 773777 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12259						IFG	<ZZ-777775>&777777,<
 12260	037267	525 05 0 00 776777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12261						IFE	<ZZ-777775>&777777,<
 12262						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12263						IFE	<ZZ-777776>&777777,<
 12264						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12265	037270	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12266	037271	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12267	037272	004 07 0 00 005707 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12268	037273	321 10 0 00 037265 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12269
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 27-4
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0259

 12270					;TEST ROTC RIGHT TWO BIT POSITIONS
 12271					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12272					;TEST MQ SHIFT LOGIC GATES
 12273					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12274					;IS TESTED.
 12275					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12276					;OTHER BIT IS A ZERO AFTER ROTATING
 12277					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12278
 12279			005710		SN=SN+1
 12280
 12281		777777	775777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12282						IFE<ZZ>,<ZZ=777777377777>
 12283			777377			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12284	037274	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12285	037275	525 07 0 00 775777 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12286						IFG	<ZZ-777775>&777777,<
 12287	037276	525 05 0 00 777377 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12288						IFE	<ZZ-777775>&777777,<
 12289						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12290						IFE	<ZZ-777776>&777777,<
 12291						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12292	037277	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12293	037300	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12294	037301	004 07 0 00 005710 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12295	037302	321 10 0 00 037274 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12296
 12297					;TEST ROTC RIGHT TWO BIT POSITIONS
 12298					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12299					;TEST MQ SHIFT LOGIC GATES
 12300					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12301					;IS TESTED.
 12302					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12303					;OTHER BIT IS A ZERO AFTER ROTATING
 12304					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12305
 12306			005711		SN=SN+1
 12307
 12308		777777	776777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12309						IFE<ZZ>,<ZZ=777777377777>
 12310			777577			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12311	037303	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12312	037304	525 07 0 00 776777 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12313						IFG	<ZZ-777775>&777777,<
 12314	037305	525 05 0 00 777577 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12315						IFE	<ZZ-777775>&777777,<
 12316						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12317						IFE	<ZZ-777776>&777777,<
 12318						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12319	037306	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12320	037307	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12321	037310	004 07 0 00 005711 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12322	037311	321 10 0 00 037303 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12323
 12324					;TEST ROTC RIGHT TWO BIT POSITIONS
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 27-5
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0260

 12325					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12326					;TEST MQ SHIFT LOGIC GATES
 12327					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12328					;IS TESTED.
 12329					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12330					;OTHER BIT IS A ZERO AFTER ROTATING
 12331					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12332
 12333			005712		SN=SN+1
 12334
 12335		777777	777377			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12336						IFE<ZZ>,<ZZ=777777377777>
 12337			777677			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12338	037312	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12339	037313	525 07 0 00 777377 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12340						IFG	<ZZ-777775>&777777,<
 12341	037314	525 05 0 00 777677 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12342						IFE	<ZZ-777775>&777777,<
 12343						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12344						IFE	<ZZ-777776>&777777,<
 12345						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12346	037315	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12347	037316	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12348	037317	004 07 0 00 005712 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12349	037320	321 10 0 00 037312 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12350
 12351					;TEST ROTC RIGHT TWO BIT POSITIONS
 12352					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12353					;TEST MQ SHIFT LOGIC GATES
 12354					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12355					;IS TESTED.
 12356					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12357					;OTHER BIT IS A ZERO AFTER ROTATING
 12358					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12359
 12360			005713		SN=SN+1
 12361
 12362		777777	777577			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12363						IFE<ZZ>,<ZZ=777777377777>
 12364			777737			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12365	037321	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12366	037322	525 07 0 00 777577 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12367						IFG	<ZZ-777775>&777777,<
 12368	037323	525 05 0 00 777737 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12369						IFE	<ZZ-777775>&777777,<
 12370						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12371						IFE	<ZZ-777776>&777777,<
 12372						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12373	037324	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12374	037325	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12375	037326	004 07 0 00 005713 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12376	037327	321 10 0 00 037321 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12377
 12378					;TEST ROTC RIGHT TWO BIT POSITIONS
 12379					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 27-6
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0261

 12380					;TEST MQ SHIFT LOGIC GATES
 12381					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12382					;IS TESTED.
 12383					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12384					;OTHER BIT IS A ZERO AFTER ROTATING
 12385					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12386
 12387			005714		SN=SN+1
 12388
 12389		777777	777677			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12390						IFE<ZZ>,<ZZ=777777377777>
 12391			777757			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12392	037330	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12393	037331	525 07 0 00 777677 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12394						IFG	<ZZ-777775>&777777,<
 12395	037332	525 05 0 00 777757 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12396						IFE	<ZZ-777775>&777777,<
 12397						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12398						IFE	<ZZ-777776>&777777,<
 12399						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12400	037333	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12401	037334	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12402	037335	004 07 0 00 005714 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12403	037336	321 10 0 00 037330 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12404
 12405					;TEST ROTC RIGHT TWO BIT POSITIONS
 12406					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12407					;TEST MQ SHIFT LOGIC GATES
 12408					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12409					;IS TESTED.
 12410					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12411					;OTHER BIT IS A ZERO AFTER ROTATING
 12412					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12413
 12414			005715		SN=SN+1
 12415
 12416		777777	777737			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12417						IFE<ZZ>,<ZZ=777777377777>
 12418			777767			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12419	037337	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12420	037340	525 07 0 00 777737 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12421						IFG	<ZZ-777775>&777777,<
 12422	037341	525 05 0 00 777767 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12423						IFE	<ZZ-777775>&777777,<
 12424						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12425						IFE	<ZZ-777776>&777777,<
 12426						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12427	037342	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12428	037343	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12429	037344	004 07 0 00 005715 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12430	037345	321 10 0 00 037337 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12431
 12432					;TEST ROTC RIGHT TWO BIT POSITIONS
 12433					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12434					;TEST MQ SHIFT LOGIC GATES
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 27-7
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0262

 12435					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12436					;IS TESTED.
 12437					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12438					;OTHER BIT IS A ZERO AFTER ROTATING
 12439					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12440
 12441			005716		SN=SN+1
 12442
 12443		777777	777757			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12444						IFE<ZZ>,<ZZ=777777377777>
 12445			777773			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12446	037346	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12447	037347	525 07 0 00 777757 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12448						IFG	<ZZ-777775>&777777,<
 12449	037350	525 05 0 00 777773 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12450						IFE	<ZZ-777775>&777777,<
 12451						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12452						IFE	<ZZ-777776>&777777,<
 12453						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12454	037351	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12455	037352	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12456	037353	004 07 0 00 005716 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12457	037354	321 10 0 00 037346 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12458
 12459					;TEST ROTC RIGHT TWO BIT POSITIONS
 12460					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12461					;TEST MQ SHIFT LOGIC GATES
 12462					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12463					;IS TESTED.
 12464					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12465					;OTHER BIT IS A ZERO AFTER ROTATING
 12466					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12467
 12468			005717		SN=SN+1
 12469
 12470		777777	777767			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12471						IFE<ZZ>,<ZZ=777777377777>
 12472			777775			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12473	037355	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12474	037356	525 07 0 00 777767 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12475						IFG	<ZZ-777775>&777777,<
 12476	037357	525 05 0 00 777775 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12477						IFE	<ZZ-777775>&777777,<
 12478						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12479						IFE	<ZZ-777776>&777777,<
 12480						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12481	037360	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12482	037361	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12483	037362	004 07 0 00 005717 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12484	037363	321 10 0 00 037355 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12485
 12486					;TEST ROTC RIGHT TWO BIT POSITIONS
 12487					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12488					;TEST MQ SHIFT LOGIC GATES
 12489					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 27-8
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0263

 12490					;IS TESTED.
 12491					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12492					;OTHER BIT IS A ZERO AFTER ROTATING
 12493					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12494
 12495			005720		SN=SN+1
 12496
 12497		777777	777773			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12498						IFE<ZZ>,<ZZ=777777377777>
 12499			777776			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12500	037364	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12501	037365	525 07 0 00 777773 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12502						IFG	<ZZ-777775>&777777,<
 12503	037366	525 05 0 00 777776 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12504						IFE	<ZZ-777775>&777777,<
 12505						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12506						IFE	<ZZ-777776>&777777,<
 12507						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12508	037367	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12509	037370	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12510	037371	004 07 0 00 005720 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12511	037372	321 10 0 00 037364 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12512
 12513					;TEST ROTC RIGHT TWO BIT POSITIONS
 12514					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12515					;TEST MQ SHIFT LOGIC GATES
 12516					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12517					;IS TESTED.
 12518					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12519					;OTHER BIT IS A ZERO AFTER ROTATING
 12520					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12521
 12522			005721		SN=SN+1
 12523
 12524		777777	777775			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12525						IFE<ZZ>,<ZZ=777777377777>
 12526			777777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12527	037373	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12528	037374	525 07 0 00 777775 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12529						IFG	<ZZ-777775>&777777,<
 12530						HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12531						IFE	<ZZ-777775>&777777,<
 12532	037375	561 05 0 00 377777 		HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12533						IFE	<ZZ-777776>&777777,<
 12534						HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12535	037376	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12536	037377	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12537	037400	004 07 0 00 005721 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12538	037401	321 10 0 00 037373 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12539
 12540					;TEST ROTC RIGHT TWO BIT POSITIONS
 12541					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12542					;TEST MQ SHIFT LOGIC GATES
 12543					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12544					;IS TESTED.
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 27-9
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0264

 12545					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12546					;OTHER BIT IS A ZERO AFTER ROTATING
 12547					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12548
 12549			005722		SN=SN+1
 12550
 12551		777777	777776			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12552						IFE<ZZ>,<ZZ=777777377777>
 12553			777777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12554	037402	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12555	037403	525 07 0 00 777776 		HRLOI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 LEFT
 12556						IFG	<ZZ-777775>&777777,<
 12557	037404	525 05 0 00 777777 		HRLOI	AC-1,YY		;SETUP FOR COMPARISON>
 12558						IFE	<ZZ-777775>&777777,<
 12559						HRROI	AC-1,377777	;SETUP FOR COMPARISON>
 12560						IFE	<ZZ-777776>&777777,<
 12561	037405	561 05 0 00 577777 		HRROI	AC-1,577777	;SETUP FOR COMPARISON>
 12562	037406	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12563	037407	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12564	037410	004 07 0 00 005722 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12565	037411	321 10 0 00 037403 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12566
 12567					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 27-10
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0265

 12568			000001			ZZ=1
 12569
 12570							;TEST AC+1 RIGHT HALF<
 12571						REPEAT ^D16,<;TEST ROTC RIGHT TWO BIT POSITIONS
 12572					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12573					;TEST MQ SHIFT LOGIC GATES
 12574					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12575					;IS TESTED.
 12576					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12577					;OTHER BIT IS A ZERO AFTER ROTATING
 12578					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12579					
 12580					SN=SN+1
 12581						ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12582						IFE	<ZZ>,<ZZ=777777377777>
 12583						YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12584						SETOM	AC		;INITIALIZE AC TO ALL ONES
 12585						HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 12586						HRROI	AC-1,YY		;SETUP FOR COMPARISON
 12587						ROTC	AC,-2		;*ROTATE RIGHT TWO
 12588						CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12589						ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12590						JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12591					>
 12592					;TEST ROTC RIGHT TWO BIT POSITIONS
 12593					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12594					;TEST MQ SHIFT LOGIC GATES
 12595					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12596					;IS TESTED.
 12597					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12598					;OTHER BIT IS A ZERO AFTER ROTATING
 12599					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12600
 12601			005723		SN=SN+1
 12602			000000			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12603		777777	377777			IFE	<ZZ>,<ZZ=777777377777>
 12604			677777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12605	037412	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12606	037413	561 07 0 00 377777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 12607	037414	561 05 0 00 677777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 12608	037415	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12609	037416	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12610	037417	004 07 0 00 005723 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12611	037420	321 10 0 00 037412 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12612
 12613					;TEST ROTC RIGHT TWO BIT POSITIONS
 12614					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12615					;TEST MQ SHIFT LOGIC GATES
 12616					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12617					;IS TESTED.
 12618					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12619					;OTHER BIT IS A ZERO AFTER ROTATING
 12620					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12621
 12622			005724		SN=SN+1
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 27-11
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0266

 12623		777777	577777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12624						IFE	<ZZ>,<ZZ=777777377777>
 12625			737777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12626	037421	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12627	037422	561 07 0 00 577777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 12628	037423	561 05 0 00 737777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 12629	037424	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12630	037425	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12631	037426	004 07 0 00 005724 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12632	037427	321 10 0 00 037421 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12633
 12634					;TEST ROTC RIGHT TWO BIT POSITIONS
 12635					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12636					;TEST MQ SHIFT LOGIC GATES
 12637					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12638					;IS TESTED.
 12639					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12640					;OTHER BIT IS A ZERO AFTER ROTATING
 12641					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12642
 12643			005725		SN=SN+1
 12644		777777	677777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12645						IFE	<ZZ>,<ZZ=777777377777>
 12646			757777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12647	037430	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12648	037431	561 07 0 00 677777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 12649	037432	561 05 0 00 757777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 12650	037433	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12651	037434	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12652	037435	004 07 0 00 005725 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12653	037436	321 10 0 00 037430 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12654
 12655					;TEST ROTC RIGHT TWO BIT POSITIONS
 12656					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12657					;TEST MQ SHIFT LOGIC GATES
 12658					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12659					;IS TESTED.
 12660					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12661					;OTHER BIT IS A ZERO AFTER ROTATING
 12662					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12663
 12664			005726		SN=SN+1
 12665		777777	737777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12666						IFE	<ZZ>,<ZZ=777777377777>
 12667			767777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12668	037437	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12669	037440	561 07 0 00 737777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 12670	037441	561 05 0 00 767777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 12671	037442	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12672	037443	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12673	037444	004 07 0 00 005726 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12674	037445	321 10 0 00 037437 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12675
 12676					;TEST ROTC RIGHT TWO BIT POSITIONS
 12677					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 27-12
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0267

 12678					;TEST MQ SHIFT LOGIC GATES
 12679					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12680					;IS TESTED.
 12681					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12682					;OTHER BIT IS A ZERO AFTER ROTATING
 12683					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12684
 12685			005727		SN=SN+1
 12686		777777	757777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12687						IFE	<ZZ>,<ZZ=777777377777>
 12688			773777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12689	037446	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12690	037447	561 07 0 00 757777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 12691	037450	561 05 0 00 773777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 12692	037451	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12693	037452	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12694	037453	004 07 0 00 005727 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12695	037454	321 10 0 00 037446 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12696
 12697					;TEST ROTC RIGHT TWO BIT POSITIONS
 12698					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12699					;TEST MQ SHIFT LOGIC GATES
 12700					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12701					;IS TESTED.
 12702					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12703					;OTHER BIT IS A ZERO AFTER ROTATING
 12704					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12705
 12706			005730		SN=SN+1
 12707		777777	767777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12708						IFE	<ZZ>,<ZZ=777777377777>
 12709			775777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12710	037455	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12711	037456	561 07 0 00 767777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 12712	037457	561 05 0 00 775777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 12713	037460	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12714	037461	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12715	037462	004 07 0 00 005730 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12716	037463	321 10 0 00 037455 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12717
 12718					;TEST ROTC RIGHT TWO BIT POSITIONS
 12719					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12720					;TEST MQ SHIFT LOGIC GATES
 12721					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12722					;IS TESTED.
 12723					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12724					;OTHER BIT IS A ZERO AFTER ROTATING
 12725					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12726
 12727			005731		SN=SN+1
 12728		777777	773777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12729						IFE	<ZZ>,<ZZ=777777377777>
 12730			776777			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12731	037464	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12732	037465	561 07 0 00 773777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 27-13
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0268

 12733	037466	561 05 0 00 776777 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 12734	037467	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12735	037470	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12736	037471	004 07 0 00 005731 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12737	037472	321 10 0 00 037464 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12738
 12739					;TEST ROTC RIGHT TWO BIT POSITIONS
 12740					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12741					;TEST MQ SHIFT LOGIC GATES
 12742					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12743					;IS TESTED.
 12744					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12745					;OTHER BIT IS A ZERO AFTER ROTATING
 12746					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12747
 12748			005732		SN=SN+1
 12749		777777	775777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12750						IFE	<ZZ>,<ZZ=777777377777>
 12751			777377			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12752	037473	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12753	037474	561 07 0 00 775777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 12754	037475	561 05 0 00 777377 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 12755	037476	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12756	037477	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12757	037500	004 07 0 00 005732 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12758	037501	321 10 0 00 037473 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12759
 12760					;TEST ROTC RIGHT TWO BIT POSITIONS
 12761					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12762					;TEST MQ SHIFT LOGIC GATES
 12763					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12764					;IS TESTED.
 12765					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12766					;OTHER BIT IS A ZERO AFTER ROTATING
 12767					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12768
 12769			005733		SN=SN+1
 12770		777777	776777			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12771						IFE	<ZZ>,<ZZ=777777377777>
 12772			777577			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12773	037502	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12774	037503	561 07 0 00 776777 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 12775	037504	561 05 0 00 777577 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 12776	037505	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12777	037506	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12778	037507	004 07 0 00 005733 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12779	037510	321 10 0 00 037502 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12780
 12781					;TEST ROTC RIGHT TWO BIT POSITIONS
 12782					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12783					;TEST MQ SHIFT LOGIC GATES
 12784					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12785					;IS TESTED.
 12786					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12787					;OTHER BIT IS A ZERO AFTER ROTATING
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 27-14
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0269

 12788					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12789
 12790			005734		SN=SN+1
 12791		777777	777377			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12792						IFE	<ZZ>,<ZZ=777777377777>
 12793			777677			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12794	037511	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12795	037512	561 07 0 00 777377 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 12796	037513	561 05 0 00 777677 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 12797	037514	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12798	037515	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12799	037516	004 07 0 00 005734 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12800	037517	321 10 0 00 037511 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12801
 12802					;TEST ROTC RIGHT TWO BIT POSITIONS
 12803					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12804					;TEST MQ SHIFT LOGIC GATES
 12805					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12806					;IS TESTED.
 12807					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12808					;OTHER BIT IS A ZERO AFTER ROTATING
 12809					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12810
 12811			005735		SN=SN+1
 12812		777777	777577			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12813						IFE	<ZZ>,<ZZ=777777377777>
 12814			777737			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12815	037520	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12816	037521	561 07 0 00 777577 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 12817	037522	561 05 0 00 777737 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 12818	037523	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12819	037524	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12820	037525	004 07 0 00 005735 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12821	037526	321 10 0 00 037520 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12822
 12823					;TEST ROTC RIGHT TWO BIT POSITIONS
 12824					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12825					;TEST MQ SHIFT LOGIC GATES
 12826					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12827					;IS TESTED.
 12828					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12829					;OTHER BIT IS A ZERO AFTER ROTATING
 12830					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12831
 12832			005736		SN=SN+1
 12833		777777	777677			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12834						IFE	<ZZ>,<ZZ=777777377777>
 12835			777757			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12836	037527	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12837	037530	561 07 0 00 777677 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 12838	037531	561 05 0 00 777757 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 12839	037532	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12840	037533	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12841	037534	004 07 0 00 005736 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12842	037535	321 10 0 00 037527 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 27-15
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0270

 12843
 12844					;TEST ROTC RIGHT TWO BIT POSITIONS
 12845					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12846					;TEST MQ SHIFT LOGIC GATES
 12847					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12848					;IS TESTED.
 12849					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12850					;OTHER BIT IS A ZERO AFTER ROTATING
 12851					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12852
 12853			005737		SN=SN+1
 12854		777777	777737			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12855						IFE	<ZZ>,<ZZ=777777377777>
 12856			777767			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12857	037536	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12858	037537	561 07 0 00 777737 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 12859	037540	561 05 0 00 777767 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 12860	037541	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12861	037542	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12862	037543	004 07 0 00 005737 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12863	037544	321 10 0 00 037536 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12864
 12865					;TEST ROTC RIGHT TWO BIT POSITIONS
 12866					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12867					;TEST MQ SHIFT LOGIC GATES
 12868					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12869					;IS TESTED.
 12870					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12871					;OTHER BIT IS A ZERO AFTER ROTATING
 12872					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12873
 12874			005740		SN=SN+1
 12875		777777	777757			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12876						IFE	<ZZ>,<ZZ=777777377777>
 12877			777773			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12878	037545	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12879	037546	561 07 0 00 777757 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 12880	037547	561 05 0 00 777773 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 12881	037550	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12882	037551	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12883	037552	004 07 0 00 005740 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12884	037553	321 10 0 00 037545 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12885
 12886					;TEST ROTC RIGHT TWO BIT POSITIONS
 12887					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12888					;TEST MQ SHIFT LOGIC GATES
 12889					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12890					;IS TESTED.
 12891					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12892					;OTHER BIT IS A ZERO AFTER ROTATING
 12893					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12894
 12895			005741		SN=SN+1
 12896		777777	777767			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12897						IFE	<ZZ>,<ZZ=777777377777>
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 27-16
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - TEST MQ SHIFT LOGIC GATES                                     SEQ 0271

 12898			777775			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12899	037554	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12900	037555	561 07 0 00 777767 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 12901	037556	561 05 0 00 777775 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 12902	037557	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12903	037560	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12904	037561	004 07 0 00 005741 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12905	037562	321 10 0 00 037554 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12906
 12907					;TEST ROTC RIGHT TWO BIT POSITIONS
 12908					;TEST ABILITY TO ROTATE A ZERO THROUGH THE 36 BITS OF THE MQ
 12909					;TEST MQ SHIFT LOGIC GATES
 12910					;AC, AC+1 ARE ROTATED RIGHT TWO BIT POSITIONS AND AC+1
 12911					;IS TESTED.
 12912					;AN ERROR OCCURS IF THE TESTED BIT IS A ONE AND/OR ANY
 12913					;OTHER BIT IS A ZERO AFTER ROTATING
 12914					;THIS TEST IS REPEATED 36 TIMES TO RIPPLE A ZERO THROUGH ALL 36 BITS OF THE MQ
 12915
 12916			005742		SN=SN+1
 12917		777777	777773			ZZ=<ZZ-1>/2		;SELECTED BIT BEFORE ROTATION
 12918						IFE	<ZZ>,<ZZ=777777377777>
 12919			777776			YY=<<ZZ-3>/4>&777777	;SELECTED BIT AFTER ROTATION
 12920	037563	476 00 0 00 000006 		SETOM	AC		;INITIALIZE AC TO ALL ONES
 12921	037564	561 07 0 00 777773 		HRROI	AC+1,ZZ&777777	;CLEAR BIT (N) OF AC+1 RIGHT
 12922	037565	561 05 0 00 777776 		HRROI	AC-1,YY		;SETUP FOR COMPARISON
 12923	037566	245 06 0 00 777776 		ROTC	AC,-2		;*ROTATE RIGHT TWO
 12924	037567	312 07 0 00 000005 		CAME	AC+1,AC-1	;TEST FOR BIT (N+2) A ZERO
 12925	037570	004 07 0 00 005742 		ER4	AC+1,SN		;MQ GATE UNDER TEST FAILED
 12926	037571	321 10 0 00 037563 		JUMPL	AC+2,.-6	;LOOP ON ERROR SWITCH
 12927
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 28
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT)                                    SEQ 0272

 12928					SUBTTL	DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT)
 12929
 12930					;END CONNECTIONS-ROT
 12931					;TEST AR END BIT INPUT GATES
 12932					;TEST LEFT-AR0,1,34,35 SHLT INP GATES
 12933					;TEST RIGHT-AR0,1,34,35 SHRT INP GATES
 12934					;AC IS ROTATED LEFT/RIGHT
 12935					;AND END BITS TESTED
 12936
 12937					;SHIFT CONNECTIONS TEST
 12938					;TEST AR35 SHLT INP-ONE'S - ROT AC,1
 12939					;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 
 12940						SR1	(60,400000,0,0,1,ROT,1)^
 12941					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 400000,0] 1 BIT
 12942					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,1]
 12943					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 12944
 12945	037572	200 06 0 00 041624 	E6000:	MOVE	AC,[XWD 400000,0]	;INITIALIZE AC
 12946	037573	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 12947	037574	241 06 0 00 000001 		ROT	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 12948	037575	312 06 0 00 041625 		CAME	AC,[XWD 0,1]	;IS RESULT IN AC CORRECT?
 12949	037576	003 06 0 00 006001 		ER3	AC,6001			;RESULT IN AC IS INCORRECT
 12950	037577	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 12951	037600	004 07 0 00 006001 		ER4	AC+1,6001		;C(AC+1) WAS MODIFIED INCORRECTLY
 12952	037601	321 10 0 00 037572 		JUMPL	AC+2,E6000		;LOOP ON ERROR SWITCH^
 12953
 12954					;SHIFT CONNECTIONS TEST
 12955					;TEST AR35 SHLT INP-ZERO'S - ROT AC,1
 12956					;TEST ABILITY TO ROTATE INTO BIT 35 OF AR
 12957						SR1	(61,377777,-1,-1,-2,ROT,1)^
 12958					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 377777,-1] 1 BIT
 12959					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-2]
 12960					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 12961
 12962	037602	200 06 0 00 041626 	E6100:	MOVE	AC,[XWD 377777,-1]	;INITIALIZE AC
 12963	037603	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 12964	037604	241 06 0 00 000001 		ROT	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 12965	037605	312 06 0 00 041627 		CAME	AC,[XWD -1,-2]	;IS RESULT IN AC CORRECT?
 12966	037606	003 06 0 00 006101 		ER3	AC,6101			;RESULT IN AC IS INCORRECT
 12967	037607	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 12968	037610	004 07 0 00 006101 		ER4	AC+1,6101		;C(AC+1) WAS MODIFIED INCORRECTLY
 12969	037611	321 10 0 00 037602 		JUMPL	AC+2,E6100		;LOOP ON ERROR SWITCH^
 12970
 12971					;SHIFT CONNECTIONS TEST
 12972					;TEST AR34 SHLT INP-ONE'S - ROT AC,1
 12973					;TEST ABILITY TO ROTATE INTO BIT 34 OF AR
 12974						SR1	(62,0,1,0,2,ROT,1)^
 12975					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,1] 1 BIT
 12976					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2]
 12977					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 12978
 12979	037612	200 06 0 00 041625 	E6200:	MOVE	AC,[XWD 0,1]	;INITIALIZE AC
 12980	037613	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 12981	037614	241 06 0 00 000001 		ROT	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 12982	037615	312 06 0 00 041623 		CAME	AC,[XWD 0,2]	;IS RESULT IN AC CORRECT?
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 28-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT)                                    SEQ 0273

 12983	037616	003 06 0 00 006201 		ER3	AC,6201			;RESULT IN AC IS INCORRECT
 12984	037617	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 12985	037620	004 07 0 00 006201 		ER4	AC+1,6201		;C(AC+1) WAS MODIFIED INCORRECTLY
 12986	037621	321 10 0 00 037612 		JUMPL	AC+2,E6200		;LOOP ON ERROR SWITCH^
 12987					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 28-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT)                                    SEQ 0274

 12988					;SHIFT CONNECTIONS TEST
 12989					;TEST AR34 SHLT INP-ZERO'S - ROT AC,1
 12990					;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 
 12991						SR1	(63,-1,-2,-1,-3,ROT,1)^
 12992					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-2] 1 BIT
 12993					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-3]
 12994					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 12995
 12996	037622	200 06 0 00 041627 	E6300:	MOVE	AC,[XWD -1,-2]	;INITIALIZE AC
 12997	037623	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 12998	037624	241 06 0 00 000001 		ROT	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 12999	037625	312 06 0 00 041630 		CAME	AC,[XWD -1,-3]	;IS RESULT IN AC CORRECT?
 13000	037626	003 06 0 00 006301 		ER3	AC,6301			;RESULT IN AC IS INCORRECT
 13001	037627	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13002	037630	004 07 0 00 006301 		ER4	AC+1,6301		;C(AC+1) WAS MODIFIED INCORRECTLY
 13003	037631	321 10 0 00 037622 		JUMPL	AC+2,E6300		;LOOP ON ERROR SWITCH^
 13004
 13005					;SHIFT CONNECTIONS TEST
 13006					;TEST AR1 SHLT INP-ONE'S - ROT AC,1
 13007					;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 
 13008						SR1	(64,100000,0,200000,0,ROT,1)^
 13009					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 100000,0] 1 BIT
 13010					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 200000,0]
 13011					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13012
 13013	037632	200 06 0 00 041631 	E6400:	MOVE	AC,[XWD 100000,0]	;INITIALIZE AC
 13014	037633	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13015	037634	241 06 0 00 000001 		ROT	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13016	037635	312 06 0 00 041632 		CAME	AC,[XWD 200000,0]	;IS RESULT IN AC CORRECT?
 13017	037636	003 06 0 00 006401 		ER3	AC,6401			;RESULT IN AC IS INCORRECT
 13018	037637	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13019	037640	004 07 0 00 006401 		ER4	AC+1,6401		;C(AC+1) WAS MODIFIED INCORRECTLY
 13020	037641	321 10 0 00 037632 		JUMPL	AC+2,E6400		;LOOP ON ERROR SWITCH^
 13021
 13022					;SHIFT CONNECTIONS TEST
 13023					;TEST AR1 SHLT INP-ZERO'S - ROT AC,1
 13024					;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 
 13025						SR1	(65,677777,-1,577777,-1,ROT,1)^
 13026					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 677777,-1] 1 BIT
 13027					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 577777,-1]
 13028					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13029
 13030	037642	200 06 0 00 041633 	E6500:	MOVE	AC,[XWD 677777,-1]	;INITIALIZE AC
 13031	037643	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13032	037644	241 06 0 00 000001 		ROT	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13033	037645	312 06 0 00 041634 		CAME	AC,[XWD 577777,-1]	;IS RESULT IN AC CORRECT?
 13034	037646	003 06 0 00 006501 		ER3	AC,6501			;RESULT IN AC IS INCORRECT
 13035	037647	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13036	037650	004 07 0 00 006501 		ER4	AC+1,6501		;C(AC+1) WAS MODIFIED INCORRECTLY
 13037	037651	321 10 0 00 037642 		JUMPL	AC+2,E6500		;LOOP ON ERROR SWITCH^
 13038					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 28-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT)                                    SEQ 0275

 13039					;SHIFT CONNECTIONS TEST
 13040					;TEST AR0 SHLT INP-ONE'S - ROT AC,1
 13041					;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 
 13042						SR1	(66,200000,0,400000,0,ROT,1)^
 13043					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 200000,0] 1 BIT
 13044					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 400000,0]
 13045					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13046
 13047	037652	200 06 0 00 041632 	E6600:	MOVE	AC,[XWD 200000,0]	;INITIALIZE AC
 13048	037653	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13049	037654	241 06 0 00 000001 		ROT	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13050	037655	312 06 0 00 041624 		CAME	AC,[XWD 400000,0]	;IS RESULT IN AC CORRECT?
 13051	037656	003 06 0 00 006601 		ER3	AC,6601			;RESULT IN AC IS INCORRECT
 13052	037657	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13053	037660	004 07 0 00 006601 		ER4	AC+1,6601		;C(AC+1) WAS MODIFIED INCORRECTLY
 13054	037661	321 10 0 00 037652 		JUMPL	AC+2,E6600		;LOOP ON ERROR SWITCH^
 13055
 13056					;SHIFT CONNECTIONS TEST
 13057					;TEST AR0 SHLT INP-ZERO'S - ROT AC,1
 13058					;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 
 13059						SR1	(67,577777,-1,377777,-1,ROT,1)^
 13060					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 577777,-1] 1 BIT
 13061					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 377777,-1]
 13062					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13063
 13064	037662	200 06 0 00 041634 	E6700:	MOVE	AC,[XWD 577777,-1]	;INITIALIZE AC
 13065	037663	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13066	037664	241 06 0 00 000001 		ROT	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13067	037665	312 06 0 00 041626 		CAME	AC,[XWD 377777,-1]	;IS RESULT IN AC CORRECT?
 13068	037666	003 06 0 00 006701 		ER3	AC,6701			;RESULT IN AC IS INCORRECT
 13069	037667	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13070	037670	004 07 0 00 006701 		ER4	AC+1,6701		;C(AC+1) WAS MODIFIED INCORRECTLY
 13071	037671	321 10 0 00 037662 		JUMPL	AC+2,E6700		;LOOP ON ERROR SWITCH^
 13072
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 29
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT)                                    SEQ 0276

 13073					;SHIFT CONNECTIONS TEST
 13074					;TEST AR0 SHRT INP-ONE'S - ROT AC,-1
 13075					;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 
 13076						SR1	(70,0,1,400000,0,ROT,-1)^
 13077					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,1] -1 BIT
 13078					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 400000,0]
 13079					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13080
 13081	037672	200 06 0 00 041625 	E7000:	MOVE	AC,[XWD 0,1]	;INITIALIZE AC
 13082	037673	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13083	037674	241 06 0 00 777777 		ROT	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13084	037675	312 06 0 00 041624 		CAME	AC,[XWD 400000,0]	;IS RESULT IN AC CORRECT?
 13085	037676	003 06 0 00 007001 		ER3	AC,7001			;RESULT IN AC IS INCORRECT
 13086	037677	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13087	037700	004 07 0 00 007001 		ER4	AC+1,7001		;C(AC+1) WAS MODIFIED INCORRECTLY
 13088	037701	321 10 0 00 037672 		JUMPL	AC+2,E7000		;LOOP ON ERROR SWITCH^
 13089
 13090					;SHIFT CONNECTIONS TEST
 13091					;TEST AR0 SHRT INP-ZERO'S - ROT AC,-1
 13092					;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 
 13093						SR1	(71,-1,-2,377777,-1,ROT,-1)^
 13094					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-2] -1 BIT
 13095					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 377777,-1]
 13096					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13097
 13098	037702	200 06 0 00 041627 	E7100:	MOVE	AC,[XWD -1,-2]	;INITIALIZE AC
 13099	037703	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13100	037704	241 06 0 00 777777 		ROT	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13101	037705	312 06 0 00 041626 		CAME	AC,[XWD 377777,-1]	;IS RESULT IN AC CORRECT?
 13102	037706	003 06 0 00 007101 		ER3	AC,7101			;RESULT IN AC IS INCORRECT
 13103	037707	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13104	037710	004 07 0 00 007101 		ER4	AC+1,7101		;C(AC+1) WAS MODIFIED INCORRECTLY
 13105	037711	321 10 0 00 037702 		JUMPL	AC+2,E7100		;LOOP ON ERROR SWITCH^
 13106
 13107					;SHIFT CONNECTIONS TEST
 13108					;TEST AR1 SHRT INP-ONE'S - ROT AC,-1
 13109					;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 
 13110						SR1	(72,400000,0,200000,0,ROT,-1)^
 13111					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 400000,0] -1 BIT
 13112					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 200000,0]
 13113					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13114
 13115	037712	200 06 0 00 041624 	E7200:	MOVE	AC,[XWD 400000,0]	;INITIALIZE AC
 13116	037713	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13117	037714	241 06 0 00 777777 		ROT	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13118	037715	312 06 0 00 041632 		CAME	AC,[XWD 200000,0]	;IS RESULT IN AC CORRECT?
 13119	037716	003 06 0 00 007201 		ER3	AC,7201			;RESULT IN AC IS INCORRECT
 13120	037717	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13121	037720	004 07 0 00 007201 		ER4	AC+1,7201		;C(AC+1) WAS MODIFIED INCORRECTLY
 13122	037721	321 10 0 00 037712 		JUMPL	AC+2,E7200		;LOOP ON ERROR SWITCH^
 13123
 13124					;SHIFT CONNECTIONS TEST
 13125					;TEST AR1 SHRT INP-ZERO'S - ROT AC,-1
 13126					;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 
 13127						SR1	(73,377777,-1,577777,-1,ROT,-1)^
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 29-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT)                                    SEQ 0277

 13128					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 377777,-1] -1 BIT
 13129					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 577777,-1]
 13130					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13131
 13132	037722	200 06 0 00 041626 	E7300:	MOVE	AC,[XWD 377777,-1]	;INITIALIZE AC
 13133	037723	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13134	037724	241 06 0 00 777777 		ROT	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13135	037725	312 06 0 00 041634 		CAME	AC,[XWD 577777,-1]	;IS RESULT IN AC CORRECT?
 13136	037726	003 06 0 00 007301 		ER3	AC,7301			;RESULT IN AC IS INCORRECT
 13137	037727	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13138	037730	004 07 0 00 007301 		ER4	AC+1,7301		;C(AC+1) WAS MODIFIED INCORRECTLY
 13139	037731	321 10 0 00 037722 		JUMPL	AC+2,E7300		;LOOP ON ERROR SWITCH^
 13140					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 29-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT)                                    SEQ 0278

 13141					;SHIFT CONNECTIONS TEST
 13142					;TEST AR34 SHRT INP-ONE'S - ROT AC,-1
 13143					;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 
 13144						SR1	(74,0,4,0,2,ROT,-1)^
 13145					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,4] -1 BIT
 13146					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2]
 13147					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13148
 13149	037732	200 06 0 00 041622 	E7400:	MOVE	AC,[XWD 0,4]	;INITIALIZE AC
 13150	037733	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13151	037734	241 06 0 00 777777 		ROT	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13152	037735	312 06 0 00 041623 		CAME	AC,[XWD 0,2]	;IS RESULT IN AC CORRECT?
 13153	037736	003 06 0 00 007401 		ER3	AC,7401			;RESULT IN AC IS INCORRECT
 13154	037737	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13155	037740	004 07 0 00 007401 		ER4	AC+1,7401		;C(AC+1) WAS MODIFIED INCORRECTLY
 13156	037741	321 10 0 00 037732 		JUMPL	AC+2,E7400		;LOOP ON ERROR SWITCH^
 13157
 13158					;SHIFT CONNECTIONS TEST
 13159					;TEST AR34 SHRT INP-ZERO'S - ROT AC,-1
 13160					;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 
 13161						SR1	(75,-1,-5,-1,-3,ROT,-1)^
 13162					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-5] -1 BIT
 13163					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-3]
 13164					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13165
 13166	037742	200 06 0 00 041635 	E7500:	MOVE	AC,[XWD -1,-5]	;INITIALIZE AC
 13167	037743	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13168	037744	241 06 0 00 777777 		ROT	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13169	037745	312 06 0 00 041630 		CAME	AC,[XWD -1,-3]	;IS RESULT IN AC CORRECT?
 13170	037746	003 06 0 00 007501 		ER3	AC,7501			;RESULT IN AC IS INCORRECT
 13171	037747	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13172	037750	004 07 0 00 007501 		ER4	AC+1,7501		;C(AC+1) WAS MODIFIED INCORRECTLY
 13173	037751	321 10 0 00 037742 		JUMPL	AC+2,E7500		;LOOP ON ERROR SWITCH^
 13174
 13175					;SHIFT CONNECTIONS TEST
 13176					;TEST AR35 SHRT INP-ONE'S - ROT AC,-1
 13177					;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 
 13178						SR1	(76,0,2,0,1,ROT,-1)^
 13179					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,2] -1 BIT
 13180					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,1]
 13181					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13182
 13183	037752	200 06 0 00 041623 	E7600:	MOVE	AC,[XWD 0,2]	;INITIALIZE AC
 13184	037753	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13185	037754	241 06 0 00 777777 		ROT	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13186	037755	312 06 0 00 041625 		CAME	AC,[XWD 0,1]	;IS RESULT IN AC CORRECT?
 13187	037756	003 06 0 00 007601 		ER3	AC,7601			;RESULT IN AC IS INCORRECT
 13188	037757	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13189	037760	004 07 0 00 007601 		ER4	AC+1,7601		;C(AC+1) WAS MODIFIED INCORRECTLY
 13190	037761	321 10 0 00 037752 		JUMPL	AC+2,E7600		;LOOP ON ERROR SWITCH^
 13191
 13192					;SHIFT CONNECTIONS TEST
 13193					;TEST AR35 SHRT INP-ZERO'S - ROT AC,-1
 13194					;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 
 13195						SR1	(77,-1,-3,-1,-2,ROT,-1)^
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 29-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT)                                    SEQ 0279

 13196					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-3] -1 BIT
 13197					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-2]
 13198					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13199
 13200	037762	200 06 0 00 041630 	E7700:	MOVE	AC,[XWD -1,-3]	;INITIALIZE AC
 13201	037763	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13202	037764	241 06 0 00 777777 		ROT	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13203	037765	312 06 0 00 041627 		CAME	AC,[XWD -1,-2]	;IS RESULT IN AC CORRECT?
 13204	037766	003 06 0 00 007701 		ER3	AC,7701			;RESULT IN AC IS INCORRECT
 13205	037767	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13206	037770	004 07 0 00 007701 		ER4	AC+1,7701		;C(AC+1) WAS MODIFIED INCORRECTLY
 13207	037771	321 10 0 00 037762 		JUMPL	AC+2,E7700		;LOOP ON ERROR SWITCH^
 13208
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 30
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT)                                    SEQ 0280

 13209					;SHIFT CONNECTIONS TEST
 13210					;TEST AR0 SHRT INP-ONE'S - ROT AC,-2
 13211					;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 
 13212						SR1	(100,0,2,400000,0,ROT,-2)^
 13213					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,2] -2 BIT
 13214					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 400000,0]
 13215					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13216
 13217	037772	200 06 0 00 041623 	E10000:	MOVE	AC,[XWD 0,2]	;INITIALIZE AC
 13218	037773	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13219	037774	241 06 0 00 777776 		ROT	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 13220	037775	312 06 0 00 041624 		CAME	AC,[XWD 400000,0]	;IS RESULT IN AC CORRECT?
 13221	037776	003 06 0 00 010001 		ER3	AC,10001			;RESULT IN AC IS INCORRECT
 13222	037777	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13223	040000	004 07 0 00 010001 		ER4	AC+1,10001		;C(AC+1) WAS MODIFIED INCORRECTLY
 13224	040001	321 10 0 00 037772 		JUMPL	AC+2,E10000		;LOOP ON ERROR SWITCH^
 13225
 13226					;SHIFT CONNECTIONS TEST
 13227					;TEST AR0 SHRT INP-ZERO'S - ROT AC,-2
 13228					;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 
 13229						SR1	(101,-1,-3,377777,-1,ROT,-2)^
 13230					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-3] -2 BIT
 13231					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 377777,-1]
 13232					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13233
 13234	040002	200 06 0 00 041630 	E10100:	MOVE	AC,[XWD -1,-3]	;INITIALIZE AC
 13235	040003	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13236	040004	241 06 0 00 777776 		ROT	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 13237	040005	312 06 0 00 041626 		CAME	AC,[XWD 377777,-1]	;IS RESULT IN AC CORRECT?
 13238	040006	003 06 0 00 010101 		ER3	AC,10101			;RESULT IN AC IS INCORRECT
 13239	040007	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13240	040010	004 07 0 00 010101 		ER4	AC+1,10101		;C(AC+1) WAS MODIFIED INCORRECTLY
 13241	040011	321 10 0 00 040002 		JUMPL	AC+2,E10100		;LOOP ON ERROR SWITCH^
 13242
 13243					;SHIFT CONNECTIONS TEST
 13244					;TEST AR1 SHRT INP-ONE'S - ROT AC,-2
 13245					;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 
 13246						SR1	(102,0,1,200000,0,ROT,-2)^
 13247					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,1] -2 BIT
 13248					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 200000,0]
 13249					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13250
 13251	040012	200 06 0 00 041625 	E10200:	MOVE	AC,[XWD 0,1]	;INITIALIZE AC
 13252	040013	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13253	040014	241 06 0 00 777776 		ROT	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 13254	040015	312 06 0 00 041632 		CAME	AC,[XWD 200000,0]	;IS RESULT IN AC CORRECT?
 13255	040016	003 06 0 00 010201 		ER3	AC,10201			;RESULT IN AC IS INCORRECT
 13256	040017	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13257	040020	004 07 0 00 010201 		ER4	AC+1,10201		;C(AC+1) WAS MODIFIED INCORRECTLY
 13258	040021	321 10 0 00 040012 		JUMPL	AC+2,E10200		;LOOP ON ERROR SWITCH^
 13259
 13260					;SHIFT CONNECTIONS TEST
 13261					;TEST AR1 SHRT INP-ZERO'S - ROT AC,-2
 13262					;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 
 13263						SR1	(103,-1,-2,577777,-1,ROT,-2)^
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 30-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT)                                    SEQ 0281

 13264					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-2] -2 BIT
 13265					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 577777,-1]
 13266					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13267
 13268	040022	200 06 0 00 041627 	E10300:	MOVE	AC,[XWD -1,-2]	;INITIALIZE AC
 13269	040023	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13270	040024	241 06 0 00 777776 		ROT	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 13271	040025	312 06 0 00 041634 		CAME	AC,[XWD 577777,-1]	;IS RESULT IN AC CORRECT?
 13272	040026	003 06 0 00 010301 		ER3	AC,10301			;RESULT IN AC IS INCORRECT
 13273	040027	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13274	040030	004 07 0 00 010301 		ER4	AC+1,10301		;C(AC+1) WAS MODIFIED INCORRECTLY
 13275	040031	321 10 0 00 040022 		JUMPL	AC+2,E10300		;LOOP ON ERROR SWITCH^
 13276					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 30-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT)                                    SEQ 0282

 13277					;SHIFT CONNECTIONS TEST
 13278					;TEST AR34 SHRT INP-ONE'S - ROT AC,-2
 13279					;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 
 13280						SR1	(104,0,10,0,2,ROT,-2)^
 13281					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,10] -2 BIT
 13282					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2]
 13283					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13284
 13285	040032	200 06 0 00 041617 	E10400:	MOVE	AC,[XWD 0,10]	;INITIALIZE AC
 13286	040033	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13287	040034	241 06 0 00 777776 		ROT	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 13288	040035	312 06 0 00 041623 		CAME	AC,[XWD 0,2]	;IS RESULT IN AC CORRECT?
 13289	040036	003 06 0 00 010401 		ER3	AC,10401			;RESULT IN AC IS INCORRECT
 13290	040037	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13291	040040	004 07 0 00 010401 		ER4	AC+1,10401		;C(AC+1) WAS MODIFIED INCORRECTLY
 13292	040041	321 10 0 00 040032 		JUMPL	AC+2,E10400		;LOOP ON ERROR SWITCH^
 13293
 13294					;SHIFT CONNECTIONS TEST
 13295					;TEST AR34 SHRT INP-ZERO'S - ROT AC,-2
 13296					;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 
 13297						SR1	(105,-1,-11,-1,-3,ROT,-2)^
 13298					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-11] -2 BIT
 13299					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-3]
 13300					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13301
 13302	040042	200 06 0 00 041636 	E10500:	MOVE	AC,[XWD -1,-11]	;INITIALIZE AC
 13303	040043	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13304	040044	241 06 0 00 777776 		ROT	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 13305	040045	312 06 0 00 041630 		CAME	AC,[XWD -1,-3]	;IS RESULT IN AC CORRECT?
 13306	040046	003 06 0 00 010501 		ER3	AC,10501			;RESULT IN AC IS INCORRECT
 13307	040047	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13308	040050	004 07 0 00 010501 		ER4	AC+1,10501		;C(AC+1) WAS MODIFIED INCORRECTLY
 13309	040051	321 10 0 00 040042 		JUMPL	AC+2,E10500		;LOOP ON ERROR SWITCH^
 13310
 13311					;SHIFT CONNECTIONS TEST
 13312					;TEST AR35 SHRT INP-ONE'S - ROT AC,-2
 13313					;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 
 13314						SR1	(106,0,4,0,1,ROT,-2)^
 13315					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,4] -2 BIT
 13316					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,1]
 13317					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13318
 13319	040052	200 06 0 00 041622 	E10600:	MOVE	AC,[XWD 0,4]	;INITIALIZE AC
 13320	040053	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13321	040054	241 06 0 00 777776 		ROT	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 13322	040055	312 06 0 00 041625 		CAME	AC,[XWD 0,1]	;IS RESULT IN AC CORRECT?
 13323	040056	003 06 0 00 010601 		ER3	AC,10601			;RESULT IN AC IS INCORRECT
 13324	040057	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13325	040060	004 07 0 00 010601 		ER4	AC+1,10601		;C(AC+1) WAS MODIFIED INCORRECTLY
 13326	040061	321 10 0 00 040052 		JUMPL	AC+2,E10600		;LOOP ON ERROR SWITCH^
 13327
 13328					;SHIFT CONNECTIONS TEST
 13329					;TEST AR35 SHRT INP-ZERO'S - ROT AC,-2
 13330					;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 
 13331						SR1	(107,-1,-5,-1,-2,ROT,-2)^
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 30-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROT)                                    SEQ 0283

 13332					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-5] -2 BIT
 13333					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-2]
 13334					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13335
 13336	040062	200 06 0 00 041635 	E10700:	MOVE	AC,[XWD -1,-5]	;INITIALIZE AC
 13337	040063	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13338	040064	241 06 0 00 777776 		ROT	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 13339	040065	312 06 0 00 041627 		CAME	AC,[XWD -1,-2]	;IS RESULT IN AC CORRECT?
 13340	040066	003 06 0 00 010701 		ER3	AC,10701			;RESULT IN AC IS INCORRECT
 13341	040067	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13342	040070	004 07 0 00 010701 		ER4	AC+1,10701		;C(AC+1) WAS MODIFIED INCORRECTLY
 13343	040071	321 10 0 00 040062 		JUMPL	AC+2,E10700		;LOOP ON ERROR SWITCH^
 13344
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 31
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH)                                    SEQ 0284

 13345					SUBTTL	DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH)
 13346
 13347					;END CONNECTIONS-LSH
 13348					;TEST AR END BIT INPUT GATES
 13349					;TEST LEFT-AR0,1,34,35 SHLT INP GATES
 13350					;TEST RIGHT-AR0,1,34,35 SHRT INP GATES
 13351					;AC IS SHIFTED LEFT/RIGHT
 13352					;AND END BITS TESTED
 13353
 13354					;SHIFT CONNECTIONS TEST
 13355					;TEST AR35 SHLT INP-ZERO'S - LSH AC,1
 13356					;TEST ABILITY TO SHIFT INTO BIT 35 OF AR
 13357						SR1	(110,-1,-1,-1,-2,LSH,1)^
 13358					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-1] 1 BIT
 13359					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-2]
 13360					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13361
 13362	040072	200 06 0 00 041616 	E11000:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
 13363	040073	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13364	040074	242 06 0 00 000001 		LSH	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13365	040075	312 06 0 00 041627 		CAME	AC,[XWD -1,-2]	;IS RESULT IN AC CORRECT?
 13366	040076	003 06 0 00 011001 		ER3	AC,11001			;RESULT IN AC IS INCORRECT
 13367	040077	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13368	040100	004 07 0 00 011001 		ER4	AC+1,11001		;C(AC+1) WAS MODIFIED INCORRECTLY
 13369	040101	321 10 0 00 040072 		JUMPL	AC+2,E11000		;LOOP ON ERROR SWITCH^
 13370
 13371					;SHIFT CONNECTIONS TEST
 13372					;TEST AR34 SHLT INP-ONE'S - LSH AC,1
 13373					;TEST ABILITY TO SHIFT INTO BIT 34 OF AR
 13374						SR1	(111,0,1,0,2,LSH,1)^
 13375					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,1] 1 BIT
 13376					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2]
 13377					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13378
 13379	040102	200 06 0 00 041625 	E11100:	MOVE	AC,[XWD 0,1]	;INITIALIZE AC
 13380	040103	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13381	040104	242 06 0 00 000001 		LSH	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13382	040105	312 06 0 00 041623 		CAME	AC,[XWD 0,2]	;IS RESULT IN AC CORRECT?
 13383	040106	003 06 0 00 011101 		ER3	AC,11101			;RESULT IN AC IS INCORRECT
 13384	040107	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13385	040110	004 07 0 00 011101 		ER4	AC+1,11101		;C(AC+1) WAS MODIFIED INCORRECTLY
 13386	040111	321 10 0 00 040102 		JUMPL	AC+2,E11100		;LOOP ON ERROR SWITCH^
 13387
 13388					;SHIFT CONNECTIONS TEST
 13389					;TEST AR34 SHLT INP-ZERO'S - LSH AC,1
 13390					;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 
 13391						SR1	(112,-1,-2,-1,-4,LSH,1)^
 13392					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-2] 1 BIT
 13393					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-4]
 13394					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13395
 13396	040112	200 06 0 00 041627 	E11200:	MOVE	AC,[XWD -1,-2]	;INITIALIZE AC
 13397	040113	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13398	040114	242 06 0 00 000001 		LSH	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13399	040115	312 06 0 00 041637 		CAME	AC,[XWD -1,-4]	;IS RESULT IN AC CORRECT?
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 31-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH)                                    SEQ 0285

 13400	040116	003 06 0 00 011201 		ER3	AC,11201			;RESULT IN AC IS INCORRECT
 13401	040117	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13402	040120	004 07 0 00 011201 		ER4	AC+1,11201		;C(AC+1) WAS MODIFIED INCORRECTLY
 13403	040121	321 10 0 00 040112 		JUMPL	AC+2,E11200		;LOOP ON ERROR SWITCH^
 13404					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 31-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH)                                    SEQ 0286

 13405					;SHIFT CONNECTIONS TEST
 13406					;TEST AR1 SHLT INP-ONE'S - LSH AC,1
 13407					;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 
 13408						SR1	(113,100000,0,200000,0,LSH,1)^
 13409					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 100000,0] 1 BIT
 13410					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 200000,0]
 13411					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13412
 13413	040122	200 06 0 00 041631 	E11300:	MOVE	AC,[XWD 100000,0]	;INITIALIZE AC
 13414	040123	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13415	040124	242 06 0 00 000001 		LSH	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13416	040125	312 06 0 00 041632 		CAME	AC,[XWD 200000,0]	;IS RESULT IN AC CORRECT?
 13417	040126	003 06 0 00 011301 		ER3	AC,11301			;RESULT IN AC IS INCORRECT
 13418	040127	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13419	040130	004 07 0 00 011301 		ER4	AC+1,11301		;C(AC+1) WAS MODIFIED INCORRECTLY
 13420	040131	321 10 0 00 040122 		JUMPL	AC+2,E11300		;LOOP ON ERROR SWITCH^
 13421
 13422					;SHIFT CONNECTIONS TEST
 13423					;TEST AR1 SHLT INP-ZERO'S - LSH AC,1
 13424					;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 
 13425						SR1	(114,677777,-1,577777,-2,LSH,1)^
 13426					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 677777,-1] 1 BIT
 13427					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 577777,-2]
 13428					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13429
 13430	040132	200 06 0 00 041633 	E11400:	MOVE	AC,[XWD 677777,-1]	;INITIALIZE AC
 13431	040133	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13432	040134	242 06 0 00 000001 		LSH	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13433	040135	312 06 0 00 041640 		CAME	AC,[XWD 577777,-2]	;IS RESULT IN AC CORRECT?
 13434	040136	003 06 0 00 011401 		ER3	AC,11401			;RESULT IN AC IS INCORRECT
 13435	040137	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13436	040140	004 07 0 00 011401 		ER4	AC+1,11401		;C(AC+1) WAS MODIFIED INCORRECTLY
 13437	040141	321 10 0 00 040132 		JUMPL	AC+2,E11400		;LOOP ON ERROR SWITCH^
 13438
 13439					;SHIFT CONNECTIONS TEST
 13440					;TEST AR0 SHLT INP-ONE'S - LSH AC,1
 13441					;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 
 13442						SR1	(115,200000,0,400000,0,LSH,1)^
 13443					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 200000,0] 1 BIT
 13444					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 400000,0]
 13445					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13446
 13447	040142	200 06 0 00 041632 	E11500:	MOVE	AC,[XWD 200000,0]	;INITIALIZE AC
 13448	040143	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13449	040144	242 06 0 00 000001 		LSH	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13450	040145	312 06 0 00 041624 		CAME	AC,[XWD 400000,0]	;IS RESULT IN AC CORRECT?
 13451	040146	003 06 0 00 011501 		ER3	AC,11501			;RESULT IN AC IS INCORRECT
 13452	040147	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13453	040150	004 07 0 00 011501 		ER4	AC+1,11501		;C(AC+1) WAS MODIFIED INCORRECTLY
 13454	040151	321 10 0 00 040142 		JUMPL	AC+2,E11500		;LOOP ON ERROR SWITCH^
 13455
 13456					;SHIFT CONNECTIONS TEST
 13457					;TEST AR0 SHLT INP-ZERO'S - LSH AC,1
 13458					;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 
 13459						SR1	(116,577777,-1,377777,-2,LSH,1)^
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 31-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH)                                    SEQ 0287

 13460					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 577777,-1] 1 BIT
 13461					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 377777,-2]
 13462					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13463
 13464	040152	200 06 0 00 041634 	E11600:	MOVE	AC,[XWD 577777,-1]	;INITIALIZE AC
 13465	040153	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13466	040154	242 06 0 00 000001 		LSH	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13467	040155	312 06 0 00 041641 		CAME	AC,[XWD 377777,-2]	;IS RESULT IN AC CORRECT?
 13468	040156	003 06 0 00 011601 		ER3	AC,11601			;RESULT IN AC IS INCORRECT
 13469	040157	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13470	040160	004 07 0 00 011601 		ER4	AC+1,11601		;C(AC+1) WAS MODIFIED INCORRECTLY
 13471	040161	321 10 0 00 040152 		JUMPL	AC+2,E11600		;LOOP ON ERROR SWITCH^
 13472
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 32
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH)                                    SEQ 0288

 13473					;SHIFT CONNECTIONS TEST
 13474					;TEST AR0 SHRT INP-ZERO'S - LSH AC,-1
 13475					;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 
 13476						SR1	(117,-1,-1,377777,-1,LSH,-1)^
 13477					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-1] -1 BIT
 13478					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 377777,-1]
 13479					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13480
 13481	040162	200 06 0 00 041616 	E11700:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
 13482	040163	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13483	040164	242 06 0 00 777777 		LSH	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13484	040165	312 06 0 00 041626 		CAME	AC,[XWD 377777,-1]	;IS RESULT IN AC CORRECT?
 13485	040166	003 06 0 00 011701 		ER3	AC,11701			;RESULT IN AC IS INCORRECT
 13486	040167	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13487	040170	004 07 0 00 011701 		ER4	AC+1,11701		;C(AC+1) WAS MODIFIED INCORRECTLY
 13488	040171	321 10 0 00 040162 		JUMPL	AC+2,E11700		;LOOP ON ERROR SWITCH^
 13489
 13490					;SHIFT CONNECTIONS TEST
 13491					;TEST AR1 SHRT INP-ONE'S - LSH AC,-1
 13492					;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 
 13493						SR1	(120,400000,0,200000,0,LSH,-1)^
 13494					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 400000,0] -1 BIT
 13495					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 200000,0]
 13496					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13497
 13498	040172	200 06 0 00 041624 	E12000:	MOVE	AC,[XWD 400000,0]	;INITIALIZE AC
 13499	040173	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13500	040174	242 06 0 00 777777 		LSH	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13501	040175	312 06 0 00 041632 		CAME	AC,[XWD 200000,0]	;IS RESULT IN AC CORRECT?
 13502	040176	003 06 0 00 012001 		ER3	AC,12001			;RESULT IN AC IS INCORRECT
 13503	040177	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13504	040200	004 07 0 00 012001 		ER4	AC+1,12001		;C(AC+1) WAS MODIFIED INCORRECTLY
 13505	040201	321 10 0 00 040172 		JUMPL	AC+2,E12000		;LOOP ON ERROR SWITCH^
 13506
 13507					;SHIFT CONNECTIONS TEST
 13508					;TEST AR1 SHRT INP-ZERO'S - LSH AC,-1
 13509					;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 
 13510						SR1	(121,377777,-1,177777,-1,LSH,-1)^
 13511					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 377777,-1] -1 BIT
 13512					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 177777,-1]
 13513					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13514
 13515	040202	200 06 0 00 041626 	E12100:	MOVE	AC,[XWD 377777,-1]	;INITIALIZE AC
 13516	040203	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13517	040204	242 06 0 00 777777 		LSH	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13518	040205	312 06 0 00 041642 		CAME	AC,[XWD 177777,-1]	;IS RESULT IN AC CORRECT?
 13519	040206	003 06 0 00 012101 		ER3	AC,12101			;RESULT IN AC IS INCORRECT
 13520	040207	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13521	040210	004 07 0 00 012101 		ER4	AC+1,12101		;C(AC+1) WAS MODIFIED INCORRECTLY
 13522	040211	321 10 0 00 040202 		JUMPL	AC+2,E12100		;LOOP ON ERROR SWITCH^
 13523					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 32-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH)                                    SEQ 0289

 13524					;SHIFT CONNECTIONS TEST
 13525					;TEST AR34 SHRT INP-ONE'S - LSH AC,-1
 13526					;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 
 13527						SR1	(122,0,4,0,2,LSH,-1)^
 13528					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,4] -1 BIT
 13529					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2]
 13530					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13531
 13532	040212	200 06 0 00 041622 	E12200:	MOVE	AC,[XWD 0,4]	;INITIALIZE AC
 13533	040213	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13534	040214	242 06 0 00 777777 		LSH	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13535	040215	312 06 0 00 041623 		CAME	AC,[XWD 0,2]	;IS RESULT IN AC CORRECT?
 13536	040216	003 06 0 00 012201 		ER3	AC,12201			;RESULT IN AC IS INCORRECT
 13537	040217	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13538	040220	004 07 0 00 012201 		ER4	AC+1,12201		;C(AC+1) WAS MODIFIED INCORRECTLY
 13539	040221	321 10 0 00 040212 		JUMPL	AC+2,E12200		;LOOP ON ERROR SWITCH^
 13540
 13541					;SHIFT CONNECTIONS TEST
 13542					;TEST AR34 SHRT INP-ZERO'S - LSH AC,-1
 13543					;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 
 13544						SR1	(123,-1,-5,377777,-3,LSH,-1)^
 13545					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-5] -1 BIT
 13546					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 377777,-3]
 13547					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13548
 13549	040222	200 06 0 00 041635 	E12300:	MOVE	AC,[XWD -1,-5]	;INITIALIZE AC
 13550	040223	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13551	040224	242 06 0 00 777777 		LSH	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13552	040225	312 06 0 00 041643 		CAME	AC,[XWD 377777,-3]	;IS RESULT IN AC CORRECT?
 13553	040226	003 06 0 00 012301 		ER3	AC,12301			;RESULT IN AC IS INCORRECT
 13554	040227	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13555	040230	004 07 0 00 012301 		ER4	AC+1,12301		;C(AC+1) WAS MODIFIED INCORRECTLY
 13556	040231	321 10 0 00 040222 		JUMPL	AC+2,E12300		;LOOP ON ERROR SWITCH^
 13557
 13558					;SHIFT CONNECTIONS TEST
 13559					;TEST AR35 SHRT INP-ONE'S - LSH AC,-1
 13560					;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 
 13561						SR1	(124,0,2,0,1,LSH,-1)^
 13562					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,2] -1 BIT
 13563					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,1]
 13564					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13565
 13566	040232	200 06 0 00 041623 	E12400:	MOVE	AC,[XWD 0,2]	;INITIALIZE AC
 13567	040233	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13568	040234	242 06 0 00 777777 		LSH	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13569	040235	312 06 0 00 041625 		CAME	AC,[XWD 0,1]	;IS RESULT IN AC CORRECT?
 13570	040236	003 06 0 00 012401 		ER3	AC,12401			;RESULT IN AC IS INCORRECT
 13571	040237	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13572	040240	004 07 0 00 012401 		ER4	AC+1,12401		;C(AC+1) WAS MODIFIED INCORRECTLY
 13573	040241	321 10 0 00 040232 		JUMPL	AC+2,E12400		;LOOP ON ERROR SWITCH^
 13574
 13575					;SHIFT CONNECTIONS TEST
 13576					;TEST AR35 SHRT INP-ZERO'S - LSH AC,-1
 13577					;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 
 13578						SR1	(125,-1,-3,377777,-2,LSH,-1)^
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 32-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH)                                    SEQ 0290

 13579					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-3] -1 BIT
 13580					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 377777,-2]
 13581					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13582
 13583	040242	200 06 0 00 041630 	E12500:	MOVE	AC,[XWD -1,-3]	;INITIALIZE AC
 13584	040243	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13585	040244	242 06 0 00 777777 		LSH	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13586	040245	312 06 0 00 041641 		CAME	AC,[XWD 377777,-2]	;IS RESULT IN AC CORRECT?
 13587	040246	003 06 0 00 012501 		ER3	AC,12501			;RESULT IN AC IS INCORRECT
 13588	040247	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13589	040250	004 07 0 00 012501 		ER4	AC+1,12501		;C(AC+1) WAS MODIFIED INCORRECTLY
 13590	040251	321 10 0 00 040242 		JUMPL	AC+2,E12500		;LOOP ON ERROR SWITCH^
 13591
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 33
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH)                                    SEQ 0291

 13592					;SHIFT CONNECTIONS TEST
 13593					;TEST AR0 SHRT INP-ZERO'S - LSH AC,-2
 13594					;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 
 13595						SR1	(126,-1,-1,177777,-1,LSH,-2)^
 13596					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-1] -2 BIT
 13597					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 177777,-1]
 13598					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13599
 13600	040252	200 06 0 00 041616 	E12600:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
 13601	040253	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13602	040254	242 06 0 00 777776 		LSH	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 13603	040255	312 06 0 00 041642 		CAME	AC,[XWD 177777,-1]	;IS RESULT IN AC CORRECT?
 13604	040256	003 06 0 00 012601 		ER3	AC,12601			;RESULT IN AC IS INCORRECT
 13605	040257	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13606	040260	004 07 0 00 012601 		ER4	AC+1,12601		;C(AC+1) WAS MODIFIED INCORRECTLY
 13607	040261	321 10 0 00 040252 		JUMPL	AC+2,E12600		;LOOP ON ERROR SWITCH^
 13608
 13609					;SHIFT CONNECTIONS TEST
 13610					;TEST AR1 SHRT INP-ZERO'S - LSH AC,-2
 13611					;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 
 13612						SR1	(127,-1,-1,177777,-1,LSH,-2)^
 13613					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-1] -2 BIT
 13614					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 177777,-1]
 13615					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13616
 13617	040262	200 06 0 00 041616 	E12700:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
 13618	040263	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13619	040264	242 06 0 00 777776 		LSH	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 13620	040265	312 06 0 00 041642 		CAME	AC,[XWD 177777,-1]	;IS RESULT IN AC CORRECT?
 13621	040266	003 06 0 00 012701 		ER3	AC,12701			;RESULT IN AC IS INCORRECT
 13622	040267	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13623	040270	004 07 0 00 012701 		ER4	AC+1,12701		;C(AC+1) WAS MODIFIED INCORRECTLY
 13624	040271	321 10 0 00 040262 		JUMPL	AC+2,E12700		;LOOP ON ERROR SWITCH^
 13625
 13626					;SHIFT CONNECTIONS TEST
 13627					;TEST AR34 SHRT INP-ONE'S - LSH AC,-2
 13628					;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 
 13629						SR1	(130,0,10,0,2,LSH,-2)^
 13630					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,10] -2 BIT
 13631					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2]
 13632					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13633
 13634	040272	200 06 0 00 041617 	E13000:	MOVE	AC,[XWD 0,10]	;INITIALIZE AC
 13635	040273	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13636	040274	242 06 0 00 777776 		LSH	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 13637	040275	312 06 0 00 041623 		CAME	AC,[XWD 0,2]	;IS RESULT IN AC CORRECT?
 13638	040276	003 06 0 00 013001 		ER3	AC,13001			;RESULT IN AC IS INCORRECT
 13639	040277	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13640	040300	004 07 0 00 013001 		ER4	AC+1,13001		;C(AC+1) WAS MODIFIED INCORRECTLY
 13641	040301	321 10 0 00 040272 		JUMPL	AC+2,E13000		;LOOP ON ERROR SWITCH^
 13642					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 33-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSH)                                    SEQ 0292

 13643					;SHIFT CONNECTIONS TEST
 13644					;TEST AR34 SHRT INP-ZERO'S - LSH AC,-2
 13645					;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 
 13646						SR1	(131,-1,-11,177777,-3,LSH,-2)^
 13647					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-11] -2 BIT
 13648					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 177777,-3]
 13649					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13650
 13651	040302	200 06 0 00 041636 	E13100:	MOVE	AC,[XWD -1,-11]	;INITIALIZE AC
 13652	040303	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13653	040304	242 06 0 00 777776 		LSH	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 13654	040305	312 06 0 00 041644 		CAME	AC,[XWD 177777,-3]	;IS RESULT IN AC CORRECT?
 13655	040306	003 06 0 00 013101 		ER3	AC,13101			;RESULT IN AC IS INCORRECT
 13656	040307	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13657	040310	004 07 0 00 013101 		ER4	AC+1,13101		;C(AC+1) WAS MODIFIED INCORRECTLY
 13658	040311	321 10 0 00 040302 		JUMPL	AC+2,E13100		;LOOP ON ERROR SWITCH^
 13659
 13660					;SHIFT CONNECTIONS TEST
 13661					;TEST AR35 SHRT INP-ONE'S - LSH AC,-2
 13662					;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 
 13663						SR1	(132,0,4,0,1,LSH,-2)^
 13664					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,4] -2 BIT
 13665					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,1]
 13666					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13667
 13668	040312	200 06 0 00 041622 	E13200:	MOVE	AC,[XWD 0,4]	;INITIALIZE AC
 13669	040313	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13670	040314	242 06 0 00 777776 		LSH	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 13671	040315	312 06 0 00 041625 		CAME	AC,[XWD 0,1]	;IS RESULT IN AC CORRECT?
 13672	040316	003 06 0 00 013201 		ER3	AC,13201			;RESULT IN AC IS INCORRECT
 13673	040317	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13674	040320	004 07 0 00 013201 		ER4	AC+1,13201		;C(AC+1) WAS MODIFIED INCORRECTLY
 13675	040321	321 10 0 00 040312 		JUMPL	AC+2,E13200		;LOOP ON ERROR SWITCH^
 13676
 13677					;SHIFT CONNECTIONS TEST
 13678					;TEST AR35 SHRT INP-ZERO'S - LSH AC,-2
 13679					;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 
 13680						SR1	(133,-1,-5,177777,-2,LSH,-2)^
 13681					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-5] -2 BIT
 13682					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 177777,-2]
 13683					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13684
 13685	040322	200 06 0 00 041635 	E13300:	MOVE	AC,[XWD -1,-5]	;INITIALIZE AC
 13686	040323	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13687	040324	242 06 0 00 777776 		LSH	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 13688	040325	312 06 0 00 041645 		CAME	AC,[XWD 177777,-2]	;IS RESULT IN AC CORRECT?
 13689	040326	003 06 0 00 013301 		ER3	AC,13301			;RESULT IN AC IS INCORRECT
 13690	040327	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13691	040330	004 07 0 00 013301 		ER4	AC+1,13301		;C(AC+1) WAS MODIFIED INCORRECTLY
 13692	040331	321 10 0 00 040322 		JUMPL	AC+2,E13300		;LOOP ON ERROR SWITCH^
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 34
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH)                                    SEQ 0293

 13693					SUBTTL	DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH)
 13694
 13695					;END CONNECTIONS-ASH
 13696					;TEST AR END BIT INPUT GATES
 13697					;TEST LEFT-AR0,1,34,35 SHLT INP GATES
 13698					;TEST RIGHT-AR0,1,34,35 SHRT INP GATES
 13699					;AC IS SHIFTD LEFT/RIGHT
 13700					;AND END BITS TESTED
 13701
 13702					;SHIFT CONNECTIONS TEST
 13703					;TEST AR35 SHLT INP-ZERO'S - ASH AC,1
 13704					;TEST ABILITY TO SHIFT INTO BIT 35 OF AR
 13705						SR1	(134,-1,-1,-1,-2,ASH,1)^
 13706					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-1] 1 BIT
 13707					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-2]
 13708					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13709
 13710	040332	200 06 0 00 041616 	E13400:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
 13711	040333	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13712	040334	240 06 0 00 000001 		ASH	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13713	040335	312 06 0 00 041627 		CAME	AC,[XWD -1,-2]	;IS RESULT IN AC CORRECT?
 13714	040336	003 06 0 00 013401 		ER3	AC,13401			;RESULT IN AC IS INCORRECT
 13715	040337	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13716	040340	004 07 0 00 013401 		ER4	AC+1,13401		;C(AC+1) WAS MODIFIED INCORRECTLY
 13717	040341	321 10 0 00 040332 		JUMPL	AC+2,E13400		;LOOP ON ERROR SWITCH^
 13718
 13719					;SHIFT CONNECTIONS TEST
 13720					;TEST AR34 SHLT INP-ONE'S - ASH AC,1
 13721					;TEST ABILITY TO SHIFT INTO BIT 34 OF AR
 13722						SR1	(135,0,1,0,2,ASH,1)^
 13723					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,1] 1 BIT
 13724					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2]
 13725					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13726
 13727	040342	200 06 0 00 041625 	E13500:	MOVE	AC,[XWD 0,1]	;INITIALIZE AC
 13728	040343	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13729	040344	240 06 0 00 000001 		ASH	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13730	040345	312 06 0 00 041623 		CAME	AC,[XWD 0,2]	;IS RESULT IN AC CORRECT?
 13731	040346	003 06 0 00 013501 		ER3	AC,13501			;RESULT IN AC IS INCORRECT
 13732	040347	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13733	040350	004 07 0 00 013501 		ER4	AC+1,13501		;C(AC+1) WAS MODIFIED INCORRECTLY
 13734	040351	321 10 0 00 040342 		JUMPL	AC+2,E13500		;LOOP ON ERROR SWITCH^
 13735
 13736					;SHIFT CONNECTIONS TEST
 13737					;TEST AR34 SHLT INP-ZERO'S - ASH AC,1
 13738					;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 
 13739						SR1	(136,-1,-2,-1,-4,ASH,1)^
 13740					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-2] 1 BIT
 13741					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-4]
 13742					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13743
 13744	040352	200 06 0 00 041627 	E13600:	MOVE	AC,[XWD -1,-2]	;INITIALIZE AC
 13745	040353	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13746	040354	240 06 0 00 000001 		ASH	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13747	040355	312 06 0 00 041637 		CAME	AC,[XWD -1,-4]	;IS RESULT IN AC CORRECT?
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 34-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH)                                    SEQ 0294

 13748	040356	003 06 0 00 013601 		ER3	AC,13601			;RESULT IN AC IS INCORRECT
 13749	040357	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13750	040360	004 07 0 00 013601 		ER4	AC+1,13601		;C(AC+1) WAS MODIFIED INCORRECTLY
 13751	040361	321 10 0 00 040352 		JUMPL	AC+2,E13600		;LOOP ON ERROR SWITCH^
 13752					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 34-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH)                                    SEQ 0295

 13753					;SHIFT CONNECTIONS TEST
 13754					;TEST AR1 SHLT INP-ONE'S - ASH AC,1
 13755					;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 
 13756						SR1	(137,100000,0,200000,0,ASH,1)^
 13757					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 100000,0] 1 BIT
 13758					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 200000,0]
 13759					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13760
 13761	040362	200 06 0 00 041631 	E13700:	MOVE	AC,[XWD 100000,0]	;INITIALIZE AC
 13762	040363	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13763	040364	240 06 0 00 000001 		ASH	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13764	040365	312 06 0 00 041632 		CAME	AC,[XWD 200000,0]	;IS RESULT IN AC CORRECT?
 13765	040366	003 06 0 00 013701 		ER3	AC,13701			;RESULT IN AC IS INCORRECT
 13766	040367	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13767	040370	004 07 0 00 013701 		ER4	AC+1,13701		;C(AC+1) WAS MODIFIED INCORRECTLY
 13768	040371	321 10 0 00 040362 		JUMPL	AC+2,E13700		;LOOP ON ERROR SWITCH^
 13769
 13770					;SHIFT CONNECTIONS TEST
 13771					;TEST AR1 SHLT INP-ZERO'S - ASH AC,1
 13772					;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 
 13773						SR1	(140,677777,-1,577777,-2,ASH,1)^
 13774					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 677777,-1] 1 BIT
 13775					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 577777,-2]
 13776					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13777
 13778	040372	200 06 0 00 041633 	E14000:	MOVE	AC,[XWD 677777,-1]	;INITIALIZE AC
 13779	040373	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13780	040374	240 06 0 00 000001 		ASH	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13781	040375	312 06 0 00 041640 		CAME	AC,[XWD 577777,-2]	;IS RESULT IN AC CORRECT?
 13782	040376	003 06 0 00 014001 		ER3	AC,14001			;RESULT IN AC IS INCORRECT
 13783	040377	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13784	040400	004 07 0 00 014001 		ER4	AC+1,14001		;C(AC+1) WAS MODIFIED INCORRECTLY
 13785	040401	321 10 0 00 040372 		JUMPL	AC+2,E14000		;LOOP ON ERROR SWITCH^
 13786
 13787					;SHIFT CONNECTIONS TEST
 13788					;TEST AR0 SHLT INP-ONE'S - ASH AC,1
 13789					;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 
 13790						SR1	(141,400000,0,400000,0,ASH,1)^
 13791					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 400000,0] 1 BIT
 13792					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 400000,0]
 13793					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13794
 13795	040402	200 06 0 00 041624 	E14100:	MOVE	AC,[XWD 400000,0]	;INITIALIZE AC
 13796	040403	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13797	040404	240 06 0 00 000001 		ASH	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13798	040405	312 06 0 00 041624 		CAME	AC,[XWD 400000,0]	;IS RESULT IN AC CORRECT?
 13799	040406	003 06 0 00 014101 		ER3	AC,14101			;RESULT IN AC IS INCORRECT
 13800	040407	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13801	040410	004 07 0 00 014101 		ER4	AC+1,14101		;C(AC+1) WAS MODIFIED INCORRECTLY
 13802	040411	321 10 0 00 040402 		JUMPL	AC+2,E14100		;LOOP ON ERROR SWITCH^
 13803
 13804					;SHIFT CONNECTIONS TEST
 13805					;TEST AR0 SHLT INP-ZERO'S - ASH AC,1
 13806					;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 
 13807						SR1	(142,377777,-1,377777,-2,ASH,1)^
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 34-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH)                                    SEQ 0296

 13808					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 377777,-1] 1 BIT
 13809					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 377777,-2]
 13810					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13811
 13812	040412	200 06 0 00 041626 	E14200:	MOVE	AC,[XWD 377777,-1]	;INITIALIZE AC
 13813	040413	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13814	040414	240 06 0 00 000001 		ASH	AC,1			;*SHIFT/ROTATE 1 BIT POSITIONS
 13815	040415	312 06 0 00 041641 		CAME	AC,[XWD 377777,-2]	;IS RESULT IN AC CORRECT?
 13816	040416	003 06 0 00 014201 		ER3	AC,14201			;RESULT IN AC IS INCORRECT
 13817	040417	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13818	040420	004 07 0 00 014201 		ER4	AC+1,14201		;C(AC+1) WAS MODIFIED INCORRECTLY
 13819	040421	321 10 0 00 040412 		JUMPL	AC+2,E14200		;LOOP ON ERROR SWITCH^
 13820
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 35
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH)                                    SEQ 0297

 13821					;SHIFT CONNECTIONS TEST
 13822					;TEST AR0 SHRT INP-ONE'S - ASH AC,-1
 13823					;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 
 13824						SR1	(143,400000,0,600000,0,ASH,-1)^
 13825					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 400000,0] -1 BIT
 13826					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 600000,0]
 13827					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13828
 13829	040422	200 06 0 00 041624 	E14300:	MOVE	AC,[XWD 400000,0]	;INITIALIZE AC
 13830	040423	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13831	040424	240 06 0 00 777777 		ASH	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13832	040425	312 06 0 00 041646 		CAME	AC,[XWD 600000,0]	;IS RESULT IN AC CORRECT?
 13833	040426	003 06 0 00 014301 		ER3	AC,14301			;RESULT IN AC IS INCORRECT
 13834	040427	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13835	040430	004 07 0 00 014301 		ER4	AC+1,14301		;C(AC+1) WAS MODIFIED INCORRECTLY
 13836	040431	321 10 0 00 040422 		JUMPL	AC+2,E14300		;LOOP ON ERROR SWITCH^
 13837
 13838					;SHIFT CONNECTIONS TEST
 13839					;TEST AR0 SHRT INP-ZERO'S - ASH AC,-1
 13840					;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 
 13841						SR1	(144,377777,-1,177777,-1,ASH,-1)^
 13842					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 377777,-1] -1 BIT
 13843					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 177777,-1]
 13844					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13845
 13846	040432	200 06 0 00 041626 	E14400:	MOVE	AC,[XWD 377777,-1]	;INITIALIZE AC
 13847	040433	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13848	040434	240 06 0 00 777777 		ASH	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13849	040435	312 06 0 00 041642 		CAME	AC,[XWD 177777,-1]	;IS RESULT IN AC CORRECT?
 13850	040436	003 06 0 00 014401 		ER3	AC,14401			;RESULT IN AC IS INCORRECT
 13851	040437	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13852	040440	004 07 0 00 014401 		ER4	AC+1,14401		;C(AC+1) WAS MODIFIED INCORRECTLY
 13853	040441	321 10 0 00 040432 		JUMPL	AC+2,E14400		;LOOP ON ERROR SWITCH^
 13854
 13855					;SHIFT CONNECTIONS TEST
 13856					;TEST AR1 SHRT INP-ONE'S - ASH AC,-1
 13857					;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 
 13858						SR1	(145,400000,0,600000,0,ASH,-1)^
 13859					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 400000,0] -1 BIT
 13860					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 600000,0]
 13861					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13862
 13863	040442	200 06 0 00 041624 	E14500:	MOVE	AC,[XWD 400000,0]	;INITIALIZE AC
 13864	040443	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13865	040444	240 06 0 00 777777 		ASH	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13866	040445	312 06 0 00 041646 		CAME	AC,[XWD 600000,0]	;IS RESULT IN AC CORRECT?
 13867	040446	003 06 0 00 014501 		ER3	AC,14501			;RESULT IN AC IS INCORRECT
 13868	040447	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13869	040450	004 07 0 00 014501 		ER4	AC+1,14501		;C(AC+1) WAS MODIFIED INCORRECTLY
 13870	040451	321 10 0 00 040442 		JUMPL	AC+2,E14500		;LOOP ON ERROR SWITCH^
 13871
 13872					;SHIFT CONNECTIONS TEST
 13873					;TEST AR1 SHRT INP-ZERO'S - ASH AC,-1
 13874					;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 
 13875						SR1	(146,377777,-1,177777,-1,ASH,-1)^
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 35-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH)                                    SEQ 0298

 13876					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 377777,-1] -1 BIT
 13877					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 177777,-1]
 13878					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13879
 13880	040452	200 06 0 00 041626 	E14600:	MOVE	AC,[XWD 377777,-1]	;INITIALIZE AC
 13881	040453	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13882	040454	240 06 0 00 777777 		ASH	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13883	040455	312 06 0 00 041642 		CAME	AC,[XWD 177777,-1]	;IS RESULT IN AC CORRECT?
 13884	040456	003 06 0 00 014601 		ER3	AC,14601			;RESULT IN AC IS INCORRECT
 13885	040457	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13886	040460	004 07 0 00 014601 		ER4	AC+1,14601		;C(AC+1) WAS MODIFIED INCORRECTLY
 13887	040461	321 10 0 00 040452 		JUMPL	AC+2,E14600		;LOOP ON ERROR SWITCH^
 13888					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 35-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH)                                    SEQ 0299

 13889					;SHIFT CONNECTIONS TEST
 13890					;TEST AR34 SHRT INP-ONE'S - ASH AC,-1
 13891					;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 
 13892						SR1	(147,0,4,0,2,ASH,-1)^
 13893					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,4] -1 BIT
 13894					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2]
 13895					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13896
 13897	040462	200 06 0 00 041622 	E14700:	MOVE	AC,[XWD 0,4]	;INITIALIZE AC
 13898	040463	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13899	040464	240 06 0 00 777777 		ASH	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13900	040465	312 06 0 00 041623 		CAME	AC,[XWD 0,2]	;IS RESULT IN AC CORRECT?
 13901	040466	003 06 0 00 014701 		ER3	AC,14701			;RESULT IN AC IS INCORRECT
 13902	040467	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13903	040470	004 07 0 00 014701 		ER4	AC+1,14701		;C(AC+1) WAS MODIFIED INCORRECTLY
 13904	040471	321 10 0 00 040462 		JUMPL	AC+2,E14700		;LOOP ON ERROR SWITCH^
 13905
 13906					;SHIFT CONNECTIONS TEST
 13907					;TEST AR34 SHRT INP-ZERO'S - ASH AC,-1
 13908					;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 
 13909						SR1	(150,-1,-5,-1,-3,ASH,-1)^
 13910					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-5] -1 BIT
 13911					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-3]
 13912					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13913
 13914	040472	200 06 0 00 041635 	E15000:	MOVE	AC,[XWD -1,-5]	;INITIALIZE AC
 13915	040473	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13916	040474	240 06 0 00 777777 		ASH	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13917	040475	312 06 0 00 041630 		CAME	AC,[XWD -1,-3]	;IS RESULT IN AC CORRECT?
 13918	040476	003 06 0 00 015001 		ER3	AC,15001			;RESULT IN AC IS INCORRECT
 13919	040477	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13920	040500	004 07 0 00 015001 		ER4	AC+1,15001		;C(AC+1) WAS MODIFIED INCORRECTLY
 13921	040501	321 10 0 00 040472 		JUMPL	AC+2,E15000		;LOOP ON ERROR SWITCH^
 13922
 13923					;SHIFT CONNECTIONS TEST
 13924					;TEST AR35 SHRT INP-ONE'S - ASH AC,-1
 13925					;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 
 13926						SR1	(151,0,2,0,1,ASH,-1)^
 13927					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,2] -1 BIT
 13928					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,1]
 13929					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13930
 13931	040502	200 06 0 00 041623 	E15100:	MOVE	AC,[XWD 0,2]	;INITIALIZE AC
 13932	040503	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13933	040504	240 06 0 00 777777 		ASH	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13934	040505	312 06 0 00 041625 		CAME	AC,[XWD 0,1]	;IS RESULT IN AC CORRECT?
 13935	040506	003 06 0 00 015101 		ER3	AC,15101			;RESULT IN AC IS INCORRECT
 13936	040507	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13937	040510	004 07 0 00 015101 		ER4	AC+1,15101		;C(AC+1) WAS MODIFIED INCORRECTLY
 13938	040511	321 10 0 00 040502 		JUMPL	AC+2,E15100		;LOOP ON ERROR SWITCH^
 13939
 13940					;SHIFT CONNECTIONS TEST
 13941					;TEST AR35 SHRT INP-ZERO'S - ASH AC,-1
 13942					;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 
 13943						SR1	(152,-1,-3,-1,-2,ASH,-1)^
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 35-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH)                                    SEQ 0300

 13944					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-3] -1 BIT
 13945					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-2]
 13946					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13947
 13948	040512	200 06 0 00 041630 	E15200:	MOVE	AC,[XWD -1,-3]	;INITIALIZE AC
 13949	040513	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13950	040514	240 06 0 00 777777 		ASH	AC,-1			;*SHIFT/ROTATE -1 BIT POSITIONS
 13951	040515	312 06 0 00 041627 		CAME	AC,[XWD -1,-2]	;IS RESULT IN AC CORRECT?
 13952	040516	003 06 0 00 015201 		ER3	AC,15201			;RESULT IN AC IS INCORRECT
 13953	040517	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13954	040520	004 07 0 00 015201 		ER4	AC+1,15201		;C(AC+1) WAS MODIFIED INCORRECTLY
 13955	040521	321 10 0 00 040512 		JUMPL	AC+2,E15200		;LOOP ON ERROR SWITCH^
 13956
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 36
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH)                                    SEQ 0301

 13957					;SHIFT CONNECTIONS TEST
 13958					;TEST AR0 SHRT INP-ONE'S - ASH AC,-2
 13959					;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 
 13960						SR1	(153,400000,0,700000,0,ASH,-2)^
 13961					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 400000,0] -2 BIT
 13962					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 700000,0]
 13963					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13964
 13965	040522	200 06 0 00 041624 	E15300:	MOVE	AC,[XWD 400000,0]	;INITIALIZE AC
 13966	040523	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13967	040524	240 06 0 00 777776 		ASH	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 13968	040525	312 06 0 00 041647 		CAME	AC,[XWD 700000,0]	;IS RESULT IN AC CORRECT?
 13969	040526	003 06 0 00 015301 		ER3	AC,15301			;RESULT IN AC IS INCORRECT
 13970	040527	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13971	040530	004 07 0 00 015301 		ER4	AC+1,15301		;C(AC+1) WAS MODIFIED INCORRECTLY
 13972	040531	321 10 0 00 040522 		JUMPL	AC+2,E15300		;LOOP ON ERROR SWITCH^
 13973
 13974					;SHIFT CONNECTIONS TEST
 13975					;TEST AR0 SHRT INP-ZERO'S - ASH AC,-2
 13976					;TEST ABILITY TO SHIFT INTO BIT 0 OF AR 
 13977						SR1	(154,377777,-1,077777,-1,ASH,-2)^
 13978					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 377777,-1] -2 BIT
 13979					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 077777,-1]
 13980					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13981
 13982	040532	200 06 0 00 041626 	E15400:	MOVE	AC,[XWD 377777,-1]	;INITIALIZE AC
 13983	040533	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 13984	040534	240 06 0 00 777776 		ASH	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 13985	040535	312 06 0 00 041650 		CAME	AC,[XWD 077777,-1]	;IS RESULT IN AC CORRECT?
 13986	040536	003 06 0 00 015401 		ER3	AC,15401			;RESULT IN AC IS INCORRECT
 13987	040537	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 13988	040540	004 07 0 00 015401 		ER4	AC+1,15401		;C(AC+1) WAS MODIFIED INCORRECTLY
 13989	040541	321 10 0 00 040532 		JUMPL	AC+2,E15400		;LOOP ON ERROR SWITCH^
 13990
 13991					;SHIFT CONNECTIONS TEST
 13992					;TEST AR1 SHRT INP-ONE'S - ASH AC,-2
 13993					;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 
 13994						SR1	(155,400000,0,700000,0,ASH,-2)^
 13995					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 400000,0] -2 BIT
 13996					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 700000,0]
 13997					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 13998
 13999	040542	200 06 0 00 041624 	E15500:	MOVE	AC,[XWD 400000,0]	;INITIALIZE AC
 14000	040543	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 14001	040544	240 06 0 00 777776 		ASH	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 14002	040545	312 06 0 00 041647 		CAME	AC,[XWD 700000,0]	;IS RESULT IN AC CORRECT?
 14003	040546	003 06 0 00 015501 		ER3	AC,15501			;RESULT IN AC IS INCORRECT
 14004	040547	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 14005	040550	004 07 0 00 015501 		ER4	AC+1,15501		;C(AC+1) WAS MODIFIED INCORRECTLY
 14006	040551	321 10 0 00 040542 		JUMPL	AC+2,E15500		;LOOP ON ERROR SWITCH^
 14007
 14008					;SHIFT CONNECTIONS TEST
 14009					;TEST AR1 SHRT INP-ZERO'S - ASH AC,-2
 14010					;TEST ABILITY TO SHIFT INTO BIT 1 OF AR 
 14011						SR1	(156,377777,-1,077777,-1,ASH,-2)^
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 36-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH)                                    SEQ 0302

 14012					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 377777,-1] -2 BIT
 14013					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 077777,-1]
 14014					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 14015
 14016	040552	200 06 0 00 041626 	E15600:	MOVE	AC,[XWD 377777,-1]	;INITIALIZE AC
 14017	040553	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 14018	040554	240 06 0 00 777776 		ASH	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 14019	040555	312 06 0 00 041650 		CAME	AC,[XWD 077777,-1]	;IS RESULT IN AC CORRECT?
 14020	040556	003 06 0 00 015601 		ER3	AC,15601			;RESULT IN AC IS INCORRECT
 14021	040557	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 14022	040560	004 07 0 00 015601 		ER4	AC+1,15601		;C(AC+1) WAS MODIFIED INCORRECTLY
 14023	040561	321 10 0 00 040552 		JUMPL	AC+2,E15600		;LOOP ON ERROR SWITCH^
 14024					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 36-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH)                                    SEQ 0303

 14025					;SHIFT CONNECTIONS TEST
 14026					;TEST AR34 SHRT INP-ONE'S - ASH AC,-2
 14027					;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 
 14028						SR1	(157,0,10,0,2,ASH,-2)^
 14029					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,10] -2 BIT
 14030					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,2]
 14031					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 14032
 14033	040562	200 06 0 00 041617 	E15700:	MOVE	AC,[XWD 0,10]	;INITIALIZE AC
 14034	040563	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 14035	040564	240 06 0 00 777776 		ASH	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 14036	040565	312 06 0 00 041623 		CAME	AC,[XWD 0,2]	;IS RESULT IN AC CORRECT?
 14037	040566	003 06 0 00 015701 		ER3	AC,15701			;RESULT IN AC IS INCORRECT
 14038	040567	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 14039	040570	004 07 0 00 015701 		ER4	AC+1,15701		;C(AC+1) WAS MODIFIED INCORRECTLY
 14040	040571	321 10 0 00 040562 		JUMPL	AC+2,E15700		;LOOP ON ERROR SWITCH^
 14041
 14042					;SHIFT CONNECTIONS TEST
 14043					;TEST AR34 SHRT INP-ZERO'S - ASH AC,-2
 14044					;TEST ABILITY TO SHIFT INTO BIT 34 OF AR 
 14045						SR1	(160,-1,-11,-1,-3,ASH,-2)^
 14046					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-11] -2 BIT
 14047					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-3]
 14048					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 14049
 14050	040572	200 06 0 00 041636 	E16000:	MOVE	AC,[XWD -1,-11]	;INITIALIZE AC
 14051	040573	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 14052	040574	240 06 0 00 777776 		ASH	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 14053	040575	312 06 0 00 041630 		CAME	AC,[XWD -1,-3]	;IS RESULT IN AC CORRECT?
 14054	040576	003 06 0 00 016001 		ER3	AC,16001			;RESULT IN AC IS INCORRECT
 14055	040577	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 14056	040600	004 07 0 00 016001 		ER4	AC+1,16001		;C(AC+1) WAS MODIFIED INCORRECTLY
 14057	040601	321 10 0 00 040572 		JUMPL	AC+2,E16000		;LOOP ON ERROR SWITCH^
 14058
 14059					;SHIFT CONNECTIONS TEST
 14060					;TEST AR35 SHRT INP-ONE'S - ASH AC,-2
 14061					;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 
 14062						SR1	(161,0,4,0,1,ASH,-2)^
 14063					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 0,4] -2 BIT
 14064					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 0,1]
 14065					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 14066
 14067	040602	200 06 0 00 041622 	E16100:	MOVE	AC,[XWD 0,4]	;INITIALIZE AC
 14068	040603	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 14069	040604	240 06 0 00 777776 		ASH	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 14070	040605	312 06 0 00 041625 		CAME	AC,[XWD 0,1]	;IS RESULT IN AC CORRECT?
 14071	040606	003 06 0 00 016101 		ER3	AC,16101			;RESULT IN AC IS INCORRECT
 14072	040607	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 14073	040610	004 07 0 00 016101 		ER4	AC+1,16101		;C(AC+1) WAS MODIFIED INCORRECTLY
 14074	040611	321 10 0 00 040602 		JUMPL	AC+2,E16100		;LOOP ON ERROR SWITCH^
 14075
 14076					;SHIFT CONNECTIONS TEST
 14077					;TEST AR35 SHRT INP-ZERO'S - ASH AC,-2
 14078					;TEST ABILITY TO SHIFT INTO BIT 35 OF AR 
 14079						SR1	(162,-1,-5,-1,-2,ASH,-2)^
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 36-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASH)                                    SEQ 0304

 14080					;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD -1,-5] -2 BIT
 14081					;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD -1,-2]
 14082					;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
 14083
 14084	040612	200 06 0 00 041635 	E16200:	MOVE	AC,[XWD -1,-5]	;INITIALIZE AC
 14085	040613	200 07 0 00 041620 		MOVE	AC+1,[XWD 741703,607417];INITIALIZE AC+1
 14086	040614	240 06 0 00 777776 		ASH	AC,-2			;*SHIFT/ROTATE -2 BIT POSITIONS
 14087	040615	312 06 0 00 041627 		CAME	AC,[XWD -1,-2]	;IS RESULT IN AC CORRECT?
 14088	040616	003 06 0 00 016201 		ER3	AC,16201			;RESULT IN AC IS INCORRECT
 14089	040617	312 07 0 00 041620 		CAME	AC+1,[XWD 741703,607417]
 14090	040620	004 07 0 00 016201 		ER4	AC+1,16201		;C(AC+1) WAS MODIFIED INCORRECTLY
 14091	040621	321 10 0 00 040612 		JUMPL	AC+2,E16200		;LOOP ON ERROR SWITCH^
 14092
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 37
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0305

 14093					SUBTTL	DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)
 14094
 14095					;END CONNECTIONS-ROTC
 14096					;TEST AR-MQ END BIT INPUT GATES
 14097					;TEST LEFT-AR0,1,34,35 SHLT INP GATES
 14098					;          MQ0,1,34,35 SHLT INP GATES
 14099					;TEST RIGHT-AR0,1,34,35 SHRT INP GATES
 14100					;	   MQ0,1,34,35 SHRT INPUT GATES
 14101					;AC,AC+1 ARE ROTATED LEFT/RIGHT AND
 14102					;END BITS ARE TESTED
 14103					;TEST ASSUMES BOTH REGISTERS ARE
 14104					;CAPABLE OF ROTATING 1,-1 AND -2 BIT POSITIONS CORRECTLY
 14105
 14106					;SHIFT CONNECTIONS TEST
 14107					;TEST MQ35 SHLT INP-ONE'S - ROTC AC,1
 14108					;TEST ABILITY TO ROTATE INTO BIT 35 OF MQ 
 14109						SR2	(163,400000,0,0,0,0,0,0,1,ROTC,1)^
 14110					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14111					;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 0,0] 1 BIT POSITIONS AND
 14112					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
 14113					;[XWD 0,1]
 14114
 14115	040622	200 06 0 00 041624 	E16300:	MOVE	AC,[XWD 400000,0]	;INITIALIZE AC
 14116	040623	200 07 0 00 041615 		MOVE	AC+1,[XWD 0,0]	;INITIALIZE AC+1
 14117	040624	245 06 0 00 000001 		ROTC	AC,1			;*SHIFT/ROTATE COMBINED 1 PLACES
 14118	040625	312 06 0 00 041615 		CAME	AC,[XWD 0,0]	;IS RESULT IN AC CORRECT?
 14119	040626	003 06 0 00 016301 		ER3	AC,16301			;RESULT IN AC IS INCORRECT
 14120	040627	312 07 0 00 041625 		CAME	AC+1,[XWD 0,1]	;IS RESULT IN AC+1 CORRECT?
 14121	040630	004 07 0 00 016301 		ER4	AC+1,16301		;RESULT IN AC+1 IS INCORRECT
 14122	040631	321 10 0 00 040622 		JUMPL	AC+2,E16300		;LOOP ON ERROR SWITCH^
 14123
 14124					;SHIFT CONNECTIONS TEST
 14125					;TEST MQ35 SHLT INP-ZERO'S - ROTC AC,1
 14126					;TEST ABILITY TO ROTATE INTO BIT 35 OF MQ
 14127						SR2	(164,377777,-1,-1,-1,-1,-1,-1,-2,ROTC,1)^
 14128					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14129					;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND
 14130					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
 14131					;[XWD -1,-2]
 14132
 14133	040632	200 06 0 00 041626 	E16400:	MOVE	AC,[XWD 377777,-1]	;INITIALIZE AC
 14134	040633	200 07 0 00 041616 		MOVE	AC+1,[XWD -1,-1]	;INITIALIZE AC+1
 14135	040634	245 06 0 00 000001 		ROTC	AC,1			;*SHIFT/ROTATE COMBINED 1 PLACES
 14136	040635	312 06 0 00 041616 		CAME	AC,[XWD -1,-1]	;IS RESULT IN AC CORRECT?
 14137	040636	003 06 0 00 016401 		ER3	AC,16401			;RESULT IN AC IS INCORRECT
 14138	040637	312 07 0 00 041627 		CAME	AC+1,[XWD -1,-2]	;IS RESULT IN AC+1 CORRECT?
 14139	040640	004 07 0 00 016401 		ER4	AC+1,16401		;RESULT IN AC+1 IS INCORRECT
 14140	040641	321 10 0 00 040632 		JUMPL	AC+2,E16400		;LOOP ON ERROR SWITCH^
 14141
 14142					;SHIFT CONNECTIONS TEST
 14143					;TEST MQ34 SHLT INP-ONE'S - ROTC AC,1
 14144					;TEST ABILITY TO ROTATE INTO BIT 34 OF MQ
 14145						SR2	(165,0,0,0,1,0,0,0,2,ROTC,1)^
 14146					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14147					;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,1] 1 BIT POSITIONS AND
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 37-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0306

 14148					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
 14149					;[XWD 0,2]
 14150
 14151	040642	200 06 0 00 041615 	E16500:	MOVE	AC,[XWD 0,0]	;INITIALIZE AC
 14152	040643	200 07 0 00 041625 		MOVE	AC+1,[XWD 0,1]	;INITIALIZE AC+1
 14153	040644	245 06 0 00 000001 		ROTC	AC,1			;*SHIFT/ROTATE COMBINED 1 PLACES
 14154	040645	312 06 0 00 041615 		CAME	AC,[XWD 0,0]	;IS RESULT IN AC CORRECT?
 14155	040646	003 06 0 00 016501 		ER3	AC,16501			;RESULT IN AC IS INCORRECT
 14156	040647	312 07 0 00 041623 		CAME	AC+1,[XWD 0,2]	;IS RESULT IN AC+1 CORRECT?
 14157	040650	004 07 0 00 016501 		ER4	AC+1,16501		;RESULT IN AC+1 IS INCORRECT
 14158	040651	321 10 0 00 040642 		JUMPL	AC+2,E16500		;LOOP ON ERROR SWITCH^
 14159					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 37-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0307

 14160					;SHIFT CONNECTIONS TEST
 14161					;TEST MQ34 SHLT INP-ZERO'S - ROTC AC,1
 14162					;TEST ABILITY TO ROTATE INTO BIT 34 OF MQ 
 14163						SR2	(166,-1,-1,-1,-2,-1,-1,-1,-3,ROTC,1)^
 14164					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14165					;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-2] 1 BIT POSITIONS AND
 14166					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
 14167					;[XWD -1,-3]
 14168
 14169	040652	200 06 0 00 041616 	E16600:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
 14170	040653	200 07 0 00 041627 		MOVE	AC+1,[XWD -1,-2]	;INITIALIZE AC+1
 14171	040654	245 06 0 00 000001 		ROTC	AC,1			;*SHIFT/ROTATE COMBINED 1 PLACES
 14172	040655	312 06 0 00 041616 		CAME	AC,[XWD -1,-1]	;IS RESULT IN AC CORRECT?
 14173	040656	003 06 0 00 016601 		ER3	AC,16601			;RESULT IN AC IS INCORRECT
 14174	040657	312 07 0 00 041630 		CAME	AC+1,[XWD -1,-3]	;IS RESULT IN AC+1 CORRECT?
 14175	040660	004 07 0 00 016601 		ER4	AC+1,16601		;RESULT IN AC+1 IS INCORRECT
 14176	040661	321 10 0 00 040652 		JUMPL	AC+2,E16600		;LOOP ON ERROR SWITCH^
 14177
 14178					;SHIFT CONNECTIONS TEST
 14179					;TEST MQ1 SHLT INP-ONE'S - ROTC AC,1
 14180					;TEST ABILITY TO ROTATE INTO BIT 1 OF MQ 
 14181						SR2	(167,0,0,100000,0,0,0,200000,0,ROTC,1)^
 14182					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14183					;DATA SPECIFIED IN [XWD 0,0] AND [XWD 100000,0] 1 BIT POSITIONS AND
 14184					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
 14185					;[XWD 200000,0]
 14186
 14187	040662	200 06 0 00 041615 	E16700:	MOVE	AC,[XWD 0,0]	;INITIALIZE AC
 14188	040663	200 07 0 00 041631 		MOVE	AC+1,[XWD 100000,0]	;INITIALIZE AC+1
 14189	040664	245 06 0 00 000001 		ROTC	AC,1			;*SHIFT/ROTATE COMBINED 1 PLACES
 14190	040665	312 06 0 00 041615 		CAME	AC,[XWD 0,0]	;IS RESULT IN AC CORRECT?
 14191	040666	003 06 0 00 016701 		ER3	AC,16701			;RESULT IN AC IS INCORRECT
 14192	040667	312 07 0 00 041632 		CAME	AC+1,[XWD 200000,0]	;IS RESULT IN AC+1 CORRECT?
 14193	040670	004 07 0 00 016701 		ER4	AC+1,16701		;RESULT IN AC+1 IS INCORRECT
 14194	040671	321 10 0 00 040662 		JUMPL	AC+2,E16700		;LOOP ON ERROR SWITCH^
 14195
 14196					;SHIFT CONNECTIONS TEST
 14197					;TEST MQ1 SHLT INP-ZERO'S - ROTC AC,1
 14198					;TEST ABILITY TO ROTATE INTO BIT 1 OF MQ 
 14199						SR2	(170,-1,-1,677777,-1,-1,-1,577777,-1,ROTC,1)^
 14200					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14201					;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 677777,-1] 1 BIT POSITIONS AND
 14202					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
 14203					;[XWD 577777,-1]
 14204
 14205	040672	200 06 0 00 041616 	E17000:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
 14206	040673	200 07 0 00 041633 		MOVE	AC+1,[XWD 677777,-1]	;INITIALIZE AC+1
 14207	040674	245 06 0 00 000001 		ROTC	AC,1			;*SHIFT/ROTATE COMBINED 1 PLACES
 14208	040675	312 06 0 00 041616 		CAME	AC,[XWD -1,-1]	;IS RESULT IN AC CORRECT?
 14209	040676	003 06 0 00 017001 		ER3	AC,17001			;RESULT IN AC IS INCORRECT
 14210	040677	312 07 0 00 041634 		CAME	AC+1,[XWD 577777,-1]	;IS RESULT IN AC+1 CORRECT?
 14211	040700	004 07 0 00 017001 		ER4	AC+1,17001		;RESULT IN AC+1 IS INCORRECT
 14212	040701	321 10 0 00 040672 		JUMPL	AC+2,E17000		;LOOP ON ERROR SWITCH^
 14213					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 37-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0308

 14214					;SHIFT CONNECTIONS TEST
 14215					;TEST MQ0 SHLT INP-ONE'S - ROTC AC,1
 14216					;TEST ABILITY TO ROTATE INTO BIT 0 OF MQ 
 14217						SR2	(171,0,0,200000,0,0,0,400000,0,ROTC,1)^
 14218					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14219					;DATA SPECIFIED IN [XWD 0,0] AND [XWD 200000,0] 1 BIT POSITIONS AND
 14220					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
 14221					;[XWD 400000,0]
 14222
 14223	040702	200 06 0 00 041615 	E17100:	MOVE	AC,[XWD 0,0]	;INITIALIZE AC
 14224	040703	200 07 0 00 041632 		MOVE	AC+1,[XWD 200000,0]	;INITIALIZE AC+1
 14225	040704	245 06 0 00 000001 		ROTC	AC,1			;*SHIFT/ROTATE COMBINED 1 PLACES
 14226	040705	312 06 0 00 041615 		CAME	AC,[XWD 0,0]	;IS RESULT IN AC CORRECT?
 14227	040706	003 06 0 00 017101 		ER3	AC,17101			;RESULT IN AC IS INCORRECT
 14228	040707	312 07 0 00 041624 		CAME	AC+1,[XWD 400000,0]	;IS RESULT IN AC+1 CORRECT?
 14229	040710	004 07 0 00 017101 		ER4	AC+1,17101		;RESULT IN AC+1 IS INCORRECT
 14230	040711	321 10 0 00 040702 		JUMPL	AC+2,E17100		;LOOP ON ERROR SWITCH^
 14231
 14232					;SHIFT CONNECTIONS TEST
 14233					;TEST MQ0 SHLT INP-ZERO'S - ROTC AC,1
 14234					;TEST ABILITY TO ROTATE INTO BIT 0 OF MQ 
 14235						SR2	(172,-1,-1,577777,-1,-1,-1,377777,-1,ROTC,1)^
 14236					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14237					;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 577777,-1] 1 BIT POSITIONS AND
 14238					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
 14239					;[XWD 377777,-1]
 14240
 14241	040712	200 06 0 00 041616 	E17200:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
 14242	040713	200 07 0 00 041634 		MOVE	AC+1,[XWD 577777,-1]	;INITIALIZE AC+1
 14243	040714	245 06 0 00 000001 		ROTC	AC,1			;*SHIFT/ROTATE COMBINED 1 PLACES
 14244	040715	312 06 0 00 041616 		CAME	AC,[XWD -1,-1]	;IS RESULT IN AC CORRECT?
 14245	040716	003 06 0 00 017201 		ER3	AC,17201			;RESULT IN AC IS INCORRECT
 14246	040717	312 07 0 00 041626 		CAME	AC+1,[XWD 377777,-1]	;IS RESULT IN AC+1 CORRECT?
 14247	040720	004 07 0 00 017201 		ER4	AC+1,17201		;RESULT IN AC+1 IS INCORRECT
 14248	040721	321 10 0 00 040712 		JUMPL	AC+2,E17200		;LOOP ON ERROR SWITCH^
 14249
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 38
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0309

 14250					;SHIFT CONNECTIONS TEST
 14251					;TEST AR35 SHLT INP-ONE'S - ROTC AC,1
 14252					;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 
 14253						SR2	(173,0,0,400000,0,0,1,0,0,ROTC,1)^
 14254					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14255					;DATA SPECIFIED IN [XWD 0,0] AND [XWD 400000,0] 1 BIT POSITIONS AND
 14256					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND
 14257					;[XWD 0,0]
 14258
 14259	040722	200 06 0 00 041615 	E17300:	MOVE	AC,[XWD 0,0]	;INITIALIZE AC
 14260	040723	200 07 0 00 041624 		MOVE	AC+1,[XWD 400000,0]	;INITIALIZE AC+1
 14261	040724	245 06 0 00 000001 		ROTC	AC,1			;*SHIFT/ROTATE COMBINED 1 PLACES
 14262	040725	312 06 0 00 041625 		CAME	AC,[XWD 0,1]	;IS RESULT IN AC CORRECT?
 14263	040726	003 06 0 00 017301 		ER3	AC,17301			;RESULT IN AC IS INCORRECT
 14264	040727	312 07 0 00 041615 		CAME	AC+1,[XWD 0,0]	;IS RESULT IN AC+1 CORRECT?
 14265	040730	004 07 0 00 017301 		ER4	AC+1,17301		;RESULT IN AC+1 IS INCORRECT
 14266	040731	321 10 0 00 040722 		JUMPL	AC+2,E17300		;LOOP ON ERROR SWITCH^
 14267
 14268					;SHIFT CONNECTIONS TEST
 14269					;TEST AR35 SHLT INP-ZERO'S - ROTC AC,1
 14270					;TEST ABILITY TO ROTATE INTO BIT 35 OF AR
 14271						SR2	(174,-1,-1,377777,-1,-1,-2,-1,-1,ROTC,1)^
 14272					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14273					;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 377777,-1] 1 BIT POSITIONS AND
 14274					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-2] AND
 14275					;[XWD -1,-1]
 14276
 14277	040732	200 06 0 00 041616 	E17400:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
 14278	040733	200 07 0 00 041626 		MOVE	AC+1,[XWD 377777,-1]	;INITIALIZE AC+1
 14279	040734	245 06 0 00 000001 		ROTC	AC,1			;*SHIFT/ROTATE COMBINED 1 PLACES
 14280	040735	312 06 0 00 041627 		CAME	AC,[XWD -1,-2]	;IS RESULT IN AC CORRECT?
 14281	040736	003 06 0 00 017401 		ER3	AC,17401			;RESULT IN AC IS INCORRECT
 14282	040737	312 07 0 00 041616 		CAME	AC+1,[XWD -1,-1]	;IS RESULT IN AC+1 CORRECT?
 14283	040740	004 07 0 00 017401 		ER4	AC+1,17401		;RESULT IN AC+1 IS INCORRECT
 14284	040741	321 10 0 00 040732 		JUMPL	AC+2,E17400		;LOOP ON ERROR SWITCH^
 14285
 14286					;SHIFT CONNECTIONS TEST
 14287					;TEST AR34 SHLT INP-ONE'S - ROTC AC,1
 14288					;TEST ABILITY TO ROTATE INTO BIT 34 OF AR
 14289						SR2	(175,0,1,0,0,0,2,0,0,ROTC,1)^
 14290					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14291					;DATA SPECIFIED IN [XWD 0,1] AND [XWD 0,0] 1 BIT POSITIONS AND
 14292					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND
 14293					;[XWD 0,0]
 14294
 14295	040742	200 06 0 00 041625 	E17500:	MOVE	AC,[XWD 0,1]	;INITIALIZE AC
 14296	040743	200 07 0 00 041615 		MOVE	AC+1,[XWD 0,0]	;INITIALIZE AC+1
 14297	040744	245 06 0 00 000001 		ROTC	AC,1			;*SHIFT/ROTATE COMBINED 1 PLACES
 14298	040745	312 06 0 00 041623 		CAME	AC,[XWD 0,2]	;IS RESULT IN AC CORRECT?
 14299	040746	003 06 0 00 017501 		ER3	AC,17501			;RESULT IN AC IS INCORRECT
 14300	040747	312 07 0 00 041615 		CAME	AC+1,[XWD 0,0]	;IS RESULT IN AC+1 CORRECT?
 14301	040750	004 07 0 00 017501 		ER4	AC+1,17501		;RESULT IN AC+1 IS INCORRECT
 14302	040751	321 10 0 00 040742 		JUMPL	AC+2,E17500		;LOOP ON ERROR SWITCH^
 14303
 14304					;SHIFT CONNECTIONS TEST
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 38-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0310

 14305					;TEST AR34 SHLT INP-ZERO'S - ROTC AC,1
 14306					;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 
 14307						SR2	(176,-1,-2,-1,-1,-1,-3,-1,-1,ROTC,1)^
 14308					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14309					;DATA SPECIFIED IN [XWD -1,-2] AND [XWD -1,-1] 1 BIT POSITIONS AND
 14310					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-3] AND
 14311					;[XWD -1,-1]
 14312
 14313	040752	200 06 0 00 041627 	E17600:	MOVE	AC,[XWD -1,-2]	;INITIALIZE AC
 14314	040753	200 07 0 00 041616 		MOVE	AC+1,[XWD -1,-1]	;INITIALIZE AC+1
 14315	040754	245 06 0 00 000001 		ROTC	AC,1			;*SHIFT/ROTATE COMBINED 1 PLACES
 14316	040755	312 06 0 00 041630 		CAME	AC,[XWD -1,-3]	;IS RESULT IN AC CORRECT?
 14317	040756	003 06 0 00 017601 		ER3	AC,17601			;RESULT IN AC IS INCORRECT
 14318	040757	312 07 0 00 041616 		CAME	AC+1,[XWD -1,-1]	;IS RESULT IN AC+1 CORRECT?
 14319	040760	004 07 0 00 017601 		ER4	AC+1,17601		;RESULT IN AC+1 IS INCORRECT
 14320	040761	321 10 0 00 040752 		JUMPL	AC+2,E17600		;LOOP ON ERROR SWITCH^
 14321					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 38-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0311

 14322					;SHIFT CONNECTIONS TEST
 14323					;TEST AR1 SHLT INP-ONE'S - ROTC AC,1
 14324					;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 
 14325						SR2	(177,100000,0,0,0,200000,0,0,0,ROTC,1)^
 14326					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14327					;DATA SPECIFIED IN [XWD 100000,0] AND [XWD 0,0] 1 BIT POSITIONS AND
 14328					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 200000,0] AND
 14329					;[XWD 0,0]
 14330
 14331	040762	200 06 0 00 041631 	E17700:	MOVE	AC,[XWD 100000,0]	;INITIALIZE AC
 14332	040763	200 07 0 00 041615 		MOVE	AC+1,[XWD 0,0]	;INITIALIZE AC+1
 14333	040764	245 06 0 00 000001 		ROTC	AC,1			;*SHIFT/ROTATE COMBINED 1 PLACES
 14334	040765	312 06 0 00 041632 		CAME	AC,[XWD 200000,0]	;IS RESULT IN AC CORRECT?
 14335	040766	003 06 0 00 017701 		ER3	AC,17701			;RESULT IN AC IS INCORRECT
 14336	040767	312 07 0 00 041615 		CAME	AC+1,[XWD 0,0]	;IS RESULT IN AC+1 CORRECT?
 14337	040770	004 07 0 00 017701 		ER4	AC+1,17701		;RESULT IN AC+1 IS INCORRECT
 14338	040771	321 10 0 00 040762 		JUMPL	AC+2,E17700		;LOOP ON ERROR SWITCH^
 14339
 14340					;SHIFT CONNECTIONS TEST
 14341					;TEST AR1 SHLT INP-ZERO'S - ROTC AC,1
 14342					;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 
 14343						SR2	(200,677777,-1,-1,-1,577777,-1,-1,-1,ROTC,1)^
 14344					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14345					;DATA SPECIFIED IN [XWD 677777,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND
 14346					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 577777,-1] AND
 14347					;[XWD -1,-1]
 14348
 14349	040772	200 06 0 00 041633 	E20000:	MOVE	AC,[XWD 677777,-1]	;INITIALIZE AC
 14350	040773	200 07 0 00 041616 		MOVE	AC+1,[XWD -1,-1]	;INITIALIZE AC+1
 14351	040774	245 06 0 00 000001 		ROTC	AC,1			;*SHIFT/ROTATE COMBINED 1 PLACES
 14352	040775	312 06 0 00 041634 		CAME	AC,[XWD 577777,-1]	;IS RESULT IN AC CORRECT?
 14353	040776	003 06 0 00 020001 		ER3	AC,20001			;RESULT IN AC IS INCORRECT
 14354	040777	312 07 0 00 041616 		CAME	AC+1,[XWD -1,-1]	;IS RESULT IN AC+1 CORRECT?
 14355	041000	004 07 0 00 020001 		ER4	AC+1,20001		;RESULT IN AC+1 IS INCORRECT
 14356	041001	321 10 0 00 040772 		JUMPL	AC+2,E20000		;LOOP ON ERROR SWITCH^
 14357
 14358					;SHIFT CONNECTIONS TEST
 14359					;TEST AR0 SHLT INP-ONE'S - ROTC AC,1
 14360					;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 
 14361						SR2	(201,200000,0,0,0,400000,0,0,0,ROTC,1)^
 14362					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14363					;DATA SPECIFIED IN [XWD 200000,0] AND [XWD 0,0] 1 BIT POSITIONS AND
 14364					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 400000,0] AND
 14365					;[XWD 0,0]
 14366
 14367	041002	200 06 0 00 041632 	E20100:	MOVE	AC,[XWD 200000,0]	;INITIALIZE AC
 14368	041003	200 07 0 00 041615 		MOVE	AC+1,[XWD 0,0]	;INITIALIZE AC+1
 14369	041004	245 06 0 00 000001 		ROTC	AC,1			;*SHIFT/ROTATE COMBINED 1 PLACES
 14370	041005	312 06 0 00 041624 		CAME	AC,[XWD 400000,0]	;IS RESULT IN AC CORRECT?
 14371	041006	003 06 0 00 020101 		ER3	AC,20101			;RESULT IN AC IS INCORRECT
 14372	041007	312 07 0 00 041615 		CAME	AC+1,[XWD 0,0]	;IS RESULT IN AC+1 CORRECT?
 14373	041010	004 07 0 00 020101 		ER4	AC+1,20101		;RESULT IN AC+1 IS INCORRECT
 14374	041011	321 10 0 00 041002 		JUMPL	AC+2,E20100		;LOOP ON ERROR SWITCH^
 14375
 14376					;SHIFT CONNECTIONS TEST
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 38-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0312

 14377					;TEST AR0 SHLT INP-ZERO'S - ROTC AC,1
 14378					;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 
 14379						SR2	(202,577777,-1,-1,-1,377777,-1,-1,-1,ROTC,1)^
 14380					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14381					;DATA SPECIFIED IN [XWD 577777,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND
 14382					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND
 14383					;[XWD -1,-1]
 14384
 14385	041012	200 06 0 00 041634 	E20200:	MOVE	AC,[XWD 577777,-1]	;INITIALIZE AC
 14386	041013	200 07 0 00 041616 		MOVE	AC+1,[XWD -1,-1]	;INITIALIZE AC+1
 14387	041014	245 06 0 00 000001 		ROTC	AC,1			;*SHIFT/ROTATE COMBINED 1 PLACES
 14388	041015	312 06 0 00 041626 		CAME	AC,[XWD 377777,-1]	;IS RESULT IN AC CORRECT?
 14389	041016	003 06 0 00 020201 		ER3	AC,20201			;RESULT IN AC IS INCORRECT
 14390	041017	312 07 0 00 041616 		CAME	AC+1,[XWD -1,-1]	;IS RESULT IN AC+1 CORRECT?
 14391	041020	004 07 0 00 020201 		ER4	AC+1,20201		;RESULT IN AC+1 IS INCORRECT
 14392	041021	321 10 0 00 041012 		JUMPL	AC+2,E20200		;LOOP ON ERROR SWITCH^
 14393
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 39
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0313

 14394					;SHIFT CONNECTIONS TEST
 14395					;TEST AR0 SHRT INP-ONE'S - ROTC AC,-1
 14396					;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 
 14397						SR2	(203,0,0,0,1,400000,0,0,0,ROTC,-1)^
 14398					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14399					;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,1] -1 BIT POSITIONS AND
 14400					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 400000,0] AND
 14401					;[XWD 0,0]
 14402
 14403	041022	200 06 0 00 041615 	E20300:	MOVE	AC,[XWD 0,0]	;INITIALIZE AC
 14404	041023	200 07 0 00 041625 		MOVE	AC+1,[XWD 0,1]	;INITIALIZE AC+1
 14405	041024	245 06 0 00 777777 		ROTC	AC,-1			;*SHIFT/ROTATE COMBINED -1 PLACES
 14406	041025	312 06 0 00 041624 		CAME	AC,[XWD 400000,0]	;IS RESULT IN AC CORRECT?
 14407	041026	003 06 0 00 020301 		ER3	AC,20301			;RESULT IN AC IS INCORRECT
 14408	041027	312 07 0 00 041615 		CAME	AC+1,[XWD 0,0]	;IS RESULT IN AC+1 CORRECT?
 14409	041030	004 07 0 00 020301 		ER4	AC+1,20301		;RESULT IN AC+1 IS INCORRECT
 14410	041031	321 10 0 00 041022 		JUMPL	AC+2,E20300		;LOOP ON ERROR SWITCH^
 14411
 14412					;SHIFT CONNECTIONS TEST
 14413					;TEST AR0 SHRT INP-ZERO'S - ROTC AC,-1
 14414					;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 
 14415						SR2	(204,-1,-1,-1,-2,377777,-1,-1,-1,ROTC,-1)^
 14416					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14417					;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-2] -1 BIT POSITIONS AND
 14418					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND
 14419					;[XWD -1,-1]
 14420
 14421	041032	200 06 0 00 041616 	E20400:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
 14422	041033	200 07 0 00 041627 		MOVE	AC+1,[XWD -1,-2]	;INITIALIZE AC+1
 14423	041034	245 06 0 00 777777 		ROTC	AC,-1			;*SHIFT/ROTATE COMBINED -1 PLACES
 14424	041035	312 06 0 00 041626 		CAME	AC,[XWD 377777,-1]	;IS RESULT IN AC CORRECT?
 14425	041036	003 06 0 00 020401 		ER3	AC,20401			;RESULT IN AC IS INCORRECT
 14426	041037	312 07 0 00 041616 		CAME	AC+1,[XWD -1,-1]	;IS RESULT IN AC+1 CORRECT?
 14427	041040	004 07 0 00 020401 		ER4	AC+1,20401		;RESULT IN AC+1 IS INCORRECT
 14428	041041	321 10 0 00 041032 		JUMPL	AC+2,E20400		;LOOP ON ERROR SWITCH^
 14429
 14430					;SHIFT CONNECTIONS TEST
 14431					;TEST AR1 SHRT INP-ONE'S - ROTC AC,-1
 14432					;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 
 14433						SR2	(205,400000,0,0,0,200000,0,0,0,ROTC,-1)^
 14434					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14435					;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 0,0] -1 BIT POSITIONS AND
 14436					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 200000,0] AND
 14437					;[XWD 0,0]
 14438
 14439	041042	200 06 0 00 041624 	E20500:	MOVE	AC,[XWD 400000,0]	;INITIALIZE AC
 14440	041043	200 07 0 00 041615 		MOVE	AC+1,[XWD 0,0]	;INITIALIZE AC+1
 14441	041044	245 06 0 00 777777 		ROTC	AC,-1			;*SHIFT/ROTATE COMBINED -1 PLACES
 14442	041045	312 06 0 00 041632 		CAME	AC,[XWD 200000,0]	;IS RESULT IN AC CORRECT?
 14443	041046	003 06 0 00 020501 		ER3	AC,20501			;RESULT IN AC IS INCORRECT
 14444	041047	312 07 0 00 041615 		CAME	AC+1,[XWD 0,0]	;IS RESULT IN AC+1 CORRECT?
 14445	041050	004 07 0 00 020501 		ER4	AC+1,20501		;RESULT IN AC+1 IS INCORRECT
 14446	041051	321 10 0 00 041042 		JUMPL	AC+2,E20500		;LOOP ON ERROR SWITCH^
 14447
 14448					;SHIFT CONNECTIONS TEST
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 39-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0314

 14449					;TEST AR1 SHRT INP-ZERO'S - ROTC AC,-1
 14450					;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 
 14451						SR2	(206,377777,-1,-1,-1,577777,-1,-1,-1,ROTC,-1)^
 14452					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14453					;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD -1,-1] -1 BIT POSITIONS AND
 14454					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 577777,-1] AND
 14455					;[XWD -1,-1]
 14456
 14457	041052	200 06 0 00 041626 	E20600:	MOVE	AC,[XWD 377777,-1]	;INITIALIZE AC
 14458	041053	200 07 0 00 041616 		MOVE	AC+1,[XWD -1,-1]	;INITIALIZE AC+1
 14459	041054	245 06 0 00 777777 		ROTC	AC,-1			;*SHIFT/ROTATE COMBINED -1 PLACES
 14460	041055	312 06 0 00 041634 		CAME	AC,[XWD 577777,-1]	;IS RESULT IN AC CORRECT?
 14461	041056	003 06 0 00 020601 		ER3	AC,20601			;RESULT IN AC IS INCORRECT
 14462	041057	312 07 0 00 041616 		CAME	AC+1,[XWD -1,-1]	;IS RESULT IN AC+1 CORRECT?
 14463	041060	004 07 0 00 020601 		ER4	AC+1,20601		;RESULT IN AC+1 IS INCORRECT
 14464	041061	321 10 0 00 041052 		JUMPL	AC+2,E20600		;LOOP ON ERROR SWITCH^
 14465					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 39-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0315

 14466					;SHIFT CONNECTIONS TEST
 14467					;TEST AR34 SHRT INP-ONE'S - ROTC AC,-1
 14468					;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 
 14469						SR2	(207,0,4,0,0,0,2,0,0,ROTC,-1)^
 14470					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14471					;DATA SPECIFIED IN [XWD 0,4] AND [XWD 0,0] -1 BIT POSITIONS AND
 14472					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND
 14473					;[XWD 0,0]
 14474
 14475	041062	200 06 0 00 041622 	E20700:	MOVE	AC,[XWD 0,4]	;INITIALIZE AC
 14476	041063	200 07 0 00 041615 		MOVE	AC+1,[XWD 0,0]	;INITIALIZE AC+1
 14477	041064	245 06 0 00 777777 		ROTC	AC,-1			;*SHIFT/ROTATE COMBINED -1 PLACES
 14478	041065	312 06 0 00 041623 		CAME	AC,[XWD 0,2]	;IS RESULT IN AC CORRECT?
 14479	041066	003 06 0 00 020701 		ER3	AC,20701			;RESULT IN AC IS INCORRECT
 14480	041067	312 07 0 00 041615 		CAME	AC+1,[XWD 0,0]	;IS RESULT IN AC+1 CORRECT?
 14481	041070	004 07 0 00 020701 		ER4	AC+1,20701		;RESULT IN AC+1 IS INCORRECT
 14482	041071	321 10 0 00 041062 		JUMPL	AC+2,E20700		;LOOP ON ERROR SWITCH^
 14483
 14484					;SHIFT CONNECTIONS TEST
 14485					;TEST AR34 SHRT INP-ZERO'S - ROTC AC,-1
 14486					;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 
 14487						SR2	(210,-1,-5,-1,-1,-1,-3,-1,-1,ROTC,-1)^
 14488					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14489					;DATA SPECIFIED IN [XWD -1,-5] AND [XWD -1,-1] -1 BIT POSITIONS AND
 14490					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-3] AND
 14491					;[XWD -1,-1]
 14492
 14493	041072	200 06 0 00 041635 	E21000:	MOVE	AC,[XWD -1,-5]	;INITIALIZE AC
 14494	041073	200 07 0 00 041616 		MOVE	AC+1,[XWD -1,-1]	;INITIALIZE AC+1
 14495	041074	245 06 0 00 777777 		ROTC	AC,-1			;*SHIFT/ROTATE COMBINED -1 PLACES
 14496	041075	312 06 0 00 041630 		CAME	AC,[XWD -1,-3]	;IS RESULT IN AC CORRECT?
 14497	041076	003 06 0 00 021001 		ER3	AC,21001			;RESULT IN AC IS INCORRECT
 14498	041077	312 07 0 00 041616 		CAME	AC+1,[XWD -1,-1]	;IS RESULT IN AC+1 CORRECT?
 14499	041100	004 07 0 00 021001 		ER4	AC+1,21001		;RESULT IN AC+1 IS INCORRECT
 14500	041101	321 10 0 00 041072 		JUMPL	AC+2,E21000		;LOOP ON ERROR SWITCH^
 14501
 14502					;SHIFT CONNECTIONS TEST
 14503					;TEST AR35 SHRT INP-ONE'S - ROTC AC,-1
 14504					;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 
 14505						SR2	(211,0,2,0,0,0,1,0,0,ROTC,-1)^
 14506					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14507					;DATA SPECIFIED IN [XWD 0,2] AND [XWD 0,0] -1 BIT POSITIONS AND
 14508					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND
 14509					;[XWD 0,0]
 14510
 14511	041102	200 06 0 00 041623 	E21100:	MOVE	AC,[XWD 0,2]	;INITIALIZE AC
 14512	041103	200 07 0 00 041615 		MOVE	AC+1,[XWD 0,0]	;INITIALIZE AC+1
 14513	041104	245 06 0 00 777777 		ROTC	AC,-1			;*SHIFT/ROTATE COMBINED -1 PLACES
 14514	041105	312 06 0 00 041625 		CAME	AC,[XWD 0,1]	;IS RESULT IN AC CORRECT?
 14515	041106	003 06 0 00 021101 		ER3	AC,21101			;RESULT IN AC IS INCORRECT
 14516	041107	312 07 0 00 041615 		CAME	AC+1,[XWD 0,0]	;IS RESULT IN AC+1 CORRECT?
 14517	041110	004 07 0 00 021101 		ER4	AC+1,21101		;RESULT IN AC+1 IS INCORRECT
 14518	041111	321 10 0 00 041102 		JUMPL	AC+2,E21100		;LOOP ON ERROR SWITCH^
 14519
 14520					;SHIFT CONNECTIONS TEST
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 39-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0316

 14521					;TEST AR35 SHRT INP-ZERO'S - ROTC AC,-1
 14522					;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 
 14523						SR2	(212,-1,-3,-1,-1,-1,-2,-1,-1,ROTC,-1)^
 14524					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14525					;DATA SPECIFIED IN [XWD -1,-3] AND [XWD -1,-1] -1 BIT POSITIONS AND
 14526					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-2] AND
 14527					;[XWD -1,-1]
 14528
 14529	041112	200 06 0 00 041630 	E21200:	MOVE	AC,[XWD -1,-3]	;INITIALIZE AC
 14530	041113	200 07 0 00 041616 		MOVE	AC+1,[XWD -1,-1]	;INITIALIZE AC+1
 14531	041114	245 06 0 00 777777 		ROTC	AC,-1			;*SHIFT/ROTATE COMBINED -1 PLACES
 14532	041115	312 06 0 00 041627 		CAME	AC,[XWD -1,-2]	;IS RESULT IN AC CORRECT?
 14533	041116	003 06 0 00 021201 		ER3	AC,21201			;RESULT IN AC IS INCORRECT
 14534	041117	312 07 0 00 041616 		CAME	AC+1,[XWD -1,-1]	;IS RESULT IN AC+1 CORRECT?
 14535	041120	004 07 0 00 021201 		ER4	AC+1,21201		;RESULT IN AC+1 IS INCORRECT
 14536	041121	321 10 0 00 041112 		JUMPL	AC+2,E21200		;LOOP ON ERROR SWITCH^
 14537
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 40
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0317

 14538					;SHIFT CONNECTIONS TEST
 14539					;TEST MQ0 SHRT INP-ONE'S - ROTC AC,-1
 14540					;TEST ABILITY TO ROTATE INTO BIT 0 OF MQ 
 14541						SR2	(213,0,1,0,0,0,0,400000,0,ROTC,-1)^
 14542					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14543					;DATA SPECIFIED IN [XWD 0,1] AND [XWD 0,0] -1 BIT POSITIONS AND
 14544					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
 14545					;[XWD 400000,0]
 14546
 14547	041122	200 06 0 00 041625 	E21300:	MOVE	AC,[XWD 0,1]	;INITIALIZE AC
 14548	041123	200 07 0 00 041615 		MOVE	AC+1,[XWD 0,0]	;INITIALIZE AC+1
 14549	041124	245 06 0 00 777777 		ROTC	AC,-1			;*SHIFT/ROTATE COMBINED -1 PLACES
 14550	041125	312 06 0 00 041615 		CAME	AC,[XWD 0,0]	;IS RESULT IN AC CORRECT?
 14551	041126	003 06 0 00 021301 		ER3	AC,21301			;RESULT IN AC IS INCORRECT
 14552	041127	312 07 0 00 041624 		CAME	AC+1,[XWD 400000,0]	;IS RESULT IN AC+1 CORRECT?
 14553	041130	004 07 0 00 021301 		ER4	AC+1,21301		;RESULT IN AC+1 IS INCORRECT
 14554	041131	321 10 0 00 041122 		JUMPL	AC+2,E21300		;LOOP ON ERROR SWITCH^
 14555
 14556					;SHIFT CONNECTIONS TEST
 14557					;TEST MQ0 SHRT INP-ZERO'S - ROTC AC,-1
 14558					;TEST ABILITY TO ROTATE INTO BIT 0 OF MQ 
 14559						SR2	(214,-1,-2,-1,-1,-1,-1,377777,-1,ROTC,-1)^
 14560					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14561					;DATA SPECIFIED IN [XWD -1,-2] AND [XWD -1,-1] -1 BIT POSITIONS AND
 14562					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
 14563					;[XWD 377777,-1]
 14564
 14565	041132	200 06 0 00 041627 	E21400:	MOVE	AC,[XWD -1,-2]	;INITIALIZE AC
 14566	041133	200 07 0 00 041616 		MOVE	AC+1,[XWD -1,-1]	;INITIALIZE AC+1
 14567	041134	245 06 0 00 777777 		ROTC	AC,-1			;*SHIFT/ROTATE COMBINED -1 PLACES
 14568	041135	312 06 0 00 041616 		CAME	AC,[XWD -1,-1]	;IS RESULT IN AC CORRECT?
 14569	041136	003 06 0 00 021401 		ER3	AC,21401			;RESULT IN AC IS INCORRECT
 14570	041137	312 07 0 00 041626 		CAME	AC+1,[XWD 377777,-1]	;IS RESULT IN AC+1 CORRECT?
 14571	041140	004 07 0 00 021401 		ER4	AC+1,21401		;RESULT IN AC+1 IS INCORRECT
 14572	041141	321 10 0 00 041132 		JUMPL	AC+2,E21400		;LOOP ON ERROR SWITCH^
 14573
 14574					;SHIFT CONNECTIONS TEST
 14575					;TEST MQ1 SHRT INP-ONE'S - ROTC AC,-1
 14576					;TEST ABILITY TO ROTATE INTO BIT 1 OF MQ 
 14577						SR2	(215,0,0,400000,0,0,0,200000,0,ROTC,-1)^
 14578					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14579					;DATA SPECIFIED IN [XWD 0,0] AND [XWD 400000,0] -1 BIT POSITIONS AND
 14580					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
 14581					;[XWD 200000,0]
 14582
 14583	041142	200 06 0 00 041615 	E21500:	MOVE	AC,[XWD 0,0]	;INITIALIZE AC
 14584	041143	200 07 0 00 041624 		MOVE	AC+1,[XWD 400000,0]	;INITIALIZE AC+1
 14585	041144	245 06 0 00 777777 		ROTC	AC,-1			;*SHIFT/ROTATE COMBINED -1 PLACES
 14586	041145	312 06 0 00 041615 		CAME	AC,[XWD 0,0]	;IS RESULT IN AC CORRECT?
 14587	041146	003 06 0 00 021501 		ER3	AC,21501			;RESULT IN AC IS INCORRECT
 14588	041147	312 07 0 00 041632 		CAME	AC+1,[XWD 200000,0]	;IS RESULT IN AC+1 CORRECT?
 14589	041150	004 07 0 00 021501 		ER4	AC+1,21501		;RESULT IN AC+1 IS INCORRECT
 14590	041151	321 10 0 00 041142 		JUMPL	AC+2,E21500		;LOOP ON ERROR SWITCH^
 14591
 14592					;SHIFT CONNECTIONS TEST
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 40-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0318

 14593					;TEST MQ1 SHRT INP-ZERO'S - ROTC AC,-1
 14594					;TEST ABILITY TO ROTATE INTO BIT 1 OF MQ 
 14595						SR2	(216,-1,-1,377777,-1,-1,-1,577777,-1,ROTC,-1)^
 14596					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14597					;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 377777,-1] -1 BIT POSITIONS AND
 14598					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
 14599					;[XWD 577777,-1]
 14600
 14601	041152	200 06 0 00 041616 	E21600:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
 14602	041153	200 07 0 00 041626 		MOVE	AC+1,[XWD 377777,-1]	;INITIALIZE AC+1
 14603	041154	245 06 0 00 777777 		ROTC	AC,-1			;*SHIFT/ROTATE COMBINED -1 PLACES
 14604	041155	312 06 0 00 041616 		CAME	AC,[XWD -1,-1]	;IS RESULT IN AC CORRECT?
 14605	041156	003 06 0 00 021601 		ER3	AC,21601			;RESULT IN AC IS INCORRECT
 14606	041157	312 07 0 00 041634 		CAME	AC+1,[XWD 577777,-1]	;IS RESULT IN AC+1 CORRECT?
 14607	041160	004 07 0 00 021601 		ER4	AC+1,21601		;RESULT IN AC+1 IS INCORRECT
 14608	041161	321 10 0 00 041152 		JUMPL	AC+2,E21600		;LOOP ON ERROR SWITCH^
 14609					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 40-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0319

 14610					;SHIFT CONNECTIONS TEST
 14611					;TEST MQ34 SHRT INP-ONE'S - ROTC AC,-1
 14612					;TEST ABILITY TO ROTATE INTO BIT 34 OF MQ 
 14613						SR2	(217,0,0,0,4,0,0,0,2,ROTC,-1)^
 14614					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14615					;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,4] -1 BIT POSITIONS AND
 14616					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
 14617					;[XWD 0,2]
 14618
 14619	041162	200 06 0 00 041615 	E21700:	MOVE	AC,[XWD 0,0]	;INITIALIZE AC
 14620	041163	200 07 0 00 041622 		MOVE	AC+1,[XWD 0,4]	;INITIALIZE AC+1
 14621	041164	245 06 0 00 777777 		ROTC	AC,-1			;*SHIFT/ROTATE COMBINED -1 PLACES
 14622	041165	312 06 0 00 041615 		CAME	AC,[XWD 0,0]	;IS RESULT IN AC CORRECT?
 14623	041166	003 06 0 00 021701 		ER3	AC,21701			;RESULT IN AC IS INCORRECT
 14624	041167	312 07 0 00 041623 		CAME	AC+1,[XWD 0,2]	;IS RESULT IN AC+1 CORRECT?
 14625	041170	004 07 0 00 021701 		ER4	AC+1,21701		;RESULT IN AC+1 IS INCORRECT
 14626	041171	321 10 0 00 041162 		JUMPL	AC+2,E21700		;LOOP ON ERROR SWITCH^
 14627
 14628					;SHIFT CONNECTIONS TEST
 14629					;TEST MQ34 SHRT INP-ZERO'S - ROTC AC,-1
 14630					;TEST ABILITY TO ROTATE INTO BIT 34 OF MQ 
 14631						SR2	(220,-1,-1,-1,-5,-1,-1,-1,-3,ROTC,-1)^
 14632					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14633					;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-5] -1 BIT POSITIONS AND
 14634					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
 14635					;[XWD -1,-3]
 14636
 14637	041172	200 06 0 00 041616 	E22000:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
 14638	041173	200 07 0 00 041635 		MOVE	AC+1,[XWD -1,-5]	;INITIALIZE AC+1
 14639	041174	245 06 0 00 777777 		ROTC	AC,-1			;*SHIFT/ROTATE COMBINED -1 PLACES
 14640	041175	312 06 0 00 041616 		CAME	AC,[XWD -1,-1]	;IS RESULT IN AC CORRECT?
 14641	041176	003 06 0 00 022001 		ER3	AC,22001			;RESULT IN AC IS INCORRECT
 14642	041177	312 07 0 00 041630 		CAME	AC+1,[XWD -1,-3]	;IS RESULT IN AC+1 CORRECT?
 14643	041200	004 07 0 00 022001 		ER4	AC+1,22001		;RESULT IN AC+1 IS INCORRECT
 14644	041201	321 10 0 00 041172 		JUMPL	AC+2,E22000		;LOOP ON ERROR SWITCH^
 14645
 14646					;SHIFT CONNECTIONS TEST
 14647					;TEST MQ35 SHRT INP-ONE'S - ROTC AC,-1
 14648					;TEST ABILITY TO ROTATE INTO BIT 35 OF MQ 
 14649						SR2	(221,0,0,0,2,0,0,0,1,ROTC,-1)^
 14650					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14651					;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,2] -1 BIT POSITIONS AND
 14652					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
 14653					;[XWD 0,1]
 14654
 14655	041202	200 06 0 00 041615 	E22100:	MOVE	AC,[XWD 0,0]	;INITIALIZE AC
 14656	041203	200 07 0 00 041623 		MOVE	AC+1,[XWD 0,2]	;INITIALIZE AC+1
 14657	041204	245 06 0 00 777777 		ROTC	AC,-1			;*SHIFT/ROTATE COMBINED -1 PLACES
 14658	041205	312 06 0 00 041615 		CAME	AC,[XWD 0,0]	;IS RESULT IN AC CORRECT?
 14659	041206	003 06 0 00 022101 		ER3	AC,22101			;RESULT IN AC IS INCORRECT
 14660	041207	312 07 0 00 041625 		CAME	AC+1,[XWD 0,1]	;IS RESULT IN AC+1 CORRECT?
 14661	041210	004 07 0 00 022101 		ER4	AC+1,22101		;RESULT IN AC+1 IS INCORRECT
 14662	041211	321 10 0 00 041202 		JUMPL	AC+2,E22100		;LOOP ON ERROR SWITCH^
 14663
 14664					;SHIFT CONNECTIONS TEST
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 40-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0320

 14665					;TEST MQ35 SHRT INP-ZERO'S - ROTC AC,-1
 14666					;TEST ABILITY TO ROTATE INTO BIT 35 OF MQ 
 14667						SR2	(222,-1,-1,-1,-3,-1,-1,-1,-2,ROTC,-1)^
 14668					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14669					;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-3] -1 BIT POSITIONS AND
 14670					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
 14671					;[XWD -1,-2]
 14672
 14673	041212	200 06 0 00 041616 	E22200:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
 14674	041213	200 07 0 00 041630 		MOVE	AC+1,[XWD -1,-3]	;INITIALIZE AC+1
 14675	041214	245 06 0 00 777777 		ROTC	AC,-1			;*SHIFT/ROTATE COMBINED -1 PLACES
 14676	041215	312 06 0 00 041616 		CAME	AC,[XWD -1,-1]	;IS RESULT IN AC CORRECT?
 14677	041216	003 06 0 00 022201 		ER3	AC,22201			;RESULT IN AC IS INCORRECT
 14678	041217	312 07 0 00 041627 		CAME	AC+1,[XWD -1,-2]	;IS RESULT IN AC+1 CORRECT?
 14679	041220	004 07 0 00 022201 		ER4	AC+1,22201		;RESULT IN AC+1 IS INCORRECT
 14680	041221	321 10 0 00 041212 		JUMPL	AC+2,E22200		;LOOP ON ERROR SWITCH^
 14681
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 41
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0321

 14682					;SHIFT CONNECTIONS TEST
 14683					;TEST AR0 SHRT INP-ONE'S - ROTC AC,-2
 14684					;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 
 14685						SR2	(223,0,0,0,2,400000,0,0,0,ROTC,-2)^
 14686					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14687					;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,2] -2 BIT POSITIONS AND
 14688					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 400000,0] AND
 14689					;[XWD 0,0]
 14690
 14691	041222	200 06 0 00 041615 	E22300:	MOVE	AC,[XWD 0,0]	;INITIALIZE AC
 14692	041223	200 07 0 00 041623 		MOVE	AC+1,[XWD 0,2]	;INITIALIZE AC+1
 14693	041224	245 06 0 00 777776 		ROTC	AC,-2			;*SHIFT/ROTATE COMBINED -2 PLACES
 14694	041225	312 06 0 00 041624 		CAME	AC,[XWD 400000,0]	;IS RESULT IN AC CORRECT?
 14695	041226	003 06 0 00 022301 		ER3	AC,22301			;RESULT IN AC IS INCORRECT
 14696	041227	312 07 0 00 041615 		CAME	AC+1,[XWD 0,0]	;IS RESULT IN AC+1 CORRECT?
 14697	041230	004 07 0 00 022301 		ER4	AC+1,22301		;RESULT IN AC+1 IS INCORRECT
 14698	041231	321 10 0 00 041222 		JUMPL	AC+2,E22300		;LOOP ON ERROR SWITCH^
 14699
 14700					;SHIFT CONNECTIONS TEST
 14701					;TEST AR0 SHRT INP-ZERO'S - ROTC AC,-2
 14702					;TEST ABILITY TO ROTATE INTO BIT 0 OF AR 
 14703						SR2	(224,-1,-1,-1,-3,377777,-1,-1,-1,ROTC,-2)^
 14704					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14705					;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-3] -2 BIT POSITIONS AND
 14706					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND
 14707					;[XWD -1,-1]
 14708
 14709	041232	200 06 0 00 041616 	E22400:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
 14710	041233	200 07 0 00 041630 		MOVE	AC+1,[XWD -1,-3]	;INITIALIZE AC+1
 14711	041234	245 06 0 00 777776 		ROTC	AC,-2			;*SHIFT/ROTATE COMBINED -2 PLACES
 14712	041235	312 06 0 00 041626 		CAME	AC,[XWD 377777,-1]	;IS RESULT IN AC CORRECT?
 14713	041236	003 06 0 00 022401 		ER3	AC,22401			;RESULT IN AC IS INCORRECT
 14714	041237	312 07 0 00 041616 		CAME	AC+1,[XWD -1,-1]	;IS RESULT IN AC+1 CORRECT?
 14715	041240	004 07 0 00 022401 		ER4	AC+1,22401		;RESULT IN AC+1 IS INCORRECT
 14716	041241	321 10 0 00 041232 		JUMPL	AC+2,E22400		;LOOP ON ERROR SWITCH^
 14717
 14718					;SHIFT CONNECTIONS TEST
 14719					;TEST AR1 SHRT INP-ONE'S - ROTC AC,-2
 14720					;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 
 14721						SR2	(225,0,0,0,1,200000,0,0,0,ROTC,-2)^
 14722					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14723					;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,1] -2 BIT POSITIONS AND
 14724					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 200000,0] AND
 14725					;[XWD 0,0]
 14726
 14727	041242	200 06 0 00 041615 	E22500:	MOVE	AC,[XWD 0,0]	;INITIALIZE AC
 14728	041243	200 07 0 00 041625 		MOVE	AC+1,[XWD 0,1]	;INITIALIZE AC+1
 14729	041244	245 06 0 00 777776 		ROTC	AC,-2			;*SHIFT/ROTATE COMBINED -2 PLACES
 14730	041245	312 06 0 00 041632 		CAME	AC,[XWD 200000,0]	;IS RESULT IN AC CORRECT?
 14731	041246	003 06 0 00 022501 		ER3	AC,22501			;RESULT IN AC IS INCORRECT
 14732	041247	312 07 0 00 041615 		CAME	AC+1,[XWD 0,0]	;IS RESULT IN AC+1 CORRECT?
 14733	041250	004 07 0 00 022501 		ER4	AC+1,22501		;RESULT IN AC+1 IS INCORRECT
 14734	041251	321 10 0 00 041242 		JUMPL	AC+2,E22500		;LOOP ON ERROR SWITCH^
 14735
 14736					;SHIFT CONNECTIONS TEST
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 41-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0322

 14737					;TEST AR1 SHRT INP-ZERO'S - ROTC AC,-2
 14738					;TEST ABILITY TO ROTATE INTO BIT 1 OF AR 
 14739						SR2	(226,-1,-1,-1,-2,577777,-1,-1,-1,ROTC,-2)^
 14740					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14741					;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-2] -2 BIT POSITIONS AND
 14742					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 577777,-1] AND
 14743					;[XWD -1,-1]
 14744
 14745	041252	200 06 0 00 041616 	E22600:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
 14746	041253	200 07 0 00 041627 		MOVE	AC+1,[XWD -1,-2]	;INITIALIZE AC+1
 14747	041254	245 06 0 00 777776 		ROTC	AC,-2			;*SHIFT/ROTATE COMBINED -2 PLACES
 14748	041255	312 06 0 00 041634 		CAME	AC,[XWD 577777,-1]	;IS RESULT IN AC CORRECT?
 14749	041256	003 06 0 00 022601 		ER3	AC,22601			;RESULT IN AC IS INCORRECT
 14750	041257	312 07 0 00 041616 		CAME	AC+1,[XWD -1,-1]	;IS RESULT IN AC+1 CORRECT?
 14751	041260	004 07 0 00 022601 		ER4	AC+1,22601		;RESULT IN AC+1 IS INCORRECT
 14752	041261	321 10 0 00 041252 		JUMPL	AC+2,E22600		;LOOP ON ERROR SWITCH^
 14753					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 41-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0323

 14754					;SHIFT CONNECTIONS TEST
 14755					;TEST AR34 SHRT INP-ONE'S - ROTC AC,-2
 14756					;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 
 14757						SR2	(227,0,10,0,0,0,2,0,0,ROTC,-2)^
 14758					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14759					;DATA SPECIFIED IN [XWD 0,10] AND [XWD 0,0] -2 BIT POSITIONS AND
 14760					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND
 14761					;[XWD 0,0]
 14762
 14763	041262	200 06 0 00 041617 	E22700:	MOVE	AC,[XWD 0,10]	;INITIALIZE AC
 14764	041263	200 07 0 00 041615 		MOVE	AC+1,[XWD 0,0]	;INITIALIZE AC+1
 14765	041264	245 06 0 00 777776 		ROTC	AC,-2			;*SHIFT/ROTATE COMBINED -2 PLACES
 14766	041265	312 06 0 00 041623 		CAME	AC,[XWD 0,2]	;IS RESULT IN AC CORRECT?
 14767	041266	003 06 0 00 022701 		ER3	AC,22701			;RESULT IN AC IS INCORRECT
 14768	041267	312 07 0 00 041615 		CAME	AC+1,[XWD 0,0]	;IS RESULT IN AC+1 CORRECT?
 14769	041270	004 07 0 00 022701 		ER4	AC+1,22701		;RESULT IN AC+1 IS INCORRECT
 14770	041271	321 10 0 00 041262 		JUMPL	AC+2,E22700		;LOOP ON ERROR SWITCH^
 14771
 14772					;SHIFT CONNECTIONS TEST
 14773					;TEST AR34 SHRT INP-ZERO'S - ROTC AC,-2
 14774					;TEST ABILITY TO ROTATE INTO BIT 34 OF AR 
 14775						SR2	(230,-1,-11,-1,-1,-1,-3,-1,-1,ROTC,-2)^
 14776					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14777					;DATA SPECIFIED IN [XWD -1,-11] AND [XWD -1,-1] -2 BIT POSITIONS AND
 14778					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-3] AND
 14779					;[XWD -1,-1]
 14780
 14781	041272	200 06 0 00 041636 	E23000:	MOVE	AC,[XWD -1,-11]	;INITIALIZE AC
 14782	041273	200 07 0 00 041616 		MOVE	AC+1,[XWD -1,-1]	;INITIALIZE AC+1
 14783	041274	245 06 0 00 777776 		ROTC	AC,-2			;*SHIFT/ROTATE COMBINED -2 PLACES
 14784	041275	312 06 0 00 041630 		CAME	AC,[XWD -1,-3]	;IS RESULT IN AC CORRECT?
 14785	041276	003 06 0 00 023001 		ER3	AC,23001			;RESULT IN AC IS INCORRECT
 14786	041277	312 07 0 00 041616 		CAME	AC+1,[XWD -1,-1]	;IS RESULT IN AC+1 CORRECT?
 14787	041300	004 07 0 00 023001 		ER4	AC+1,23001		;RESULT IN AC+1 IS INCORRECT
 14788	041301	321 10 0 00 041272 		JUMPL	AC+2,E23000		;LOOP ON ERROR SWITCH^
 14789
 14790					;SHIFT CONNECTIONS TEST
 14791					;TEST AR35 SHRT INP-ONE'S - ROTC AC,-2
 14792					;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 
 14793						SR2	(231,0,4,0,0,0,1,0,0,ROTC,-2)^
 14794					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14795					;DATA SPECIFIED IN [XWD 0,4] AND [XWD 0,0] -2 BIT POSITIONS AND
 14796					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND
 14797					;[XWD 0,0]
 14798
 14799	041302	200 06 0 00 041622 	E23100:	MOVE	AC,[XWD 0,4]	;INITIALIZE AC
 14800	041303	200 07 0 00 041615 		MOVE	AC+1,[XWD 0,0]	;INITIALIZE AC+1
 14801	041304	245 06 0 00 777776 		ROTC	AC,-2			;*SHIFT/ROTATE COMBINED -2 PLACES
 14802	041305	312 06 0 00 041625 		CAME	AC,[XWD 0,1]	;IS RESULT IN AC CORRECT?
 14803	041306	003 06 0 00 023101 		ER3	AC,23101			;RESULT IN AC IS INCORRECT
 14804	041307	312 07 0 00 041615 		CAME	AC+1,[XWD 0,0]	;IS RESULT IN AC+1 CORRECT?
 14805	041310	004 07 0 00 023101 		ER4	AC+1,23101		;RESULT IN AC+1 IS INCORRECT
 14806	041311	321 10 0 00 041302 		JUMPL	AC+2,E23100		;LOOP ON ERROR SWITCH^
 14807
 14808					;SHIFT CONNECTIONS TEST
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 41-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0324

 14809					;TEST AR35 SHRT INP-ZERO'S - ROTC AC,-2
 14810					;TEST ABILITY TO ROTATE INTO BIT 35 OF AR 
 14811						SR2	(232,-1,-5,-1,-1,-1,-2,-1,-1,ROTC,-2)^
 14812					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14813					;DATA SPECIFIED IN [XWD -1,-5] AND [XWD -1,-1] -2 BIT POSITIONS AND
 14814					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-2] AND
 14815					;[XWD -1,-1]
 14816
 14817	041312	200 06 0 00 041635 	E23200:	MOVE	AC,[XWD -1,-5]	;INITIALIZE AC
 14818	041313	200 07 0 00 041616 		MOVE	AC+1,[XWD -1,-1]	;INITIALIZE AC+1
 14819	041314	245 06 0 00 777776 		ROTC	AC,-2			;*SHIFT/ROTATE COMBINED -2 PLACES
 14820	041315	312 06 0 00 041627 		CAME	AC,[XWD -1,-2]	;IS RESULT IN AC CORRECT?
 14821	041316	003 06 0 00 023201 		ER3	AC,23201			;RESULT IN AC IS INCORRECT
 14822	041317	312 07 0 00 041616 		CAME	AC+1,[XWD -1,-1]	;IS RESULT IN AC+1 CORRECT?
 14823	041320	004 07 0 00 023201 		ER4	AC+1,23201		;RESULT IN AC+1 IS INCORRECT
 14824	041321	321 10 0 00 041312 		JUMPL	AC+2,E23200		;LOOP ON ERROR SWITCH^
 14825
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 42
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0325

 14826					;SHIFT CONNECTIONS TEST
 14827					;TEST MQ0 SHRT INP-ONE'S - ROTC AC,-2
 14828					;TEST ABILITY TO ROTATE INTO BIT 0 OF MQ 
 14829						SR2	(233,0,2,0,0,0,0,400000,0,ROTC,-2)^
 14830					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14831					;DATA SPECIFIED IN [XWD 0,2] AND [XWD 0,0] -2 BIT POSITIONS AND
 14832					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
 14833					;[XWD 400000,0]
 14834
 14835	041322	200 06 0 00 041623 	E23300:	MOVE	AC,[XWD 0,2]	;INITIALIZE AC
 14836	041323	200 07 0 00 041615 		MOVE	AC+1,[XWD 0,0]	;INITIALIZE AC+1
 14837	041324	245 06 0 00 777776 		ROTC	AC,-2			;*SHIFT/ROTATE COMBINED -2 PLACES
 14838	041325	312 06 0 00 041615 		CAME	AC,[XWD 0,0]	;IS RESULT IN AC CORRECT?
 14839	041326	003 06 0 00 023301 		ER3	AC,23301			;RESULT IN AC IS INCORRECT
 14840	041327	312 07 0 00 041624 		CAME	AC+1,[XWD 400000,0]	;IS RESULT IN AC+1 CORRECT?
 14841	041330	004 07 0 00 023301 		ER4	AC+1,23301		;RESULT IN AC+1 IS INCORRECT
 14842	041331	321 10 0 00 041322 		JUMPL	AC+2,E23300		;LOOP ON ERROR SWITCH^
 14843
 14844					;SHIFT CONNECTIONS TEST
 14845					;TEST MQ0 SHRT INP-ZERO'S - ROTC AC,-2
 14846					;TEST ABILITY TO ROTATE INTO BIT 0 OF MQ 
 14847						SR2	(234,-1,-3,-1,-1,-1,-1,377777,-1,ROTC,-2)^
 14848					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14849					;DATA SPECIFIED IN [XWD -1,-3] AND [XWD -1,-1] -2 BIT POSITIONS AND
 14850					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
 14851					;[XWD 377777,-1]
 14852
 14853	041332	200 06 0 00 041630 	E23400:	MOVE	AC,[XWD -1,-3]	;INITIALIZE AC
 14854	041333	200 07 0 00 041616 		MOVE	AC+1,[XWD -1,-1]	;INITIALIZE AC+1
 14855	041334	245 06 0 00 777776 		ROTC	AC,-2			;*SHIFT/ROTATE COMBINED -2 PLACES
 14856	041335	312 06 0 00 041616 		CAME	AC,[XWD -1,-1]	;IS RESULT IN AC CORRECT?
 14857	041336	003 06 0 00 023401 		ER3	AC,23401			;RESULT IN AC IS INCORRECT
 14858	041337	312 07 0 00 041626 		CAME	AC+1,[XWD 377777,-1]	;IS RESULT IN AC+1 CORRECT?
 14859	041340	004 07 0 00 023401 		ER4	AC+1,23401		;RESULT IN AC+1 IS INCORRECT
 14860	041341	321 10 0 00 041332 		JUMPL	AC+2,E23400		;LOOP ON ERROR SWITCH^
 14861
 14862					;SHIFT CONNECTIONS TEST
 14863					;TEST MQ1 SHRT INP-ONE'S - ROTC AC,-2
 14864					;TEST ABILITY TO ROTATE INTO BIT 1 OF MQ 
 14865						SR2	(235,0,1,0,0,0,0,200000,0,ROTC,-2)^
 14866					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14867					;DATA SPECIFIED IN [XWD 0,1] AND [XWD 0,0] -2 BIT POSITIONS AND
 14868					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
 14869					;[XWD 200000,0]
 14870
 14871	041342	200 06 0 00 041625 	E23500:	MOVE	AC,[XWD 0,1]	;INITIALIZE AC
 14872	041343	200 07 0 00 041615 		MOVE	AC+1,[XWD 0,0]	;INITIALIZE AC+1
 14873	041344	245 06 0 00 777776 		ROTC	AC,-2			;*SHIFT/ROTATE COMBINED -2 PLACES
 14874	041345	312 06 0 00 041615 		CAME	AC,[XWD 0,0]	;IS RESULT IN AC CORRECT?
 14875	041346	003 06 0 00 023501 		ER3	AC,23501			;RESULT IN AC IS INCORRECT
 14876	041347	312 07 0 00 041632 		CAME	AC+1,[XWD 200000,0]	;IS RESULT IN AC+1 CORRECT?
 14877	041350	004 07 0 00 023501 		ER4	AC+1,23501		;RESULT IN AC+1 IS INCORRECT
 14878	041351	321 10 0 00 041342 		JUMPL	AC+2,E23500		;LOOP ON ERROR SWITCH^
 14879
 14880					;SHIFT CONNECTIONS TEST
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 42-1
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0326

 14881					;TEST MQ1 SHRT INP-ZERO'S - ROTC AC,-2
 14882					;TEST ABILITY TO ROTATE INTO BIT 1 OF MQ 
 14883						SR2	(236,-1,-2,-1,-1,-1,-1,577777,-1,ROTC,-2)^
 14884					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14885					;DATA SPECIFIED IN [XWD -1,-2] AND [XWD -1,-1] -2 BIT POSITIONS AND
 14886					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
 14887					;[XWD 577777,-1]
 14888
 14889	041352	200 06 0 00 041627 	E23600:	MOVE	AC,[XWD -1,-2]	;INITIALIZE AC
 14890	041353	200 07 0 00 041616 		MOVE	AC+1,[XWD -1,-1]	;INITIALIZE AC+1
 14891	041354	245 06 0 00 777776 		ROTC	AC,-2			;*SHIFT/ROTATE COMBINED -2 PLACES
 14892	041355	312 06 0 00 041616 		CAME	AC,[XWD -1,-1]	;IS RESULT IN AC CORRECT?
 14893	041356	003 06 0 00 023601 		ER3	AC,23601			;RESULT IN AC IS INCORRECT
 14894	041357	312 07 0 00 041634 		CAME	AC+1,[XWD 577777,-1]	;IS RESULT IN AC+1 CORRECT?
 14895	041360	004 07 0 00 023601 		ER4	AC+1,23601		;RESULT IN AC+1 IS INCORRECT
 14896	041361	321 10 0 00 041352 		JUMPL	AC+2,E23600		;LOOP ON ERROR SWITCH^
 14897					PAGE
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 42-2
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0327

 14898					;SHIFT CONNECTIONS TEST
 14899					;TEST MQ34 SHRT INP-ONE'S - ROTC AC,-2
 14900					;TEST ABILITY TO ROTATE INTO BIT 34 OF MQ 
 14901						SR2	(237,0,0,0,10,0,0,0,2,ROTC,-2)^
 14902					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14903					;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,10] -2 BIT POSITIONS AND
 14904					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
 14905					;[XWD 0,2]
 14906
 14907	041362	200 06 0 00 041615 	E23700:	MOVE	AC,[XWD 0,0]	;INITIALIZE AC
 14908	041363	200 07 0 00 041617 		MOVE	AC+1,[XWD 0,10]	;INITIALIZE AC+1
 14909	041364	245 06 0 00 777776 		ROTC	AC,-2			;*SHIFT/ROTATE COMBINED -2 PLACES
 14910	041365	312 06 0 00 041615 		CAME	AC,[XWD 0,0]	;IS RESULT IN AC CORRECT?
 14911	041366	003 06 0 00 023701 		ER3	AC,23701			;RESULT IN AC IS INCORRECT
 14912	041367	312 07 0 00 041623 		CAME	AC+1,[XWD 0,2]	;IS RESULT IN AC+1 CORRECT?
 14913	041370	004 07 0 00 023701 		ER4	AC+1,23701		;RESULT IN AC+1 IS INCORRECT
 14914	041371	321 10 0 00 041362 		JUMPL	AC+2,E23700		;LOOP ON ERROR SWITCH^
 14915
 14916					;SHIFT CONNECTIONS TEST
 14917					;TEST MQ34 SHRT INP-ZERO'S - ROTC AC,-2
 14918					;TEST ABILITY TO ROTATE INTO BIT 34 OF MQ 
 14919						SR2	(240,-1,-1,-1,-11,-1,-1,-1,-3,ROTC,-2)^
 14920					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14921					;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-11] -2 BIT POSITIONS AND
 14922					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
 14923					;[XWD -1,-3]
 14924
 14925	041372	200 06 0 00 041616 	E24000:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
 14926	041373	200 07 0 00 041636 		MOVE	AC+1,[XWD -1,-11]	;INITIALIZE AC+1
 14927	041374	245 06 0 00 777776 		ROTC	AC,-2			;*SHIFT/ROTATE COMBINED -2 PLACES
 14928	041375	312 06 0 00 041616 		CAME	AC,[XWD -1,-1]	;IS RESULT IN AC CORRECT?
 14929	041376	003 06 0 00 024001 		ER3	AC,24001			;RESULT IN AC IS INCORRECT
 14930	041377	312 07 0 00 041630 		CAME	AC+1,[XWD -1,-3]	;IS RESULT IN AC+1 CORRECT?
 14931	041400	004 07 0 00 024001 		ER4	AC+1,24001		;RESULT IN AC+1 IS INCORRECT
 14932	041401	321 10 0 00 041372 		JUMPL	AC+2,E24000		;LOOP ON ERROR SWITCH^
 14933
 14934					;SHIFT CONNECTIONS TEST
 14935					;TEST MQ35 SHRT INP-ONE'S - ROTC AC,-2
 14936					;TEST ABILITY TO ROTATE INTO BIT 35 OF MQ 
 14937						SR2	(241,0,0,0,4,0,0,0,1,ROTC,-2)^
 14938					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14939					;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,4] -2 BIT POSITIONS AND
 14940					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
 14941					;[XWD 0,1]
 14942
 14943	041402	200 06 0 00 041615 	E24100:	MOVE	AC,[XWD 0,0]	;INITIALIZE AC
 14944	041403	200 07 0 00 041622 		MOVE	AC+1,[XWD 0,4]	;INITIALIZE AC+1
 14945	041404	245 06 0 00 777776 		ROTC	AC,-2			;*SHIFT/ROTATE COMBINED -2 PLACES
 14946	041405	312 06 0 00 041615 		CAME	AC,[XWD 0,0]	;IS RESULT IN AC CORRECT?
 14947	041406	003 06 0 00 024101 		ER3	AC,24101			;RESULT IN AC IS INCORRECT
 14948	041407	312 07 0 00 041625 		CAME	AC+1,[XWD 0,1]	;IS RESULT IN AC+1 CORRECT?
 14949	041410	004 07 0 00 024101 		ER4	AC+1,24101		;RESULT IN AC+1 IS INCORRECT
 14950	041411	321 10 0 00 041402 		JUMPL	AC+2,E24100		;LOOP ON ERROR SWITCH^
 14951
 14952					;SHIFT CONNECTIONS TEST
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 42-3
DAKAIM	MAC	20-JAN-77 10:36		DIAGNOSTIC SECTION - END CONNECTIONS TEST (ROTC)                                   SEQ 0328

 14953					;TEST MQ35 SHRT INP-ZERO'S - ROTC AC,-2
 14954					;TEST ABILITY TO ROTATE INTO BIT 35 OF MQ 
 14955						SR2	(242,-1,-1,-1,-5,-1,-1,-1,-2,ROTC,-2)^
 14956					;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
 14957					;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-5] -2 BIT POSITIONS AND
 14958					;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
 14959					;[XWD -1,-2]
 14960
 14961	041412	200 06 0 00 041616 	E24200:	MOVE	AC,[XWD -1,-1]	;INITIALIZE AC
 14962	041413	200 07 0 00 041635 		MOVE	AC+1,[XWD -1,-5]	;INITIALIZE AC+1
 14963	041414	245 06 0 00 777776 		ROTC	AC,-2			;*SHIFT/ROTATE COMBINED -2 PLACES
 14964	041415	312 06 0 00 041616 		CAME	AC,[XWD -1,-1]	;IS RESULT IN AC CORRECT?
 14965	041416	003 06 0 00 024201 		ER3	AC,24201			;RESULT IN AC IS INCORRECT
 14966	041417	312 07 0 00 041627 		CAME	AC+1,[XWD -1,-2]	;IS RESULT IN AC+1 CORRECT?
 14967	041420	004 07 0 00 024201 		ER4	AC+1,24201		;RESULT IN AC+1 IS INCORRECT
 14968	041421	321 10 0 00 041412 		JUMPL	AC+2,E24200		;LOOP ON ERROR SWITCH^
 14969
 14970	041422	254 00 0 00 030057 	LAST1:	JRST	BEGEND
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 1
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0329

 14971					SUBTTL	*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975
 14972
 14973					;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
 14974
 14975	041423	202 00 0 00 041767 	ERRMES:	MOVEM	0,%ERAC0#	;SAVE AC0
 14976						IFDEF	EXCASB,<IFDEF	KI10,<
 14977						SKIPN	KAIFLG
 14978						JRST	.+5
 14979						SKIPE	USER		;USER MODE ?
 14980						JRST	.+3
 14981						SKIPE	MARGIN
 14982						DATAO	APR,[IMGNOF,,ISPDOF] ;CLR MARGINS >>
 14983	041424	202 01 0 00 041770 		MOVEM	1,%ERAC1#	;SAVE AC1
 14984	041425	202 02 0 00 041771 		MOVEM	2,%ERAC2#	;SAVE AC2
 14985	041426	350 00 0 00 030053 		AOS	ERRTLS		;INCREMENT ERROR TOTALS
 14986	041427	550 00 0 00 030114 		HRRZ	0,$SVUPC	;GET PC OF UUO
 14987	041430	316 00 0 00 030052 		CAMN	0,ERRPC		;PC = PC OF LAST ERROR ?
 14988	041431	350 00 0 00 041764 		AOS	MICNT#		;YES, ADD 1 TO ERROR COUNT
 14989	041432	200 00 0 00 041764 		MOVE	0,MICNT
 14990	041433	504 00 0 00 030114 		HRL	0,$SVUPC
 14991	041434	336 00 0 00 030041 		SKIPN	KLFLG		;NOT KL10
 14992	041435	332 00 0 00 030037 		SKIPE	USER		;AND NOT USER?
 14993	041436	254 00 0 00 041440 		JRST	.+2
 14994	041437	7 004 14 0 00 000000 		DATAO	PI,0		;YES, DISPLAY ERROR PC,ERROR COUNT
 14995	041440	402 00 0 00 041765 		SETZM	PROCED#		;CLEAR PROCEED FLAG
 14996	041441	037 10 0 00 000002 		SWITCH
 14997	041442	603 00 0 00 040000 		TLNE	NOPNT		;PRINTOUT ?
 14998	041443	254 00 0 00 041556 		JRST	%ERRS1		;NO, RESTORE AC'S AND RETURN
 14999	041444	200 01 0 00 030113 		MOVE	1,$SVUUO
 15000	041445	242 01 0 00 777745 		LSH	1,-^D27
 15001	041446	202 01 0 00 041766 		MOVEM	1,%ACS1A#	;SAVE UUO NUMBER
 15002	041447	200 00 0 00 041767 		MOVE	0,%ERAC0
 15003	041450	200 01 0 00 041770 		MOVE	1,%ERAC1
 15004	041451	335 00 1 00 041763 		SKIPGE	@ERRLOP		;ERR LOOP AC > OR = 0 ?
 15005	041452	254 00 0 00 041610 		JRST	%ERRS4		;NO, SEE IF PRINT ALL
 15006	041453	402 00 0 00 041764 	%ERMS1:	SETZM	MICNT		;CLEAR ERROR COUNT
 15007	041454	331 00 0 00 030043 		SKIPL	MONCTL		;DIAG MON OR SYS EXER ?
 15008	041455	254 00 0 00 041461 		JRST	.+4		;NO, DON'T NEED TITLE
 15009	041456	336 00 0 00 041772 		SKIPN	%ERFST#		;FIRST ERROR ?
 15010	041457	037 04 0 00 000002 		PNTNM			;YES, PRINT PROGRAM TITLE
 15011	041460	476 00 0 00 041772 		SETOM	%ERFST
 15012	041461	336 00 0 00 030047 		SKIPN	PASCNT		;FIRST PASS ?
 15013	041462	254 00 0 00 041466 		JRST	.+4		;YES
 15014						PMSG	<^TEST PASS COUNT = >^
 15015	041463	037 02 0 00 041651 		PSIXM	[SIXBIT\^TEST PASS COUNT = _\]^
 15016	041464	200 00 0 00 030047 		MOVE	PASCNT
 15017	041465	037 15 0 00 000000 		PNTDEC
 15018						PMSG	<^PC =   >^
 15019	041466	037 02 0 00 041655 		PSIXM	[SIXBIT\^PC =   _\]^
 15020	041467	550 00 0 00 030114 		HRRZ	0,$SVUPC	;GET PC OF UUO
 15021	041470	202 00 0 00 030052 		MOVEM	0,ERRPC		;SAVE FOR COMPARE
 15022	041471	037 06 0 00 000000 		PNT6			;PRINT UUO ADDRESS
 15023						XLIST
 15024						IFDEF	ERDIAG,<LIST
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 2
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0330

 15025					;DIAGNOSTIC FORMAT ERROR PRINTER
 15026
 15027					;PRINT RESULT
 15028
 15029	041472				%ERMS2:	PMSG	<^RESULT  = >^
 15030	041472	037 02 0 00 041657 		PSIXM	[SIXBIT\^RESULT  = _\]^
 15031	041473	200 01 0 00 030113 		MOVE	1,$SVUUO	;GET AC # OF UUO
 15032	041474	242 01 0 00 777751 		LSH	1,-27
 15033	041475	405 01 0 00 000017 		ANDI	1,17
 15034	041476	200 00 0 01 000000 		MOVE	0,(1)		;GET C(AC)
 15035	041477	307 01 0 00 000001 		CAIG	1,1		;IS AC # = TO SAVE AC ?
 15036	041500	200 00 0 01 041767 		MOVE	0,%ERAC0(1)	;YES, GET SAVED AC
 15037	041501	037 13 0 00 000000 		PNTHW			;PRINT C(AC)
 15038
 15039	041502	200 00 0 00 030046 		MOVE	CONSW
 15040	041503	603 00 0 00 000200 		TLNE	TXTINH		;PRINT FAILURE DES AND FLT NBR ?
 15041	041504	254 00 0 00 041553 		JRST	%ERMORE		;NO, RESTORE AC'S ETC.
 15042
 15043					;PRINT FAILURE DESCRIPTOR
 15044
 15045	041505	200 01 0 00 041766 		MOVE	1,%ACS1A	;GET UUO NUMBER
 15046	041506	307 01 0 00 000001 		CAIG	1,1		;PRINT DESCRIPTOR ?
 15047	041507	254 00 0 00 041513 		JRST	%ERMS3		;NO, JUST PRINT FAULT NUMBER
 15048	041510	037 00 0 00 030242 		PCRL
 15049	041511	200 00 0 01 041537 		MOVE	%FLTTB(1)
 15050	041512	037 17 0 00 000000 		PNTAL			;PRINT FAULT DESCRIPTOR
 15051
 15052					;PRINT FAULT NUMBER
 15053
 15054	041513				%ERMS3:	PMSG	<^FAULT NUMBER = >^
 15055	041513	037 02 0 00 041661 		PSIXM	[SIXBIT\^FAULT NUMBER = _\]^
 15056	041514	201 00 0 00 041536 		MOVEI	TLET
 15057	041515	037 00 0 00 000000 		PNTA			;PRINT TEST LETTER
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 3
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0331

 15058
 15059	041516	550 00 0 00 030113 		HRRZ	$SVUUO
 15060	041517	602 00 0 00 700000 		TRNE	700000
 15061	041520	254 00 0 00 041534 		JRST	%ER6X
 15062	041521	602 00 0 00 070000 		TRNE	070000
 15063	041522	254 00 0 00 041532 		JRST	%ER5X
 15064	041523	602 00 0 00 007000 		TRNE	007000
 15065	041524	254 00 0 00 041530 		JRST	%ER4X
 15066	041525	037 03 0 00 000000 		PNT3			;PRINT FAULT NUMBER
 15067	041526	037 00 0 00 030242 	%ER7X:	PCRL
 15068	041527	254 00 0 00 041553 		JRST	%ERMORE
 15069
 15070	041530	037 04 0 00 000000 	%ER4X:	PNT4
 15071	041531	254 00 0 00 041526 		JRST	%ER7X
 15072	041532	037 05 0 00 000000 	%ER5X:	PNT5
 15073	041533	254 00 0 00 041526 		JRST	%ER7X
 15074	041534	037 06 0 00 000000 	%ER6X:	PNT6
 15075	041535	254 00 0 00 041526 		JRST	%ER7X
 15076
 15077					;FAILURE DESCRIPTORS
 15078
 15079	041536	000000	000000		TLET:	0			;TEST LETTER
 15080	041537	000000	000000		%FLTTB:	0			;DESCRIPTOR TABLE
 15081	041540	000000	041615		%NODES:	[0]			;NO DESCRIPTOR
 15082	041541	000000	041615		SPDES:	[0]			;SPECIAL USER FAILURE DESCRIPTOR
 15083	041542	000000	041664		$ACF:	[ASCIZ/C(AC) FAILED/]
 15084	041543	000000	041667		%AC1F:	[ASCIZ/C(AC+1) FAILED/]
 15085	041544	000000	041672		%EF:	[ASCIZ/C(E) FAILED/]
 15086	041545	000000	041675		%E1F:	[ASCIZ/C(E+1) FAILED/]
 15087	041546	000000	041700		%ARF:	[ASCIZ/C(C(ACR)) FAILED/]
 15088	041547	000000	041704		%AR1F:	[ASCIZ/C(C(ACR+1)) FAILED/]
 15089	041550	000000	041710		%ALF:	[ASCIZ/C(C(ACL)) FAILED/]
 15090	041551	000000	041714		%EEF:	[ASCIZ/C(C(E)) FAILED/]
 15091	041552	000000	041717		%FF:	[ASCIZ/FLAG FAILED/]
 15092					>
 15093						XLIST
 15094						LIST
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 8
UUOERR	KLM	22-APR-75 01:42		*UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975                       SEQ 0332

 15095					;RESTORE AC'S AND RETURN OR HALT
 15096
 15097	041553	256 00 0 00 030101 	%ERMORE:XCT	ERMORE
 15098	041554	037 16 0 00 000002 		PNTMGN			;PRINT MARGINS	
 15099	041555	037 10 0 00 000002 		SWITCH
 15100
 15101	041556	037 07 0 00 000003 	%ERRS1:	TTALTM			;ALTMODE CHECK
 15102	041557	254 00 0 00 041563 		JRST	.+4		;NONE
 15103	041560	201 00 0 00 041563 		MOVEI	.+3		;SAVE CONT ADDRESS
 15104	041561	202 00 0 00 000130 		MOVEM	JOBOPC
 15105	041562	254 00 1 00 030063 		JRST	@ALTMGO		;PERFORM TRANSFER
 15106	041563	200 00 0 00 030046 		MOVE	CONSW
 15107	041564	603 00 0 00 002000 		TLNE	0,ERSTOP	;HALT ON ERROR SWITCH SET ?
 15108	041565	037 14 0 00 000004 		ERRHLT			;YES
 15109	041566	607 00 0 00 004000 		TLNN	0,LOOPER	;LOOP ON ERROR SWITCH SET ?
 15110	041567	476 00 0 00 041765 		SETOM	PROCED		;NO, SET THE PROCEED FLAG
 15111	041570	603 00 0 00 010000 		TLNE	0,DING		;RING BELL SWITCH SET ?
 15112	041571	037 01 0 00 000007 		PBELL			;YES, GO RING BELL
 15113
 15114	041572	200 02 0 00 041771 	%ERRS2:	MOVE	2,%ERAC2	;RESTORE AC'S
 15115	041573	200 01 0 00 041770 		MOVE	1,%ERAC1
 15116	041574	476 00 1 00 041763 		SETOM	@ERRLOP		;SET C(ERR LOOP AC) TO -1
 15117	041575	336 00 0 00 041765 		SKIPN	PROCED		;LOOP ON ERROR ?
 15118	041576	254 00 0 00 041606 		JRST	%ERRS5		;YES
 15119	041577	350 00 1 00 041763 		AOS	@ERRLOP		;NO, INC C(ERR LOOP AC)
 15120	041600	350 00 1 00 041763 		AOS	@ERRLOP		;SO IT ='S 1
 15121	041601	331 00 0 00 030043 		SKIPL	MONCTL		;UNDER DIAGNOSTIC MONITOR ?
 15122	041602	254 00 0 00 041606 		JRST	%ERRS5		;NO, CONTINUE PROGRAM
 15123	041603	200 00 0 00 030053 		MOVE	0,ERRTLS	;YES
 15124	041604	301 00 0 00 000005 		CAIL	0,5		;PRINTED ALLOWED ERRORS ?
 15125	041605	254 00 0 00 030061 		JRST	$BEND2
 15126
 15127	041606	200 00 0 00 041767 	%ERRS5:	MOVE	0,%ERAC0	;NO, CONTINUE PROGRAM
 15128						IFDEF	EXCASB,<IFDEF KI10,<
 15129						SKIPN	KAIFLG
 15130						JRST	.+5
 15131						SKIPE	USER
 15132						JRST	.+3
 15133						SKIPE	MARGIN
 15134						DATAO	APR,MARGIN	;RESET MARGIN SYSTEM >>
 15135	041607	254 00 0 00 030065 		JRST	UUOEXT
 15136
 15137	041610	200 00 0 00 030046 	%ERRS4:	MOVE	0,CONSW
 15138	041611	607 00 0 00 001000 		TLNN	PALERS		;PRINT ALL ERRORS ?
 15139	041612	254 00 0 00 041556 		JRST	%ERRS1		;NO
 15140	041613	254 00 0 00 041453 		JRST	%ERMS1		;YES
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0333

 15141					SUBTTL	*STOR* RESERVED STORAGE, JAN 18,1977
 15142
 15143					;PROGRAM LITERALS
 15144
 15145						XLIST
 15146					IFNDEF	$LPAPER,<LIST>
 15147	041614					LIT
 15148	041614	101 111 000 000 000 
 15149	041615	000000	000000
 15150	041616	777777	777777
 15151	041617	000000	000010
 15152	041620	741703	607417
 15153	041621	000000	000020
 15154	041622	000000	000004
 15155	041623	000000	000002
 15156	041624	400000	000000
 15157	041625	000000	000001
 15158	041626	377777	777777
 15159	041627	777777	777776
 15160	041630	777777	777775
 15161	041631	100000	000000
 15162	041632	200000	000000
 15163	041633	677777	777777
 15164	041634	577777	777777
 15165	041635	777777	777773
 15166	041636	777777	777767
 15167	041637	777777	777774
 15168	041640	577777	777776
 15169	041641	377777	777776
 15170	041642	177777	777777
 15171	041643	377777	777775
 15172	041644	177777	777775
 15173	041645	177777	777776
 15174	041646	600000	000000
 15175	041647	700000	000000
 15176	041650	077777	777777
 15177	041651	76 64 45 63 64 00 
 15178	041652	60 41 63 63 00 43 
 15179	041653	57 65 56 64 00 35 
 15180	041654	00 77 00 00 00 00 
 15181	041655	76 60 43 00 35 00 
 15182	041656	00 00 77 00 00 00 
 15183	041657	76 62 45 63 65 54 
 15184	041660	64 00 00 35 00 77 
 15185	041661	76 46 41 65 54 64 
 15186	041662	00 56 65 55 42 45 
 15187	041663	62 00 35 00 77 00 
 15188	041664	103 050 101 103 051 
 15189	041665	040 106 101 111 114 
 15190	041666	105 104 000 000 000 
 15191	041667	103 050 101 103 053 
 15192	041670	061 051 040 106 101 
 15193	041671	111 114 105 104 000 
 15194	041672	103 050 105 051 040 
 15195	041673	106 101 111 114 105 
DAKAI PDP-10  KA10 BASIC INSTRUCTION DIAGNOSTIC (9) 0,2	MACRO %52(537) 10:41 20-JAN-77 PAGE 1-1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0334

 15196	041674	104 000 000 000 000 
 15197	041675	103 050 105 053 061 
 15198	041676	051 040 106 101 111 
 15199	041677	114 105 104 000 000 
 15200	041700	103 050 103 050 101 
 15201	041701	103 122 051 051 040 
 15202	041702	106 101 111 114 105 
 15203	041703	104 000 000 000 000 
 15204	041704	103 050 103 050 101 
 15205	041705	103 122 053 061 051 
 15206	041706	051 040 106 101 111 
 15207	041707	114 105 104 000 000 
 15208	041710	103 050 103 050 101 
 15209	041711	103 114 051 051 040 
 15210	041712	106 101 111 114 105 
 15211	041713	104 000 000 000 000 
 15212	041714	103 050 103 050 105 
 15213	041715	051 051 040 106 101 
 15214	041716	111 114 105 104 000 
 15215	041717	106 114 101 107 040 
 15216	041720	106 101 111 114 105 
 15217	041721	104 000 000 000 000 
 15218						LIST
 15219	041722	000000	000000		ENDSLD:	0
 15220
 15221					IFDEF	DEBUG,<
 15222	041723				PATCH:	BLOCK DEBUG		;PATCHING AREA
 15223					>
 15224
 15225					;PROGRAM VARIABLES
 15226	041763					VAR
 15227
 15228					IFDEF	PGMEND,<
 15229	041773	000000	000000		END:	0
 15230			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 041774
CPU TIME USED 01:03.688

11K CORE USED

AABCLR	   375#
AADRBK	   375#                                                                                                            SEQ 0335
AAPRC1	   375#
ABORT	   146#
AC	   737#	   739	   740	   741	   742	   744	   745	   746	   747	   748	   750	   751	   752	   753
	   754	   756#	   758	   759	   760	   761	   763	   764	   765	   766	   767	   768	   769	   771
	   772	   773	   774	   775	   776	   777	   778	   789#	   791	   792	   793	   794	   796	   797
	   798	   799	   800	   802	   803	   804	   805	   806	   808#	   810	   811	   812	   813	   815
	   816	   817	   818	   819	   820	   821	   823	   824	   825	   826	   827	   828	   829	   830
	   841#	   843	   844	   845	   846	   848	   849	   850	   851	   852	   854	   855	   856	   857
	   858	   860#	   862	   863	   864	   865	   867	   868	   869	   870	   871	   872	   873	   875
	   876	   877	   878	   879	   880	   881	   882	   896	   897	   898	   899	   900	   901	   902
	   903	   915	   916	   917	   918	   919	   920	   921	   922	   925#	   927	   928	   929	   930
	   962	   963	   964	   965	   966	   967	   979	   980	   981	   982	   983	   984	   996	   997
	   998	   999	  1000	  1001	  1013	  1014	  1015	  1016	  1017	  1018	  1030	  1031	  1032	  1033
	  1034	  1035	  1047	  1048	  1049	  1050	  1051	  1052	  1064	  1065	  1066	  1067	  1068	  1069
	  1081	  1082	  1083	  1084	  1085	  1086	  1098	  1099	  1100	  1101	  1102	  1103	  1115	  1116
	  1117	  1118	  1119	  1120	  1132	  1133	  1134	  1135	  1136	  1137	  1149	  1150	  1151	  1152
	  1153	  1154	  1166	  1167	  1168	  1169	  1170	  1171	  1183	  1184	  1185	  1186	  1187	  1188
	  1200	  1201	  1202	  1203	  1204	  1205	  1217	  1218	  1219	  1220	  1221	  1222	  1234	  1235
	  1236	  1237	  1238	  1239	  1251	  1252	  1253	  1254	  1255	  1256	  1289	  1290	  1291	  1292
	  1293	  1294	  1295	  1307	  1308	  1309	  1310	  1311	  1312	  1313	  1325	  1326	  1327	  1328
	  1329	  1330	  1331	  1343	  1344	  1345	  1346	  1347	  1348	  1349	  1361	  1362	  1363	  1364
	  1365	  1366	  1367	  1379	  1380	  1381	  1382	  1383	  1384	  1385	  1397	  1398	  1399	  1400
	  1401	  1402	  1403	  1415	  1416	  1417	  1418	  1419	  1420	  1421	  1433	  1434	  1435	  1436
	  1437	  1438	  1439	  1451	  1452	  1453	  1454	  1455	  1456	  1457	  1469	  1470	  1471	  1472
	  1473	  1474	  1475	  1487	  1488	  1489	  1490	  1491	  1492	  1493	  1505	  1506	  1507	  1508
	  1509	  1510	  1511	  1523	  1524	  1525	  1526	  1527	  1528	  1529	  1541	  1542	  1543	  1544
	  1545	  1546	  1547	  1559	  1560	  1561	  1562	  1563	  1564	  1565	  1577	  1578	  1579	  1580
	  1581	  1582	  1583	  1595	  1596	  1597	  1598	  1599	  1600	  1601	  1603#	  1605	  1606	  1607
	  1608	  1643	  1644	  1645	  1646	  1647	  1648	  1649	  1661	  1662	  1663	  1664	  1665	  1666
	  1667	  1679	  1680	  1681	  1682	  1683	  1684	  1685	  1697	  1698	  1699	  1700	  1701	  1702
	  1703	  1715	  1716	  1717	  1718	  1719	  1720	  1721	  1733	  1734	  1735	  1736	  1737	  1738
	  1739	  1751	  1752	  1753	  1754	  1755	  1756	  1757	  1769	  1770	  1771	  1772	  1773	  1774
	  1775	  1787	  1788	  1789	  1790	  1791	  1792	  1793	  1805	  1806	  1807	  1808	  1809	  1810
	  1811	  1823	  1824	  1825	  1826	  1827	  1828	  1829	  1841	  1842	  1843	  1844	  1845	  1846
	  1847	  1859	  1860	  1861	  1862	  1863	  1864	  1865	  1877	  1878	  1879	  1880	  1881	  1882
	  1883	  1895	  1896	  1897	  1898	  1899	  1900	  1901	  1913	  1914	  1915	  1916	  1917	  1918
	  1919	  1931	  1932	  1933	  1934	  1935	  1936	  1937	  1949	  1950	  1951	  1952	  1953	  1954
	  1955	  1988	  1989	  1990	  1991	  1992	  1993	  1994	  2006	  2007	  2008	  2009	  2010	  2011
	  2012	  2024	  2025	  2026	  2027	  2028	  2029	  2030	  2042	  2043	  2044	  2045	  2046	  2047
	  2048	  2060	  2061	  2062	  2063	  2064	  2065	  2066	  2078	  2079	  2080	  2081	  2082	  2083
	  2084	  2096	  2097	  2098	  2099	  2100	  2101	  2102	  2114	  2115	  2116	  2117	  2118	  2119
	  2120	  2132	  2133	  2134	  2135	  2136	  2137	  2138	  2150	  2151	  2152	  2153	  2154	  2155
	  2156	  2168	  2169	  2170	  2171	  2172	  2173	  2174	  2186	  2187	  2188	  2189	  2190	  2191
	  2192	  2204	  2205	  2206	  2207	  2208	  2209	  2210	  2222	  2223	  2224	  2225	  2226	  2227
	  2228	  2240	  2241	  2242	  2243	  2244	  2245	  2246	  2258	  2259	  2260	  2261	  2262	  2263
	  2264	  2276	  2277	  2278	  2279	  2280	  2281	  2282	  2294	  2295	  2296	  2297	  2298	  2299
	  2300	  2307#	  2309	  2310	  2311	  2312	  2320	  2321	  2322	  2323	  2324	  2325	  2326	  2327
	  2335	  2336	  2337	  2338	  2339	  2340	  2341	  2342	  2350	  2351	  2352	  2353	  2354	  2355
	  2356	  2357	  2365	  2366	  2367	  2368	  2369	  2370	  2371	  2372	  2381	  2382	  2383	  2384
	  2385	  2386	  2387	  2388	  2397	  2398	  2399	  2400	  2401	  2402	  2403	  2404	  2413	  2414
	  2415	  2416	  2417	  2418	  2419	  2420	  2429	  2430	  2431	  2432	  2433	  2434	  2435	  2436
	  2439#	  2441	  2442	  2443	  2444	  2470	  2471	  2472	  2473	  2474	  2483	  2484	  2485	  2486
	  2487	  2496	  2497	  2498	  2499	  2500	  2530	  2531	  2532	  2533	  2534	  2535	  2545	  2546     SEQ 0336
	  2547	  2548	  2549	  2550	  2560	  2561	  2562	  2563	  2564	  2565	  2573#	  2575	  2576	  2577
	  2578	  2580	  2581	  2582	  2583	  2584	  2590	  2591	  2592	  2593	  2594	  2633	  2635	  2638
	  2639	  2640	  2641	  2655	  2657	  2660	  2661	  2662	  2663	  2677	  2679	  2682	  2683	  2684
	  2685	  2699	  2701	  2704	  2705	  2706	  2707	  2721	  2723	  2726	  2727	  2728	  2729	  2743
	  2745	  2748	  2749	  2750	  2751	  2765	  2767	  2770	  2771	  2772	  2773	  2787	  2789	  2792
	  2793	  2794	  2795	  2809	  2811	  2814	  2815	  2816	  2817	  2831	  2833	  2836	  2837	  2838
	  2839	  2853	  2855	  2858	  2859	  2860	  2861	  2875	  2877	  2880	  2881	  2882	  2883	  2897
	  2899	  2902	  2903	  2904	  2905	  2919	  2921	  2924	  2925	  2926	  2927	  2941	  2943	  2946
	  2947	  2948	  2949	  2963	  2965	  2968	  2969	  2970	  2971	  2985	  2987	  2990	  2991	  2992
	  2993	  3007	  3011	  3012	  3013	  3014	  3015	  3055	  3057	  3060	  3061	  3062	  3063	  3077
	  3079	  3082	  3083	  3084	  3085	  3099	  3101	  3104	  3105	  3106	  3107	  3121	  3123	  3126
	  3127	  3128	  3129	  3143	  3145	  3148	  3149	  3150	  3151	  3165	  3167	  3170	  3171	  3172
	  3173	  3187	  3189	  3192	  3193	  3194	  3195	  3209	  3211	  3214	  3215	  3216	  3217	  3231
	  3233	  3236	  3237	  3238	  3239	  3253	  3255	  3258	  3259	  3260	  3261	  3275	  3277	  3280
	  3281	  3282	  3283	  3297	  3299	  3302	  3303	  3304	  3305	  3319	  3321	  3324	  3325	  3326
	  3327	  3341	  3343	  3346	  3347	  3348	  3349	  3363	  3365	  3368	  3369	  3370	  3371	  3385
	  3387	  3390	  3391	  3392	  3393	  3407	  3409	  3412	  3413	  3414	  3415	  3429	  3433	  3434
	  3435	  3436	  3437	  3475	  3477	  3480	  3481	  3482	  3483	  3496	  3498	  3501	  3502	  3503
	  3504	  3517	  3519	  3522	  3523	  3524	  3525	  3538	  3540	  3543	  3544	  3545	  3546	  3559
	  3561	  3564	  3565	  3566	  3567	  3580	  3582	  3585	  3586	  3587	  3588	  3601	  3603	  3606
	  3607	  3608	  3609	  3622	  3624	  3627	  3628	  3629	  3630	  3643	  3645	  3648	  3649	  3650
	  3651	  3664	  3666	  3669	  3670	  3671	  3672	  3685	  3687	  3690	  3691	  3692	  3693	  3706
	  3708	  3711	  3712	  3713	  3714	  3727	  3729	  3732	  3733	  3734	  3735	  3748	  3750	  3753
	  3754	  3755	  3756	  3769	  3771	  3774	  3775	  3776	  3777	  3790	  3792	  3795	  3796	  3797
	  3798	  3811	  3813	  3816	  3817	  3818	  3819	  3832	  3836	  3837	  3838	  3839	  3840	  3877
	  3879	  3882	  3883	  3884	  3885	  3898	  3900	  3903	  3904	  3905	  3906	  3919	  3921	  3924
	  3925	  3926	  3927	  3940	  3942	  3945	  3946	  3947	  3948	  3961	  3963	  3966	  3967	  3968
	  3969	  3982	  3984	  3987	  3988	  3989	  3990	  4003	  4005	  4008	  4009	  4010	  4011	  4024
	  4026	  4029	  4030	  4031	  4032	  4045	  4047	  4050	  4051	  4052	  4053	  4066	  4068	  4071
	  4072	  4073	  4074	  4087	  4089	  4092	  4093	  4094	  4095	  4108	  4110	  4113	  4114	  4115
	  4116	  4129	  4131	  4134	  4135	  4136	  4137	  4150	  4152	  4155	  4156	  4157	  4158	  4171
	  4173	  4176	  4177	  4178	  4179	  4192	  4194	  4197	  4198	  4199	  4200	  4213	  4215	  4218
	  4219	  4220	  4221	  4234	  4238	  4239	  4240	  4241	  4242	  4249#	  4251	  4252	  4253	  4254
	  4256	  4257	  4258	  4259	  4260	  4266	  4267	  4268	  4269	  4270	  4307	  4309	  4312	  4313
	  4314	  4315	  4328	  4330	  4333	  4334	  4335	  4336	  4349	  4351	  4354	  4355	  4356	  4357
	  4370	  4372	  4375	  4376	  4377	  4378	  4391	  4393	  4396	  4397	  4398	  4399	  4412	  4414
	  4417	  4418	  4419	  4420	  4433	  4435	  4438	  4439	  4440	  4441	  4454	  4456	  4459	  4460
	  4461	  4462	  4475	  4477	  4480	  4481	  4482	  4483	  4496	  4498	  4501	  4502	  4503	  4504
	  4517	  4519	  4522	  4523	  4524	  4525	  4538	  4540	  4543	  4544	  4545	  4546	  4559	  4561
	  4564	  4565	  4566	  4567	  4580	  4582	  4585	  4586	  4587	  4588	  4601	  4603	  4606	  4607
	  4608	  4609	  4622	  4624	  4627	  4628	  4629	  4630	  4643	  4645	  4648	  4649	  4650	  4651
	  4664	  4668	  4669	  4670	  4671	  4672	  4710	  4712	  4715	  4716	  4717	  4718	  4731	  4733
	  4736	  4737	  4738	  4739	  4752	  4754	  4757	  4758	  4759	  4760	  4773	  4775	  4778	  4779
	  4780	  4781	  4794	  4796	  4799	  4800	  4801	  4802	  4815	  4817	  4820	  4821	  4822	  4823
	  4836	  4838	  4841	  4842	  4843	  4844	  4857	  4859	  4862	  4863	  4864	  4865	  4878	  4880
	  4883	  4884	  4885	  4886	  4899	  4901	  4904	  4905	  4906	  4907	  4920	  4922	  4925	  4926
	  4927	  4928	  4941	  4943	  4946	  4947	  4948	  4949	  4962	  4964	  4967	  4968	  4969	  4970
	  4983	  4985	  4988	  4989	  4990	  4991	  5004	  5006	  5009	  5010	  5011	  5012	  5025	  5027
	  5030	  5031	  5032	  5033	  5046	  5048	  5051	  5052	  5053	  5054	  5067	  5071	  5072	  5073
	  5074	  5075	  5111	  5113	  5116	  5117	  5118	  5119	  5131	  5133	  5136	  5137	  5138	  5139
	  5151	  5153	  5156	  5157	  5158	  5159	  5171	  5173	  5176	  5177	  5178	  5179	  5191	  5193
	  5196	  5197	  5198	  5199	  5211	  5213	  5216	  5217	  5218	  5219	  5231	  5233	  5236	  5237
	  5238	  5239	  5251	  5253	  5256	  5257	  5258	  5259	  5271	  5273	  5276	  5277	  5278	  5279     SEQ 0337
	  5291	  5293	  5296	  5297	  5298	  5299	  5311	  5313	  5316	  5317	  5318	  5319	  5331	  5333
	  5336	  5337	  5338	  5339	  5351	  5353	  5356	  5357	  5358	  5359	  5371	  5373	  5376	  5377
	  5378	  5379	  5391	  5393	  5396	  5397	  5398	  5399	  5411	  5413	  5416	  5417	  5418	  5419
	  5431	  5433	  5436	  5437	  5438	  5439	  5451	  5455	  5456	  5457	  5458	  5459	  5497	  5499
	  5502	  5503	  5504	  5505	  5518	  5520	  5523	  5524	  5525	  5526	  5539	  5541	  5544	  5545
	  5546	  5547	  5560	  5562	  5565	  5566	  5567	  5568	  5581	  5583	  5586	  5587	  5588	  5589
	  5602	  5604	  5607	  5608	  5609	  5610	  5623	  5625	  5628	  5629	  5630	  5631	  5644	  5646
	  5649	  5650	  5651	  5652	  5665	  5667	  5670	  5671	  5672	  5673	  5686	  5688	  5691	  5692
	  5693	  5694	  5707	  5709	  5712	  5713	  5714	  5715	  5728	  5730	  5733	  5734	  5735	  5736
	  5749	  5751	  5754	  5755	  5756	  5757	  5770	  5772	  5775	  5776	  5777	  5778	  5791	  5793
	  5796	  5797	  5798	  5799	  5812	  5814	  5817	  5818	  5819	  5820	  5833	  5835	  5838	  5839
	  5840	  5841	  5854	  5858	  5859	  5860	  5861	  5862	  5868#	  5870	  5871	  5872	  5873	  5875
	  5876	  5877	  5878	  5879	  5885	  5886	  5887	  5888	  5889	  5929	  5931	  5936	  5937	  5938
	  5939	  5952	  5954	  5959	  5960	  5961	  5962	  5975	  5977	  5982	  5983	  5984	  5985	  5998
	  6000	  6005	  6006	  6007	  6008	  6021	  6023	  6028	  6029	  6030	  6031	  6044	  6046	  6051
	  6052	  6053	  6054	  6067	  6069	  6074	  6075	  6076	  6077	  6090	  6092	  6097	  6098	  6099
	  6100	  6113	  6115	  6120	  6121	  6122	  6123	  6136	  6138	  6143	  6144	  6145	  6146	  6159
	  6161	  6166	  6167	  6168	  6169	  6182	  6184	  6189	  6190	  6191	  6192	  6205	  6207	  6212
	  6213	  6214	  6215	  6228	  6230	  6235	  6236	  6237	  6238	  6251	  6253	  6258	  6259	  6260
	  6261	  6274	  6276	  6281	  6282	  6283	  6284	  6297	  6301	  6304	  6305	  6306	  6307	  6320
	  6326	  6327	  6328	  6329	  6330	  6370	  6372	  6377	  6378	  6379	  6380	  6393	  6395	  6400
	  6401	  6402	  6403	  6416	  6418	  6423	  6424	  6425	  6426	  6439	  6441	  6446	  6447	  6448
	  6449	  6462	  6464	  6469	  6470	  6471	  6472	  6485	  6487	  6492	  6493	  6494	  6495	  6508
	  6510	  6515	  6516	  6517	  6518	  6531	  6533	  6538	  6539	  6540	  6541	  6554	  6556	  6561
	  6562	  6563	  6564	  6577	  6579	  6584	  6585	  6586	  6587	  6600	  6602	  6607	  6608	  6609
	  6610	  6623	  6625	  6630	  6631	  6632	  6633	  6646	  6648	  6653	  6654	  6655	  6656	  6669
	  6671	  6676	  6677	  6678	  6679	  6692	  6694	  6699	  6700	  6701	  6702	  6715	  6717	  6722
	  6723	  6724	  6725	  6738	  6742	  6745	  6746	  6747	  6748	  6761	  6767	  6768	  6769	  6770
	  6771	  6811	  6813	  6818	  6819	  6820	  6821	  6834	  6836	  6841	  6842	  6843	  6844	  6857
	  6859	  6864	  6865	  6866	  6867	  6880	  6882	  6887	  6888	  6889	  6890	  6903	  6905	  6910
	  6911	  6912	  6913	  6926	  6928	  6933	  6934	  6935	  6936	  6949	  6951	  6956	  6957	  6958
	  6959	  6972	  6974	  6979	  6980	  6981	  6982	  6995	  6997	  7002	  7003	  7004	  7005	  7018
	  7020	  7025	  7026	  7027	  7028	  7041	  7043	  7048	  7049	  7050	  7051	  7064	  7066	  7071
	  7072	  7073	  7074	  7087	  7089	  7094	  7095	  7096	  7097	  7110	  7112	  7117	  7118	  7119
	  7120	  7133	  7135	  7140	  7141	  7142	  7143	  7156	  7158	  7163	  7164	  7165	  7166	  7179
	  7183	  7186	  7187	  7188	  7189	  7202	  7208	  7209	  7210	  7211	  7212	  7252	  7254	  7259
	  7260	  7261	  7262	  7275	  7277	  7282	  7283	  7284	  7285	  7298	  7300	  7305	  7306	  7307
	  7308	  7321	  7323	  7328	  7329	  7330	  7331	  7344	  7346	  7351	  7352	  7353	  7354	  7367
	  7369	  7374	  7375	  7376	  7377	  7390	  7392	  7397	  7398	  7399	  7400	  7413	  7415	  7420
	  7421	  7422	  7423	  7436	  7438	  7443	  7444	  7445	  7446	  7459	  7461	  7466	  7467	  7468
	  7469	  7482	  7484	  7489	  7490	  7491	  7492	  7505	  7507	  7512	  7513	  7514	  7515	  7528
	  7530	  7535	  7536	  7537	  7538	  7551	  7553	  7558	  7559	  7560	  7561	  7574	  7576	  7581
	  7582	  7583	  7584	  7597	  7599	  7604	  7605	  7606	  7607	  7620	  7624	  7627	  7628	  7629
	  7630	  7643	  7649	  7650	  7651	  7652	  7653	  7663#	  7665	  7666	  7667	  7668	  7670	  7671
	  7672	  7673	  7674	  7675	  7683	  7684	  7685	  7686	  7687	  7688	  7730	  7731	  7733	  7736
	  7737	  7738	  7739	  7754	  7755	  7757	  7760	  7761	  7762	  7763	  7778	  7779	  7781	  7784
	  7785	  7786	  7787	  7802	  7803	  7805	  7808	  7809	  7810	  7811	  7826	  7827	  7829	  7832
	  7833	  7834	  7835	  7850	  7851	  7853	  7856	  7857	  7858	  7859	  7874	  7875	  7877	  7880
	  7881	  7882	  7883	  7898	  7899	  7901	  7904	  7905	  7906	  7907	  7922	  7923	  7925	  7928
	  7929	  7930	  7931	  7946	  7947	  7949	  7952	  7953	  7954	  7955	  7970	  7971	  7973	  7976
	  7977	  7978	  7979	  7994	  7995	  7997	  8000	  8001	  8002	  8003	  8018	  8019	  8021	  8024
	  8025	  8026	  8027	  8042	  8043	  8045	  8048	  8049	  8050	  8051	  8066	  8067	  8069	  8072
	  8073	  8074	  8075	  8090	  8091	  8093	  8096	  8097	  8098	  8099	  8114	  8115	  8117	  8120     SEQ 0338
	  8121	  8122	  8123	  8138	  8139	  8143	  8144	  8145	  8146	  8147	  8187	  8188	  8189	  8190
	  8191	  8192	  8193	  8208	  8209	  8210	  8211	  8212	  8213	  8214	  8229	  8230	  8231	  8232
	  8233	  8234	  8235	  8250	  8251	  8252	  8253	  8254	  8255	  8256	  8271	  8272	  8273	  8274
	  8275	  8276	  8277	  8292	  8293	  8294	  8295	  8296	  8297	  8298	  8313	  8314	  8315	  8316
	  8317	  8318	  8319	  8334	  8335	  8336	  8337	  8338	  8339	  8340	  8355	  8356	  8357	  8358
	  8359	  8360	  8361	  8376	  8377	  8378	  8379	  8380	  8381	  8382	  8397	  8398	  8399	  8400
	  8401	  8402	  8403	  8418	  8419	  8420	  8421	  8422	  8423	  8424	  8439	  8440	  8441	  8442
	  8443	  8444	  8445	  8460	  8461	  8462	  8463	  8464	  8465	  8466	  8481	  8482	  8483	  8484
	  8485	  8486	  8487	  8502	  8503	  8504	  8505	  8506	  8507	  8508	  8523	  8524	  8525	  8526
	  8527	  8528	  8529	  8571	  8572	  8574	  8577	  8578	  8579	  8580	  8595	  8596	  8598	  8601
	  8602	  8603	  8604	  8619	  8620	  8622	  8625	  8626	  8627	  8628	  8643	  8644	  8646	  8649
	  8650	  8651	  8652	  8667	  8668	  8670	  8673	  8674	  8675	  8676	  8691	  8692	  8694	  8697
	  8698	  8699	  8700	  8715	  8716	  8718	  8721	  8722	  8723	  8724	  8739	  8740	  8742	  8745
	  8746	  8747	  8748	  8763	  8764	  8766	  8769	  8770	  8771	  8772	  8787	  8788	  8790	  8793
	  8794	  8795	  8796	  8811	  8812	  8814	  8817	  8818	  8819	  8820	  8835	  8836	  8838	  8841
	  8842	  8843	  8844	  8859	  8860	  8862	  8865	  8866	  8867	  8868	  8883	  8884	  8886	  8889
	  8890	  8891	  8892	  8907	  8908	  8910	  8913	  8914	  8915	  8916	  8931	  8932	  8934	  8937
	  8938	  8939	  8940	  8955	  8956	  8958	  8961	  8962	  8963	  8964	  8979	  8980	  8984	  8985
	  8986	  8987	  8988	  9030	  9031	  9032	  9033	  9034	  9035	  9036	  9052	  9053	  9054	  9055
	  9056	  9057	  9058	  9074	  9075	  9076	  9077	  9078	  9079	  9080	  9096	  9097	  9098	  9099
	  9100	  9101	  9102	  9118	  9119	  9120	  9121	  9122	  9123	  9124	  9140	  9141	  9142	  9143
	  9144	  9145	  9146	  9162	  9163	  9164	  9165	  9166	  9167	  9168	  9184	  9185	  9186	  9187
	  9188	  9189	  9190	  9206	  9207	  9208	  9209	  9210	  9211	  9212	  9228	  9229	  9230	  9231
	  9232	  9233	  9234	  9250	  9251	  9252	  9253	  9254	  9255	  9256	  9272	  9273	  9274	  9275
	  9276	  9277	  9278	  9294	  9295	  9296	  9297	  9298	  9299	  9300	  9316	  9317	  9318	  9319
	  9320	  9321	  9322	  9338	  9339	  9340	  9341	  9342	  9343	  9344	  9360	  9361	  9362	  9363
	  9364	  9365	  9366	  9382	  9383	  9384	  9385	  9386	  9387	  9388	  9396#	  9398	  9399	  9400
	  9401	  9403	  9404	  9405	  9406	  9407	  9408	  9416	  9417	  9418	  9419	  9420	  9421	  9464
	  9465	  9467	  9470	  9471	  9472	  9473	  9489	  9490	  9492	  9495	  9496	  9497	  9498	  9514
	  9515	  9517	  9520	  9521	  9522	  9523	  9539	  9540	  9542	  9545	  9546	  9547	  9548	  9564
	  9565	  9567	  9570	  9571	  9572	  9573	  9589	  9590	  9592	  9595	  9596	  9597	  9598	  9614
	  9615	  9617	  9620	  9621	  9622	  9623	  9639	  9640	  9642	  9645	  9646	  9647	  9648	  9664
	  9665	  9667	  9670	  9671	  9672	  9673	  9689	  9690	  9692	  9695	  9696	  9697	  9698	  9714
	  9715	  9717	  9720	  9721	  9722	  9723	  9739	  9740	  9742	  9745	  9746	  9747	  9748	  9764
	  9765	  9767	  9770	  9771	  9772	  9773	  9789	  9790	  9792	  9795	  9796	  9797	  9798	  9814
	  9815	  9817	  9820	  9821	  9822	  9823	  9839	  9840	  9842	  9845	  9846	  9847	  9848	  9864
	  9865	  9867	  9870	  9871	  9872	  9873	  9889	  9890	  9894	  9895	  9896	  9897	  9898	  9940
	  9941	  9942	  9943	  9944	  9945	  9946	  9962	  9963	  9964	  9965	  9966	  9967	  9968	  9984
	  9985	  9986	  9987	  9988	  9989	  9990	 10006	 10007	 10008	 10009	 10010	 10011	 10012	 10028
	 10029	 10030	 10031	 10032	 10033	 10034	 10050	 10051	 10052	 10053	 10054	 10055	 10056	 10072
	 10073	 10074	 10075	 10076	 10077	 10078	 10094	 10095	 10096	 10097	 10098	 10099	 10100	 10116
	 10117	 10118	 10119	 10120	 10121	 10122	 10138	 10139	 10140	 10141	 10142	 10143	 10144	 10160
	 10161	 10162	 10163	 10164	 10165	 10166	 10182	 10183	 10184	 10185	 10186	 10187	 10188	 10204
	 10205	 10206	 10207	 10208	 10209	 10210	 10226	 10227	 10228	 10229	 10230	 10231	 10232	 10248
	 10249	 10250	 10251	 10252	 10253	 10254	 10270	 10271	 10272	 10273	 10274	 10275	 10276	 10292
	 10293	 10294	 10295	 10296	 10297	 10298	 10341	 10342	 10344	 10347	 10348	 10349	 10350	 10365
	 10366	 10368	 10371	 10372	 10373	 10374	 10389	 10390	 10392	 10395	 10396	 10397	 10398	 10413
	 10414	 10416	 10419	 10420	 10421	 10422	 10437	 10438	 10440	 10443	 10444	 10445	 10446	 10461
	 10462	 10464	 10467	 10468	 10469	 10470	 10485	 10486	 10488	 10491	 10492	 10493	 10494	 10509
	 10510	 10512	 10515	 10516	 10517	 10518	 10533	 10534	 10536	 10539	 10540	 10541	 10542	 10557
	 10558	 10560	 10563	 10564	 10565	 10566	 10581	 10582	 10584	 10587	 10588	 10589	 10590	 10605
	 10606	 10608	 10611	 10612	 10613	 10614	 10629	 10630	 10632	 10635	 10636	 10637	 10638	 10653
	 10654	 10656	 10659	 10660	 10661	 10662	 10677	 10678	 10680	 10683	 10684	 10685	 10686	 10701     SEQ 0339
	 10702	 10704	 10707	 10708	 10709	 10710	 10725	 10726	 10728	 10731	 10732	 10733	 10734	 10749
	 10750	 10754	 10755	 10756	 10757	 10758	 10798	 10799	 10800	 10801	 10802	 10803	 10804	 10819
	 10820	 10821	 10822	 10823	 10824	 10825	 10840	 10841	 10842	 10843	 10844	 10845	 10846	 10861
	 10862	 10863	 10864	 10865	 10866	 10867	 10882	 10883	 10884	 10885	 10886	 10887	 10888	 10903
	 10904	 10905	 10906	 10907	 10908	 10909	 10924	 10925	 10926	 10927	 10928	 10929	 10930	 10945
	 10946	 10947	 10948	 10949	 10950	 10951	 10966	 10967	 10968	 10969	 10970	 10971	 10972	 10987
	 10988	 10989	 10990	 10991	 10992	 10993	 11008	 11009	 11010	 11011	 11012	 11013	 11014	 11029
	 11030	 11031	 11032	 11033	 11034	 11035	 11050	 11051	 11052	 11053	 11054	 11055	 11056	 11071
	 11072	 11073	 11074	 11075	 11076	 11077	 11092	 11093	 11094	 11095	 11096	 11097	 11098	 11113
	 11114	 11115	 11116	 11117	 11118	 11119	 11134	 11135	 11136	 11137	 11138	 11139	 11140	 11148#
	 11150	 11151	 11152	 11153	 11155	 11156	 11157	 11158	 11159	 11160	 11168	 11169	 11170	 11171
	 11172	 11173	 11217	 11218	 11220	 11225	 11226	 11227	 11228	 11243	 11244	 11246	 11251	 11252
	 11253	 11254	 11269	 11270	 11272	 11277	 11278	 11279	 11280	 11295	 11296	 11298	 11303	 11304
	 11305	 11306	 11321	 11322	 11324	 11329	 11330	 11331	 11332	 11347	 11348	 11350	 11355	 11356
	 11357	 11358	 11373	 11374	 11376	 11381	 11382	 11383	 11384	 11399	 11400	 11402	 11407	 11408
	 11409	 11410	 11425	 11426	 11428	 11433	 11434	 11435	 11436	 11451	 11452	 11454	 11459	 11460
	 11461	 11462	 11477	 11478	 11480	 11485	 11486	 11487	 11488	 11503	 11504	 11506	 11511	 11512
	 11513	 11514	 11529	 11530	 11532	 11537	 11538	 11539	 11540	 11555	 11556	 11558	 11563	 11564
	 11565	 11566	 11581	 11582	 11584	 11589	 11590	 11591	 11592	 11607	 11608	 11610	 11615	 11616
	 11617	 11618	 11633	 11634	 11638	 11641	 11642	 11643	 11644	 11659	 11660	 11662	 11666	 11667
	 11668	 11669	 11670	 11711	 11712	 11714	 11715	 11716	 11717	 11718	 11733	 11734	 11736	 11737
	 11738	 11739	 11740	 11755	 11756	 11758	 11759	 11760	 11761	 11762	 11777	 11778	 11780	 11781
	 11782	 11783	 11784	 11799	 11800	 11802	 11803	 11804	 11805	 11806	 11821	 11822	 11824	 11825
	 11826	 11827	 11828	 11843	 11844	 11846	 11847	 11848	 11849	 11850	 11865	 11866	 11868	 11869
	 11870	 11871	 11872	 11887	 11888	 11890	 11891	 11892	 11893	 11894	 11909	 11910	 11912	 11913
	 11914	 11915	 11916	 11931	 11932	 11934	 11935	 11936	 11937	 11938	 11953	 11954	 11956	 11957
	 11958	 11959	 11960	 11975	 11976	 11978	 11979	 11980	 11981	 11982	 11997	 11998	 12000	 12001
	 12002	 12003	 12004	 12019	 12020	 12022	 12023	 12024	 12025	 12026	 12041	 12042	 12044	 12045
	 12046	 12047	 12048	 12095	 12096	 12098	 12103	 12104	 12105	 12106	 12122	 12123	 12125	 12130
	 12131	 12132	 12133	 12149	 12150	 12152	 12157	 12158	 12159	 12160	 12176	 12177	 12179	 12184
	 12185	 12186	 12187	 12203	 12204	 12206	 12211	 12212	 12213	 12214	 12230	 12231	 12233	 12238
	 12239	 12240	 12241	 12257	 12258	 12260	 12265	 12266	 12267	 12268	 12284	 12285	 12287	 12292
	 12293	 12294	 12295	 12311	 12312	 12314	 12319	 12320	 12321	 12322	 12338	 12339	 12341	 12346
	 12347	 12348	 12349	 12365	 12366	 12368	 12373	 12374	 12375	 12376	 12392	 12393	 12395	 12400
	 12401	 12402	 12403	 12419	 12420	 12422	 12427	 12428	 12429	 12430	 12446	 12447	 12449	 12454
	 12455	 12456	 12457	 12473	 12474	 12476	 12481	 12482	 12483	 12484	 12500	 12501	 12503	 12508
	 12509	 12510	 12511	 12527	 12528	 12532	 12535	 12536	 12537	 12538	 12554	 12555	 12557	 12561
	 12562	 12563	 12564	 12565	 12605	 12606	 12607	 12608	 12609	 12610	 12611	 12626	 12627	 12628
	 12629	 12630	 12631	 12632	 12647	 12648	 12649	 12650	 12651	 12652	 12653	 12668	 12669	 12670
	 12671	 12672	 12673	 12674	 12689	 12690	 12691	 12692	 12693	 12694	 12695	 12710	 12711	 12712
	 12713	 12714	 12715	 12716	 12731	 12732	 12733	 12734	 12735	 12736	 12737	 12752	 12753	 12754
	 12755	 12756	 12757	 12758	 12773	 12774	 12775	 12776	 12777	 12778	 12779	 12794	 12795	 12796
	 12797	 12798	 12799	 12800	 12815	 12816	 12817	 12818	 12819	 12820	 12821	 12836	 12837	 12838
	 12839	 12840	 12841	 12842	 12857	 12858	 12859	 12860	 12861	 12862	 12863	 12878	 12879	 12880
	 12881	 12882	 12883	 12884	 12899	 12900	 12901	 12902	 12903	 12904	 12905	 12920	 12921	 12922
	 12923	 12924	 12925	 12926	 12945	 12946	 12947	 12948	 12949	 12950	 12951	 12952	 12962	 12963
	 12964	 12965	 12966	 12967	 12968	 12969	 12979	 12980	 12981	 12982	 12983	 12984	 12985	 12986
	 12996	 12997	 12998	 12999	 13000	 13001	 13002	 13003	 13013	 13014	 13015	 13016	 13017	 13018
	 13019	 13020	 13030	 13031	 13032	 13033	 13034	 13035	 13036	 13037	 13047	 13048	 13049	 13050
	 13051	 13052	 13053	 13054	 13064	 13065	 13066	 13067	 13068	 13069	 13070	 13071	 13081	 13082
	 13083	 13084	 13085	 13086	 13087	 13088	 13098	 13099	 13100	 13101	 13102	 13103	 13104	 13105
	 13115	 13116	 13117	 13118	 13119	 13120	 13121	 13122	 13132	 13133	 13134	 13135	 13136	 13137
	 13138	 13139	 13149	 13150	 13151	 13152	 13153	 13154	 13155	 13156	 13166	 13167	 13168	 13169     SEQ 0340
	 13170	 13171	 13172	 13173	 13183	 13184	 13185	 13186	 13187	 13188	 13189	 13190	 13200	 13201
	 13202	 13203	 13204	 13205	 13206	 13207	 13217	 13218	 13219	 13220	 13221	 13222	 13223	 13224
	 13234	 13235	 13236	 13237	 13238	 13239	 13240	 13241	 13251	 13252	 13253	 13254	 13255	 13256
	 13257	 13258	 13268	 13269	 13270	 13271	 13272	 13273	 13274	 13275	 13285	 13286	 13287	 13288
	 13289	 13290	 13291	 13292	 13302	 13303	 13304	 13305	 13306	 13307	 13308	 13309	 13319	 13320
	 13321	 13322	 13323	 13324	 13325	 13326	 13336	 13337	 13338	 13339	 13340	 13341	 13342	 13343
	 13362	 13363	 13364	 13365	 13366	 13367	 13368	 13369	 13379	 13380	 13381	 13382	 13383	 13384
	 13385	 13386	 13396	 13397	 13398	 13399	 13400	 13401	 13402	 13403	 13413	 13414	 13415	 13416
	 13417	 13418	 13419	 13420	 13430	 13431	 13432	 13433	 13434	 13435	 13436	 13437	 13447	 13448
	 13449	 13450	 13451	 13452	 13453	 13454	 13464	 13465	 13466	 13467	 13468	 13469	 13470	 13471
	 13481	 13482	 13483	 13484	 13485	 13486	 13487	 13488	 13498	 13499	 13500	 13501	 13502	 13503
	 13504	 13505	 13515	 13516	 13517	 13518	 13519	 13520	 13521	 13522	 13532	 13533	 13534	 13535
	 13536	 13537	 13538	 13539	 13549	 13550	 13551	 13552	 13553	 13554	 13555	 13556	 13566	 13567
	 13568	 13569	 13570	 13571	 13572	 13573	 13583	 13584	 13585	 13586	 13587	 13588	 13589	 13590
	 13600	 13601	 13602	 13603	 13604	 13605	 13606	 13607	 13617	 13618	 13619	 13620	 13621	 13622
	 13623	 13624	 13634	 13635	 13636	 13637	 13638	 13639	 13640	 13641	 13651	 13652	 13653	 13654
	 13655	 13656	 13657	 13658	 13668	 13669	 13670	 13671	 13672	 13673	 13674	 13675	 13685	 13686
	 13687	 13688	 13689	 13690	 13691	 13692	 13710	 13711	 13712	 13713	 13714	 13715	 13716	 13717
	 13727	 13728	 13729	 13730	 13731	 13732	 13733	 13734	 13744	 13745	 13746	 13747	 13748	 13749
	 13750	 13751	 13761	 13762	 13763	 13764	 13765	 13766	 13767	 13768	 13778	 13779	 13780	 13781
	 13782	 13783	 13784	 13785	 13795	 13796	 13797	 13798	 13799	 13800	 13801	 13802	 13812	 13813
	 13814	 13815	 13816	 13817	 13818	 13819	 13829	 13830	 13831	 13832	 13833	 13834	 13835	 13836
	 13846	 13847	 13848	 13849	 13850	 13851	 13852	 13853	 13863	 13864	 13865	 13866	 13867	 13868
	 13869	 13870	 13880	 13881	 13882	 13883	 13884	 13885	 13886	 13887	 13897	 13898	 13899	 13900
	 13901	 13902	 13903	 13904	 13914	 13915	 13916	 13917	 13918	 13919	 13920	 13921	 13931	 13932
	 13933	 13934	 13935	 13936	 13937	 13938	 13948	 13949	 13950	 13951	 13952	 13953	 13954	 13955
	 13965	 13966	 13967	 13968	 13969	 13970	 13971	 13972	 13982	 13983	 13984	 13985	 13986	 13987
	 13988	 13989	 13999	 14000	 14001	 14002	 14003	 14004	 14005	 14006	 14016	 14017	 14018	 14019
	 14020	 14021	 14022	 14023	 14033	 14034	 14035	 14036	 14037	 14038	 14039	 14040	 14050	 14051
	 14052	 14053	 14054	 14055	 14056	 14057	 14067	 14068	 14069	 14070	 14071	 14072	 14073	 14074
	 14084	 14085	 14086	 14087	 14088	 14089	 14090	 14091	 14115	 14116	 14117	 14118	 14119	 14120
	 14121	 14122	 14133	 14134	 14135	 14136	 14137	 14138	 14139	 14140	 14151	 14152	 14153	 14154
	 14155	 14156	 14157	 14158	 14169	 14170	 14171	 14172	 14173	 14174	 14175	 14176	 14187	 14188
	 14189	 14190	 14191	 14192	 14193	 14194	 14205	 14206	 14207	 14208	 14209	 14210	 14211	 14212
	 14223	 14224	 14225	 14226	 14227	 14228	 14229	 14230	 14241	 14242	 14243	 14244	 14245	 14246
	 14247	 14248	 14259	 14260	 14261	 14262	 14263	 14264	 14265	 14266	 14277	 14278	 14279	 14280
	 14281	 14282	 14283	 14284	 14295	 14296	 14297	 14298	 14299	 14300	 14301	 14302	 14313	 14314
	 14315	 14316	 14317	 14318	 14319	 14320	 14331	 14332	 14333	 14334	 14335	 14336	 14337	 14338
	 14349	 14350	 14351	 14352	 14353	 14354	 14355	 14356	 14367	 14368	 14369	 14370	 14371	 14372
	 14373	 14374	 14385	 14386	 14387	 14388	 14389	 14390	 14391	 14392	 14403	 14404	 14405	 14406
	 14407	 14408	 14409	 14410	 14421	 14422	 14423	 14424	 14425	 14426	 14427	 14428	 14439	 14440
	 14441	 14442	 14443	 14444	 14445	 14446	 14457	 14458	 14459	 14460	 14461	 14462	 14463	 14464
	 14475	 14476	 14477	 14478	 14479	 14480	 14481	 14482	 14493	 14494	 14495	 14496	 14497	 14498
	 14499	 14500	 14511	 14512	 14513	 14514	 14515	 14516	 14517	 14518	 14529	 14530	 14531	 14532
	 14533	 14534	 14535	 14536	 14547	 14548	 14549	 14550	 14551	 14552	 14553	 14554	 14565	 14566
	 14567	 14568	 14569	 14570	 14571	 14572	 14583	 14584	 14585	 14586	 14587	 14588	 14589	 14590
	 14601	 14602	 14603	 14604	 14605	 14606	 14607	 14608	 14619	 14620	 14621	 14622	 14623	 14624
	 14625	 14626	 14637	 14638	 14639	 14640	 14641	 14642	 14643	 14644	 14655	 14656	 14657	 14658
	 14659	 14660	 14661	 14662	 14673	 14674	 14675	 14676	 14677	 14678	 14679	 14680	 14691	 14692
	 14693	 14694	 14695	 14696	 14697	 14698	 14709	 14710	 14711	 14712	 14713	 14714	 14715	 14716
	 14727	 14728	 14729	 14730	 14731	 14732	 14733	 14734	 14745	 14746	 14747	 14748	 14749	 14750
	 14751	 14752	 14763	 14764	 14765	 14766	 14767	 14768	 14769	 14770	 14781	 14782	 14783	 14784
	 14785	 14786	 14787	 14788	 14799	 14800	 14801	 14802	 14803	 14804	 14805	 14806	 14817	 14818     SEQ 0341
	 14819	 14820	 14821	 14822	 14823	 14824	 14835	 14836	 14837	 14838	 14839	 14840	 14841	 14842
	 14853	 14854	 14855	 14856	 14857	 14858	 14859	 14860	 14871	 14872	 14873	 14874	 14875	 14876
	 14877	 14878	 14889	 14890	 14891	 14892	 14893	 14894	 14895	 14896	 14907	 14908	 14909	 14910
	 14911	 14912	 14913	 14914	 14925	 14926	 14927	 14928	 14929	 14930	 14931	 14932	 14943	 14944
	 14945	 14946	 14947	 14948	 14949	 14950	 14961	 14962	 14963	 14964	 14965	 14966	 14967	 14968
AFOCLR	   375#
AFODIS	   375#
AFOENB	   375#
AFOV	   375#
ALTMGO	   461#	 15105
AMPCLR	   375#
AMPV	   375#
ANXCLR	   375#
ANXM	   375#
AOVCLR	   375#
AOVDIS	   375#
AOVENB	   375#
AOVFLO	   375#
APAREN	   375#
APARER	   375#
APDCLR	   375#
APDLOV	   375#
APWRFL	   375#
AROV	   375#
AROVU	   375#
AST	   576#
ATRPOS	   375#
ATSIN	   577#
AUSRIO	   375#
BEGEND	   457#	 14970
BEGIN	    67	    68	    69	    70	    71	    72	    73	    74	    75	    76	    77	   360	   361	   388#
	 15230
BEGIN1	   404#	   458
BELL	   580#
BIS	   375#
CCA	   375#
CHAIN	   166#
CHNOFF	   375#
CHNON	   375#
CLK	   375#
CLKCLR	   375#
CLKDIS	   375#
CLKENB	   375#
CLKU	   375#
CLOCKF	   443#
CNTLC	   460#
COMMA	   569#
CONSW	   444#	 15039	 15106	 15137
CPOPJ	   464#
CPOPJ1	   462#
CRLF	   295	   296	   564#
CRLF2	   299	   300	   566#
CRY0	   375#                                                                                                            SEQ 0342
CRY1	   375#
CSHFLG	   623#
CSHMEM	   624#
CYCL60	   617#
DCK	   375#
DDTLNK	   180#	   402
DDTSRT	   402#
DEBUG	    58#	 15221	 15222
DECVER	     4#	    11	    25	   423
DF22F	   528#
DIAGMN	   391#
DING	   152#	 15111
DOLLAR	   583#
DSKUPD	   428
E00	   723	   738#
E100	   744#	   748
E1000	   823#	   830
E10000	 13217#	 13224
E10100	 13234#	 13241
E10200	 13251#	 13258
E10300	 13268#	 13275
E10400	 13285#	 13292
E10500	 13302#	 13309
E10600	 13319#	 13326
E10700	 13336#	 13343
E1100	   848#	   852
E11000	 13362#	 13369
E11100	 13379#	 13386
E11200	 13396#	 13403
E11300	 13413#	 13420
E11400	 13430#	 13437
E11500	 13447#	 13454
E11600	 13464#	 13471
E11700	 13481#	 13488
E1200	   854#	   858
E12000	 13498#	 13505
E12100	 13515#	 13522
E12200	 13532#	 13539
E12300	 13549#	 13556
E12400	 13566#	 13573
E12500	 13583#	 13590
E12600	 13600#	 13607
E12700	 13617#	 13624
E1300	   867#	   873
E13000	 13634#	 13641
E13100	 13651#	 13658
E13200	 13668#	 13675
E13300	 13685#	 13692
E13400	 13710#	 13717
E13500	 13727#	 13734
E13600	 13744#	 13751
E13700	 13761#	 13768
E1400	   875#	   882                                                                                                     SEQ 0343
E14000	 13778#	 13785
E14100	 13795#	 13802
E14200	 13812#	 13819
E14300	 13829#	 13836
E14400	 13846#	 13853
E14500	 13863#	 13870
E14600	 13880#	 13887
E14700	 13897#	 13904
E1500	   935#
E15000	 13914#	 13921
E15100	 13931#	 13938
E15200	 13948#	 13955
E15300	 13965#	 13972
E15400	 13982#	 13989
E15500	 13999#	 14006
E15600	 14016#	 14023
E15700	 14033#	 14040
E1600	  1615#
E16000	 14050#	 14057
E16100	 14067#	 14074
E16200	 14084#	 14091
E16300	 14115#	 14122
E16400	 14133#	 14140
E16500	 14151#	 14158
E16600	 14169#	 14176
E16700	 14187#	 14194
E1700	  2320#	  2327
E17000	 14205#	 14212
E17100	 14223#	 14230
E17200	 14241#	 14248
E17300	 14259#	 14266
E17400	 14277#	 14284
E17500	 14295#	 14302
E17600	 14313#	 14320
E17700	 14331#	 14338
E200	   750#	   754
E2000	  2335#	  2342
E20000	 14349#	 14356
E20100	 14367#	 14374
E20200	 14385#	 14392
E20300	 14403#	 14410
E20400	 14421#	 14428
E20500	 14439#	 14446
E20600	 14457#	 14464
E20700	 14475#	 14482
E2100	  2365#	  2372
E21000	 14493#	 14500
E21100	 14511#	 14518
E21200	 14529#	 14536
E21300	 14547#	 14554
E21400	 14565#	 14572
E21500	 14583#	 14590
E21600	 14601#	 14608                                                                                                     SEQ 0344
E21700	 14619#	 14626
E2200	  2381#	  2388
E22000	 14637#	 14644
E22100	 14655#	 14662
E22200	 14673#	 14680
E22300	 14691#	 14698
E22400	 14709#	 14716
E22500	 14727#	 14734
E22600	 14745#	 14752
E22700	 14763#	 14770
E2300	  2397#	  2404
E23000	 14781#	 14788
E23100	 14799#	 14806
E23200	 14817#	 14824
E23300	 14835#	 14842
E23400	 14853#	 14860
E23500	 14871#	 14878
E23600	 14889#	 14896
E23700	 14907#	 14914
E2400	  2413#	  2420
E24000	 14925#	 14932
E24100	 14943#	 14950
E24200	 14961#	 14968
E2500	  2429#	  2436
E2600	  2450#
E2700	  2507#
E300	   763#	   769
E3000	  2580#
E3100	  2584	  2590#	  2594
E3200	  2599#
E3300	  3443#
E3400	  4256#	  4260
E3500	  4266#	  4270
E3600	  4275#
E3700	  5081#
E400	   771#	   778
E4000	  5875#	  5879
E4100	  5885#	  5889
E4200	  5895#
E4300	  6777#
E4400	  7670#	  7675
E44200	  2350#	  2357
E44300	   896#	   903
E44400	   915#	   922
E4500	  7683#	  7688
E4600	  7693#
E4700	  8534#
E500	   796#	   800
E5000	  9403#	  9408
E5100	  9416#	  9421
E5200	  9425#
E5300	 10304#
E5400	 11154#	 11160                                                                                                     SEQ 0345
E5500	 11168#	 11173
E5600	 11178#
E5700	 12054#
E600	   802#	   806
E6000	 12945#	 12952
E6100	 12962#	 12969
E6200	 12979#	 12986
E6300	 12996#	 13003
E6400	 13013#	 13020
E6500	 13030#	 13037
E6600	 13047#	 13054
E6700	 13064#	 13071
E700	   815#	   821
E7000	 13081#	 13088
E7100	 13098#	 13105
E7200	 13115#	 13122
E7300	 13132#	 13139
E7400	 13149#	 13156
E7500	 13166#	 13173
E7600	 13183#	 13190
E7700	 13200#	 13207
END	 15229#
ENDFIX	   697#
ENDSLD	 15219#
ERDIAG	    63#	 15024
ERMORE	   477#	 15097
ERRELB	 15094
ERRLOP	   742#	   742	   761#	   761	   794#	   794	   813#	   813	   846#	   846	   865#	   865	   930#	   930
	  1608#	  1608	  2312#	  2312	  2444#	  2444	  2578#	  2578	  4254#	  4254	  5873#	  5873	  7668#	  7668
	  9401#	  9401	 11153#	 11153	 15004	 15116	 15119	 15120
ERRMES	    44	    45	    46	    47	    48	    49	    50	    51	    52	    53	    54	 14975#
ERRPC	   448#	 14987	 15021
ERRTLS	   449#	 14985	 15123
ERSTOP	   155#	 15107
EXCASB	    59#	   426	 14976	 15128
EXIOT	   375#
EXIT	   698#	   699
FOV	   375#
FOVU	   375#
FRDLNK	   178#
FSELNK	   177#
FXU	   375#
HYPEN	   574#
INHCSH	   163#
INHPAG	   160#
INXM	   375#
IOCLR	   375#
ITERAT	    88#	   421
ITRCH1	   481#
ITRCNT	   421#
JOB41	   375#
JOBAPR	   375#
JOBCNI	   375#                                                                                                            SEQ 0346
JOBDDT	   375#
JOBFF	   375#
JOBOPC	   375#	 15104
JOBREL	   375#
JOBREN	   375#
JOBSA	   375#
JOBSYM	   375#
JOBTPC	   375#
JOBUSY	   375#
JOBUUO	   375#
JOBVER	   375#
KA10	    61#	   375
KAHZ50	   168#
KAIFLG	   438#
KI10	   375	 14976	 15128
KL10	   375
KLFLG	   439#	 14991
KLOLD	    57#	   375
KLTYP	   655#
LAST1	 14970#
LDLNK	   179#	   391	   393
LFP	   578#
LOOPER	   154#	 15109
LUUO	   375#
LUUO1	    44#	   508	   509
LUUO10	    51#	   508	   513
LUUO11	    52#	   508	   513
LUUO12	    53#	   508	   514
LUUO13	    54#	   508	   514
LUUO14	   508	   515
LUUO15	   508	   515
LUUO16	   508	   516
LUUO17	   508	   516
LUUO2	    45#	   508	   510
LUUO20	   508	   517
LUUO21	   508	   517
LUUO22	   508	   518
LUUO23	   508	   518
LUUO24	   508	   519
LUUO25	   508	   519
LUUO26	   508	   520
LUUO27	   508	   520
LUUO3	    46#	   508	   510
LUUO30	   508	   521
LUUO31	   508	   521
LUUO32	   508	   522
LUUO33	   508	   522
LUUO4	    47#	   508	   511
LUUO5	    48#	   508	   511
LUUO6	    49#	   508	   512
LUUO7	    50#	   508	   512
LUUOI	   375#
MAPNEW	   529#                                                                                                            SEQ 0347
MARGIN	   451#
MCNVER	     3#	    11	    25	   423
MEMLOW	   531#
MEMMAP	   429
MEMSIZ	   532#
MEMTOT	   530#
MICNT	 14988#	 14988	 14989	 15006
MINUS	   573#
MODDVC	   162#
MODDVL	   360	   360#	   424
MODDVU	   361	   361#	   425
MODLNK	   181#	   388
MONCTL	   441#	 15007	 15121
MONFLG	   440#
MONTEN	   442#
MPVU	   375#
NOPNT	   150#	 14997
NXMU	   375#
OPRSEL	   164#
OPTIME	   543#
P	   207	   208	   209	   210	   375#	   463
PAG	   375#
PALERS	   156#	 15138
PARCLR	   375#
PARDIS	   375#
PAREA0	    81#
PAREA1	    82#	   419
PAREA2	    83#	   420
PAREA3	    84#	   417
PAREA4	    85#	   418
PAREA5	    86#	   430
PAREA6	    87#	   431
PAREA7	   430#
PAREA8	   431#
PARENB	   375#
PARU	   375#
PASCNT	   445#	 15012	 15016
PATCH	 15222#
PDISF	   540#
PDLOVU	   375#
PERIOD	   570#
PFSTRT	   397#
PGMEND	    62#	 15228
PGMNAM	   422	   701#
PI	 14994
PICHN1	   375#
PICHN2	   375#
PICHN3	   375#
PICHN4	   375#
PICHN5	   375#
PICHN6	   375#
PICHN7	   375#
PICHNA	   375#                                                                                                            SEQ 0348
PICLR	   375#
PIOFF	   375#
PION	   375#
PLIST	   609#	   609
PLISTE	   609	   611#	   695
PLISTS	   610#
PLUS	   575#
PNTENB	   539#
PNTEXT	   418#
PNTFLG	   538#
PNTINH	   541#
PNTLPT	   151#
PNTNAM	   417#
PNTSPC	   542#
PROCED	 14995#	 14995	 15110	 15117
PVPAGI	   636#
PWFCLR	   375#
QUEST	   581#
RADIX	   584#
RADLSC	   586#
RADLSP	   585#
RANDBS	   419#
REENTR	   399#
RELIAB	   158#
REPT	   375#
REPT1	   375#
REPTU	   497#
REQSET	   375#
RESRT1	   474#
RESRT2	   475#
RETURN	   406#
RSTART	   147#
RTP	   579#
RUNFLG	   446#
SADR1	    67#	   395
SADR10	    76#	   411
SADR11	    77#	   412
SADR2	    68#	   397
SADR3	    69#	   399
SADR4	    70#
SADR5	    71#	   460
SADR6	    72#	   461
SADR7	    73#	   408
SADR8	    74#	   409
SADR9	    75#	   410
SBINIT	   220	   405#
SCOPE	   498#
SFSTRT	   395#
SLASH	   582#
SN	   932#	   959	   959#	   966	   976	   976#	   983	   993	   993#	  1000	  1010	  1010#	  1017	  1027
	  1027#	  1034	  1044	  1044#	  1051	  1061	  1061#	  1068	  1078	  1078#	  1085	  1095	  1095#	  1102
	  1112	  1112#	  1119	  1129	  1129#	  1136	  1146	  1146#	  1153	  1163	  1163#	  1170	  1180	  1180#
	  1187	  1197	  1197#	  1204	  1214	  1214#	  1221	  1231	  1231#	  1238	  1248	  1248#	  1255	  1286     SEQ 0349
	  1286#	  1294	  1304	  1304#	  1312	  1322	  1322#	  1330	  1340	  1340#	  1348	  1358	  1358#	  1366
	  1376	  1376#	  1384	  1394	  1394#	  1402	  1412	  1412#	  1420	  1430	  1430#	  1438	  1448	  1448#
	  1456	  1466	  1466#	  1474	  1484	  1484#	  1492	  1502	  1502#	  1510	  1520	  1520#	  1528	  1538
	  1538#	  1546	  1556	  1556#	  1564	  1574	  1574#	  1582	  1592	  1592#	  1600	  1610#	  1640	  1640#
	  1648	  1658	  1658#	  1666	  1676	  1676#	  1684	  1694	  1694#	  1702	  1712	  1712#	  1720	  1730
	  1730#	  1738	  1748	  1748#	  1756	  1766	  1766#	  1774	  1784	  1784#	  1792	  1802	  1802#	  1810
	  1820	  1820#	  1828	  1838	  1838#	  1846	  1856	  1856#	  1864	  1874	  1874#	  1882	  1892	  1892#
	  1900	  1910	  1910#	  1918	  1928	  1928#	  1936	  1946	  1946#	  1954	  1985	  1985#	  1993	  2003
	  2003#	  2011	  2021	  2021#	  2029	  2039	  2039#	  2047	  2057	  2057#	  2065	  2075	  2075#	  2083
	  2093	  2093#	  2101	  2111	  2111#	  2119	  2129	  2129#	  2137	  2147	  2147#	  2155	  2165	  2165#
	  2173	  2183	  2183#	  2191	  2201	  2201#	  2209	  2219	  2219#	  2227	  2237	  2237#	  2245	  2255
	  2255#	  2263	  2273	  2273#	  2281	  2291	  2291#	  2299	  2446#	  2464	  2464#	  2473	  2477	  2477#
	  2486	  2490	  2490#	  2499	  2503#	  2523	  2523#	  2534	  2538	  2538#	  2549	  2553	  2553#	  2564
	  2595#	  2629	  2629#	  2640	  2651	  2651#	  2662	  2673	  2673#	  2684	  2695	  2695#	  2706	  2717
	  2717#	  2728	  2739	  2739#	  2750	  2761	  2761#	  2772	  2783	  2783#	  2794	  2805	  2805#	  2816
	  2827	  2827#	  2838	  2849	  2849#	  2860	  2871	  2871#	  2882	  2893	  2893#	  2904	  2915	  2915#
	  2926	  2937	  2937#	  2948	  2959	  2959#	  2970	  2981	  2981#	  2992	  3003	  3003#	  3014	  3050
	  3050#	  3062	  3072	  3072#	  3084	  3094	  3094#	  3106	  3116	  3116#	  3128	  3138	  3138#	  3150
	  3160	  3160#	  3172	  3182	  3182#	  3194	  3204	  3204#	  3216	  3226	  3226#	  3238	  3248	  3248#
	  3260	  3270	  3270#	  3282	  3292	  3292#	  3304	  3314	  3314#	  3326	  3336	  3336#	  3348	  3358
	  3358#	  3370	  3380	  3380#	  3392	  3402	  3402#	  3414	  3424	  3424#	  3436	  3439#	  3471	  3471#
	  3482	  3492	  3492#	  3503	  3513	  3513#	  3524	  3534	  3534#	  3545	  3555	  3555#	  3566	  3576
	  3576#	  3587	  3597	  3597#	  3608	  3618	  3618#	  3629	  3639	  3639#	  3650	  3660	  3660#	  3671
	  3681	  3681#	  3692	  3702	  3702#	  3713	  3723	  3723#	  3734	  3744	  3744#	  3755	  3765	  3765#
	  3776	  3786	  3786#	  3797	  3807	  3807#	  3818	  3828	  3828#	  3839	  3873	  3873#	  3884	  3894
	  3894#	  3905	  3915	  3915#	  3926	  3936	  3936#	  3947	  3957	  3957#	  3968	  3978	  3978#	  3989
	  3999	  3999#	  4010	  4020	  4020#	  4031	  4041	  4041#	  4052	  4062	  4062#	  4073	  4083	  4083#
	  4094	  4104	  4104#	  4115	  4125	  4125#	  4136	  4146	  4146#	  4157	  4167	  4167#	  4178	  4188
	  4188#	  4199	  4209	  4209#	  4220	  4230	  4230#	  4241	  4271#	  4303	  4303#	  4314	  4324	  4324#
	  4335	  4345	  4345#	  4356	  4366	  4366#	  4377	  4387	  4387#	  4398	  4408	  4408#	  4419	  4429
	  4429#	  4440	  4450	  4450#	  4461	  4471	  4471#	  4482	  4492	  4492#	  4503	  4513	  4513#	  4524
	  4534	  4534#	  4545	  4555	  4555#	  4566	  4576	  4576#	  4587	  4597	  4597#	  4608	  4618	  4618#
	  4629	  4639	  4639#	  4650	  4660	  4660#	  4671	  4706	  4706#	  4717	  4727	  4727#	  4738	  4748
	  4748#	  4759	  4769	  4769#	  4780	  4790	  4790#	  4801	  4811	  4811#	  4822	  4832	  4832#	  4843
	  4853	  4853#	  4864	  4874	  4874#	  4885	  4895	  4895#	  4906	  4916	  4916#	  4927	  4937	  4937#
	  4948	  4958	  4958#	  4969	  4979	  4979#	  4990	  5000	  5000#	  5011	  5021	  5021#	  5032	  5042
	  5042#	  5053	  5063	  5063#	  5074	  5077#	  5107	  5107#	  5118	  5127	  5127#	  5138	  5147	  5147#
	  5158	  5167	  5167#	  5178	  5187	  5187#	  5198	  5207	  5207#	  5218	  5227	  5227#	  5238	  5247
	  5247#	  5258	  5267	  5267#	  5278	  5287	  5287#	  5298	  5307	  5307#	  5318	  5327	  5327#	  5338
	  5347	  5347#	  5358	  5367	  5367#	  5378	  5387	  5387#	  5398	  5407	  5407#	  5418	  5427	  5427#
	  5438	  5447	  5447#	  5458	  5493	  5493#	  5504	  5514	  5514#	  5525	  5535	  5535#	  5546	  5556
	  5556#	  5567	  5577	  5577#	  5588	  5598	  5598#	  5609	  5619	  5619#	  5630	  5640	  5640#	  5651
	  5661	  5661#	  5672	  5682	  5682#	  5693	  5703	  5703#	  5714	  5724	  5724#	  5735	  5745	  5745#
	  5756	  5766	  5766#	  5777	  5787	  5787#	  5798	  5808	  5808#	  5819	  5829	  5829#	  5840	  5850
	  5850#	  5861	  5891#	  5925	  5925#	  5938	  5948	  5948#	  5961	  5971	  5971#	  5984	  5994	  5994#
	  6007	  6017	  6017#	  6030	  6040	  6040#	  6053	  6063	  6063#	  6076	  6086	  6086#	  6099	  6109
	  6109#	  6122	  6132	  6132#	  6145	  6155	  6155#	  6168	  6178	  6178#	  6191	  6201	  6201#	  6214
	  6224	  6224#	  6237	  6247	  6247#	  6260	  6270	  6270#	  6283	  6293	  6293#	  6306	  6316	  6316#
	  6329	  6366	  6366#	  6379	  6389	  6389#	  6402	  6412	  6412#	  6425	  6435	  6435#	  6448	  6458
	  6458#	  6471	  6481	  6481#	  6494	  6504	  6504#	  6517	  6527	  6527#	  6540	  6550	  6550#	  6563
	  6573	  6573#	  6586	  6596	  6596#	  6609	  6619	  6619#	  6632	  6642	  6642#	  6655	  6665	  6665#
	  6678	  6688	  6688#	  6701	  6711	  6711#	  6724	  6734	  6734#	  6747	  6757	  6757#	  6770	  6773#
	  6807	  6807#	  6820	  6830	  6830#	  6843	  6853	  6853#	  6866	  6876	  6876#	  6889	  6899	  6899#    SEQ 0350
	  6912	  6922	  6922#	  6935	  6945	  6945#	  6958	  6968	  6968#	  6981	  6991	  6991#	  7004	  7014
	  7014#	  7027	  7037	  7037#	  7050	  7060	  7060#	  7073	  7083	  7083#	  7096	  7106	  7106#	  7119
	  7129	  7129#	  7142	  7152	  7152#	  7165	  7175	  7175#	  7188	  7198	  7198#	  7211	  7248	  7248#
	  7261	  7271	  7271#	  7284	  7294	  7294#	  7307	  7317	  7317#	  7330	  7340	  7340#	  7353	  7363
	  7363#	  7376	  7386	  7386#	  7399	  7409	  7409#	  7422	  7432	  7432#	  7445	  7455	  7455#	  7468
	  7478	  7478#	  7491	  7501	  7501#	  7514	  7524	  7524#	  7537	  7547	  7547#	  7560	  7570	  7570#
	  7583	  7593	  7593#	  7606	  7616	  7616#	  7629	  7639	  7639#	  7652	  7689#	  7726	  7726#	  7738
	  7750	  7750#	  7762	  7774	  7774#	  7786	  7798	  7798#	  7810	  7822	  7822#	  7834	  7846	  7846#
	  7858	  7870	  7870#	  7882	  7894	  7894#	  7906	  7918	  7918#	  7930	  7942	  7942#	  7954	  7966
	  7966#	  7978	  7990	  7990#	  8002	  8014	  8014#	  8026	  8038	  8038#	  8050	  8062	  8062#	  8074
	  8086	  8086#	  8098	  8110	  8110#	  8122	  8134	  8134#	  8146	  8183	  8183#	  8192	  8204	  8204#
	  8213	  8225	  8225#	  8234	  8246	  8246#	  8255	  8267	  8267#	  8276	  8288	  8288#	  8297	  8309
	  8309#	  8318	  8330	  8330#	  8339	  8351	  8351#	  8360	  8372	  8372#	  8381	  8393	  8393#	  8402
	  8414	  8414#	  8423	  8435	  8435#	  8444	  8456	  8456#	  8465	  8477	  8477#	  8486	  8498	  8498#
	  8507	  8519	  8519#	  8528	  8531#	  8567	  8567#	  8579	  8591	  8591#	  8603	  8615	  8615#	  8627
	  8639	  8639#	  8651	  8663	  8663#	  8675	  8687	  8687#	  8699	  8711	  8711#	  8723	  8735	  8735#
	  8747	  8759	  8759#	  8771	  8783	  8783#	  8795	  8807	  8807#	  8819	  8831	  8831#	  8843	  8855
	  8855#	  8867	  8879	  8879#	  8891	  8903	  8903#	  8915	  8927	  8927#	  8939	  8951	  8951#	  8963
	  8975	  8975#	  8987	  9026	  9026#	  9048	  9048#	  9070	  9070#	  9092	  9092#	  9114	  9114#	  9136
	  9136#	  9158	  9158#	  9180	  9180#	  9202	  9202#	  9224	  9224#	  9246	  9246#	  9268	  9268#	  9290
	  9290#	  9312	  9312#	  9334	  9334#	  9356	  9356#	  9378	  9378#	  9422#	  9460	  9460#	  9472	  9485
	  9485#	  9497	  9510	  9510#	  9522	  9535	  9535#	  9547	  9560	  9560#	  9572	  9585	  9585#	  9597
	  9610	  9610#	  9622	  9635	  9635#	  9647	  9660	  9660#	  9672	  9685	  9685#	  9697	  9710	  9710#
	  9722	  9735	  9735#	  9747	  9760	  9760#	  9772	  9785	  9785#	  9797	  9810	  9810#	  9822	  9835
	  9835#	  9847	  9860	  9860#	  9872	  9885	  9885#	  9897	  9935	  9935#	  9945	  9957	  9957#	  9967
	  9979	  9979#	  9989	 10001	 10001#	 10011	 10023	 10023#	 10033	 10045	 10045#	 10055	 10067	 10067#
	 10077	 10089	 10089#	 10099	 10111	 10111#	 10121	 10133	 10133#	 10143	 10155	 10155#	 10165	 10177
	 10177#	 10187	 10199	 10199#	 10209	 10221	 10221#	 10231	 10243	 10243#	 10253	 10265	 10265#	 10275
	 10287	 10287#	 10297	 10300#	 10337	 10337#	 10349	 10361	 10361#	 10373	 10385	 10385#	 10397	 10409
	 10409#	 10421	 10433	 10433#	 10445	 10457	 10457#	 10469	 10481	 10481#	 10493	 10505	 10505#	 10517
	 10529	 10529#	 10541	 10553	 10553#	 10565	 10577	 10577#	 10589	 10601	 10601#	 10613	 10625	 10625#
	 10637	 10649	 10649#	 10661	 10673	 10673#	 10685	 10697	 10697#	 10709	 10721	 10721#	 10733	 10745
	 10745#	 10757	 10794	 10794#	 10803	 10815	 10815#	 10824	 10836	 10836#	 10845	 10857	 10857#	 10866
	 10878	 10878#	 10887	 10899	 10899#	 10908	 10920	 10920#	 10929	 10941	 10941#	 10950	 10962	 10962#
	 10971	 10983	 10983#	 10992	 11004	 11004#	 11013	 11025	 11025#	 11034	 11046	 11046#	 11055	 11067
	 11067#	 11076	 11088	 11088#	 11097	 11109	 11109#	 11118	 11130	 11130#	 11139	 11174#	 11213	 11213#
	 11227	 11239	 11239#	 11253	 11265	 11265#	 11279	 11291	 11291#	 11305	 11317	 11317#	 11331	 11343
	 11343#	 11357	 11369	 11369#	 11383	 11395	 11395#	 11409	 11421	 11421#	 11435	 11447	 11447#	 11461
	 11473	 11473#	 11487	 11499	 11499#	 11513	 11525	 11525#	 11539	 11551	 11551#	 11565	 11577	 11577#
	 11591	 11603	 11603#	 11617	 11629	 11629#	 11643	 11655	 11655#	 11669	 11707	 11707#	 11717	 11729
	 11729#	 11739	 11751	 11751#	 11761	 11773	 11773#	 11783	 11795	 11795#	 11805	 11817	 11817#	 11827
	 11839	 11839#	 11849	 11861	 11861#	 11871	 11883	 11883#	 11893	 11905	 11905#	 11915	 11927	 11927#
	 11937	 11949	 11949#	 11959	 11971	 11971#	 11981	 11993	 11993#	 12003	 12015	 12015#	 12025	 12037
	 12037#	 12047	 12050#	 12090	 12090#	 12105	 12117	 12117#	 12132	 12144	 12144#	 12159	 12171	 12171#
	 12186	 12198	 12198#	 12213	 12225	 12225#	 12240	 12252	 12252#	 12267	 12279	 12279#	 12294	 12306
	 12306#	 12321	 12333	 12333#	 12348	 12360	 12360#	 12375	 12387	 12387#	 12402	 12414	 12414#	 12429
	 12441	 12441#	 12456	 12468	 12468#	 12483	 12495	 12495#	 12510	 12522	 12522#	 12537	 12549	 12549#
	 12564	 12601	 12601#	 12610	 12622	 12622#	 12631	 12643	 12643#	 12652	 12664	 12664#	 12673	 12685
	 12685#	 12694	 12706	 12706#	 12715	 12727	 12727#	 12736	 12748	 12748#	 12757	 12769	 12769#	 12778
	 12790	 12790#	 12799	 12811	 12811#	 12820	 12832	 12832#	 12841	 12853	 12853#	 12862	 12874	 12874#
	 12883	 12895	 12895#	 12904	 12916	 12916#	 12925
SPACE	   571#
SPDES	 15082#                                                                                                            SEQ 0351
SRTDDT	   401#
START	   389	   719#
START1	   408#
START2	   409#
START3	   410#
START4	   411#
START5	   412#
STARTA	   404	   723#
SUBLNK	   182#	   405
SWTEXR	   420#
SYSEXR	   393#
TAB	   572#
TESTPC	   447#	   740	   759	   792	   811	   844	   863	   928	  1606	  2310	  2442	  2576	  4252	  5871
	  7666	  9399	 11151
TICKS	   450#
TLET	   721	 15056	 15079#
TOTALS	   148#
TTNBRF	   630#
TTYFIL	   546#
TTYSPD	   547#
TXTINH	   159#	 15040
USER	   437#	 14992
USERF	   375#
USRASB	    60#	   427
USRCRF	   556#
USRLFF	   555#
UUODIS	   509#
UUOEXT	   465#	 15135
UUORTN	   466#
UUOSKP	   463#
YY	  2632#	  2635	  2654#	  2657	  2676#	  2679	  2698#	  2701	  2720#	  2723	  2742#	  2745	  2764#	  2767
	  2786#	  2789	  2808#	  2811	  2830#	  2833	  2852#	  2855	  2874#	  2877	  2896#	  2899	  2918#	  2921
	  2940#	  2943	  2962#	  2965	  2984#	  2987	  3006#	  3054#	  3057	  3076#	  3079	  3098#	  3101	  3120#
	  3123	  3142#	  3145	  3164#	  3167	  3186#	  3189	  3208#	  3211	  3230#	  3233	  3252#	  3255	  3274#
	  3277	  3296#	  3299	  3318#	  3321	  3340#	  3343	  3362#	  3365	  3384#	  3387	  3406#	  3409	  3428#
	  3474#	  3477	  3495#	  3498	  3516#	  3519	  3537#	  3540	  3558#	  3561	  3579#	  3582	  3600#	  3603
	  3621#	  3624	  3642#	  3645	  3663#	  3666	  3684#	  3687	  3705#	  3708	  3726#	  3729	  3747#	  3750
	  3768#	  3771	  3789#	  3792	  3810#	  3813	  3831#	  3876#	  3879	  3897#	  3900	  3918#	  3921	  3939#
	  3942	  3960#	  3963	  3981#	  3984	  4002#	  4005	  4023#	  4026	  4044#	  4047	  4065#	  4068	  4086#
	  4089	  4107#	  4110	  4128#	  4131	  4149#	  4152	  4170#	  4173	  4191#	  4194	  4212#	  4215	  4233#
	  4306#	  4309	  4327#	  4330	  4348#	  4351	  4369#	  4372	  4390#	  4393	  4411#	  4414	  4432#	  4435
	  4453#	  4456	  4474#	  4477	  4495#	  4498	  4516#	  4519	  4537#	  4540	  4558#	  4561	  4579#	  4582
	  4600#	  4603	  4621#	  4624	  4642#	  4645	  4663#	  4709#	  4712	  4730#	  4733	  4751#	  4754	  4772#
	  4775	  4793#	  4796	  4814#	  4817	  4835#	  4838	  4856#	  4859	  4877#	  4880	  4898#	  4901	  4919#
	  4922	  4940#	  4943	  4961#	  4964	  4982#	  4985	  5003#	  5006	  5024#	  5027	  5045#	  5048	  5066#
	  5110#	  5113	  5130#	  5133	  5150#	  5153	  5170#	  5173	  5190#	  5193	  5210#	  5213	  5230#	  5233
	  5250#	  5253	  5270#	  5273	  5290#	  5293	  5310#	  5313	  5330#	  5333	  5350#	  5353	  5370#	  5373
	  5390#	  5393	  5410#	  5413	  5430#	  5433	  5450#	  5496#	  5499	  5517#	  5520	  5538#	  5541	  5559#
	  5562	  5580#	  5583	  5601#	  5604	  5622#	  5625	  5643#	  5646	  5664#	  5667	  5685#	  5688	  5706#
	  5709	  5727#	  5730	  5748#	  5751	  5769#	  5772	  5790#	  5793	  5811#	  5814	  5832#	  5835	  5853#
	  5928#	  5931	  5951#	  5954	  5974#	  5977	  5997#	  6000	  6020#	  6023	  6043#	  6046	  6066#	  6069
	  6089#	  6092	  6112#	  6115	  6135#	  6138	  6158#	  6161	  6181#	  6184	  6204#	  6207	  6227#	  6230
	  6250#	  6253	  6273#	  6276	  6296#	  6319#	  6369#	  6372	  6392#	  6395	  6415#	  6418	  6438#	  6441     SEQ 0352
	  6461#	  6464	  6484#	  6487	  6507#	  6510	  6530#	  6533	  6553#	  6556	  6576#	  6579	  6599#	  6602
	  6622#	  6625	  6645#	  6648	  6668#	  6671	  6691#	  6694	  6714#	  6717	  6737#	  6760#	  6810#	  6813
	  6833#	  6836	  6856#	  6859	  6879#	  6882	  6902#	  6905	  6925#	  6928	  6948#	  6951	  6971#	  6974
	  6994#	  6997	  7017#	  7020	  7040#	  7043	  7063#	  7066	  7086#	  7089	  7109#	  7112	  7132#	  7135
	  7155#	  7158	  7178#	  7201#	  7251#	  7254	  7274#	  7277	  7297#	  7300	  7320#	  7323	  7343#	  7346
	  7366#	  7369	  7389#	  7392	  7412#	  7415	  7435#	  7438	  7458#	  7461	  7481#	  7484	  7504#	  7507
	  7527#	  7530	  7550#	  7553	  7573#	  7576	  7596#	  7599	  7619#	  7642#	  7729#	  7733	  7753#	  7757
	  7777#	  7781	  7801#	  7805	  7825#	  7829	  7849#	  7853	  7873#	  7877	  7897#	  7901	  7921#	  7925
	  7945#	  7949	  7969#	  7973	  7993#	  7997	  8017#	  8021	  8041#	  8045	  8065#	  8069	  8089#	  8093
	  8113#	  8117	  8137#	  8186#	  8189	  8207#	  8210	  8228#	  8231	  8249#	  8252	  8270#	  8273	  8291#
	  8294	  8312#	  8315	  8333#	  8336	  8354#	  8357	  8375#	  8378	  8396#	  8399	  8417#	  8420	  8438#
	  8441	  8459#	  8462	  8480#	  8483	  8501#	  8504	  8522#	  8525	  8570#	  8574	  8594#	  8598	  8618#
	  8622	  8642#	  8646	  8666#	  8670	  8690#	  8694	  8714#	  8718	  8738#	  8742	  8762#	  8766	  8786#
	  8790	  8810#	  8814	  8834#	  8838	  8858#	  8862	  8882#	  8886	  8906#	  8910	  8930#	  8934	  8954#
	  8958	  8978#	  9029#	  9032	  9051#	  9054	  9073#	  9076	  9095#	  9098	  9117#	  9120	  9139#	  9142
	  9161#	  9164	  9183#	  9186	  9205#	  9208	  9227#	  9230	  9249#	  9252	  9271#	  9274	  9293#	  9296
	  9315#	  9318	  9337#	  9340	  9359#	  9362	  9381#	  9384	  9463#	  9467	  9488#	  9492	  9513#	  9517
	  9538#	  9542	  9563#	  9567	  9588#	  9592	  9613#	  9617	  9638#	  9642	  9663#	  9667	  9688#	  9692
	  9713#	  9717	  9738#	  9742	  9763#	  9767	  9788#	  9792	  9813#	  9817	  9838#	  9842	  9863#	  9867
	  9888#	  9939#	  9942	  9961#	  9964	  9983#	  9986	 10005#	 10008	 10027#	 10030	 10049#	 10052	 10071#
	 10074	 10093#	 10096	 10115#	 10118	 10137#	 10140	 10159#	 10162	 10181#	 10184	 10203#	 10206	 10225#
	 10228	 10247#	 10250	 10269#	 10272	 10291#	 10294	 10340#	 10344	 10364#	 10368	 10388#	 10392	 10412#
	 10416	 10436#	 10440	 10460#	 10464	 10484#	 10488	 10508#	 10512	 10532#	 10536	 10556#	 10560	 10580#
	 10584	 10604#	 10608	 10628#	 10632	 10652#	 10656	 10676#	 10680	 10700#	 10704	 10724#	 10728	 10748#
	 10797#	 10800	 10818#	 10821	 10839#	 10842	 10860#	 10863	 10881#	 10884	 10902#	 10905	 10923#	 10926
	 10944#	 10947	 10965#	 10968	 10986#	 10989	 11007#	 11010	 11028#	 11031	 11049#	 11052	 11070#	 11073
	 11091#	 11094	 11112#	 11115	 11133#	 11136	 11216#	 11220	 11242#	 11246	 11268#	 11272	 11294#	 11298
	 11320#	 11324	 11346#	 11350	 11372#	 11376	 11398#	 11402	 11424#	 11428	 11450#	 11454	 11476#	 11480
	 11502#	 11506	 11528#	 11532	 11554#	 11558	 11580#	 11584	 11606#	 11610	 11632#	 11658#	 11662	 11710#
	 11714	 11732#	 11736	 11754#	 11758	 11776#	 11780	 11798#	 11802	 11820#	 11824	 11842#	 11846	 11864#
	 11868	 11886#	 11890	 11908#	 11912	 11930#	 11934	 11952#	 11956	 11974#	 11978	 11996#	 12000	 12018#
	 12022	 12040#	 12044	 12094#	 12098	 12121#	 12125	 12148#	 12152	 12175#	 12179	 12202#	 12206	 12229#
	 12233	 12256#	 12260	 12283#	 12287	 12310#	 12314	 12337#	 12341	 12364#	 12368	 12391#	 12395	 12418#
	 12422	 12445#	 12449	 12472#	 12476	 12499#	 12503	 12526#	 12553#	 12557	 12604#	 12607	 12625#	 12628
	 12646#	 12649	 12667#	 12670	 12688#	 12691	 12709#	 12712	 12730#	 12733	 12751#	 12754	 12772#	 12775
	 12793#	 12796	 12814#	 12817	 12835#	 12838	 12856#	 12859	 12877#	 12880	 12898#	 12901	 12919#	 12922
ZZ	   933#	   960	   960#	   961	   961#	   963	   965	   977	   977#	   978	   980	   982	   994	   994#
	   995	   997	   999	  1011	  1011#	  1012	  1014	  1016	  1028	  1028#	  1029	  1031	  1033	  1045
	  1045#	  1046	  1048	  1050	  1062	  1062#	  1063	  1065	  1067	  1079	  1079#	  1080	  1082	  1084
	  1096	  1096#	  1097	  1099	  1101	  1113	  1113#	  1114	  1116	  1118	  1130	  1130#	  1131	  1133
	  1135	  1147	  1147#	  1148	  1150	  1152	  1164	  1164#	  1165	  1167	  1169	  1181	  1181#	  1182
	  1184	  1186	  1198	  1198#	  1199	  1201	  1203	  1215	  1215#	  1216	  1218	  1220	  1232	  1232#
	  1233	  1235	  1237	  1249	  1249#	  1250	  1252	  1254	  1259#	  1287	  1287#	  1288	  1288#	  1290
	  1305	  1305#	  1306	  1308	  1323	  1323#	  1324	  1326	  1341	  1341#	  1342	  1344	  1359	  1359#
	  1360	  1362	  1377	  1377#	  1378	  1380	  1395	  1395#	  1396	  1398	  1413	  1413#	  1414	  1416
	  1431	  1431#	  1432	  1434	  1449	  1449#	  1450	  1452	  1467	  1467#	  1468	  1470	  1485	  1485#
	  1486	  1488	  1503	  1503#	  1504	  1506	  1521	  1521#	  1522	  1524	  1539	  1539#	  1540	  1542
	  1557	  1557#	  1558	  1560	  1575	  1575#	  1576	  1578	  1593	  1593#	  1594	  1596	  1612#	  1641
	  1641#	  1642	  1644	  1659	  1659#	  1660	  1662	  1677	  1677#	  1678	  1680	  1695	  1695#	  1696
	  1698	  1713	  1713#	  1714	  1716	  1731	  1731#	  1732	  1734	  1749	  1749#	  1750	  1752	  1767
	  1767#	  1768	  1770	  1785	  1785#	  1786	  1788	  1803	  1803#	  1804	  1806	  1821	  1821#	  1822
	  1824	  1839	  1839#	  1840	  1842	  1857	  1857#	  1858	  1860	  1875	  1875#	  1876	  1878	  1893
	  1893#	  1894	  1896	  1911	  1911#	  1912	  1914	  1929	  1929#	  1930	  1932	  1947	  1947#	  1948     SEQ 0353
	  1950	  1958#	  1986	  1986#	  1987	  1989	  2004	  2004#	  2005	  2007	  2022	  2022#	  2023	  2025
	  2040	  2040#	  2041	  2043	  2058	  2058#	  2059	  2061	  2076	  2076#	  2077	  2079	  2094	  2094#
	  2095	  2097	  2112	  2112#	  2113	  2115	  2130	  2130#	  2131	  2133	  2148	  2148#	  2149	  2151
	  2166	  2166#	  2167	  2169	  2184	  2184#	  2185	  2187	  2202	  2202#	  2203	  2205	  2220	  2220#
	  2221	  2223	  2238	  2238#	  2239	  2241	  2256	  2256#	  2257	  2259	  2274	  2274#	  2275	  2277
	  2292	  2292#	  2293	  2295	  2447#	  2469	  2469#	  2471	  2482	  2482#	  2484	  2495	  2495#	  2497
	  2504#	  2529	  2529#	  2532	  2544	  2544#	  2547	  2559	  2559#	  2562	  2596#	  2630	  2630#	  2631
	  2631#	  2632	  2633	  2634	  2636	  2652	  2652#	  2653	  2654	  2655	  2656	  2658	  2674	  2674#
	  2675	  2676	  2677	  2678	  2680	  2696	  2696#	  2697	  2698	  2699	  2700	  2702	  2718	  2718#
	  2719	  2720	  2721	  2722	  2724	  2740	  2740#	  2741	  2742	  2743	  2744	  2746	  2762	  2762#
	  2763	  2764	  2765	  2766	  2768	  2784	  2784#	  2785	  2786	  2787	  2788	  2790	  2806	  2806#
	  2807	  2808	  2809	  2810	  2812	  2828	  2828#	  2829	  2830	  2831	  2832	  2834	  2850	  2850#
	  2851	  2852	  2853	  2854	  2856	  2872	  2872#	  2873	  2874	  2875	  2876	  2878	  2894	  2894#
	  2895	  2896	  2897	  2898	  2900	  2916	  2916#	  2917	  2918	  2919	  2920	  2922	  2938	  2938#
	  2939	  2940	  2941	  2942	  2944	  2960	  2960#	  2961	  2962	  2963	  2964	  2966	  2982	  2982#
	  2983	  2984	  2985	  2986	  2988	  3004	  3004#	  3005	  3006	  3007	  3008	  3010	  3018#	  3052
	  3052#	  3053	  3053#	  3054	  3055	  3056	  3058	  3074	  3074#	  3075	  3076	  3077	  3078	  3080
	  3096	  3096#	  3097	  3098	  3099	  3100	  3102	  3118	  3118#	  3119	  3120	  3121	  3122	  3124
	  3140	  3140#	  3141	  3142	  3143	  3144	  3146	  3162	  3162#	  3163	  3164	  3165	  3166	  3168
	  3184	  3184#	  3185	  3186	  3187	  3188	  3190	  3206	  3206#	  3207	  3208	  3209	  3210	  3212
	  3228	  3228#	  3229	  3230	  3231	  3232	  3234	  3250	  3250#	  3251	  3252	  3253	  3254	  3256
	  3272	  3272#	  3273	  3274	  3275	  3276	  3278	  3294	  3294#	  3295	  3296	  3297	  3298	  3300
	  3316	  3316#	  3317	  3318	  3319	  3320	  3322	  3338	  3338#	  3339	  3340	  3341	  3342	  3344
	  3360	  3360#	  3361	  3362	  3363	  3364	  3366	  3382	  3382#	  3383	  3384	  3385	  3386	  3388
	  3404	  3404#	  3405	  3406	  3407	  3408	  3410	  3426	  3426#	  3427	  3428	  3429	  3430	  3432
	  3440#	  3472	  3472#	  3473	  3473#	  3474	  3475	  3476	  3478	  3493	  3493#	  3494	  3495	  3496
	  3497	  3499	  3514	  3514#	  3515	  3516	  3517	  3518	  3520	  3535	  3535#	  3536	  3537	  3538
	  3539	  3541	  3556	  3556#	  3557	  3558	  3559	  3560	  3562	  3577	  3577#	  3578	  3579	  3580
	  3581	  3583	  3598	  3598#	  3599	  3600	  3601	  3602	  3604	  3619	  3619#	  3620	  3621	  3622
	  3623	  3625	  3640	  3640#	  3641	  3642	  3643	  3644	  3646	  3661	  3661#	  3662	  3663	  3664
	  3665	  3667	  3682	  3682#	  3683	  3684	  3685	  3686	  3688	  3703	  3703#	  3704	  3705	  3706
	  3707	  3709	  3724	  3724#	  3725	  3726	  3727	  3728	  3730	  3745	  3745#	  3746	  3747	  3748
	  3749	  3751	  3766	  3766#	  3767	  3768	  3769	  3770	  3772	  3787	  3787#	  3788	  3789	  3790
	  3791	  3793	  3808	  3808#	  3809	  3810	  3811	  3812	  3814	  3829	  3829#	  3830	  3831	  3832
	  3833	  3835	  3843#	  3874	  3874#	  3875	  3875#	  3876	  3877	  3878	  3880	  3895	  3895#	  3896
	  3897	  3898	  3899	  3901	  3916	  3916#	  3917	  3918	  3919	  3920	  3922	  3937	  3937#	  3938
	  3939	  3940	  3941	  3943	  3958	  3958#	  3959	  3960	  3961	  3962	  3964	  3979	  3979#	  3980
	  3981	  3982	  3983	  3985	  4000	  4000#	  4001	  4002	  4003	  4004	  4006	  4021	  4021#	  4022
	  4023	  4024	  4025	  4027	  4042	  4042#	  4043	  4044	  4045	  4046	  4048	  4063	  4063#	  4064
	  4065	  4066	  4067	  4069	  4084	  4084#	  4085	  4086	  4087	  4088	  4090	  4105	  4105#	  4106
	  4107	  4108	  4109	  4111	  4126	  4126#	  4127	  4128	  4129	  4130	  4132	  4147	  4147#	  4148
	  4149	  4150	  4151	  4153	  4168	  4168#	  4169	  4170	  4171	  4172	  4174	  4189	  4189#	  4190
	  4191	  4192	  4193	  4195	  4210	  4210#	  4211	  4212	  4213	  4214	  4216	  4231	  4231#	  4232
	  4233	  4234	  4235	  4237	  4272#	  4304	  4304#	  4305	  4305#	  4306	  4307	  4308	  4310	  4325
	  4325#	  4326	  4327	  4328	  4329	  4331	  4346	  4346#	  4347	  4348	  4349	  4350	  4352	  4367
	  4367#	  4368	  4369	  4370	  4371	  4373	  4388	  4388#	  4389	  4390	  4391	  4392	  4394	  4409
	  4409#	  4410	  4411	  4412	  4413	  4415	  4430	  4430#	  4431	  4432	  4433	  4434	  4436	  4451
	  4451#	  4452	  4453	  4454	  4455	  4457	  4472	  4472#	  4473	  4474	  4475	  4476	  4478	  4493
	  4493#	  4494	  4495	  4496	  4497	  4499	  4514	  4514#	  4515	  4516	  4517	  4518	  4520	  4535
	  4535#	  4536	  4537	  4538	  4539	  4541	  4556	  4556#	  4557	  4558	  4559	  4560	  4562	  4577
	  4577#	  4578	  4579	  4580	  4581	  4583	  4598	  4598#	  4599	  4600	  4601	  4602	  4604	  4619
	  4619#	  4620	  4621	  4622	  4623	  4625	  4640	  4640#	  4641	  4642	  4643	  4644	  4646	  4661
	  4661#	  4662	  4663	  4664	  4665	  4667	  4675#	  4707	  4707#	  4708	  4708#	  4709	  4710	  4711     SEQ 0354
	  4713	  4728	  4728#	  4729	  4730	  4731	  4732	  4734	  4749	  4749#	  4750	  4751	  4752	  4753
	  4755	  4770	  4770#	  4771	  4772	  4773	  4774	  4776	  4791	  4791#	  4792	  4793	  4794	  4795
	  4797	  4812	  4812#	  4813	  4814	  4815	  4816	  4818	  4833	  4833#	  4834	  4835	  4836	  4837
	  4839	  4854	  4854#	  4855	  4856	  4857	  4858	  4860	  4875	  4875#	  4876	  4877	  4878	  4879
	  4881	  4896	  4896#	  4897	  4898	  4899	  4900	  4902	  4917	  4917#	  4918	  4919	  4920	  4921
	  4923	  4938	  4938#	  4939	  4940	  4941	  4942	  4944	  4959	  4959#	  4960	  4961	  4962	  4963
	  4965	  4980	  4980#	  4981	  4982	  4983	  4984	  4986	  5001	  5001#	  5002	  5003	  5004	  5005
	  5007	  5022	  5022#	  5023	  5024	  5025	  5026	  5028	  5043	  5043#	  5044	  5045	  5046	  5047
	  5049	  5064	  5064#	  5065	  5066	  5067	  5068	  5070	  5078#	  5108	  5108#	  5109	  5109#	  5110
	  5111	  5112	  5114	  5128	  5128#	  5129	  5130	  5131	  5132	  5134	  5148	  5148#	  5149	  5150
	  5151	  5152	  5154	  5168	  5168#	  5169	  5170	  5171	  5172	  5174	  5188	  5188#	  5189	  5190
	  5191	  5192	  5194	  5208	  5208#	  5209	  5210	  5211	  5212	  5214	  5228	  5228#	  5229	  5230
	  5231	  5232	  5234	  5248	  5248#	  5249	  5250	  5251	  5252	  5254	  5268	  5268#	  5269	  5270
	  5271	  5272	  5274	  5288	  5288#	  5289	  5290	  5291	  5292	  5294	  5308	  5308#	  5309	  5310
	  5311	  5312	  5314	  5328	  5328#	  5329	  5330	  5331	  5332	  5334	  5348	  5348#	  5349	  5350
	  5351	  5352	  5354	  5368	  5368#	  5369	  5370	  5371	  5372	  5374	  5388	  5388#	  5389	  5390
	  5391	  5392	  5394	  5408	  5408#	  5409	  5410	  5411	  5412	  5414	  5428	  5428#	  5429	  5430
	  5431	  5432	  5434	  5448	  5448#	  5449	  5450	  5451	  5452	  5454	  5462#	  5494	  5494#	  5495
	  5495#	  5496	  5497	  5498	  5500	  5515	  5515#	  5516	  5517	  5518	  5519	  5521	  5536	  5536#
	  5537	  5538	  5539	  5540	  5542	  5557	  5557#	  5558	  5559	  5560	  5561	  5563	  5578	  5578#
	  5579	  5580	  5581	  5582	  5584	  5599	  5599#	  5600	  5601	  5602	  5603	  5605	  5620	  5620#
	  5621	  5622	  5623	  5624	  5626	  5641	  5641#	  5642	  5643	  5644	  5645	  5647	  5662	  5662#
	  5663	  5664	  5665	  5666	  5668	  5683	  5683#	  5684	  5685	  5686	  5687	  5689	  5704	  5704#
	  5705	  5706	  5707	  5708	  5710	  5725	  5725#	  5726	  5727	  5728	  5729	  5731	  5746	  5746#
	  5747	  5748	  5749	  5750	  5752	  5767	  5767#	  5768	  5769	  5770	  5771	  5773	  5788	  5788#
	  5789	  5790	  5791	  5792	  5794	  5809	  5809#	  5810	  5811	  5812	  5813	  5815	  5830	  5830#
	  5831	  5832	  5833	  5834	  5836	  5851	  5851#	  5852	  5853	  5854	  5855	  5857	  5892#	  5926
	  5926#	  5927	  5927#	  5928	  5929	  5930	  5932	  5934	  5949	  5949#	  5950	  5951	  5952	  5953
	  5955	  5957	  5972	  5972#	  5973	  5974	  5975	  5976	  5978	  5980	  5995	  5995#	  5996	  5997
	  5998	  5999	  6001	  6003	  6018	  6018#	  6019	  6020	  6021	  6022	  6024	  6026	  6041	  6041#
	  6042	  6043	  6044	  6045	  6047	  6049	  6064	  6064#	  6065	  6066	  6067	  6068	  6070	  6072
	  6087	  6087#	  6088	  6089	  6090	  6091	  6093	  6095	  6110	  6110#	  6111	  6112	  6113	  6114
	  6116	  6118	  6133	  6133#	  6134	  6135	  6136	  6137	  6139	  6141	  6156	  6156#	  6157	  6158
	  6159	  6160	  6162	  6164	  6179	  6179#	  6180	  6181	  6182	  6183	  6185	  6187	  6202	  6202#
	  6203	  6204	  6205	  6206	  6208	  6210	  6225	  6225#	  6226	  6227	  6228	  6229	  6231	  6233
	  6248	  6248#	  6249	  6250	  6251	  6252	  6254	  6256	  6271	  6271#	  6272	  6273	  6274	  6275
	  6277	  6279	  6294	  6294#	  6295	  6296	  6297	  6298	  6300	  6302	  6317	  6317#	  6318	  6319
	  6320	  6321	  6323	  6325	  6333#	  6367	  6367#	  6368	  6368#	  6369	  6370	  6371	  6373	  6375
	  6390	  6390#	  6391	  6392	  6393	  6394	  6396	  6398	  6413	  6413#	  6414	  6415	  6416	  6417
	  6419	  6421	  6436	  6436#	  6437	  6438	  6439	  6440	  6442	  6444	  6459	  6459#	  6460	  6461
	  6462	  6463	  6465	  6467	  6482	  6482#	  6483	  6484	  6485	  6486	  6488	  6490	  6505	  6505#
	  6506	  6507	  6508	  6509	  6511	  6513	  6528	  6528#	  6529	  6530	  6531	  6532	  6534	  6536
	  6551	  6551#	  6552	  6553	  6554	  6555	  6557	  6559	  6574	  6574#	  6575	  6576	  6577	  6578
	  6580	  6582	  6597	  6597#	  6598	  6599	  6600	  6601	  6603	  6605	  6620	  6620#	  6621	  6622
	  6623	  6624	  6626	  6628	  6643	  6643#	  6644	  6645	  6646	  6647	  6649	  6651	  6666	  6666#
	  6667	  6668	  6669	  6670	  6672	  6674	  6689	  6689#	  6690	  6691	  6692	  6693	  6695	  6697
	  6712	  6712#	  6713	  6714	  6715	  6716	  6718	  6720	  6735	  6735#	  6736	  6737	  6738	  6739
	  6741	  6743	  6758	  6758#	  6759	  6760	  6761	  6762	  6764	  6766	  6774#	  6808	  6808#	  6809
	  6809#	  6810	  6811	  6812	  6814	  6816	  6831	  6831#	  6832	  6833	  6834	  6835	  6837	  6839
	  6854	  6854#	  6855	  6856	  6857	  6858	  6860	  6862	  6877	  6877#	  6878	  6879	  6880	  6881
	  6883	  6885	  6900	  6900#	  6901	  6902	  6903	  6904	  6906	  6908	  6923	  6923#	  6924	  6925
	  6926	  6927	  6929	  6931	  6946	  6946#	  6947	  6948	  6949	  6950	  6952	  6954	  6969	  6969#
	  6970	  6971	  6972	  6973	  6975	  6977	  6992	  6992#	  6993	  6994	  6995	  6996	  6998	  7000     SEQ 0355
	  7015	  7015#	  7016	  7017	  7018	  7019	  7021	  7023	  7038	  7038#	  7039	  7040	  7041	  7042
	  7044	  7046	  7061	  7061#	  7062	  7063	  7064	  7065	  7067	  7069	  7084	  7084#	  7085	  7086
	  7087	  7088	  7090	  7092	  7107	  7107#	  7108	  7109	  7110	  7111	  7113	  7115	  7130	  7130#
	  7131	  7132	  7133	  7134	  7136	  7138	  7153	  7153#	  7154	  7155	  7156	  7157	  7159	  7161
	  7176	  7176#	  7177	  7178	  7179	  7180	  7182	  7184	  7199	  7199#	  7200	  7201	  7202	  7203
	  7205	  7207	  7215#	  7249	  7249#	  7250	  7250#	  7251	  7252	  7253	  7255	  7257	  7272	  7272#
	  7273	  7274	  7275	  7276	  7278	  7280	  7295	  7295#	  7296	  7297	  7298	  7299	  7301	  7303
	  7318	  7318#	  7319	  7320	  7321	  7322	  7324	  7326	  7341	  7341#	  7342	  7343	  7344	  7345
	  7347	  7349	  7364	  7364#	  7365	  7366	  7367	  7368	  7370	  7372	  7387	  7387#	  7388	  7389
	  7390	  7391	  7393	  7395	  7410	  7410#	  7411	  7412	  7413	  7414	  7416	  7418	  7433	  7433#
	  7434	  7435	  7436	  7437	  7439	  7441	  7456	  7456#	  7457	  7458	  7459	  7460	  7462	  7464
	  7479	  7479#	  7480	  7481	  7482	  7483	  7485	  7487	  7502	  7502#	  7503	  7504	  7505	  7506
	  7508	  7510	  7525	  7525#	  7526	  7527	  7528	  7529	  7531	  7533	  7548	  7548#	  7549	  7550
	  7551	  7552	  7554	  7556	  7571	  7571#	  7572	  7573	  7574	  7575	  7577	  7579	  7594	  7594#
	  7595	  7596	  7597	  7598	  7600	  7602	  7617	  7617#	  7618	  7619	  7620	  7621	  7623	  7625
	  7640	  7640#	  7641	  7642	  7643	  7644	  7646	  7648	  7690#	  7727	  7727#	  7728	  7728#	  7729
	  7731	  7732	  7734	  7751	  7751#	  7752	  7753	  7755	  7756	  7758	  7775	  7775#	  7776	  7777
	  7779	  7780	  7782	  7799	  7799#	  7800	  7801	  7803	  7804	  7806	  7823	  7823#	  7824	  7825
	  7827	  7828	  7830	  7847	  7847#	  7848	  7849	  7851	  7852	  7854	  7871	  7871#	  7872	  7873
	  7875	  7876	  7878	  7895	  7895#	  7896	  7897	  7899	  7900	  7902	  7919	  7919#	  7920	  7921
	  7923	  7924	  7926	  7943	  7943#	  7944	  7945	  7947	  7948	  7950	  7967	  7967#	  7968	  7969
	  7971	  7972	  7974	  7991	  7991#	  7992	  7993	  7995	  7996	  7998	  8015	  8015#	  8016	  8017
	  8019	  8020	  8022	  8039	  8039#	  8040	  8041	  8043	  8044	  8046	  8063	  8063#	  8064	  8065
	  8067	  8068	  8070	  8087	  8087#	  8088	  8089	  8091	  8092	  8094	  8111	  8111#	  8112	  8113
	  8115	  8116	  8118	  8135	  8135#	  8136	  8137	  8139	  8140	  8142	  8150#	  8184	  8184#	  8185
	  8185#	  8186	  8188	  8205	  8205#	  8206	  8207	  8209	  8226	  8226#	  8227	  8228	  8230	  8247
	  8247#	  8248	  8249	  8251	  8268	  8268#	  8269	  8270	  8272	  8289	  8289#	  8290	  8291	  8293
	  8310	  8310#	  8311	  8312	  8314	  8331	  8331#	  8332	  8333	  8335	  8352	  8352#	  8353	  8354
	  8356	  8373	  8373#	  8374	  8375	  8377	  8394	  8394#	  8395	  8396	  8398	  8415	  8415#	  8416
	  8417	  8419	  8436	  8436#	  8437	  8438	  8440	  8457	  8457#	  8458	  8459	  8461	  8478	  8478#
	  8479	  8480	  8482	  8499	  8499#	  8500	  8501	  8503	  8520	  8520#	  8521	  8522	  8524	  8532#
	  8568	  8568#	  8569	  8569#	  8570	  8572	  8573	  8575	  8592	  8592#	  8593	  8594	  8596	  8597
	  8599	  8616	  8616#	  8617	  8618	  8620	  8621	  8623	  8640	  8640#	  8641	  8642	  8644	  8645
	  8647	  8664	  8664#	  8665	  8666	  8668	  8669	  8671	  8688	  8688#	  8689	  8690	  8692	  8693
	  8695	  8712	  8712#	  8713	  8714	  8716	  8717	  8719	  8736	  8736#	  8737	  8738	  8740	  8741
	  8743	  8760	  8760#	  8761	  8762	  8764	  8765	  8767	  8784	  8784#	  8785	  8786	  8788	  8789
	  8791	  8808	  8808#	  8809	  8810	  8812	  8813	  8815	  8832	  8832#	  8833	  8834	  8836	  8837
	  8839	  8856	  8856#	  8857	  8858	  8860	  8861	  8863	  8880	  8880#	  8881	  8882	  8884	  8885
	  8887	  8904	  8904#	  8905	  8906	  8908	  8909	  8911	  8928	  8928#	  8929	  8930	  8932	  8933
	  8935	  8952	  8952#	  8953	  8954	  8956	  8957	  8959	  8976	  8976#	  8977	  8978	  8980	  8981
	  8983	  8991#	  9027	  9027#	  9028	  9028#	  9029	  9031	  9049	  9049#	  9050	  9051	  9053	  9071
	  9071#	  9072	  9073	  9075	  9093	  9093#	  9094	  9095	  9097	  9115	  9115#	  9116	  9117	  9119
	  9137	  9137#	  9138	  9139	  9141	  9159	  9159#	  9160	  9161	  9163	  9181	  9181#	  9182	  9183
	  9185	  9203	  9203#	  9204	  9205	  9207	  9225	  9225#	  9226	  9227	  9229	  9247	  9247#	  9248
	  9249	  9251	  9269	  9269#	  9270	  9271	  9273	  9291	  9291#	  9292	  9293	  9295	  9313	  9313#
	  9314	  9315	  9317	  9335	  9335#	  9336	  9337	  9339	  9357	  9357#	  9358	  9359	  9361	  9379
	  9379#	  9380	  9381	  9383	  9423#	  9461	  9461#	  9462	  9462#	  9463	  9465	  9466	  9468	  9486
	  9486#	  9487	  9488	  9490	  9491	  9493	  9511	  9511#	  9512	  9513	  9515	  9516	  9518	  9536
	  9536#	  9537	  9538	  9540	  9541	  9543	  9561	  9561#	  9562	  9563	  9565	  9566	  9568	  9586
	  9586#	  9587	  9588	  9590	  9591	  9593	  9611	  9611#	  9612	  9613	  9615	  9616	  9618	  9636
	  9636#	  9637	  9638	  9640	  9641	  9643	  9661	  9661#	  9662	  9663	  9665	  9666	  9668	  9686
	  9686#	  9687	  9688	  9690	  9691	  9693	  9711	  9711#	  9712	  9713	  9715	  9716	  9718	  9736
	  9736#	  9737	  9738	  9740	  9741	  9743	  9761	  9761#	  9762	  9763	  9765	  9766	  9768	  9786     SEQ 0356
	  9786#	  9787	  9788	  9790	  9791	  9793	  9811	  9811#	  9812	  9813	  9815	  9816	  9818	  9836
	  9836#	  9837	  9838	  9840	  9841	  9843	  9861	  9861#	  9862	  9863	  9865	  9866	  9868	  9886
	  9886#	  9887	  9888	  9890	  9891	  9893	  9901#	  9936	  9936#	  9937	  9937#	  9939	  9941	  9958
	  9958#	  9959	  9961	  9963	  9980	  9980#	  9981	  9983	  9985	 10002	 10002#	 10003	 10005	 10007
	 10024	 10024#	 10025	 10027	 10029	 10046	 10046#	 10047	 10049	 10051	 10068	 10068#	 10069	 10071
	 10073	 10090	 10090#	 10091	 10093	 10095	 10112	 10112#	 10113	 10115	 10117	 10134	 10134#	 10135
	 10137	 10139	 10156	 10156#	 10157	 10159	 10161	 10178	 10178#	 10179	 10181	 10183	 10200	 10200#
	 10201	 10203	 10205	 10222	 10222#	 10223	 10225	 10227	 10244	 10244#	 10245	 10247	 10249	 10266
	 10266#	 10267	 10269	 10271	 10288	 10288#	 10289	 10291	 10293	 10301#	 10338	 10338#	 10339	 10339#
	 10340	 10342	 10343	 10345	 10362	 10362#	 10363	 10364	 10366	 10367	 10369	 10386	 10386#	 10387
	 10388	 10390	 10391	 10393	 10410	 10410#	 10411	 10412	 10414	 10415	 10417	 10434	 10434#	 10435
	 10436	 10438	 10439	 10441	 10458	 10458#	 10459	 10460	 10462	 10463	 10465	 10482	 10482#	 10483
	 10484	 10486	 10487	 10489	 10506	 10506#	 10507	 10508	 10510	 10511	 10513	 10530	 10530#	 10531
	 10532	 10534	 10535	 10537	 10554	 10554#	 10555	 10556	 10558	 10559	 10561	 10578	 10578#	 10579
	 10580	 10582	 10583	 10585	 10602	 10602#	 10603	 10604	 10606	 10607	 10609	 10626	 10626#	 10627
	 10628	 10630	 10631	 10633	 10650	 10650#	 10651	 10652	 10654	 10655	 10657	 10674	 10674#	 10675
	 10676	 10678	 10679	 10681	 10698	 10698#	 10699	 10700	 10702	 10703	 10705	 10722	 10722#	 10723
	 10724	 10726	 10727	 10729	 10746	 10746#	 10747	 10748	 10750	 10751	 10753	 10761#	 10795	 10795#
	 10796	 10796#	 10797	 10799	 10816	 10816#	 10817	 10818	 10820	 10837	 10837#	 10838	 10839	 10841
	 10858	 10858#	 10859	 10860	 10862	 10879	 10879#	 10880	 10881	 10883	 10900	 10900#	 10901	 10902
	 10904	 10921	 10921#	 10922	 10923	 10925	 10942	 10942#	 10943	 10944	 10946	 10963	 10963#	 10964
	 10965	 10967	 10984	 10984#	 10985	 10986	 10988	 11005	 11005#	 11006	 11007	 11009	 11026	 11026#
	 11027	 11028	 11030	 11047	 11047#	 11048	 11049	 11051	 11068	 11068#	 11069	 11070	 11072	 11089
	 11089#	 11090	 11091	 11093	 11110	 11110#	 11111	 11112	 11114	 11131	 11131#	 11132	 11133	 11135
	 11175#	 11214	 11214#	 11215	 11215#	 11216	 11218	 11219	 11221	 11223	 11240	 11240#	 11241	 11242
	 11244	 11245	 11247	 11249	 11266	 11266#	 11267	 11268	 11270	 11271	 11273	 11275	 11292	 11292#
	 11293	 11294	 11296	 11297	 11299	 11301	 11318	 11318#	 11319	 11320	 11322	 11323	 11325	 11327
	 11344	 11344#	 11345	 11346	 11348	 11349	 11351	 11353	 11370	 11370#	 11371	 11372	 11374	 11375
	 11377	 11379	 11396	 11396#	 11397	 11398	 11400	 11401	 11403	 11405	 11422	 11422#	 11423	 11424
	 11426	 11427	 11429	 11431	 11448	 11448#	 11449	 11450	 11452	 11453	 11455	 11457	 11474	 11474#
	 11475	 11476	 11478	 11479	 11481	 11483	 11500	 11500#	 11501	 11502	 11504	 11505	 11507	 11509
	 11526	 11526#	 11527	 11528	 11530	 11531	 11533	 11535	 11552	 11552#	 11553	 11554	 11556	 11557
	 11559	 11561	 11578	 11578#	 11579	 11580	 11582	 11583	 11585	 11587	 11604	 11604#	 11605	 11606
	 11608	 11609	 11611	 11613	 11630	 11630#	 11631	 11632	 11634	 11635	 11637	 11639	 11656	 11656#
	 11657	 11658	 11660	 11661	 11663	 11665	 11673#	 11708	 11708#	 11709	 11709#	 11710	 11712	 11730
	 11730#	 11731	 11732	 11734	 11752	 11752#	 11753	 11754	 11756	 11774	 11774#	 11775	 11776	 11778
	 11796	 11796#	 11797	 11798	 11800	 11818	 11818#	 11819	 11820	 11822	 11840	 11840#	 11841	 11842
	 11844	 11862	 11862#	 11863	 11864	 11866	 11884	 11884#	 11885	 11886	 11888	 11906	 11906#	 11907
	 11908	 11910	 11928	 11928#	 11929	 11930	 11932	 11950	 11950#	 11951	 11952	 11954	 11972	 11972#
	 11973	 11974	 11976	 11994	 11994#	 11995	 11996	 11998	 12016	 12016#	 12017	 12018	 12020	 12038
	 12038#	 12039	 12040	 12042	 12051#	 12092	 12092#	 12093	 12093#	 12094	 12096	 12097	 12099	 12101
	 12119	 12119#	 12120	 12121	 12123	 12124	 12126	 12128	 12146	 12146#	 12147	 12148	 12150	 12151
	 12153	 12155	 12173	 12173#	 12174	 12175	 12177	 12178	 12180	 12182	 12200	 12200#	 12201	 12202
	 12204	 12205	 12207	 12209	 12227	 12227#	 12228	 12229	 12231	 12232	 12234	 12236	 12254	 12254#
	 12255	 12256	 12258	 12259	 12261	 12263	 12281	 12281#	 12282	 12283	 12285	 12286	 12288	 12290
	 12308	 12308#	 12309	 12310	 12312	 12313	 12315	 12317	 12335	 12335#	 12336	 12337	 12339	 12340
	 12342	 12344	 12362	 12362#	 12363	 12364	 12366	 12367	 12369	 12371	 12389	 12389#	 12390	 12391
	 12393	 12394	 12396	 12398	 12416	 12416#	 12417	 12418	 12420	 12421	 12423	 12425	 12443	 12443#
	 12444	 12445	 12447	 12448	 12450	 12452	 12470	 12470#	 12471	 12472	 12474	 12475	 12477	 12479
	 12497	 12497#	 12498	 12499	 12501	 12502	 12504	 12506	 12524	 12524#	 12525	 12526	 12528	 12529
	 12531	 12533	 12551	 12551#	 12552	 12553	 12555	 12556	 12558	 12560	 12568#	 12602	 12602#	 12603
	 12603#	 12604	 12606	 12623	 12623#	 12624	 12625	 12627	 12644	 12644#	 12645	 12646	 12648	 12665
	 12665#	 12666	 12667	 12669	 12686	 12686#	 12687	 12688	 12690	 12707	 12707#	 12708	 12709	 12711     SEQ 0357
	 12728	 12728#	 12729	 12730	 12732	 12749	 12749#	 12750	 12751	 12753	 12770	 12770#	 12771	 12772
	 12774	 12791	 12791#	 12792	 12793	 12795	 12812	 12812#	 12813	 12814	 12816	 12833	 12833#	 12834
	 12835	 12837	 12854	 12854#	 12855	 12856	 12858	 12875	 12875#	 12876	 12877	 12879	 12896	 12896#
	 12897	 12898	 12900	 12917	 12917#	 12918	 12919	 12921
$$MUUO	   661#
$$OUTE	   667#
$$TAX1	   679#
$$TAX2	   680#
$$TOGG	   673#
$$UUO	   650#
$ACC0	   488#
$ACF	 15083#
$BEND1	   458#
$BEND2	   459#	 15125
$CHRIN	   549#
$CRLF	   551#
$DEVCH	   375#
$DSKUP	   428#
$DVCH1	   375#
$DVOFF	   545#
$EMODE	   426#
$ENDFX	   695#	   696
$FFF	   553#
$IBUF	   601#
$INEXT	   603#
$INNM	   602#
$ITRHL	   469#
$ITRX1	   470#
$LPAPE	 15146
$MMAP	   429#
$MODVL	   424#
$MODVU	   425#
$OBUF	   592#
$ONETM	   452#
$OUTEX	   594#
$OUTNM	   593#
$PAPER	   375
$PARER	   476#
$PNAME	   422#
$PSHER	   480#
$PVER	   423#
$RSRTX	   472#
$RSRTY	   473#
$SPAG1	   492#
$START	   389#
$SVAPR	   490#
$SVPAG	   491#
$SVPI	   489#
$SVUPC	   495#	 14986	 14990	 15020
$SVUUO	   494#	 14999	 15031	 15059
$TABF	   552#
$TTCHR	   548#
$TWCNT	   544#                                                                                                            SEQ 0358
$TYPNB	   550#
$UMODE	   427#
$UORTX	   467#
$USRHL	   471#
$UUOER	   468#	   509
$VTF	   554#
%AC1F	 15084#
%ACS1A	 15001#	 15001	 15045
%ACTFL	   501#
%ACTUL	   502#
%ALF	 15089#
%AR1F	 15088#
%ARF	 15087#
%COREC	   500#
%CORFL	   499#
%DISCR	   503#
%E1F	 15086#
%EEF	 15090#
%EF	 15085#
%ER4X	 15065	 15070#
%ER5X	 15063	 15072#
%ER6X	 15061	 15074#
%ER7X	 15067#	 15071	 15073	 15075
%ERAC0	 14975#	 14975	 15002	 15036	 15127
%ERAC1	 14983#	 14983	 15003	 15115
%ERAC2	 14984#	 14984	 15114
%ERFST	 15009#	 15009	 15011
%ERHI1	   642#
%ERHI2	   643#
%ERHI3	   644#
%ERMOR	 15041	 15068	 15097#
%ERMS1	 15006#	 15140
%ERMS2	 15029#
%ERMS3	 15047	 15054#
%ERRS1	 14998	 15101#	 15139
%ERRS2	 15114#
%ERRS4	 15005	 15137#
%ERRS5	 15118	 15122	 15127#
%FF	 15091#
%FLTTB	 15049	 15080#
%NODES	 15081#
.JB41	   375#
.JBAPR	   375#
.JBCNI	   375#
.JBDDT	   375#
.JBFF	   375#
.JBOPC	   375#
.JBREL	   375#
.JBREN	   375#
.JBSA	   375#
.JBSYM	   375#
.JBTPC	   375#
.JBUSY	   375#                                                                                                            SEQ 0359
.JBUUO	   375#
.JBVER	   375#
CFLUSH	   331#
CINVAL	   330#                                                                                                            SEQ 0360
CLOKOP	   325#
CWRTBI	   332#
DROPDV	   292#	   698
ENDUUO	   338#	   457
EOPUUO	   339#	   459
ER1	    32#
ER10	    39#
ER11	    40#
ER12	    41#
ER13	    42#
ER2	    33#
ER3	    34#	   747	   753	   766	   775	   799	   805	   818	   827	   851	   857	   870	   879	   900
	   919	  2324	  2339	  2354	  2369	  2385	  2401	  2417	  2433	  2473	  2486	  2499	  2583	  2593
	  2640	  2662	  2684	  2706	  2728	  2750	  2772	  2794	  2816	  2838	  2860	  2882	  2904	  2926
	  2948	  2970	  2992	  3014	  3062	  3084	  3106	  3128	  3150	  3172	  3194	  3216	  3238	  3260
	  3282	  3304	  3326	  3348	  3370	  3392	  3414	  3436	  3482	  3503	  3524	  3545	  3566	  3587
	  3608	  3629	  3650	  3671	  3692	  3713	  3734	  3755	  3776	  3797	  3818	  3839	  3884	  3905
	  3926	  3947	  3968	  3989	  4010	  4031	  4052	  4073	  4094	  4115	  4136	  4157	  4178	  4199
	  4220	  4241	  4259	  4269	  4314	  4335	  4356	  4377	  4398	  4419	  4440	  4461	  4482	  4503
	  4524	  4545	  4566	  4587	  4608	  4629	  4650	  4671	  4717	  4738	  4759	  4780	  4801	  4822
	  4843	  4864	  4885	  4906	  4927	  4948	  4969	  4990	  5011	  5032	  5053	  5074	  5118	  5138
	  5158	  5178	  5198	  5218	  5238	  5258	  5278	  5298	  5318	  5338	  5358	  5378	  5398	  5418
	  5438	  5458	  5504	  5525	  5546	  5567	  5588	  5609	  5630	  5651	  5672	  5693	  5714	  5735
	  5756	  5777	  5798	  5819	  5840	  5861	  5878	  5888	  5938	  5961	  5984	  6007	  6030	  6053
	  6076	  6099	  6122	  6145	  6168	  6191	  6214	  6237	  6260	  6283	  6306	  6329	  6379	  6402
	  6425	  6448	  6471	  6494	  6517	  6540	  6563	  6586	  6609	  6632	  6655	  6678	  6701	  6724
	  6747	  6770	  6820	  6843	  6866	  6889	  6912	  6935	  6958	  6981	  7004	  7027	  7050	  7073
	  7096	  7119	  7142	  7165	  7188	  7211	  7261	  7284	  7307	  7330	  7353	  7376	  7399	  7422
	  7445	  7468	  7491	  7514	  7537	  7560	  7583	  7606	  7629	  7652	 12949	 12966	 12983	 13000
	 13017	 13034	 13051	 13068	 13085	 13102	 13119	 13136	 13153	 13170	 13187	 13204	 13221	 13238
	 13255	 13272	 13289	 13306	 13323	 13340	 13366	 13383	 13400	 13417	 13434	 13451	 13468	 13485
	 13502	 13519	 13536	 13553	 13570	 13587	 13604	 13621	 13638	 13655	 13672	 13689	 13714	 13731
	 13748	 13765	 13782	 13799	 13816	 13833	 13850	 13867	 13884	 13901	 13918	 13935	 13952	 13969
	 13986	 14003	 14020	 14037	 14054	 14071	 14088	 14119	 14137	 14155	 14173	 14191	 14209	 14227
	 14245	 14263	 14281	 14299	 14317	 14335	 14353	 14371	 14389	 14407	 14425	 14443	 14461	 14479
	 14497	 14515	 14533	 14551	 14569	 14587	 14605	 14623	 14641	 14659	 14677	 14695	 14713	 14731
	 14749	 14767	 14785	 14803	 14821	 14839	 14857	 14875	 14893	 14911	 14929	 14947	 14965
ER4	    35#	   768	   777	   820	   829	   872	   881	   902	   921	   966	   983	  1000	  1017	  1034
	  1051	  1068	  1085	  1102	  1119	  1136	  1153	  1170	  1187	  1204	  1221	  1238	  1255	  1294
	  1312	  1330	  1348	  1366	  1384	  1402	  1420	  1438	  1456	  1474	  1492	  1510	  1528	  1546
	  1564	  1582	  1600	  1648	  1666	  1684	  1702	  1720	  1738	  1756	  1774	  1792	  1810	  1828
	  1846	  1864	  1882	  1900	  1918	  1936	  1954	  1993	  2011	  2029	  2047	  2065	  2083	  2101
	  2119	  2137	  2155	  2173	  2191	  2209	  2227	  2245	  2263	  2281	  2299	  2326	  2341	  2356
	  2371	  2387	  2403	  2419	  2435	  2534	  2549	  2564	  7674	  7687	  7738	  7762	  7786	  7810
	  7834	  7858	  7882	  7906	  7930	  7954	  7978	  8002	  8026	  8050	  8074	  8098	  8122	  8146
	  8192	  8213	  8234	  8255	  8276	  8297	  8318	  8339	  8360	  8381	  8402	  8423	  8444	  8465
	  8486	  8507	  8528	  8579	  8603	  8627	  8651	  8675	  8699	  8723	  8747	  8771	  8795	  8819
	  8843	  8867	  8891	  8915	  8939	  8963	  8987	  9035	  9057	  9079	  9101	  9123	  9145	  9167
	  9189	  9211	  9233	  9255	  9277	  9299	  9321	  9343	  9365	  9387	  9407	  9420	  9472	  9497
	  9522	  9547	  9572	  9597	  9622	  9647	  9672	  9697	  9722	  9747	  9772	  9797	  9822	  9847
	  9872	  9897	  9945	  9967	  9989	 10011	 10033	 10055	 10077	 10099	 10121	 10143	 10165	 10187
	 10209	 10231	 10253	 10275	 10297	 10349	 10373	 10397	 10421	 10445	 10469	 10493	 10517	 10541
	 10565	 10589	 10613	 10637	 10661	 10685	 10709	 10733	 10757	 10803	 10824	 10845	 10866	 10887     SEQ 0361
	 10908	 10929	 10950	 10971	 10992	 11013	 11034	 11055	 11076	 11097	 11118	 11139	 11159	 11172
	 11227	 11253	 11279	 11305	 11331	 11357	 11383	 11409	 11435	 11461	 11487	 11513	 11539	 11565
	 11591	 11617	 11643	 11669	 11717	 11739	 11761	 11783	 11805	 11827	 11849	 11871	 11893	 11915
	 11937	 11959	 11981	 12003	 12025	 12047	 12105	 12132	 12159	 12186	 12213	 12240	 12267	 12294
	 12321	 12348	 12375	 12402	 12429	 12456	 12483	 12510	 12537	 12564	 12610	 12631	 12652	 12673
	 12694	 12715	 12736	 12757	 12778	 12799	 12820	 12841	 12862	 12883	 12904	 12925	 12951	 12968
	 12985	 13002	 13019	 13036	 13053	 13070	 13087	 13104	 13121	 13138	 13155	 13172	 13189	 13206
	 13223	 13240	 13257	 13274	 13291	 13308	 13325	 13342	 13368	 13385	 13402	 13419	 13436	 13453
	 13470	 13487	 13504	 13521	 13538	 13555	 13572	 13589	 13606	 13623	 13640	 13657	 13674	 13691
	 13716	 13733	 13750	 13767	 13784	 13801	 13818	 13835	 13852	 13869	 13886	 13903	 13920	 13937
	 13954	 13971	 13988	 14005	 14022	 14039	 14056	 14073	 14090	 14121	 14139	 14157	 14175	 14193
	 14211	 14229	 14247	 14265	 14283	 14301	 14319	 14337	 14355	 14373	 14391	 14409	 14427	 14445
	 14463	 14481	 14499	 14517	 14535	 14553	 14571	 14589	 14607	 14625	 14643	 14661	 14679	 14697
	 14715	 14733	 14751	 14769	 14787	 14805	 14823	 14841	 14859	 14877	 14895	 14913	 14931	 14949
	 14967
ER5	    36#
ER6	    37#
ER7	    38#
ERRHLT	   227#	 15108
FATAL	   226#
FRD36	   367#
FRD8	   368#
FREAD	   366#
FSELEC	   365#
GET	   210#
GO	   207#
HALT	   212#	   478
JEN	   214#
JRSTF	   213#
MAPADR	   348#
MAPCNK	   349#
MAPMEM	   345#
MAPPNT	   351#
MAPSET	   350#
MEMSEG	   347#
MEMZRO	   346#
MODPCP	   358#
MODPCU	   357#
MTROP	   326#
NAME	     8#	    11
PBELL	   301#	 15112
PCRL	   295#	 15048	 15067
PCRL2	   299#
PCRL2F	   300#
PCRLF	   296#
PFORCE	   303#
PGMINT	   220#	   719
PJRST	   211#
PMSG	   305#	 15014	 15018	 15029	 15054
PMSGF	   308#
PNT1	   261#
PNT11	   275#
PNT11F	   276#                                                                                                            SEQ 0362
PNT1F	   262#
PNT2	   263#
PNT2F	   264#
PNT3	   265#	 15066
PNT3F	   266#
PNT4	   267#	 15070
PNT4F	   268#
PNT5	   269#	 15072
PNT5F	   270#
PNT6	   271#	 15022	 15074
PNT6F	   272#
PNT7	   273#
PNT7F	   274#
PNTA	   247#	 15057
PNTADF	   278#
PNTADR	   277#
PNTAF	   248#
PNTAL	   249#	 15050
PNTALF	   250#
PNTCHF	   260#
PNTCHR	   259#
PNTCI	   257#
PNTCIF	   258#
PNTCW	   293#
PNTCWF	   294#
PNTDCF	   286#
PNTDEC	   285#	 15017
PNTDS	   287#
PNTDSF	   288#
PNTHW	   281#	 15037
PNTHWF	   282#
PNTMGN	   372#	 15098
PNTMSF	   254#
PNTMSG	   253#
PNTNM	   289#	 15010
PNTOCF	   284#
PNTOCS	   283#
PNTOCT	   279#
PNTOTF	   280#
PNTSIX	   290#
PNTSXF	   291#
PSIXL	   251#
PSIXLF	   252#
PSIXM	   255#	 15015	 15019	 15030	 15055
PSIXMF	   256#
PSP	   297#
PSPF	   298#
PUT	   209#
RTN	   208#	   465
S	   138#	   140	   144	   173	   175	   184	   187	   202	   203	   205	   216	   218	   222	   224
	   229	   233	   375	   380	   386	   413	   415	   433	   435	   453	   455	   484	   486	   504
	   506	   524	   526	   534	   536	   557	   562	   588	   590	   597	   599	   605	   607	   613
	   615	   619	   621	   626	   628	   632	   634	   638	   640	   646	   648	   651	   653	   657     SEQ 0363
	   659	   663	   665	   669	   671	   675	   677	   682	   687	   691	   693
SAVEAC	    92#	   738	   757	   790	   809	   842	   861	   926	  1604	  2308	  2440	  2574	  4250	  5869
	  7664	  9397	 11149
SETACS	    98#
SIXBTZ	   314#
SR1	   107#	  2315	  2330	  2345	  2360	 12940	 12957	 12974	 12991	 13008	 13025	 13042	 13059	 13076
	 13093	 13110	 13127	 13144	 13161	 13178	 13195	 13212	 13229	 13246	 13263	 13280	 13297	 13314
	 13331	 13357	 13374	 13391	 13408	 13425	 13442	 13459	 13476	 13493	 13510	 13527	 13544	 13561
	 13578	 13595	 13612	 13629	 13646	 13663	 13680	 13705	 13722	 13739	 13756	 13773	 13790	 13807
	 13824	 13841	 13858	 13875	 13892	 13909	 13926	 13943	 13960	 13977	 13994	 14011	 14028	 14045
	 14062	 14079
SR2	   122#	   890	   909	  2375	  2391	  2407	  2423	 14109	 14127	 14145	 14163	 14181	 14199	 14217
	 14235	 14253	 14271	 14289	 14307	 14325	 14343	 14361	 14379	 14397	 14415	 14433	 14451	 14469
	 14487	 14505	 14523	 14541	 14559	 14577	 14595	 14613	 14631	 14649	 14667	 14685	 14703	 14721
	 14739	 14757	 14775	 14793	 14811	 14829	 14847	 14865	 14883	 14901	 14919	 14937	 14955
SWITCH	   320#	 14996	 15099
TTALTM	   242#	 15101
TTICHR	   235#
TTICNV	   240#
TTIDEC	   239#
TTINO	   237#
TTIOCT	   238#
TTIYES	   236#
TTLOOK	   241#
TTSIXB	   243#
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 1
DAKAI	000000 000000  770000 000000  240000 000000  030000  777777                                                        SEQ 0364


*030631 ROT	1,000000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030631 030631 0   0   241040000000 0            0            
IT1	030631 0      0   0   241040000000 0            0            
AT3	030631 0      0   0   0            0            241040000000 
AT6	030631 0      0   0   0            0            241040000000 
FT1A	030631 0      0   0   0            0            0            
FT2	030631 0      0   0   0            0            0            
FT2RQ	030631 0      0   0   0            0            0            
FT3	030631 0      0   0   0            0            0            
FT9	030632 0      0   0   0            0            0            
ET0	030632 0      0   0   0            0            0            
SRT1	030632 0      0   0   0            0            0            
SCT0	030632 0      0   0   0            0            0            
SCT4	030632 0      0   0   0            0            0            
ST0	030632 0      0   0   0            0            0            
ST1	030632 0      0   0   0            0            0            
ST2	030632 0      0   0   0            0            0            
ST9	030632 0      0   0   0            0            0            


*030636 ROT	1,000000
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030636 030636 0   0   241040000000 0            0            
IT1	030636 0      0   0   241040000000 0            0            
AT3	030636 0      0   0   0            0            241040000000 
AT6	030636 0      0   0   0            0            241040000000 
FT1A	030636 0      0   0   0            0            0            
FT2	030636 0      0   0   0            0            0            
FT2RQ	030636 0      0   0   777777777777 0            0            
FT3	030636 0      0   0   777777777777 0            0            
FT9	030637 0      0   0   777777777777 0            0            
ET0	030637 0      0   0   777777777777 0            0            
SRT1	030637 0      0   0   777777777777 0            0            
SCT0	030637 0      0   0   777777777777 0            0            
SCT4	030637 0      0   0   777777777777 0            0            
ST0	030637 0      0   0   777777777777 0            0            
ST1	030637 0      0   0   777777777777 0            0            
ST2	030637 0      0   0   777777777777 0            0            
ST9	030637 0      0   0   777777777777 0            0            

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 2
DAKAI	000000 000000  770000 000000  240000 000000  030000  777777                                                        SEQ 0365


*030647 ROTC	2,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 000000 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030647 030647 0   0   245100000000 0            0            
IT1	030647 0      0   0   245100000000 0            0            
AT3	030647 0      0   0   0            0            245100000000 
AT6	030647 0      0   0   0            0            245100000000 
FT1A	030647 0      0   0   0            0            0            
FT2	030647 0      0   0   0            0            0            
FT2RQ	030647 0      0   0   0            0            0            
FT3	030647 0      0   0   0            0            0            
FT4	030647 0      0   0   0            0            0            
FT4RQ	030647 0      0   0   0            0            0            
FT4A	030647 0      0   0   0            0            0            
FT9	030650 0      0   0   0            0            0            
ET0	030650 0      0   0   0            0            0            
SRT1	030650 0      0   0   0            0            0            
SCT0	030650 0      0   0   0            0            0            
SCT4	030650 0      0   0   0            0            0            
ST0	030650 0      0   0   0            0            0            
ST1	030650 0      0   0   0            0            0            
ST2	030650 0      0   0   0            0            0            
ST7	030650 0      0   0   0            0            0            
ST8	030650 0      0   0   0            0            0            
ST9	030650 0      0   0   0            0            0            


*030657 ROTC	2,000000
INITIAL
C(AC)=777777 777777   C(AC+1)=777777 777777 
FINAL
C(AC)=777777 777777   C(AC+1)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030657 030657 0   0   245100000000 0            0            
IT1	030657 0      0   0   245100000000 0            0            
AT3	030657 0      0   0   0            0            245100000000 
AT6	030657 0      0   0   0            0            245100000000 
FT1A	030657 0      0   0   0            0            0            
FT2	030657 0      0   0   0            0            0            
FT2RQ	030657 0      0   0   777777777777 0            0            
FT3	030657 0      0   0   777777777777 0            0            
FT4	030657 0      0   0   0            777777777777 0            
FT4RQ	030657 0      0   0   777777777777 777777777777 0            
FT4A	030657 0      0   0   777777777777 777777777777 0            
FT9	030660 0      0   0   777777777777 777777777777 0            
ET0	030660 0      0   0   777777777777 777777777777 0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 3
DAKAI	000000 000000  770000 000000  240000 000000  030000  777777                                                        SEQ 0366

SRT1	030660 0      0   0   777777777777 777777777777 0            
SCT0	030660 0      0   0   777777777777 777777777777 0            
SCT4	030660 0      0   0   777777777777 777777777777 0            
ST0	030660 0      0   0   777777777777 777777777777 0            
ST1	030660 0      0   0   777777777777 777777777777 0            
ST2	030660 0      0   0   777777777777 777777777777 0            
ST7	030660 0      0   0   777777777777 777777777777 0            
ST8	030660 0      0   0   777777777777 777777777777 0            
ST9	030660 0      0   0   777777777777 777777777777 0            


*030672 LSH	3,000000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030672 030672 0   0   242140000000 0            0            
IT1	030672 0      0   0   242140000000 0            0            
AT3	030672 0      0   0   0            0            242140000000 
AT6	030672 0      0   0   0            0            242140000000 
FT1A	030672 0      0   0   0            0            0            
FT2	030672 0      0   0   0            0            0            
FT2RQ	030672 0      0   0   0            0            0            
FT3	030672 0      0   0   0            0            0            
FT9	030673 0      0   0   0            0            0            
ET0	030673 0      0   0   0            0            0            
SRT1	030673 0      0   0   0            0            0            
SCT0	030673 0      0   0   0            0            0            
SCT4	030673 0      0   0   0            0            0            
ST0	030673 0      0   0   0            0            0            
ST1	030673 0      0   0   0            0            0            
ST2	030673 0      0   0   0            0            0            
ST9	030673 0      0   0   0            0            0            


*030677 LSH	3,000000
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030677 030677 0   0   242140000000 0            0            
IT1	030677 0      0   0   242140000000 0            0            
AT3	030677 0      0   0   0            0            242140000000 
AT6	030677 0      0   0   0            0            242140000000 
FT1A	030677 0      0   0   0            0            0            
FT2	030677 0      0   0   0            0            0            
FT2RQ	030677 0      0   0   777777777777 0            0            
FT3	030677 0      0   0   777777777777 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 4
DAKAI	000000 000000  770000 000000  240000 000000  030000  777777                                                        SEQ 0367

FT9	0      0      0   0   777777777777 0            0            
ET0	0      0      0   0   777777777777 0            0            
SRT1	0      0      0   0   777777777777 0            0            
SCT0	0      0      0   0   777777777777 0            0            
SCT4	0      0      0   0   777777777777 0            0            
ST0	0      0      0   0   777777777777 0            0            
ST1	0      0      0   0   777777777777 0            0            
ST2	0      0      0   0   777777777777 0            0            
ST9	0      0      0   0   777777777777 0            0            


*030710 LSHC	14,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 000000 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030710 030710 0   0   246600000000 0            0            
IT1	030710 0      0   0   246600000000 0            0            
AT3	030710 0      0   0   0            0            246600000000 
AT6	030710 0      0   0   0            0            246600000000 
FT1A	030710 0      0   0   0            0            0            
FT2	030710 0      0   0   0            0            0            
FT2RQ	030710 0      0   0   0            0            0            
FT3	030710 0      0   0   0            0            0            
FT4	030710 0      0   0   0            0            0            
FT4RQ	030710 0      0   0   0            0            0            
FT4A	030710 0      0   0   0            0            0            
FT9	030711 0      0   0   0            0            0            
ET0	030711 0      0   0   0            0            0            
SRT1	030711 0      0   0   0            0            0            
SCT0	030711 0      0   0   0            0            0            
SCT4	030711 0      0   0   0            0            0            
ST0	030711 0      0   0   0            0            0            
ST1	030711 0      0   0   0            0            0            
ST2	030711 0      0   0   0            0            0            
ST7	030711 0      0   0   0            0            0            
ST8	030711 0      0   0   0            0            0            
ST9	030711 0      0   0   0            0            0            


*030720 LSHC	14,000000
INITIAL
C(AC)=777777 777777   C(AC+1)=777777 777777 
FINAL
C(AC)=777777 777777   C(AC+1)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030720 030720 0   0   246600000000 0            0            
IT1	030720 0      0   0   246600000000 0            0            
AT3	030720 0      0   0   0            0            246600000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 5
DAKAI	000000 000000  770000 000000  240000 000000  030000  777777                                                        SEQ 0368

AT6	030720 0      0   0   0            0            246600000000 
FT1A	030720 0      0   0   0            0            0            
FT2	030720 0      0   0   0            0            0            
FT2RQ	030720 0      0   0   777777777777 0            0            
FT3	030720 0      0   0   777777777777 0            0            
FT4	030720 0      0   0   0            777777777777 0            
FT4RQ	030720 0      0   0   777777777777 777777777777 0            
FT4A	030720 0      0   0   777777777777 777777777777 0            
FT9	030721 0      0   0   777777777777 777777777777 0            
ET0	030721 0      0   0   777777777777 777777777777 0            
SRT1	030721 0      0   0   777777777777 777777777777 0            
SCT0	030721 0      0   0   777777777777 777777777777 0            
SCT4	030721 0      0   0   777777777777 777777777777 0            
ST0	030721 0      0   0   777777777777 777777777777 0            
ST1	030721 0      0   0   777777777777 777777777777 0            
ST2	030721 0      0   0   777777777777 777777777777 0            
ST7	030721 0      0   0   777777777777 777777777777 0            
ST8	030721 0      0   0   777777777777 777777777777 0            
ST9	030721 0      0   0   777777777777 777777777777 0            


*030733 ASH	13,000000
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030733 030733 0   0   240540000000 0            0            
IT1	030733 0      0   0   240540000000 0            0            
AT3	030733 0      0   0   0            0            240540000000 
AT6	030733 0      0   0   0            0            240540000000 
FT1A	030733 0      0   0   0            0            0            
FT2	030733 0      0   0   0            0            0            
FT2RQ	030733 0      0   0   0            0            0            
FT3	030733 0      0   0   0            0            0            
FT9	030734 0      0   0   0            0            0            
ET0	030734 0      0   0   0            0            0            
SRT1	030734 0      0   0   0            0            0            
SCT0	030734 0      0   0   0            0            0            
SCT4	030734 0      0   0   0            0            0            
ST0	030734 0      0   0   0            0            0            
ST1	030734 0      0   0   0            0            0            
ST2	030734 0      0   0   0            0            0            
ST9	030734 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 6
DAKAI	000000 000000  770000 000000  240000 000000  030000  777777                                                        SEQ 0369

*030740 ASH	13,000000
INITIAL
C(AC)=777777 777777 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030740 030740 0   0   240540000000 0            0            
IT1	030740 0      0   0   240540000000 0            0            
AT3	030740 0      0   0   0            0            240540000000 
AT6	030740 0      0   0   0            0            240540000000 
FT1A	030740 0      0   0   0            0            0            
FT2	030740 0      0   0   0            0            0            
FT2RQ	030740 0      0   0   777777777777 0            0            
FT3	030740 0      0   0   777777777777 0            0            
FT9	030741 0      0   0   777777777777 0            0            
ET0	030741 0      0   0   777777777777 0            0            
SRT1	030741 0      0   0   777777777777 0            0            
SCT0	030741 0      0   0   777777777777 0            0            
SCT4	030741 0      0   0   777777777777 0            0            
ST0	030741 0      0   0   777777777777 0            0            
ST1	030741 0      0   0   777777777777 0            0            
ST2	030741 0      0   0   777777777777 0            0            
ST9	030741 0      0   0   777777777777 0            0            


*030751 ASHC	12,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 000000 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030751 030751 0   0   244500000000 0            0            
IT1	030751 0      0   0   244500000000 0            0            
AT3	030751 0      0   0   0            0            244500000000 
AT6	030751 0      0   0   0            0            244500000000 
FT1A	030751 0      0   0   0            0            0            
FT2	030751 0      0   0   0            0            0            
FT2RQ	030751 0      0   0   0            0            0            
FT3	030751 0      0   0   0            0            0            
FT4	030751 0      0   0   0            0            0            
FT4RQ	030751 0      0   0   0            0            0            
FT4A	030751 0      0   0   0            0            0            
FT9	030752 0      0   0   0            0            0            
ET0	030752 0      0   0   0            0            0            
SRT1	030752 0      0   0   0            0            0            
SCT0	030752 0      0   0   0            0            0            
SCT4	030752 0      0   0   0            0            0            
ST0	030752 0      0   0   0            0            0            
ST1	030752 0      0   0   0            0            0            
ST2	030752 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 7
DAKAI	000000 000000  770000 000000  240000 000000  030000  777777                                                        SEQ 0370

ST7	030752 0      0   0   0            0            0            
ST8	030752 0      0   0   0            0            0            
ST9	030752 0      0   0   0            0            0            


*030761 ASHC	12,000000
INITIAL
C(AC)=777777 777777   C(AC+1)=777777 777777 
FINAL
C(AC)=777777 777777   C(AC+1)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030761 030761 0   0   244500000000 0            0            
IT1	030761 0      0   0   244500000000 0            0            
AT3	030761 0      0   0   0            0            244500000000 
AT6	030761 0      0   0   0            0            244500000000 
FT1A	030761 0      0   0   0            0            0            
FT2	030761 0      0   0   0            0            0            
FT2RQ	030761 0      0   0   777777777777 0            0            
FT3	030761 0      0   0   777777777777 0            0            
FT4	030761 0      0   0   0            777777777777 0            
FT4RQ	030761 0      0   0   777777777777 777777777777 0            
FT4A	030761 0      0   0   777777777777 777777777777 0            
FT9	030762 0      0   0   777777777777 777777777777 0            
ET0	030762 0      0   0   777777777777 777777777777 0            
SRT1	030762 0      0   0   777777777777 777777777777 0            
SCT0	030762 0      0   0   777777777777 777777777777 0            
SCT4	030762 0      0   0   777777777777 777777777777 0            
ST0	030762 0      0   0   777777777777 777777777777 0            
ST1	030762 0      0   0   777777777777 777777777777 0            
ST2	030762 0      0   0   777777777777 777777777777 0            
ST7	030762 0      0   0   777777777777 777777777777 0            
ST8	030762 0      0   0   777777777777 777777777777 0            
ST9	030762 0      0   0   777777777777 777777777777 0            


*030771 ASHC	12,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=777777 777777 
FINAL
C(AC)=000000 000000   C(AC+1)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030771 030771 0   0   244500000000 0            0            
IT1	030771 0      0   0   244500000000 0            0            
AT3	030771 0      0   0   0            0            244500000000 
AT6	030771 0      0   0   0            0            244500000000 
FT1A	030771 0      0   0   0            0            0            
FT2	030771 0      0   0   0            0            0            
FT2RQ	030771 0      0   0   0            0            0            
FT3	030771 0      0   0   0            0            0            
FT4	030771 0      0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 8
DAKAI	000000 000000  770000 000000  240000 000000  030000  777777                                                        SEQ 0371

FT4RQ	030771 0      0   0   777777777777 0            0            
FT4A	030771 0      0   0   0            777777777777 0            
FT9	030772 0      0   0   0            777777777777 0            
ET0	030772 0      0   0   0            777777777777 0            
SRT1	030772 0      0   0   0            777777777777 0            
SCT0	030772 0      0   0   0            777777777777 0            
SCT4	030772 0      0   0   0            777777777777 0            
ST0	030772 0      0   0   0            777777777777 0            
ST1	030772 0      0   0   0            777777777777 0            
ST2	030772 0      0   0   0            777777777777 0            
ST7	030772 0      0   0   777777777777 777777777777 0            
ST8	030772 0      0   0   777777777777 777777777777 0            
ST9	030772 0      0   0   777777777777 777777777777 0            


*031001 ASHC	12,000000
INITIAL
C(AC)=777777 777777   C(AC+1)=000000 000000 
FINAL
C(AC)=777777 777777   C(AC+1)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031001 031001 0   0   244500000000 0            0            
IT1	031001 0      0   0   244500000000 0            0            
AT3	031001 0      0   0   0            0            244500000000 
AT6	031001 0      0   0   0            0            244500000000 
FT1A	031001 0      0   0   0            0            0            
FT2	031001 0      0   0   0            0            0            
FT2RQ	031001 0      0   0   777777777777 0            0            
FT3	031001 0      0   0   777777777777 0            0            
FT4	031001 0      0   0   0            777777777777 0            
FT4RQ	031001 0      0   0   0            777777777777 0            
FT4A	031001 0      0   0   777777777777 0            0            
FT9	031002 0      0   0   777777777777 0            0            
ET0	031002 0      0   0   777777777777 0            0            
SRT1	031002 0      0   0   777777777777 0            0            
SCT0	031002 0      0   0   777777777777 0            0            
SCT4	031002 0      0   0   777777777777 0            0            
ST0	031002 0      0   0   777777777777 0            0            
ST1	031002 0      0   0   777777777777 0            0            
ST2	031002 0      0   0   777777777777 0            0            
ST7	031002 0      0   0   0            0            0            
ST8	031002 0      0   0   0            0            0            
ST9	031002 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 9
DAKAI	000000 000000  770000 000000  240000 000000  030000  777777                                                        SEQ 0372

*031015 ROTC	10,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 000001 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031015 031015 0   0   245400000000 0            0            
IT1	031015 0      0   0   245400000000 0            0            
AT3	031015 0      0   0   0            0            245400000000 
AT6	031015 0      0   0   0            0            245400000000 
FT1A	031015 0      0   0   0            0            0            
FT2	031015 0      0   0   0            0            0            
FT2RQ	031015 0      0   0   0            0            0            
FT3	031015 0      0   0   0            0            0            
FT4	031015 0      0   0   0            0            0            
FT4RQ	031015 0      0   0   000000000001 0            0            
FT4A	031015 0      0   0   0            000000000001 0            
FT9	031016 0      0   0   0            000000000001 0            
ET0	031016 0      0   0   0            000000000001 0            
SRT1	031016 0      0   0   0            000000000001 0            
SCT0	031016 0      0   0   0            000000000001 0            
SCT4	031016 0      0   0   0            000000000001 0            
ST0	031016 0      0   0   0            000000000001 0            
ST1	031016 0      0   0   0            000000000001 0            
ST2	031016 0      0   0   0            000000000001 0            
ST7	031016 0      0   0   000000000001 000000000001 0            
ST8	031016 0      0   0   000000000001 000000000001 0            
ST9	031016 0      0   0   000000000001 000000000001 0            


*031023 ROTC	10,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 000002 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031023 031023 0   0   245400000000 0            0            
IT1	031023 0      0   0   245400000000 0            0            
AT3	031023 0      0   0   0            0            245400000000 
AT6	031023 0      0   0   0            0            245400000000 
FT1A	031023 0      0   0   0            0            0            
FT2	031023 0      0   0   0            0            0            
FT2RQ	031023 0      0   0   0            0            0            
FT3	031023 0      0   0   0            0            0            
FT4	031023 0      0   0   0            0            0            
FT4RQ	031023 0      0   0   000000000002 0            0            
FT4A	031023 0      0   0   0            000000000002 0            
FT9	031024 0      0   0   0            000000000002 0            
ET0	031024 0      0   0   0            000000000002 0            
SRT1	031024 0      0   0   0            000000000002 0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 10
DAKAI	000000 000000  770000 000000  240000 000000  030000  777777                                                        SEQ 0373

SCT0	031024 0      0   0   0            000000000002 0            
SCT4	031024 0      0   0   0            000000000002 0            
ST0	031024 0      0   0   0            000000000002 0            
ST1	031024 0      0   0   0            000000000002 0            
ST2	031024 0      0   0   0            000000000002 0            
ST7	031024 0      0   0   000000000002 000000000002 0            
ST8	031024 0      0   0   000000000002 000000000002 0            
ST9	031024 0      0   0   000000000002 000000000002 0            


*031031 ROTC	10,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 000004 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031031 031031 0   0   245400000000 0            0            
IT1	031031 0      0   0   245400000000 0            0            
AT3	031031 0      0   0   0            0            245400000000 
AT6	031031 0      0   0   0            0            245400000000 
FT1A	031031 0      0   0   0            0            0            
FT2	031031 0      0   0   0            0            0            
FT2RQ	031031 0      0   0   0            0            0            
FT3	031031 0      0   0   0            0            0            
FT4	031031 0      0   0   0            0            0            
FT4RQ	031031 0      0   0   000000000004 0            0            
FT4A	031031 0      0   0   0            000000000004 0            
FT9	031032 0      0   0   0            000000000004 0            
ET0	031032 0      0   0   0            000000000004 0            
SRT1	031032 0      0   0   0            000000000004 0            
SCT0	031032 0      0   0   0            000000000004 0            
SCT4	031032 0      0   0   0            000000000004 0            
ST0	031032 0      0   0   0            000000000004 0            
ST1	031032 0      0   0   0            000000000004 0            
ST2	031032 0      0   0   0            000000000004 0            
ST7	031032 0      0   0   000000000004 000000000004 0            
ST8	031032 0      0   0   000000000004 000000000004 0            
ST9	031032 0      0   0   000000000004 000000000004 0            


*031037 ROTC	10,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 000010 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031037 031037 0   0   245400000000 0            0            
IT1	031037 0      0   0   245400000000 0            0            
AT3	031037 0      0   0   0            0            245400000000 
AT6	031037 0      0   0   0            0            245400000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 11
DAKAI	000000 000000  770000 000000  240000 000000  030000  777777                                                        SEQ 0374

FT1A	031037 0      0   0   0            0            0            
FT2	031037 0      0   0   0            0            0            
FT2RQ	031037 0      0   0   0            0            0            
FT3	031037 0      0   0   0            0            0            
FT4	031037 0      0   0   0            0            0            
FT4RQ	031037 0      0   0   000000000010 0            0            
FT4A	031037 0      0   0   0            000000000010 0            
FT9	031040 0      0   0   0            000000000010 0            
ET0	031040 0      0   0   0            000000000010 0            
SRT1	031040 0      0   0   0            000000000010 0            
SCT0	031040 0      0   0   0            000000000010 0            
SCT4	031040 0      0   0   0            000000000010 0            
ST0	031040 0      0   0   0            000000000010 0            
ST1	031040 0      0   0   0            000000000010 0            
ST2	031040 0      0   0   0            000000000010 0            
ST7	031040 0      0   0   000000000010 000000000010 0            
ST8	031040 0      0   0   000000000010 000000000010 0            
ST9	031040 0      0   0   000000000010 000000000010 0            


*031045 ROTC	10,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 000020 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031045 031045 0   0   245400000000 0            0            
IT1	031045 0      0   0   245400000000 0            0            
AT3	031045 0      0   0   0            0            245400000000 
AT6	031045 0      0   0   0            0            245400000000 
FT1A	031045 0      0   0   0            0            0            
FT2	031045 0      0   0   0            0            0            
FT2RQ	031045 0      0   0   0            0            0            
FT3	031045 0      0   0   0            0            0            
FT4	031045 0      0   0   0            0            0            
FT4RQ	031045 0      0   0   000000000020 0            0            
FT4A	031045 0      0   0   0            000000000020 0            
FT9	031046 0      0   0   0            000000000020 0            
ET0	031046 0      0   0   0            000000000020 0            
SRT1	031046 0      0   0   0            000000000020 0            
SCT0	031046 0      0   0   0            000000000020 0            
SCT4	031046 0      0   0   0            000000000020 0            
ST0	031046 0      0   0   0            000000000020 0            
ST1	031046 0      0   0   0            000000000020 0            
ST2	031046 0      0   0   0            000000000020 0            
ST7	031046 0      0   0   000000000020 000000000020 0            
ST8	031046 0      0   0   000000000020 000000000020 0            
ST9	031046 0      0   0   000000000020 000000000020 0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 12
DAKAI	000000 000000  770000 000000  240000 000000  030000  777777                                                        SEQ 0375

*031053 ROTC	10,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 000040 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031053 031053 0   0   245400000000 0            0            
IT1	031053 0      0   0   245400000000 0            0            
AT3	031053 0      0   0   0            0            245400000000 
AT6	031053 0      0   0   0            0            245400000000 
FT1A	031053 0      0   0   0            0            0            
FT2	031053 0      0   0   0            0            0            
FT2RQ	031053 0      0   0   0            0            0            
FT3	031053 0      0   0   0            0            0            
FT4	031053 0      0   0   0            0            0            
FT4RQ	031053 0      0   0   000000000040 0            0            
FT4A	031053 0      0   0   0            000000000040 0            
FT9	031054 0      0   0   0            000000000040 0            
ET0	031054 0      0   0   0            000000000040 0            
SRT1	031054 0      0   0   0            000000000040 0            
SCT0	031054 0      0   0   0            000000000040 0            
SCT4	031054 0      0   0   0            000000000040 0            
ST0	031054 0      0   0   0            000000000040 0            
ST1	031054 0      0   0   0            000000000040 0            
ST2	031054 0      0   0   0            000000000040 0            
ST7	031054 0      0   0   000000000040 000000000040 0            
ST8	031054 0      0   0   000000000040 000000000040 0            
ST9	031054 0      0   0   000000000040 000000000040 0            


*031061 ROTC	10,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 000100 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031061 031061 0   0   245400000000 0            0            
IT1	031061 0      0   0   245400000000 0            0            
AT3	031061 0      0   0   0            0            245400000000 
AT6	031061 0      0   0   0            0            245400000000 
FT1A	031061 0      0   0   0            0            0            
FT2	031061 0      0   0   0            0            0            
FT2RQ	031061 0      0   0   0            0            0            
FT3	031061 0      0   0   0            0            0            
FT4	031061 0      0   0   0            0            0            
FT4RQ	031061 0      0   0   000000000100 0            0            
FT4A	031061 0      0   0   0            000000000100 0            
FT9	031062 0      0   0   0            000000000100 0            
ET0	031062 0      0   0   0            000000000100 0            
SRT1	031062 0      0   0   0            000000000100 0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 13
DAKAI	000000 000000  770000 000000  240000 000000  030000  777777                                                        SEQ 0376

SCT0	031062 0      0   0   0            000000000100 0            
SCT4	031062 0      0   0   0            000000000100 0            
ST0	031062 0      0   0   0            000000000100 0            
ST1	031062 0      0   0   0            000000000100 0            
ST2	031062 0      0   0   0            000000000100 0            
ST7	031062 0      0   0   000000000100 000000000100 0            
ST8	031062 0      0   0   000000000100 000000000100 0            
ST9	031062 0      0   0   000000000100 000000000100 0            


*031067 ROTC	10,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 000200 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031067 031067 0   0   245400000000 0            0            
IT1	031067 0      0   0   245400000000 0            0            
AT3	031067 0      0   0   0            0            245400000000 
AT6	031067 0      0   0   0            0            245400000000 
FT1A	031067 0      0   0   0            0            0            
FT2	031067 0      0   0   0            0            0            
FT2RQ	031067 0      0   0   0            0            0            
FT3	031067 0      0   0   0            0            0            
FT4	031067 0      0   0   0            0            0            
FT4RQ	031067 0      0   0   000000000200 0            0            
FT4A	031067 0      0   0   0            000000000200 0            
FT9	031070 0      0   0   0            000000000200 0            
ET0	031070 0      0   0   0            000000000200 0            
SRT1	031070 0      0   0   0            000000000200 0            
SCT0	031070 0      0   0   0            000000000200 0            
SCT4	031070 0      0   0   0            000000000200 0            
ST0	031070 0      0   0   0            000000000200 0            
ST1	031070 0      0   0   0            000000000200 0            
ST2	031070 0      0   0   0            000000000200 0            
ST7	031070 0      0   0   000000000200 000000000200 0            
ST8	031070 0      0   0   000000000200 000000000200 0            
ST9	031070 0      0   0   000000000200 000000000200 0            


*031075 ROTC	10,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 000400 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031075 031075 0   0   245400000000 0            0            
IT1	031075 0      0   0   245400000000 0            0            
AT3	031075 0      0   0   0            0            245400000000 
AT6	031075 0      0   0   0            0            245400000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 14
DAKAI	000000 000000  770000 000000  240000 000000  030000  777777                                                        SEQ 0377

FT1A	031075 0      0   0   0            0            0            
FT2	031075 0      0   0   0            0            0            
FT2RQ	031075 0      0   0   0            0            0            
FT3	031075 0      0   0   0            0            0            
FT4	031075 0      0   0   0            0            0            
FT4RQ	031075 0      0   0   000000000400 0            0            
FT4A	031075 0      0   0   0            000000000400 0            
FT9	031076 0      0   0   0            000000000400 0            
ET0	031076 0      0   0   0            000000000400 0            
SRT1	031076 0      0   0   0            000000000400 0            
SCT0	031076 0      0   0   0            000000000400 0            
SCT4	031076 0      0   0   0            000000000400 0            
ST0	031076 0      0   0   0            000000000400 0            
ST1	031076 0      0   0   0            000000000400 0            
ST2	031076 0      0   0   0            000000000400 0            
ST7	031076 0      0   0   000000000400 000000000400 0            
ST8	031076 0      0   0   000000000400 000000000400 0            
ST9	031076 0      0   0   000000000400 000000000400 0            


*031103 ROTC	10,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 001000 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031103 031103 0   0   245400000000 0            0            
IT1	031103 0      0   0   245400000000 0            0            
AT3	031103 0      0   0   0            0            245400000000 
AT6	031103 0      0   0   0            0            245400000000 
FT1A	031103 0      0   0   0            0            0            
FT2	031103 0      0   0   0            0            0            
FT2RQ	031103 0      0   0   0            0            0            
FT3	031103 0      0   0   0            0            0            
FT4	031103 0      0   0   0            0            0            
FT4RQ	031103 0      0   0   000000001000 0            0            
FT4A	031103 0      0   0   0            000000001000 0            
FT9	031104 0      0   0   0            000000001000 0            
ET0	031104 0      0   0   0            000000001000 0            
SRT1	031104 0      0   0   0            000000001000 0            
SCT0	031104 0      0   0   0            000000001000 0            
SCT4	031104 0      0   0   0            000000001000 0            
ST0	031104 0      0   0   0            000000001000 0            
ST1	031104 0      0   0   0            000000001000 0            
ST2	031104 0      0   0   0            000000001000 0            
ST7	031104 0      0   0   000000001000 000000001000 0            
ST8	031104 0      0   0   000000001000 000000001000 0            
ST9	031104 0      0   0   000000001000 000000001000 0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 15
DAKAI	000000 000000  770000 000000  240000 000000  030000  777777                                                        SEQ 0378

*031111 ROTC	10,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 002000 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031111 031111 0   0   245400000000 0            0            
IT1	031111 0      0   0   245400000000 0            0            
AT3	031111 0      0   0   0            0            245400000000 
AT6	031111 0      0   0   0            0            245400000000 
FT1A	031111 0      0   0   0            0            0            
FT2	031111 0      0   0   0            0            0            
FT2RQ	031111 0      0   0   0            0            0            
FT3	031111 0      0   0   0            0            0            
FT4	031111 0      0   0   0            0            0            
FT4RQ	031111 0      0   0   000000002000 0            0            
FT4A	031111 0      0   0   0            000000002000 0            
FT9	031112 0      0   0   0            000000002000 0            
ET0	031112 0      0   0   0            000000002000 0            
SRT1	031112 0      0   0   0            000000002000 0            
SCT0	031112 0      0   0   0            000000002000 0            
SCT4	031112 0      0   0   0            000000002000 0            
ST0	031112 0      0   0   0            000000002000 0            
ST1	031112 0      0   0   0            000000002000 0            
ST2	031112 0      0   0   0            000000002000 0            
ST7	031112 0      0   0   000000002000 000000002000 0            
ST8	031112 0      0   0   000000002000 000000002000 0            
ST9	031112 0      0   0   000000002000 000000002000 0            


*031117 ROTC	10,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 004000 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031117 031117 0   0   245400000000 0            0            
IT1	031117 0      0   0   245400000000 0            0            
AT3	031117 0      0   0   0            0            245400000000 
AT6	031117 0      0   0   0            0            245400000000 
FT1A	031117 0      0   0   0            0            0            
FT2	031117 0      0   0   0            0            0            
FT2RQ	031117 0      0   0   0            0            0            
FT3	031117 0      0   0   0            0            0            
FT4	031117 0      0   0   0            0            0            
FT4RQ	031117 0      0   0   000000004000 0            0            
FT4A	031117 0      0   0   0            000000004000 0            
FT9	031120 0      0   0   0            000000004000 0            
ET0	031120 0      0   0   0            000000004000 0            
SRT1	031120 0      0   0   0            000000004000 0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  20-JAN-77   PAGE 16
DAKAI	000000 000000  770000 000000  240000 000000  030000  777777                                                        SEQ 0379

SCT0	031120 0      0   0   0            000000004000 0            
SCT4	031120 0      0   0   0            000000004000 0            
ST0	031120 0      0   0   0            000000004000 0            
ST1	031120 0      0   0   0            000000004000 0            
ST2	031120 0      0   0   0            000000004000 0            
ST7	031120 0      0   0   000000004000 000000004000 0            
ST8	031120 0      0   0   000000004000 000000004000 0            
ST9	031120 0      0   0   000000004000 000000004000 0            


*031125 ROTC	10,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 010000 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031125 031125 0   0   245400000000 0            0            
IT1	031125 0      0   0   245400000000 0            0            
AT3	031125 0      0   0   0            0            245400000000 
AT6	031125 0      0   0   0            0            245400000000 
FT1A	031125 0      0   0   0            0            0            
FT2	031125 0      0   0   0            0            0            
FT2RQ	031125 0      0   0   0            0            0            
FT3	031125 0      0   0   0            0            0            
FT4	031125 0      0   0   0            0            0            
FT4RQ	031125 0      0   0   000000010000 0            0            
FT4A	031125 0      0   0   0            000000010000 0            
FT9	031126 0      0   0   0            000000010000 0            
ET0	031126 0      0   0   0            000000010000 0            
SRT1	031126 0      0   0   0            000000010000 0            
SCT0	031126 0      0   0   0            000000010000 0            
SCT4	031126 0      0   0   0            000000010000 0            
ST0	031126 0      0   0   0            000000010000 0            
ST1	031126 0      0   0   0            000000010000 0            
ST2	031126 0      0   0   0            000000010000 0            
ST7	031126 0      0   0   000000010000 000000010000 0            
ST8	031126 0      0   0   000000010000 000000010000 0            
ST9	031126 0      0   0   000000010000 000000010000 0            


*031133 ROTC	10,000000
INITIAL
C(AC)=000000 000000   C(AC+1)=000000 020000 
FINAL
C(AC)=000000 000000   C(AC+1)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031133 031133 0   0   245400000000 0            0            
IT1	031133 0      0   0   245400000000 0            0            
AT3	031133 0      0