Google
 

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




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

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

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

	FUNCTION:	BASIC INSTRUCTIONS 2

	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-DAKAB.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	ERRORS

5.0	ITERATION COUNTER

6.0	CYCLE TIME

7.0	OPERATIONAL VARIATIONS

8.0	MISCELLANEOUS

9.0	LISTING
							MAINDEC-10-DAKAB.TXT
							PAGE 3                                                             SEQ 0003


1.0	ABSTRACT

	THIS PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC IS THE
	SECOND IN A SERIES OF PDP-10 KA10 PROCESSOR DIAGNOSTICS.
	THE DIAGNOSTIC TESTS SOME FOLLOWING INSTRUCTIONS.
	MOVE, COMPARE, TEST, HALF WORD AND BOOLE.
	IT ALSO TESTS THE ADDERS USING ADD AND COMPARE INSTRUCTIONS.

2.0	REQUIREMENTS

2.1	EQUIPMENT

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

	PAPER TAPE READER
	DECTAPE (OPTIONAL)
	CONSOLE TELETYPE

2.2	STORAGE

	THE PROGRAM RUNS WITHIN 32K OF MEMORY.

2.3	PRELIMINARY PROGRAMS

	CONSOLE FUNCTIONS WORKING PROPERLY
	PAPER TAPE OR DECTAPE READ-IN WORKING PROPERLY 
	PREVIOUS PROCESSOR DIAGNOSTICS
							MAINDEC-10-DAKAB.TXT
							PAGE 4                                                             SEQ 0004


3.0	PROGRAM PROCEDURES

3.1	LOADING PROCEDURE

	PAPER TAPE - HARDWARE READ-IN (READER DEVICE CODE 104)
	DECTAPE - LOAD WITH DIAMON (DECTAPE DEVICE CODE 320)

3.2	STARTING PROCEDURE

	STAND-ALONE STARTING ADDRESS IS 30000.

	IF THE DIAGNOSTIC FAILS TO START CORRECTLY TRY STARTING AT THE
	FIRST TEST INSTEAD OF AT THE BEGINNING OF THE CONTROL SEQUENCE.
	(SEE LISTING).

3.3	OPERATING PROCEDURE

	ONCE STARTED THE PROGRAM WILL CYCLE CONTINUALLY UNTIL STOPPED
	OR AN ERROR OCCURS.

4.0	ERRORS

	ERRORS ARE IN THE FORM OF HALT INSTRUCTIONS.  THE LISTING
	SHOULD BE CONSULTED TO DETERMINE THE CAUSE OF THE ERROR.  A
	NO OPERATION (JUMP) INSTRUCTION FOLLOWS EACH HALT.  THIS
	MAY BE USEFUL IN CONSTRUCTING A SCOPE LOOP TO CYCLE ON THE
	FAILING INSTRUCTION.

5.0	ITERATION COUNTER

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

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


7.0	OPERATIONAL VARIATIONS

	A.  DIAGNOSTIC MONITOR

	    THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PRO-
	    VIDE RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PRO-
	    VIDE 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 PRO-
		GRAM AND STARTS IT AT LOCATION 30002.

	    2.  MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MON-
		ITOR CONTROL FLAG WORD.

	B.  USER MODE

	    THE PROGRAM WILL OPERATE IN USER MODE AND AS SUCH PROVIDES
	    ASSURANCE THAT THE PROCESSOR IS PERFORMING ALL FUNCTIONS
	    CORRECTLY.  USER MODE STARTING ADDRESS IS 30000.

	C.  SYSTEM EXERCISER

	    STARTING ADDRESS IS 30003.  NO DATA SWITCHES ARE USED BY
	    THIS PROGRAM.

8.0	MISCELLANEOUS

	NONE

9.0	LISTING
	THIS IS A HISTORY OF THE DEVELOPMENT OF MAINDEC-10-DAKAB
                                                                                                                           SEQ 0006
************************************************************************

PRODUCT CODE:		MAINDEC-10-DAKAB

PRODUCT NAME:		BASIC INSTRUCTION DIAGNOSTIC #2

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

************************************************************************
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 1
DAKABT	MAC	19-JAN-77 13:38		DIAGNOSTIC PARAMETERS                                                              SEQ 0007

     1					;DAKAB
     2
     3
     4
     5			000002			DECVER==2
     6			000000			MCNVER==0
     7
     8						XLIST
     9						LIST
    10						LALL
    11						NAME	\MCNVER,\DECVER^
    12
    13					TITLE	DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2
    14					^
    15
    16					;TEST DESIGNED FOR INITIAL DEBUGGING OF PROCESSOR HARDWARE
    17					;AND TO DETECT (SOLID) FAILURES IN THE FIELD.
    18
    19					;COPYRIGHT 1972,1977
    20					;DIGITAL EQUIPMENT CORPORATION
    21					;MARLBORO, MASS. 01752
    22
    23					;JOHN R. KIRCHOFF
    24					;DICK MALISKA
    25
    26	000137					LOC	137
    27	000137	000000	000002			MCNVER,,DECVER
    28
    29						NOSYM
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 2
DAKABT	MAC	19-JAN-77 13:38		DIAGNOSTIC PARAMETERS                                                              SEQ 0008

    30					SUBTTL	DIAGNOSTIC PARAMETERS
    31					;PARAMETER DEFINITIONS
    32			000001		EXCASB==1
    33			000001		USRASB==1
    34
    35					;FLAG DEFINITIONS
    36			010000		USERF=10000		;USER MODE FLAG
    37
    38
    39					;MACROS
    40
    41					; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1)
    42					;	 TO A (JUMPA .-X) TO CYCLE ON FAILING INSTRUCTION
    43
    44					DEFINE	STOP	(A)<
    45						HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
    46						JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
    47									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
    48									;IN THE SUBTEST) TO LOOP ON ERROR>
    49
    50					;SPECIAL FEATURE PARAMETERS
    51
    52			030742		SADR1=B00
    53			030742		SADR2=B00
    54			030742		SADR3=B00
    55			030742		SADR4=B00
    56		254000	030742		SADR5=JRST B00
    57		254000	030742		SADR6=JRST B00
    58		254000	030742		SADR7=JRST B00
    59		254000	030742		SADR8=JRST B00
    60		254000	030742		SADR9=JRST B00
    61		254000	030742		SADR10=JRST B00
    62		254000	030742		SADR11=JRST B00
    63
    64			000000		PAREA0=0
    65			000000		PAREA1=0
    66			000000		PAREA2=0
    67		444153	414200		PAREA3=SIXBIT/DAKAB/
    68		645560	000000		PAREA4=SIXBIT/TMP/
    69			000000		PAREA5=0
    70			000000		PAREA6=0
    71			001000		ITERAT==1000
    72			000001		PGMEND==1
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 1
PARAM	KLM	18-JAN-77 11:38		*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977                               SEQ 0009

    73					SUBTTL	*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977
    74
    75					DEFINE	S,<;*********************************************************************>
    76
    77					S^;*********************************************************************^
    78					;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
    79					;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
    80					;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
    81					S^;*********************************************************************^
    82
    83			400000		ABORT==	400000			;ABORT PROGRAM ON PASS COMPLETION
    84			200000		RSTART==200000			;RESTART TEST, PRINT TOTALS
    85			100000		TOTALS==100000			;PRINT TOTALS, CONTINUE
    86
    87			040000		NOPNT==	040000			;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
    88			020000		PNTLPT==020000			;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
    89			010000		DING==	010000			;RING BELL ON ERROR
    90
    91			004000		LOOPER==004000			;ENTER EXERCISE/CHECK LOOP ON ERROR
    92			002000		ERSTOP==002000			;HALT ON TEST ERROR
    93			001000		PALERS==001000			;PRINT ALL ERRORS
    94
    95			000400		RELIAB==000400			;RELIABILITY MODE
    96			000200		TXTINH==000200			;INHIBIT ERROR TEXT
    97			000100		INHPAG==000100			;INHIBIT PAGING
    98
    99			000040		MODDVC==000040			;MODIFY DEVICE CODE
   100			000020		INHCSH==000020			;INHIBIT CACHE
   101			000010		OPRSEL==000010			;OPERATOR SELECTION
   102
   103			000004		CHAIN==	000004			;CHAIN CONTROL SWITCH
   104
   105			000002		KAHZ50==000002			;KA10 50 HERTZ POWER
   106
   107									;SWITCH 17 RESERVED !!!
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 2
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0010

   108					SUBTTL	*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977
   109
   110					S^;*********************************************************************^
   111					;*SPECIAL SUBPROGRAM LINKAGES
   112					S^;*********************************************************************^
   113
   114			027772		FSELNK=	27772	;FILE SELECT LINK
   115			027773		FRDLNK=	27773	;FILE READ LINK
   116			027774		LDLNK=	27774	;LOAD LINKAGE ADDRESS
   117			027775		DDTLNK=	27775	;DDT LINKAGE ADDRESS
   118			027776		MODLNK=	27776	;OPERATIONAL MODE CHECK LINKAGE ADDRESS
   119			027777		SUBLNK=	27777	;SUBROUTINE LINKAGE ADDRESS
   120
   121					S^;*********************************************************************^
   122					;*SPECIAL SUBROUTINE FATAL HALTS
   123					;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
   124					S^;*********************************************************************^
   125
   126					;ADDRESS   TAG	REASON
   127					;---------------------
   128
   129					; 1010 	NOEXEC	;PROGRAM NOT CODED FOR EXEC MODE OPERATION
   130					; 1011  PLERR	;FATAL PUSH LIST POINTER ERROR
   131					; 1012  PLERR1	;INITIAL PUSH LIST POINTER ERROR
   132					; 1013  MUOERR	;MUUO WITH LUUO HANDLER WIPED OUT
   133					; 1014  DTEBER	;DTE20 INTERRUPT WITHOUT DOORBELL
   134					; 1015  DTECER	;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
   135					; 1016  CPIERR	;CPU INITIALIZATION ERROR
   136					; 1017  EOPERR	;END OF PROGRAM ERROR
   137					; 1020  LUOERR	;INTERRUPT WITH LUUO HANDLER WIPED OUT
   138
   139					S^;*********************************************************************^
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 3
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0011

   140					S^;*********************************************************************^
   141					;OPERATOR DEFINITIONS (NON-UUO'S)
   142					S^;*********************************************************************^
   143
   144		260740	000000		OPDEF	GO	[PUSHJ	P,]	;SUBROUTINE CALL
   145		263740	000000		OPDEF	RTN	[POPJ	P,]	;SUBROUTINE RETURN 
   146		261740	000000		OPDEF	PUT	[PUSH	P,]	;PUT DATA ON PUSH LIST
   147		262740	000000		OPDEF	GET	[POP	P,]	;GET DATA FROM PUSH LIST 
   148		254000	000000		OPDEF	PJRST	[JRST	]	;JRST TO ROUTINE THAT RTN'S
   149		254200	000000		OPDEF	HALT	[JRST	4,]	;DEFINITION FOR DDT
   150		254100	000000		OPDEF	JRSTF	[JRST	2,]	;DEFINITION FOR DDT
   151		254500	000000		OPDEF	JEN	[JRST	12,]	;DEFINITION FOR DDT
   152
   153					S^;*********************************************************************^
   154					;*SUBROUTINE INITIALIZATION CALL
   155					S^;*********************************************************************^
   156
   157		265000	030011		OPDEF	PGMINT	[JSP	0,SBINIT]	;SUBROUTINE INITIALIZATION
   158
   159					S^;*********************************************************************^
   160					;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
   161					S^;*********************************************************************^
   162
   163		037640	000004		OPDEF	FATAL	[37B8!15B12!4]	;FATAL PROGRAMMING HALT
   164		037600	000004		OPDEF	ERRHLT	[37B8!14B12!4]	;PROGRAM ERROR HALT
   165
   166					S^;*********************************************************************^
   167					;*TERMINAL INPUT UUO'S
   168					;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
   169					;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
   170					S^;*********************************************************************^
   171
   172		037000	000003		OPDEF	TTICHR 	[37B8!0B12!3]	;TTY, INPUT ANY CHARACTER
   173		037040	000003		OPDEF	TTIYES	[37B8!1B12!3]	;TTY, NORMAL RETURN Y
   174		037100	000003		OPDEF	TTINO	[37B8!2B12!3]	;TTY, NORMAL RETURN N
   175		037140	000003		OPDEF	TTIOCT	[37B8!3B12!3]	;TTY, INPUT OCTAL WORD
   176		037200	000003		OPDEF	TTIDEC	[37B8!4B12!3]	;TTY, INPUT DECIMAL WORD
   177		037240	000003		OPDEF	TTICNV	[37B8!5B12!3]	;TTY, INPUT CONVERTABLE WORD
   178		037300	000003		OPDEF	TTLOOK	[37B8!6B12!3]	;TTY, KEYBOARD CHECK
   179		037340	000003		OPDEF	TTALTM	[37B8!7B12!3]	;TTY, ALT-MODE CHECK
   180		037400	000003		OPDEF	TTSIXB	[37B8!10B12!3]	;TTY, INPUT SIXBIT WORD
   181		037440	000003		OPDEF	TTYINP	[37B8!11B12!3]	;TTY, IMAGE MODE INPUT
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 4
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0012

   182					;*TERMINAL OUTPUT UUO'S.
   183
   184		037000	000000		OPDEF	PNTA	[37B8!0B12!0]	;PRINT ASCII WORD
   185		037000	000001		OPDEF	PNTAF	[37B8!0B12!1]	;PRINT ASCII WORD FORCED
   186		037740	000000		OPDEF	PNTAL	[37B8!17B12!0]	;PRINT ASCIZ LINE
   187		037740	000001		OPDEF	PNTALF	[37B8!17B12!1]	;PRINT ASCIZ LINE FORCED
   188		037600	000003		OPDEF	PSIXL	[37B8!14B12!3]	;PRINT SIXBIT'Z LINE
   189		037640	000003		OPDEF	PSIXLF	[37B8!15B12!3]	;PRINT SIXBIT'Z LINE FORCED
   190		037000	000000		OPDEF	PNTMSG	[37B8!0B12!0]	;PRINT MESSAGE IMMEDIATE
   191		037040	000000		OPDEF	PNTMSF	[37B8!1B12!0]	;PRINT MESSAGE IMMEDIATE FORCED
   192		037100	000000		OPDEF	PSIXM	[37B8!2B12!0]	;PRINT SIXBIT'Z MSG IMMEDIATE
   193		037200	000000		OPDEF	PSIXMF	[37B8!4B12!0]	;PRINT SIXBIT'Z MSG IMM FORCED
   194		037000	000000		OPDEF	PNTCI	[37B8!0B12!0]	;PRINT CHARACTER IMMEDIATE
   195		037040	000000		OPDEF	PNTCIF	[37B8!1B12!0]	;PRINT CHARACTER IMMEDIATE FORCED
   196		037500	000000		OPDEF	PNTCHR	[37B8!12B12!0]	;PRINT CHARACTER
   197		037500	000001		OPDEF	PNTCHF	[37B8!12B12!1]	;PRINT CHARACTER FORCED
   198		037040	000000		OPDEF	PNT1	[37B8!1B12!0]	;PRINT ONE OCTAL DIGIT
   199		037040	000001		OPDEF	PNT1F	[37B8!1B12!1]	;PRINT 1 OCTAL DIGIT FORCED	
   200		037100	000000		OPDEF	PNT2	[37B8!2B12!0]	;PRINT TWO OCTAL DIGITS
   201		037100	000001		OPDEF	PNT2F	[37B8!2B12!1]	;PRINT 2 OCTAL DIGITS FORCED	
   202		037140	000000		OPDEF	PNT3	[37B8!3B12!0]	;PRINT THREE OCTAL DIGITS
   203		037140	000001		OPDEF	PNT3F	[37B8!3B12!1]	;PRINT THREE OCTAL DIGITS FORCED	
   204		037200	000000		OPDEF	PNT4	[37B8!4B12!0]	;PRINT FOUR OCTAL DIGITS
   205		037200	000001		OPDEF	PNT4F	[37B8!4B12!1]	;PRINT FOUR OCTAL DIGITS FORCED
   206		037240	000000		OPDEF	PNT5	[37B8!5B12!0]	;PRINT FIVE OCTAL DIGITS
   207		037240	000001		OPDEF	PNT5F	[37B8!5B12!1]	;PRINT FIVE OCTAL DIGITS FORCED
   208		037300	000000		OPDEF	PNT6	[37B8!6B12!0]	;PRINT SIX OCTAL DIGITS
   209		037300	000001		OPDEF	PNT6F	[37B8!6B12!1]	;PRINT SIX OCTAL DIGITS FORCED
   210		037340	000000		OPDEF	PNT7	[37B8!7B12!0]	;PRINT 7 OCTAL DIGITS
   211		037340	000001		OPDEF	PNT7F	[37B8!7B12!1]	;PRINT 7 OCTAL DIGITS FORCED
   212		037440	000000		OPDEF	PNT11	[37B8!11B12!0]	;PRINT 11 OCTAL DIGITS
   213		037440	000001		OPDEF	PNT11F	[37B8!11B12!1]	;PRINT 11 OCTAL DIGITS FORCED.
   214		037400	000000		OPDEF	PNTADR	[37B8!10B12!0]	;PRINT PHYSICAL ADDRESS
   215		037400	000001		OPDEF	PNTADF	[37B8!10B12!1]	;PRINT PHYSICAL ADDRESS FORCED
   216		037600	000000		OPDEF	PNTOCT  [37B8!14B12!0]	;PRINT FULL WORD OCTAL
   217		037600	000001		OPDEF	PNTOTF	[37B8!14B12!1]	;PRINT FULL WORD OCTAL FORCED
   218		037540	000000		OPDEF	PNTHW	[37B8!13B12!0]	;PRINT OCTAL HALF WORDS, 6 SP 6
   219		037540	000001		OPDEF	PNTHWF	[37B8!13B12!1]	;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
   220		037700	000003		OPDEF	PNTOCS	[37B8!16B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S
   221		037740	000003		OPDEF	PNTOCF	[37B8!17B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
   222		037640	000000		OPDEF	PNTDEC	[37B8!15B12!0]	;PRINT DECIMAL, SUPRESS LEADING 0'S
   223		037640	000001		OPDEF	PNTDCF	[37B8!15B12!1]	;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
   224		037700	000000		OPDEF	PNTDS	[37B8!16B12!0]	;PRINT DECIMAL, SPACES FOR LD 0'S
   225		037700	000001		OPDEF	PNTDSF	[37B8!16B12!1]	;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
   226		037200	000002		OPDEF	PNTNM	[37B8!4B12!2]	;PRINT PROGRAM NAME
   227		037000	000002		OPDEF	PNTSIX	[37B8!0B12!2]	;PRINT SIXBIT WORD
   228		037040	000002		OPDEF	PNTSXF	[37B8!1B12!2]	;PRINT SIXBIT WORD FORCED
   229		037240	000002		OPDEF	DROPDV	[37B8!5B12!2]	;CLOSE LOGICAL FILE, USER MODE
   230		037100	000002		OPDEF	PNTCW	[37B8!2B12!2]	;PRINT DF10 CONTROL WORD
   231		037140	000002		OPDEF	PNTCWF	[37B8!3B12!2]	;PRINT DF10 CONTROL WORD FORCED
   232		037000	030242		OPDEF	PCRL	[37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
   233		037040	030242		OPDEF	PCRLF	[37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
   234		037000	000040		OPDEF	PSP	[37B8!0B12!40]	;PRINT SPACE
   235		037040	000040		OPDEF	PSPF	[37B8!1B12!40]	;PRINT SPACE FORCED
   236		037000	030243		OPDEF	PCRL2	[37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 4-1
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0013

   237		037040	030243		OPDEF	PCRL2F	[37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
   238		037040	000007		OPDEF	PBELL	[37B8!1B12!7]	;PRINT TTY BELL
   239
   240		037040	000026		OPDEF	PFORCE	[37B8!1B12!26]	;PRINT FORCE, CONTROL O OVERRIDE
   241
   242					DEFINE	PMSG	(ARG),<
   243						PSIXM	[SIXBIT\ARG'_\]>
   244
   245					DEFINE	PMSGF	(ARG),<
   246						PSIXMF	[SIXBIT\ARG'_\]>
   247
   248					;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
   249					;*	CONSERVES CORE OVER ASCIZ
   250
   251					DEFINE	SIXBTZ	(ARG),<	[SIXBIT\ARG'_\]>
   252
   253					;*CONSOLE SWITCH INPUT UUO.
   254					;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
   255					;* USER MODE.
   256
   257		037400	000002		OPDEF	SWITCH	[37B8!10B12!2]	;INPUT CONSOLE SWITCHES
   258
   259					;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
   260					;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
   261
   262		037540	000004		OPDEF	CLOKOP	[37B8!13B12!4]	;CLOCK OPERATION UUO - PDP-11 CLOCK
   263		037200	000004		OPDEF	MTROP	[37B8!4B12!4]	;CLOCK OPERATION UUO - DK20 METER
   264
   265					;*KL10 ONLY CACHE OPERATION UUO'S
   266
   267		037040	000004		OPDEF	CINVAL	[37B8!1B12!4]	;CACHE INVALIDATE
   268		037100	000004		OPDEF	CFLUSH	[37B8!2B12!4]	;CACHE FLUSH
   269		037140	000004		OPDEF	CWRTBI	[37B8!3B12!4]	;CACHE WRITE-BACK & INVALIDATE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5
PARAM	KLM	18-JAN-77 11:38		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977                                 SEQ 0014

   270					;*END OF PASS/PROGRAM UUOS
   271
   272					;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
   273					;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
   274
   275		037500	000004		OPDEF	ENDUUO	[37B8!12B12!4]	;UUO TO DISPLAY LIGHTS
   276		037700	000004		OPDEF	EOPUUO	[37B8!16B12!4]	;END OF PROGRAM UUO
   277
   278					;*MEMORY MANAGEMENT UUO'S
   279					;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
   280					;*ADDRESS CONVERSION, ETC...
   281
   282		037000	000004		OPDEF	MAPMEM	[37B8!0B12!4]	;MAP MEMORY
   283		037500	000002		OPDEF	MEMZRO	[37B8!12B12!2]	;ZERO MEMORY
   284		037440	000002		OPDEF	MEMSEG	[37B8!11B12!2]	;SETUP MEMORY SEGMENT
   285		037540	000002		OPDEF	MAPADR	[37B8!13B12!2]	;VIRTUAL TO PHYSICAL ADR CONVERT
   286		037640	000002		OPDEF	MAPCNK	[37B8!15B12!2]	;MAP MEMORY CHUNK
   287		037600	000002		OPDEF	MAPSET	[37B8!14B12!2]	;SET KI10 EXEC PAGE MAP
   288		037740	000002		OPDEF	MAPPNT	[37B8!17B12!2]	;PRINT MEMORY MAP
   289
   290					;*DEVICE CODE MODIFICATION UUO
   291					;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
   292					;*IOT'S TO A DIFFERENT DEVICE CODE.
   293
   294		037340	000002		OPDEF	MODPCU	[37B8!7B12!2]	;MODIFY PERHIPERAL CODE, USER
   295		037300	000002		OPDEF	MODPCP	[37B8!6B12!2]	;MODIFY PERHIPERAL CODE, PROGRAM
   296
   297			030000			IFNDEF	MODDVL,<MODDVL==BEGIN>
   298			030000			IFNDEF	MODDVU,<MODDVU==BEGIN>
   299
   300					;*"DIAMON" FILE SELECTION AND READ UUOS
   301
   302		037240	000004		OPDEF	FSELECT	[37B8!5B12!4]	;FILE SELECTION
   303		037300	000004		OPDEF	FREAD	[37B8!6B12!4]	;FILE READ - ASCII DATA
   304		037340	000004		OPDEF	FRD36	[37B8!7B12!4]	;FILE READ - 36 BIT DATA
   305		037400	000004		OPDEF	FRD8	[37B8!10B12!4]	;FILE READ - 8 BIT DATA
   306
   307					;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES
   308
   309		037700	000002		OPDEF	PNTMGN	[37B8!16B12!2]	;PRINT MARGIN VALUE
   310
   311						XLIST
   312					IFNDEF	KLOLD,<LIST
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 6
PARAM	KLM	18-JAN-77 11:38		ERROR HANDLING UUO DEFINITIONS, JAN 18,1977                                        SEQ 0015

   313					SUBTTL	ERROR HANDLING UUO DEFINITIONS, JAN 18,1977
   314
   315					S^;*********************************************************************^
   316					;*ERROR HANDLER PARAMETERS
   317					S^;*********************************************************************^
   318
   319		036000	000000		OPDEF	ERUUO	[36B8]		;ERROR CALL UUO
   320		035000	000000		OPDEF	ERLOOP	[35B8]		;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
   321		035040	000000		OPDEF	ERLP1	[35B8!1B12]	;ERROR LOOP IF PC'S MATCH
   322		035100	000000		OPDEF	ERLP2	[35B8!2B12]	;ERROR LOOP IF ANY ERROR
   323		034000	000000		OPDEF	REPTUO	[34B8]		;REPEAT LOOP UUO
   324
   325					;*THE ERROR HANDLER MACROS
   326
   327					;*A MACRO TO REPORT AN ERROR AND LOOP
   328
   329						DEFINE	ERROR	(ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
   330						SALL
   331						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   332							   CORECT,,ACTUAL
   333							   [SIXBIT\D'_\],,ERR]
   334						XALL
   335					
   336						ERLOOP	ADR		;IF ERROR, LOOP TO ADR
   337					>
   338
   339					;*A MACRO TO REPORT AN ERROR AND NOT LOOP
   340
   341						DEFINE	ERROR1	(FORMAT,CORECT,ACTUAL,F,D,ERR)<
   342						SALL
   343						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   344							   CORECT,,ACTUAL
   345							   [SIXBIT\D'_\],,ERR]
   346						XALL	>
   347
   348					>;END OF KLOLD CONDITIONAL
   349
   350						XLIST
   351						LIST
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 1
FIXED	KLM	18-JAN-77 11:39		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977                            SEQ 0016

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

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

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

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

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

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

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

   674					SUBTTL	*SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76
   675
   676					;NEW DEFINITIONS USED BY THE KL10 SUBROUTINE PACKAGE
   677
   678			000000		AC0=	0
   679			030000		DIAGNOS=30000		;PDP-10 DIAGNOSTIC START ADDRESS
   680			010000		DDT=	10000		;PDP-10 DDT START ADDRESS
   681			020000		DIAMON=	20000		;PDP-10 DIAMON LOADER START ADDRESS
   682			020000		DONG11=	1B22		;11 DOORBELL (FROM THE 10)
   683
   684					;DTE20 DEVICE CODES
   685
   686			000200		DTE==	200		;DTE0
   687			000204		DTE0==	204
   688			000204		DTE1==	204
   689			000210		DTE2==	210
   690			000214		DTE3==	214
   691
   692					;KL10 EPT COMMUNICATION AREA
   693
   694			000440		$STD=	440		;PDP-10 DIAGNOSTIC START ADDRESS
   695			000441		$DDT=	441		;PDP-10 DDT START ADDRESS
   696			000442		$STL=	442		;PDP-10 LOADER START ADDRESS
   697			000443		$STM=	443		;PDP-10 MONITOR START ADDRESS
   698
   699			000444		$DTFLG=	444		;DTE20 OPERATION COMPLETE FLAG
   700			000445		$DTCLK=	445		;DTE20 CLOCK INTERRUPT FLAG
   701			000446		$DTCI=	446		;DTE20 CLOCK INTERRUPT INSTRUCTION
   702			000447		$DTT11=	447		;DTE20 10 TO 11 ARGUMENT
   703			000450		$DTF11=	450		;DTE20 11 TO 10 ARGUMENT
   704			000451		$DTCMD=	451		;DTE20 TO 11 COMMAND WORD
   705			000452		$DTSEQ=	452		;DTE20 OPERATION SEQUENCE NUMBER
   706			000453		$DTOPR=	453		;DTE20 OPERATIONAL DTE #
   707			000454		$DTCHR=	454		;DTE20 LAST TYPED CHARACTER
   708			000455		$DTMTD=	455		;DTE20 MONITOR TTY OUTPUT COMPLETE FLAG
   709			000456		$DTMTI=	456		;DTE20 MONITOR TTY INPUT FLAG
   710
   711			000457		$DTSWR=	457		;DTE20 CONSOLE SWITCH REGISTER
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 2
SPCCPU	KLM	26-FEB-76 05:50		*SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76                            SEQ 0024

   712					;SPECIAL "FIXED" REASSIGNMENTS
   713
   714			030600			$$LOC=.			;SAVE CURRENT LOCATION
   715
   716	030000					LOC	30000
   717	030000	254 00 0 00 030600 	$$BEGIN:JRST	$$START		;SETUP SPECIAL START
   718	030001	254 00 0 00 030600 		JRST	$$START		;"DIAMON" CHAIN START ADDRESS
   719
   720	000440					LOC	440
   721	000440	254 00 0 00 030000 	$STD:	JRST	BEGIN		;SETUP FOR "STD"
   722	000443					LOC	443
   723	000443	254 00 0 00 030636 	$STM:	JRST	$SPEC		;SIMPLE RUN CONTROL
   724
   725	030057					LOC	30057
   726	030057	254 00 0 00 030641 	$BEGEND:JRST	$SPBEND		;SETUP SPECIAL "BEGEND"
   727
   728					;SPECIAL MUUO, TRAP & PAGE FAIL SETUP
   729
   730	000420					LOC	420
   731	000420	254 04 0 00 000420 	$$420:	HALT	.		;KI10 PAGE FAIL
   732	000421	255 00 0 00 000000 	$$421:	JFCL			;OVERFLOW
   733	000422	254 04 0 00 000422 	$$422:	HALT	.		;PUSHDOWN OVERFLOW
   734	000423	254 04 0 00 000423 	$$423:	HALT	.		;TRAP 3
   735	000424	000000	000000		$$424:	0			;MMUO
   736	000425	000000	000000		$$425:	0			;MMUO PC
   737	000426	000000	000000		$$426:	0			;KI10-PAGE FAIL, KL10-PROCESS CONTEXT
   738	000427	254 04 0 00 000427 	$$427:	HALT	.
   739	000430	000000	000427		$$430:	427			;MMUO NEW PC'S
   740	000431	000000	000427		$$431:	427
   741	000432	000000	000427		$$432:	427
   742	000433	000000	000427		$$433:	427
   743	000434	000000	000427		$$434:	427
   744	000435	000000	000427		$$435:	427
   745	000436	000000	000427		$$436:	427
   746	000437	000000	000427		$$437:	427
   747
   748	000500					LOC	500
   749	000500	000000	000000		$$500:	0			;KL10 PAGE FAIL WORD
   750	000501	000000	000000		$$501:	0			;KL10 PAGE FAIL PC
   751	000502	000000	000503		$$502:	503			;KL10 PAGE FAIL NEW PC
   752	000503	254 04 0 00 000503 	$$503:	HALT	.
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 3
SPCCPU	KLM	26-FEB-76 05:50		*SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76                            SEQ 0025

   753	030600					LOC	$$LOC		;RESET CURRENT LOCATION
   754
   755					;SPECIAL STARTUP SEQUENCE
   756
   757	030600	402 00 0 00 030037 	$$START:SETZM	USER
   758	030601	265 00 0 00 030602 		JSP	0,.+1		;IN USER MODE ?
   759	030602	603 00 0 00 010000 		TLNE	0,USERF
   760	030603	476 00 0 00 030037 		SETOM	USER		;YES, SET CONTROL WORD
   761	030604	336 00 0 00 030042 		SKIPN	MONFLG		;SPECIAL USER MODE ?
   762	030605	402 00 0 00 030037 		SETZM	USER		;YES, RUN AS EXEC
   763	030606	332 00 0 00 030037 		SKIPE	USER
   764	030607	254 00 0 00 030712 		JRST	START		;USER MODE, DON'T NEED CPU TYPE
   765
   766	030610	336 00 0 00 030044 	$STKIL:	SKIPN	MONTEN		;LOADED BY "DIAMON" ?
   767	030611	476 00 0 00 030024 		SETOM	ITRCNT		;NO, RUN FOREVER
   768	030612	402 00 0 00 030516 		SETZM	KLTYP
   769	030613	402 00 0 00 030041 		SETZM	KLFLG		;ASSUME KI10
   770	030614	200 01 0 00 035410 		MOVE	1,[1,,1]
   771	030615	251 01 0 00 000001 		BLT	1,1		;HOPE THIS WORKS
   772	030616	316 01 0 00 035410 		CAMN	1,[1,,1]	;IF AC NE 1,,1 AFTER BLT, KL10
   773	030617	254 00 0 00 030712 		JRST	START		;KI10, NO ADDITIONAL SETUP
   774
   775	030620	7 000 20 0 00 010040 	$STKL:	CONO	APR,10040	;SET BBD NOT BIT
   776	030621	7 000 24 0 00 000000 		CONI	APR,0
   777	030622	7 000 20 0 00 020040 		CONO	APR,20040	;CLEAR BBD NOT BIT
   778	030623	606 00 0 00 000040 		TRNN	0,40		;IF SET, KL10
   779	030624	350 00 0 00 030516 		AOS	KLTYP		;IF NOT, BBD
   780	030625	402 00 0 00 000444 		SETZM	$DTFLG
   781	030626	402 00 0 00 000445 		SETZM	$DTCLK
   782	030627	200 00 0 00 000453 		MOVE	$DTOPR		;GET DTE #
   783	030630	436 00 0 00 030670 		ORM	$$DTE0		;INSERT IN DTE I/O INSTS
   784	030631	436 00 0 00 030672 		ORM	$$DTE1
   785	030632	436 00 0 00 030704 		ORM	$$DTE2
   786	030633	436 00 0 00 030706 		ORM	$$DTE3
   787	030634	476 00 0 00 030041 		SETOM	KLFLG		;SET KL10 CONTROL FLAG
   788	030635	254 00 0 00 030712 		JRST	START
   789
   790	030636	200 00 0 00 035411 	$SPEC:	MOVE	[JRST STARTA]	;SIMPLE RUN CONTROL
   791	030637	202 00 0 00 030643 		MOVEM	$SPB1
   792	030640	254 00 0 00 030712 		JRST	START
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 4
SPCCPU	KLM	26-FEB-76 05:50		*SPCCPU* SPECIAL BASIC CPU PROCESSOR CONTROL, 26-FEB-76                            SEQ 0026

   793					;SPECIAL "BEGEND" ROUTINE
   794
   795	030641	350 00 0 00 030047 	$SPBEND:AOS	PASCNT		;INCREMENT PASS COUNT
   796	030642	370 00 0 00 030024 		SOS	ITRCNT		;DECREMENT ITERATION COUNT
   797	030643	336 00 0 00 030037 	$SPB1:	SKIPN	USER
   798	030644	254 00 0 00 030652 		JRST	$SPBEX		;EXEC MODE
   799
   800	030645	332 00 0 00 030024 	$SPBUS:	SKIPE	ITRCNT		;USER MODE, COMPLETED ?
   801	030646	254 00 0 00 030741 		JRST	STARTA		;NO, KEEP RUNNING
   802	030647	336 00 0 00 030044 		SKIPN	MONTEN		;DONE, LOADED BY "DIAMON" ?
   803	030650	047 00 0 00 000012 		EXIT			;NO, RETURN TO MONITOR
   804	030651	254 00 1 00 030012 		JRST	@RETURN		;YES, RETURN TO "DIAMON"
   805
   806	030652	332 00 0 00 030041 	$SPBEX:	SKIPE	KLFLG
   807	030653	254 00 0 00 030660 		JRST	$SPBKL		;KL10 & EXEC
   808	030654	7 004 14 0 00 030024 		DATAO	PI,ITRCNT	;KI10 & EXEC, DISPLAY ITER COUNT
   809	030655	332 00 0 00 030024 		SKIPE	ITRCNT
   810	030656	254 00 0 00 030741 		JRST	STARTA		;NOT COMPLETED YET
   811	030657	254 00 1 00 030012 		JRST	@RETURN		;DONE
   812
   813	030660	336 00 0 00 030024 	$SPBKL:	SKIPN	ITRCNT
   814	030661	254 00 0 00 030676 		JRST	$SPKLD		;KL10, EXEC & COMPLETED
   815
   816	030662	335 00 0 00 030043 		SKIPGE	MONCTL
   817	030663	254 00 0 00 030741 		JRST	STARTA		;"DIAMON" CONTROL
   818	030664	201 00 0 00 000404 		MOVEI	0,404		;NOTIFY PDP-11 OF END OF PASS
   819	030665	202 00 0 00 000451 		MOVEM	0,$DTCMD
   820	030666	402 00 0 00 000444 		SETZM	$DTFLG
   821	030667	336 00 0 00 030516 		SKIPN	KLTYP
   822	030670	7 200 20 0 00 020000 	$$DTE0:	CONO	DTE,DONG11
   823	030671	332 00 0 00 030516 		SKIPE	KLTYP
   824	030672	7 200 20 0 00 010000 	$$DTE1:	CONO	DTE,10000
   825	030673	336 00 0 00 000444 		SKIPN	$DTFLG		;WAIT TILL 11 RESPONDS
   826	030674	254 00 0 00 030673 		JRST	.-1
   827	030675	254 00 0 00 030741 		JRST	STARTA		;KEEP RUNNING
   828
   829					;SPECIAL KL10 COMPLETED ROUTINE
   830
   831	030676	332 00 0 00 030044 	$SPKLD:	SKIPE	MONTEN
   832	030677	254 00 1 00 030012 		JRST	@RETURN		;LOADED BY "DIAMON"
   833
   834	030700	201 00 0 00 000403 		MOVEI	0,403		;NOTIFY PDP-11 OF COMPLETION
   835	030701	202 00 0 00 000451 		MOVEM	0,$DTCMD
   836	030702	402 00 0 00 000444 		SETZM	$DTFLG
   837	030703	336 00 0 00 030516 		SKIPN	KLTYP
   838	030704	7 200 20 0 00 020000 	$$DTE2:	CONO	DTE,DONG11
   839	030705	332 00 0 00 030516 		SKIPE	KLTYP
   840	030706	7 200 20 0 00 010000 	$$DTE3:	CONO	DTE,10000
   841	030707	336 00 0 00 000444 		SKIPN	$DTFLG		;SHOULD NEVER HAPPEN
   842	030710	254 00 0 00 030707 		JRST	.-1		;11 NEVER RETURNS ON END OF PROGRAM
   843	030711	254 04 0 00 030000 		HALT	BEGIN		;IF IT DOES, HALT.
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 1
DAKABM	MAC	19-JAN-77 13:39		DIAGNOSTIC SECTION                                                                 SEQ 0027

   844					SUBTTL	DIAGNOSTIC SECTION
   845						LALL
   846
   847	030712	402 00 0 00 030037 	START:	SETZM	USER#		;CLEAR USER CONTROL WORD
   848	030713	265 00 0 00 030714 		JSP	0,.+1		;GET FLAGS
   849	030714	603 00 0 00 010000 		TLNE	USERF		;IN USER MODE?
   850	030715	476 00 0 00 030037 		SETOM	USER		;YES, SET USER CONTROL WORD
   851	030716	336 00 0 00 030042 		SKIPN	MONFLG		;SPECIAL USER MODE?
   852	030717	402 00 0 00 030037 		SETZM	USER		;YES, CLEAR USER CONTROL WORD
   853	030720	336 00 0 00 030037 		SKIPN	USER
   854	030721	254 00 0 00 030742 		JRST	B00
   855	030722	331 00 0 00 030043 		SKIPL	MONCTL
   856	030723	051 03 0 00 030725 		TTCALL	3,PGMNAM		;MENTION OUR NAME
   857	030724	254 00 0 00 030741 		JRST	STARTA		; GO START
   858
   859	030725				PGMNAM:	ASCIZ/
   860	030725	015 012 120 104 120 	PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) [DAKAB]
   861	030726	055 061 060 040 113 
   862	030727	101 061 060 040 102 
   863	030730	101 123 111 103 040 
   864	030731	111 116 123 124 122 
   865	030732	125 103 124 111 117 
   866	030733	116 040 104 111 101 
   867	030734	107 116 117 123 124 
   868	030735	111 103 040 050 062 
   869	030736	051 040 133 104 101 
   870	030737	113 101 102 135 015 
   871	030740	012 000 000 000 000 	/
   872
   873					;BASIC INSTRUCTION TEST (2)
   874					;THE TEST IS DESIGNED FOR INITIAL DEBUGGING OF
   875					;PROCESSOR HARDWARE AND TO DETECT (SOLID) FAILURES
   876					;IN THE FIELD
   877
   878
   879	030741	254 00 0 00 030742 	STARTA:	JRST	.+1
   880
   881	030742				B00:
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 2
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0028

   882					SUBTTL	TEST OF THE ADD INSTRUCTION
   883
   884					;THIS TEST VERIFIES THAT WHEN THE ADD INSTRUCTION IS USED
   885					;TO ADD A NON-ZERO NUMBER CONTAINED IN E TO AN AC CONTAINING ALL ZEROS,
   886					;THE RESULT IS A NON-ZERO NUMBER IN THE AC.  FIRST, THE AC IS CLEARED;
   887					;THEN, ANON-ZERO POSITIVE NUMBER IS ADDED TO THE AC USING THE ADD 
   888					;INSTRUCTION.  THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
   889
   890	030742	200 00 0 00 035412 		A10400:	MOVE	[0]		;PRESET AC TO ALL ZEROS
   891	030743	270 00 0 00 035413 		ADD	[123456765432]	;*ADD OF A NON-ZERO NUMBER TO AN AC OF ALL
   892									;ZEROS SHOULD RESULT
   893									;IN AN AC CONTAINING A NON-ZERO NUMBER
   894	030744	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) IS NON-ZERO
   895						STOP^
   896	030745	254 04 0 00 030746 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   897	030746	324 00 0 00 030747 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   898									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
   899									;IN THE SUBTEST) TO LOOP ON ERROR^
   900
   901					;AD ADD [ADC1], AD ADD EN [ADC1],
   902					;F CYC ACT EN A [F1], AD FM + FETCH EN A [ADFP],
   903					;F CYC ACT EN C[F1], IR ADSUB [IR1], IRXX [IR1]
   904
   905					;**********
   906
   907					;THIS TEST VERIFIES THAT WHEN THE ADD INSTRUCTION IS USED TO ADD
   908					;A WORD OF ALL ZEROS TO AN AC CONTAINING A NON-ZERO POSITIVE NUMBER, THE
   909					;RESULT IS A NON-ZERO POSITIVE NUMBER IN THE AC.  FIRST, THE AC IS
   910					;INITIALIZED WITH A NON-ZERO POSITIVE NUMBER; THEN, A WORD OF ALL ZEROS
   911					; IS ADDED TO THE AC.  THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
   912
   913	030747	200 00 0 00 035413 	A10500:	MOVE	[123456765432]	;PRESET AC WITH A NON-ZERO NUMBER
   914	030750	270 00 0 00 035412 		ADD	[0]		;*ADD OF A WORD OF ALL ZEROS TO AN AC
   915									;CONTAINING A NON-ZERO NUMBER
   916									;SHOULD RESULT IN AN AC CONTAINING A NON-ZERO NUMBER
   917	030751	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) IS NON-ZERO
   918						STOP^
   919	030752	254 04 0 00 030753 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   920	030753	324 00 0 00 030754 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   921									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
   922									;IN THE SUBTEST) TO LOOP ON ERROR^
   923
   924					;AR AD EN [ARMA], AR AD EN A [ARMA], ET2C F/F [E],
   925					;AR AD ET2 EN [ARMA], IR ADSUB [IR1]
   926
   927					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 3
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0029

   928					;THIS TEST VERIFIES THAT WHEN THE ADD INSTRUCTION IS USED TO ADD
   929					;A WORD OF ALL ZEROS TO AN AC CONTAINING A NON-ZERO POSITIVE NUMBER, THE
   930					;RESULT IS A NON-ZERO POSITIVE NUMBER IN THE AC.  FIRST, THE AC IS
   931					;INITIALIZED WITH A NON-ZERO POSITIVE NUMBER; THEN, A WORD OF ALL ZEROS
   932					; IS ADDED TO THE AC.  THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
   933
   934	030754	200 00 0 00 035414 	A10600:	MOVE	[XWD 123456,0]	;PRESET AC WITH A NON-ZERO NUMBER
   935	030755	270 00 0 00 035412 		ADD	[0]		;*ADD OF A WORD OF ALL ZEROS TO AN AC CONTAINING
   936									;A NON-ZERO NUMBER SHOULD RESULT IN AN AC
   937									;CONTAINING A NON-ZERO NUMBER
   938	030756	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) IS NON-ZERO
   939						STOP^
   940	030757	254 04 0 00 030760 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   941	030760	324 00 0 00 030761 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   942									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
   943									;IN THE SUBTEST) TO LOOP ON ERROR^
   944
   945					;AR AD EN [ARMA], AR AD EN A [ARMA], ET2C F/F[E],
   946					;AR AD ET2 EN [ARMA], IR AD SUB [IR1]
   947
   948					;*********
   949
   950					;THIS TEST VERIFIES THAT WHEN THE ADD INSTRUCTION IS USED TO ADD
   951					;A WORD OF ALL ZEROS TO AN AC CONTAINING A NON-ZERO POSITIVE NUMBER, THE
   952					;RESULT IS A NON-ZERO POSITIVE NUMBER IN THE AC.  FIRST, THE AC IS
   953					;INITIALIZED WITH A NON-ZERO POSITIVE NUMBER; THEN, A WORD OF ALL ZEROS
   954					; IS ADDED TO THE AC.  THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
   955
   956	030761	200 00 0 00 035415 	A10700:	MOVE	[123456]	;PRESET AC WITH A NON-ZERO NUMBER
   957	030762	270 00 0 00 035412 		ADD	[0]		;*ADD OF A WORD OF ALL ZEROS TO AN AC CONTAINING
   958									;A NON-ZERO NUMBER
   959									;SHOULD RESULT IN AN AC CONTAINING A NON-ZERO NUMBER
   960	030763	336 00 0 00 000000 		SKIPN			;PASS TEST IS C(AC) IS NON-ZERO
   961						STOP^
   962	030764	254 04 0 00 030765 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   963	030765	324 00 0 00 030766 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   964									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
   965									;IN THE SUBTEST) TO LOOP ON ERROR^
   966
   967					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 4
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0030

   968					;THIS TEST VERIFIES THAT WHEN THE ADD INSTRUCTION IS USED TO ADD
   969					;A WORD CONTAINING A NON-ZERO POSITIVE NUMBER TO AN AC OF ALL ZEROS, THE
   970					;RESULT IS A NON-ZERO POSITIVE NUMBER IN THE AC.  FIRST, THE AC IS
   971					;INITIALIZED WITH A WORD OF ALL ZEROS ;THEN, A NON-ZERO POSITIVE NUMBER
   972					;IS ADDED TO THE AC.  THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
   973
   974	030766	200 00 0 00 035412 	A13300:	MOVE	[0]		;PRESET AC WITH ALL ZEROS
   975	030767	270 00 0 00 035414 		ADD	[123456,,0]	;*ADD OF A NON-ZERO NUMBER TO AN AC CONTAINING ALL ZEROS
   976									;SHOULD RESULT IN AN AC CONTAINING A NON-ZERO NUMBER
   977	030770	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) IS NON-ZERO
   978						STOP^
   979	030771	254 04 0 00 030772 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   980	030772	324 00 0 00 030773 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   981									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
   982									;IN THE SUBTEST) TO LOOP ON ERROR^
   983
   984					;**********
   985
   986					;THIS TEST VERIFIES THAT WHEN THE ADD INSTRUCTION IS USED TO ADD
   987					;A WORD CONTAINING A NON-ZERO POSITIVE NUMBER TO AN AC OF ALL ZEROS, THE
   988					;RESULT IS A NON-ZERO POSITIVE NUMBER IN THE AC.  FIRST, THE AC IS
   989					;INITIALIZED WITH A WORD OF ALL ZEROS ;THEN, A NON-ZERO POSITIVE NUMBER
   990					;IS ADDED TO THE AC.  THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
   991
   992	030773	200 00 0 00 035412 	A13400:	MOVE	[0]		;PRESET AC WITH ALL ZEROS
   993	030774	270 00 0 00 035415 		ADD	[123456]	;*ADD OF A NON-ZERO NUMBER TO AN AC CONTAINING ALL ZEROS
   994									;SHOULD RESULT IN AN AC CONTAINING A NON-ZERO NUMBER
   995	030775	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) IS NON-ZERO
   996						STOP^
   997	030776	254 04 0 00 030777 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   998	030777	324 00 0 00 031000 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   999									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1000									;IN THE SUBTEST) TO LOOP ON ERROR^
  1001
  1002					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0031

  1003					;ADD ZERO TO A RIPPLED ONE
  1004
  1005			011000		SN=11000
  1006			000000			ZZ=0
  1007
  1008					A11000:	REPEAT	^D36,
  1009					<;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1010					;A WORD OF ALL ZEROS IS ADDED TO AN
  1011					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1012					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1013					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1014					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1015					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1016					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1017					;EVERY BIT OF THE AC.
  1018					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1019					SN=SN+1
  1020						ZZ=ZZ+ZZ
  1021						IFE	ZZ,<ZZ=1>
  1022						MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1023						ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1024						EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1025						EQV	[0]		;RESULTS IN C(AC)=0
  1026						SKIPE			;PASS TEST IF C(AC)=0
  1027						STOP
  1028					
  1029					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1030					;IR ADDX [IR1], IR ADSUB [IR1]
  1031					
  1032					;**********
  1033					PAGE
  1034					>
  1035					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1036					;A WORD OF ALL ZEROS IS ADDED TO AN
  1037					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1038					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1039					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1040					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1041					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1042					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1043					;EVERY BIT OF THE AC.
  1044					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1045			011001		SN=SN+1
  1046			000000			ZZ=ZZ+ZZ
  1047			000001			IFE	ZZ,<ZZ=1>
  1048	031000	200 00 0 00 035416 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1049	031001	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1050	031002	444 00 0 00 035416 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1051	031003	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1052	031004	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1053						STOP^
  1054	031005	254 04 0 00 031006 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1055	031006	324 00 0 00 031007 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1056									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1057									;IN THE SUBTEST) TO LOOP ON ERROR^
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-1
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0032

  1058
  1059					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1060					;IR ADDX [IR1], IR ADSUB [IR1]
  1061
  1062					;**********
  1063					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-2
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0033

  1064
  1065					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1066					;A WORD OF ALL ZEROS IS ADDED TO AN
  1067					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1068					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1069					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1070					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1071					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1072					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1073					;EVERY BIT OF THE AC.
  1074					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1075			011002		SN=SN+1
  1076			000002			ZZ=ZZ+ZZ
  1077						IFE	ZZ,<ZZ=1>
  1078	031007	200 00 0 00 035417 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1079	031010	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1080	031011	444 00 0 00 035417 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1081	031012	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1082	031013	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1083						STOP^
  1084	031014	254 04 0 00 031015 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1085	031015	324 00 0 00 031016 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1086									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1087									;IN THE SUBTEST) TO LOOP ON ERROR^
  1088
  1089					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1090					;IR ADDX [IR1], IR ADSUB [IR1]
  1091
  1092					;**********
  1093					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-3
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0034

  1094
  1095					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1096					;A WORD OF ALL ZEROS IS ADDED TO AN
  1097					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1098					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1099					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1100					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1101					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1102					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1103					;EVERY BIT OF THE AC.
  1104					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1105			011003		SN=SN+1
  1106			000004			ZZ=ZZ+ZZ
  1107						IFE	ZZ,<ZZ=1>
  1108	031016	200 00 0 00 035420 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1109	031017	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1110	031020	444 00 0 00 035420 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1111	031021	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1112	031022	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1113						STOP^
  1114	031023	254 04 0 00 031024 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1115	031024	324 00 0 00 031025 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1116									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1117									;IN THE SUBTEST) TO LOOP ON ERROR^
  1118
  1119					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1120					;IR ADDX [IR1], IR ADSUB [IR1]
  1121
  1122					;**********
  1123					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-4
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0035

  1124
  1125					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1126					;A WORD OF ALL ZEROS IS ADDED TO AN
  1127					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1128					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1129					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1130					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1131					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1132					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1133					;EVERY BIT OF THE AC.
  1134					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1135			011004		SN=SN+1
  1136			000010			ZZ=ZZ+ZZ
  1137						IFE	ZZ,<ZZ=1>
  1138	031025	200 00 0 00 035421 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1139	031026	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1140	031027	444 00 0 00 035421 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1141	031030	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1142	031031	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1143						STOP^
  1144	031032	254 04 0 00 031033 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1145	031033	324 00 0 00 031034 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1146									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1147									;IN THE SUBTEST) TO LOOP ON ERROR^
  1148
  1149					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1150					;IR ADDX [IR1], IR ADSUB [IR1]
  1151
  1152					;**********
  1153					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-5
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0036

  1154
  1155					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1156					;A WORD OF ALL ZEROS IS ADDED TO AN
  1157					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1158					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1159					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1160					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1161					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1162					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1163					;EVERY BIT OF THE AC.
  1164					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1165			011005		SN=SN+1
  1166			000020			ZZ=ZZ+ZZ
  1167						IFE	ZZ,<ZZ=1>
  1168	031034	200 00 0 00 035422 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1169	031035	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1170	031036	444 00 0 00 035422 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1171	031037	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1172	031040	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1173						STOP^
  1174	031041	254 04 0 00 031042 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1175	031042	324 00 0 00 031043 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1176									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1177									;IN THE SUBTEST) TO LOOP ON ERROR^
  1178
  1179					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1180					;IR ADDX [IR1], IR ADSUB [IR1]
  1181
  1182					;**********
  1183					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-6
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0037

  1184
  1185					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1186					;A WORD OF ALL ZEROS IS ADDED TO AN
  1187					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1188					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1189					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1190					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1191					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1192					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1193					;EVERY BIT OF THE AC.
  1194					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1195			011006		SN=SN+1
  1196			000040			ZZ=ZZ+ZZ
  1197						IFE	ZZ,<ZZ=1>
  1198	031043	200 00 0 00 035423 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1199	031044	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1200	031045	444 00 0 00 035423 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1201	031046	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1202	031047	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1203						STOP^
  1204	031050	254 04 0 00 031051 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1205	031051	324 00 0 00 031052 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1206									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1207									;IN THE SUBTEST) TO LOOP ON ERROR^
  1208
  1209					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1210					;IR ADDX [IR1], IR ADSUB [IR1]
  1211
  1212					;**********
  1213					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-7
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0038

  1214
  1215					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1216					;A WORD OF ALL ZEROS IS ADDED TO AN
  1217					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1218					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1219					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1220					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1221					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1222					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1223					;EVERY BIT OF THE AC.
  1224					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1225			011007		SN=SN+1
  1226			000100			ZZ=ZZ+ZZ
  1227						IFE	ZZ,<ZZ=1>
  1228	031052	200 00 0 00 035424 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1229	031053	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1230	031054	444 00 0 00 035424 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1231	031055	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1232	031056	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1233						STOP^
  1234	031057	254 04 0 00 031060 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1235	031060	324 00 0 00 031061 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1236									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1237									;IN THE SUBTEST) TO LOOP ON ERROR^
  1238
  1239					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1240					;IR ADDX [IR1], IR ADSUB [IR1]
  1241
  1242					;**********
  1243					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-8
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0039

  1244
  1245					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1246					;A WORD OF ALL ZEROS IS ADDED TO AN
  1247					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1248					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1249					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1250					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1251					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1252					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1253					;EVERY BIT OF THE AC.
  1254					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1255			011010		SN=SN+1
  1256			000200			ZZ=ZZ+ZZ
  1257						IFE	ZZ,<ZZ=1>
  1258	031061	200 00 0 00 035425 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1259	031062	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1260	031063	444 00 0 00 035425 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1261	031064	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1262	031065	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1263						STOP^
  1264	031066	254 04 0 00 031067 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1265	031067	324 00 0 00 031070 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1266									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1267									;IN THE SUBTEST) TO LOOP ON ERROR^
  1268
  1269					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1270					;IR ADDX [IR1], IR ADSUB [IR1]
  1271
  1272					;**********
  1273					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-9
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0040

  1274
  1275					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1276					;A WORD OF ALL ZEROS IS ADDED TO AN
  1277					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1278					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1279					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1280					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1281					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1282					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1283					;EVERY BIT OF THE AC.
  1284					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1285			011011		SN=SN+1
  1286			000400			ZZ=ZZ+ZZ
  1287						IFE	ZZ,<ZZ=1>
  1288	031070	200 00 0 00 035426 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1289	031071	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1290	031072	444 00 0 00 035426 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1291	031073	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1292	031074	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1293						STOP^
  1294	031075	254 04 0 00 031076 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1295	031076	324 00 0 00 031077 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1296									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1297									;IN THE SUBTEST) TO LOOP ON ERROR^
  1298
  1299					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1300					;IR ADDX [IR1], IR ADSUB [IR1]
  1301
  1302					;**********
  1303					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-10
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0041

  1304
  1305					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1306					;A WORD OF ALL ZEROS IS ADDED TO AN
  1307					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1308					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1309					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1310					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1311					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1312					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1313					;EVERY BIT OF THE AC.
  1314					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1315			011012		SN=SN+1
  1316			001000			ZZ=ZZ+ZZ
  1317						IFE	ZZ,<ZZ=1>
  1318	031077	200 00 0 00 035427 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1319	031100	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1320	031101	444 00 0 00 035427 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1321	031102	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1322	031103	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1323						STOP^
  1324	031104	254 04 0 00 031105 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1325	031105	324 00 0 00 031106 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1326									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1327									;IN THE SUBTEST) TO LOOP ON ERROR^
  1328
  1329					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1330					;IR ADDX [IR1], IR ADSUB [IR1]
  1331
  1332					;**********
  1333					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-11
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0042

  1334
  1335					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1336					;A WORD OF ALL ZEROS IS ADDED TO AN
  1337					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1338					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1339					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1340					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1341					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1342					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1343					;EVERY BIT OF THE AC.
  1344					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1345			011013		SN=SN+1
  1346			002000			ZZ=ZZ+ZZ
  1347						IFE	ZZ,<ZZ=1>
  1348	031106	200 00 0 00 035430 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1349	031107	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1350	031110	444 00 0 00 035430 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1351	031111	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1352	031112	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1353						STOP^
  1354	031113	254 04 0 00 031114 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1355	031114	324 00 0 00 031115 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1356									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1357									;IN THE SUBTEST) TO LOOP ON ERROR^
  1358
  1359					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1360					;IR ADDX [IR1], IR ADSUB [IR1]
  1361
  1362					;**********
  1363					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-12
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0043

  1364
  1365					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1366					;A WORD OF ALL ZEROS IS ADDED TO AN
  1367					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1368					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1369					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1370					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1371					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1372					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1373					;EVERY BIT OF THE AC.
  1374					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1375			011014		SN=SN+1
  1376			004000			ZZ=ZZ+ZZ
  1377						IFE	ZZ,<ZZ=1>
  1378	031115	200 00 0 00 035431 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1379	031116	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1380	031117	444 00 0 00 035431 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1381	031120	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1382	031121	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1383						STOP^
  1384	031122	254 04 0 00 031123 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1385	031123	324 00 0 00 031124 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1386									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1387									;IN THE SUBTEST) TO LOOP ON ERROR^
  1388
  1389					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1390					;IR ADDX [IR1], IR ADSUB [IR1]
  1391
  1392					;**********
  1393					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-13
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0044

  1394
  1395					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1396					;A WORD OF ALL ZEROS IS ADDED TO AN
  1397					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1398					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1399					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1400					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1401					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1402					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1403					;EVERY BIT OF THE AC.
  1404					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1405			011015		SN=SN+1
  1406			010000			ZZ=ZZ+ZZ
  1407						IFE	ZZ,<ZZ=1>
  1408	031124	200 00 0 00 035432 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1409	031125	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1410	031126	444 00 0 00 035432 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1411	031127	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1412	031130	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1413						STOP^
  1414	031131	254 04 0 00 031132 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1415	031132	324 00 0 00 031133 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1416									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1417									;IN THE SUBTEST) TO LOOP ON ERROR^
  1418
  1419					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1420					;IR ADDX [IR1], IR ADSUB [IR1]
  1421
  1422					;**********
  1423					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-14
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0045

  1424
  1425					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1426					;A WORD OF ALL ZEROS IS ADDED TO AN
  1427					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1428					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1429					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1430					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1431					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1432					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1433					;EVERY BIT OF THE AC.
  1434					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1435			011016		SN=SN+1
  1436			020000			ZZ=ZZ+ZZ
  1437						IFE	ZZ,<ZZ=1>
  1438	031133	200 00 0 00 035433 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1439	031134	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1440	031135	444 00 0 00 035433 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1441	031136	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1442	031137	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1443						STOP^
  1444	031140	254 04 0 00 031141 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1445	031141	324 00 0 00 031142 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1446									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1447									;IN THE SUBTEST) TO LOOP ON ERROR^
  1448
  1449					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1450					;IR ADDX [IR1], IR ADSUB [IR1]
  1451
  1452					;**********
  1453					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-15
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0046

  1454
  1455					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1456					;A WORD OF ALL ZEROS IS ADDED TO AN
  1457					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1458					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1459					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1460					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1461					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1462					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1463					;EVERY BIT OF THE AC.
  1464					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1465			011017		SN=SN+1
  1466			040000			ZZ=ZZ+ZZ
  1467						IFE	ZZ,<ZZ=1>
  1468	031142	200 00 0 00 035434 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1469	031143	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1470	031144	444 00 0 00 035434 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1471	031145	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1472	031146	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1473						STOP^
  1474	031147	254 04 0 00 031150 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1475	031150	324 00 0 00 031151 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1476									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1477									;IN THE SUBTEST) TO LOOP ON ERROR^
  1478
  1479					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1480					;IR ADDX [IR1], IR ADSUB [IR1]
  1481
  1482					;**********
  1483					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-16
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0047

  1484
  1485					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1486					;A WORD OF ALL ZEROS IS ADDED TO AN
  1487					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1488					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1489					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1490					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1491					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1492					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1493					;EVERY BIT OF THE AC.
  1494					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1495			011020		SN=SN+1
  1496			100000			ZZ=ZZ+ZZ
  1497						IFE	ZZ,<ZZ=1>
  1498	031151	200 00 0 00 035435 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1499	031152	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1500	031153	444 00 0 00 035435 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1501	031154	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1502	031155	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1503						STOP^
  1504	031156	254 04 0 00 031157 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1505	031157	324 00 0 00 031160 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1506									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1507									;IN THE SUBTEST) TO LOOP ON ERROR^
  1508
  1509					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1510					;IR ADDX [IR1], IR ADSUB [IR1]
  1511
  1512					;**********
  1513					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-17
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0048

  1514
  1515					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1516					;A WORD OF ALL ZEROS IS ADDED TO AN
  1517					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1518					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1519					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1520					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1521					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1522					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1523					;EVERY BIT OF THE AC.
  1524					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1525			011021		SN=SN+1
  1526			200000			ZZ=ZZ+ZZ
  1527						IFE	ZZ,<ZZ=1>
  1528	031160	200 00 0 00 035436 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1529	031161	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1530	031162	444 00 0 00 035436 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1531	031163	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1532	031164	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1533						STOP^
  1534	031165	254 04 0 00 031166 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1535	031166	324 00 0 00 031167 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1536									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1537									;IN THE SUBTEST) TO LOOP ON ERROR^
  1538
  1539					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1540					;IR ADDX [IR1], IR ADSUB [IR1]
  1541
  1542					;**********
  1543					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-18
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0049

  1544
  1545					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1546					;A WORD OF ALL ZEROS IS ADDED TO AN
  1547					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1548					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1549					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1550					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1551					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1552					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1553					;EVERY BIT OF THE AC.
  1554					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1555			011022		SN=SN+1
  1556			400000			ZZ=ZZ+ZZ
  1557						IFE	ZZ,<ZZ=1>
  1558	031167	200 00 0 00 035437 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1559	031170	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1560	031171	444 00 0 00 035437 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1561	031172	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1562	031173	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1563						STOP^
  1564	031174	254 04 0 00 031175 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1565	031175	324 00 0 00 031176 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1566									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1567									;IN THE SUBTEST) TO LOOP ON ERROR^
  1568
  1569					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1570					;IR ADDX [IR1], IR ADSUB [IR1]
  1571
  1572					;**********
  1573					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-19
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0050

  1574
  1575					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1576					;A WORD OF ALL ZEROS IS ADDED TO AN
  1577					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1578					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1579					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1580					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1581					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1582					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1583					;EVERY BIT OF THE AC.
  1584					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1585			011023		SN=SN+1
  1586		000001	000000			ZZ=ZZ+ZZ
  1587						IFE	ZZ,<ZZ=1>
  1588	031176	200 00 0 00 035440 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1589	031177	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1590	031200	444 00 0 00 035440 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1591	031201	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1592	031202	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1593						STOP^
  1594	031203	254 04 0 00 031204 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1595	031204	324 00 0 00 031205 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1596									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1597									;IN THE SUBTEST) TO LOOP ON ERROR^
  1598
  1599					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1600					;IR ADDX [IR1], IR ADSUB [IR1]
  1601
  1602					;**********
  1603					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-20
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0051

  1604
  1605					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1606					;A WORD OF ALL ZEROS IS ADDED TO AN
  1607					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1608					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1609					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1610					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1611					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1612					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1613					;EVERY BIT OF THE AC.
  1614					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1615			011024		SN=SN+1
  1616		000002	000000			ZZ=ZZ+ZZ
  1617						IFE	ZZ,<ZZ=1>
  1618	031205	200 00 0 00 035441 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1619	031206	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1620	031207	444 00 0 00 035441 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1621	031210	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1622	031211	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1623						STOP^
  1624	031212	254 04 0 00 031213 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1625	031213	324 00 0 00 031214 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1626									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1627									;IN THE SUBTEST) TO LOOP ON ERROR^
  1628
  1629					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1630					;IR ADDX [IR1], IR ADSUB [IR1]
  1631
  1632					;**********
  1633					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-21
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0052

  1634
  1635					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1636					;A WORD OF ALL ZEROS IS ADDED TO AN
  1637					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1638					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1639					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1640					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1641					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1642					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1643					;EVERY BIT OF THE AC.
  1644					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1645			011025		SN=SN+1
  1646		000004	000000			ZZ=ZZ+ZZ
  1647						IFE	ZZ,<ZZ=1>
  1648	031214	200 00 0 00 035442 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1649	031215	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1650	031216	444 00 0 00 035442 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1651	031217	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1652	031220	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1653						STOP^
  1654	031221	254 04 0 00 031222 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1655	031222	324 00 0 00 031223 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1656									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1657									;IN THE SUBTEST) TO LOOP ON ERROR^
  1658
  1659					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1660					;IR ADDX [IR1], IR ADSUB [IR1]
  1661
  1662					;**********
  1663					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-22
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0053

  1664
  1665					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1666					;A WORD OF ALL ZEROS IS ADDED TO AN
  1667					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1668					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1669					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1670					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1671					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1672					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1673					;EVERY BIT OF THE AC.
  1674					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1675			011026		SN=SN+1
  1676		000010	000000			ZZ=ZZ+ZZ
  1677						IFE	ZZ,<ZZ=1>
  1678	031223	200 00 0 00 035443 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1679	031224	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1680	031225	444 00 0 00 035443 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1681	031226	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1682	031227	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1683						STOP^
  1684	031230	254 04 0 00 031231 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1685	031231	324 00 0 00 031232 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1686									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1687									;IN THE SUBTEST) TO LOOP ON ERROR^
  1688
  1689					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1690					;IR ADDX [IR1], IR ADSUB [IR1]
  1691
  1692					;**********
  1693					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-23
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0054

  1694
  1695					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1696					;A WORD OF ALL ZEROS IS ADDED TO AN
  1697					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1698					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1699					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1700					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1701					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1702					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1703					;EVERY BIT OF THE AC.
  1704					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1705			011027		SN=SN+1
  1706		000020	000000			ZZ=ZZ+ZZ
  1707						IFE	ZZ,<ZZ=1>
  1708	031232	200 00 0 00 035444 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1709	031233	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1710	031234	444 00 0 00 035444 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1711	031235	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1712	031236	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1713						STOP^
  1714	031237	254 04 0 00 031240 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1715	031240	324 00 0 00 031241 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1716									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1717									;IN THE SUBTEST) TO LOOP ON ERROR^
  1718
  1719					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1720					;IR ADDX [IR1], IR ADSUB [IR1]
  1721
  1722					;**********
  1723					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-24
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0055

  1724
  1725					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1726					;A WORD OF ALL ZEROS IS ADDED TO AN
  1727					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1728					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1729					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1730					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1731					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1732					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1733					;EVERY BIT OF THE AC.
  1734					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1735			011030		SN=SN+1
  1736		000040	000000			ZZ=ZZ+ZZ
  1737						IFE	ZZ,<ZZ=1>
  1738	031241	200 00 0 00 035445 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1739	031242	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1740	031243	444 00 0 00 035445 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1741	031244	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1742	031245	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1743						STOP^
  1744	031246	254 04 0 00 031247 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1745	031247	324 00 0 00 031250 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1746									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1747									;IN THE SUBTEST) TO LOOP ON ERROR^
  1748
  1749					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1750					;IR ADDX [IR1], IR ADSUB [IR1]
  1751
  1752					;**********
  1753					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-25
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0056

  1754
  1755					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1756					;A WORD OF ALL ZEROS IS ADDED TO AN
  1757					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1758					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1759					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1760					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1761					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1762					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1763					;EVERY BIT OF THE AC.
  1764					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1765			011031		SN=SN+1
  1766		000100	000000			ZZ=ZZ+ZZ
  1767						IFE	ZZ,<ZZ=1>
  1768	031250	200 00 0 00 035446 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1769	031251	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1770	031252	444 00 0 00 035446 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1771	031253	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1772	031254	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1773						STOP^
  1774	031255	254 04 0 00 031256 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1775	031256	324 00 0 00 031257 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1776									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1777									;IN THE SUBTEST) TO LOOP ON ERROR^
  1778
  1779					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1780					;IR ADDX [IR1], IR ADSUB [IR1]
  1781
  1782					;**********
  1783					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-26
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0057

  1784
  1785					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1786					;A WORD OF ALL ZEROS IS ADDED TO AN
  1787					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1788					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1789					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1790					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1791					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1792					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1793					;EVERY BIT OF THE AC.
  1794					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1795			011032		SN=SN+1
  1796		000200	000000			ZZ=ZZ+ZZ
  1797						IFE	ZZ,<ZZ=1>
  1798	031257	200 00 0 00 035447 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1799	031260	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1800	031261	444 00 0 00 035447 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1801	031262	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1802	031263	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1803						STOP^
  1804	031264	254 04 0 00 031265 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1805	031265	324 00 0 00 031266 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1806									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1807									;IN THE SUBTEST) TO LOOP ON ERROR^
  1808
  1809					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1810					;IR ADDX [IR1], IR ADSUB [IR1]
  1811
  1812					;**********
  1813					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-27
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0058

  1814
  1815					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1816					;A WORD OF ALL ZEROS IS ADDED TO AN
  1817					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1818					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1819					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1820					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1821					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1822					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1823					;EVERY BIT OF THE AC.
  1824					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1825			011033		SN=SN+1
  1826		000400	000000			ZZ=ZZ+ZZ
  1827						IFE	ZZ,<ZZ=1>
  1828	031266	200 00 0 00 035450 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1829	031267	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1830	031270	444 00 0 00 035450 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1831	031271	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1832	031272	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1833						STOP^
  1834	031273	254 04 0 00 031274 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1835	031274	324 00 0 00 031275 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1836									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1837									;IN THE SUBTEST) TO LOOP ON ERROR^
  1838
  1839					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1840					;IR ADDX [IR1], IR ADSUB [IR1]
  1841
  1842					;**********
  1843					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-28
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0059

  1844
  1845					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1846					;A WORD OF ALL ZEROS IS ADDED TO AN
  1847					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1848					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1849					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1850					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1851					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1852					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1853					;EVERY BIT OF THE AC.
  1854					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1855			011034		SN=SN+1
  1856		001000	000000			ZZ=ZZ+ZZ
  1857						IFE	ZZ,<ZZ=1>
  1858	031275	200 00 0 00 035451 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1859	031276	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1860	031277	444 00 0 00 035451 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1861	031300	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1862	031301	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1863						STOP^
  1864	031302	254 04 0 00 031303 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1865	031303	324 00 0 00 031304 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1866									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1867									;IN THE SUBTEST) TO LOOP ON ERROR^
  1868
  1869					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1870					;IR ADDX [IR1], IR ADSUB [IR1]
  1871
  1872					;**********
  1873					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-29
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0060

  1874
  1875					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1876					;A WORD OF ALL ZEROS IS ADDED TO AN
  1877					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1878					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1879					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1880					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1881					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1882					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1883					;EVERY BIT OF THE AC.
  1884					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1885			011035		SN=SN+1
  1886		002000	000000			ZZ=ZZ+ZZ
  1887						IFE	ZZ,<ZZ=1>
  1888	031304	200 00 0 00 035452 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1889	031305	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1890	031306	444 00 0 00 035452 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1891	031307	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1892	031310	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1893						STOP^
  1894	031311	254 04 0 00 031312 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1895	031312	324 00 0 00 031313 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1896									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1897									;IN THE SUBTEST) TO LOOP ON ERROR^
  1898
  1899					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1900					;IR ADDX [IR1], IR ADSUB [IR1]
  1901
  1902					;**********
  1903					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-30
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0061

  1904
  1905					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1906					;A WORD OF ALL ZEROS IS ADDED TO AN
  1907					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1908					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1909					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1910					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1911					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1912					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1913					;EVERY BIT OF THE AC.
  1914					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1915			011036		SN=SN+1
  1916		004000	000000			ZZ=ZZ+ZZ
  1917						IFE	ZZ,<ZZ=1>
  1918	031313	200 00 0 00 035453 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1919	031314	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1920	031315	444 00 0 00 035453 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1921	031316	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1922	031317	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1923						STOP^
  1924	031320	254 04 0 00 031321 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1925	031321	324 00 0 00 031322 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1926									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1927									;IN THE SUBTEST) TO LOOP ON ERROR^
  1928
  1929					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1930					;IR ADDX [IR1], IR ADSUB [IR1]
  1931
  1932					;**********
  1933					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-31
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0062

  1934
  1935					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1936					;A WORD OF ALL ZEROS IS ADDED TO AN
  1937					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1938					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1939					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1940					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1941					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1942					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1943					;EVERY BIT OF THE AC.
  1944					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1945			011037		SN=SN+1
  1946		010000	000000			ZZ=ZZ+ZZ
  1947						IFE	ZZ,<ZZ=1>
  1948	031322	200 00 0 00 035454 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1949	031323	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1950	031324	444 00 0 00 035454 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1951	031325	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1952	031326	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1953						STOP^
  1954	031327	254 04 0 00 031330 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1955	031330	324 00 0 00 031331 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1956									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1957									;IN THE SUBTEST) TO LOOP ON ERROR^
  1958
  1959					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1960					;IR ADDX [IR1], IR ADSUB [IR1]
  1961
  1962					;**********
  1963					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-32
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0063

  1964
  1965					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1966					;A WORD OF ALL ZEROS IS ADDED TO AN
  1967					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1968					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1969					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  1970					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  1971					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  1972					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  1973					;EVERY BIT OF THE AC.
  1974					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  1975			011040		SN=SN+1
  1976		020000	000000			ZZ=ZZ+ZZ
  1977						IFE	ZZ,<ZZ=1>
  1978	031331	200 00 0 00 035455 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  1979	031332	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  1980	031333	444 00 0 00 035455 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  1981	031334	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  1982	031335	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  1983						STOP^
  1984	031336	254 04 0 00 031337 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1985	031337	324 00 0 00 031340 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1986									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  1987									;IN THE SUBTEST) TO LOOP ON ERROR^
  1988
  1989					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1990					;IR ADDX [IR1], IR ADSUB [IR1]
  1991
  1992					;**********
  1993					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-33
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0064

  1994
  1995					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  1996					;A WORD OF ALL ZEROS IS ADDED TO AN
  1997					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  1998					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  1999					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2000					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2001					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2002					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2003					;EVERY BIT OF THE AC.
  2004					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2005			011041		SN=SN+1
  2006		040000	000000			ZZ=ZZ+ZZ
  2007						IFE	ZZ,<ZZ=1>
  2008	031340	200 00 0 00 035456 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  2009	031341	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  2010	031342	444 00 0 00 035456 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2011	031343	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2012	031344	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2013						STOP^
  2014	031345	254 04 0 00 031346 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2015	031346	324 00 0 00 031347 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2016									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2017									;IN THE SUBTEST) TO LOOP ON ERROR^
  2018
  2019					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  2020					;IR ADDX [IR1], IR ADSUB [IR1]
  2021
  2022					;**********
  2023					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-34
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0065

  2024
  2025					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2026					;A WORD OF ALL ZEROS IS ADDED TO AN
  2027					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2028					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  2029					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2030					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2031					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2032					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2033					;EVERY BIT OF THE AC.
  2034					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2035			011042		SN=SN+1
  2036		100000	000000			ZZ=ZZ+ZZ
  2037						IFE	ZZ,<ZZ=1>
  2038	031347	200 00 0 00 035457 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  2039	031350	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  2040	031351	444 00 0 00 035457 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2041	031352	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2042	031353	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2043						STOP^
  2044	031354	254 04 0 00 031355 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2045	031355	324 00 0 00 031356 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2046									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2047									;IN THE SUBTEST) TO LOOP ON ERROR^
  2048
  2049					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  2050					;IR ADDX [IR1], IR ADSUB [IR1]
  2051
  2052					;**********
  2053					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-35
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0066

  2054
  2055					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2056					;A WORD OF ALL ZEROS IS ADDED TO AN
  2057					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2058					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  2059					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2060					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2061					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2062					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2063					;EVERY BIT OF THE AC.
  2064					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2065			011043		SN=SN+1
  2066		200000	000000			ZZ=ZZ+ZZ
  2067						IFE	ZZ,<ZZ=1>
  2068	031356	200 00 0 00 035460 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  2069	031357	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  2070	031360	444 00 0 00 035460 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2071	031361	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2072	031362	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2073						STOP^
  2074	031363	254 04 0 00 031364 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2075	031364	324 00 0 00 031365 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2076									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2077									;IN THE SUBTEST) TO LOOP ON ERROR^
  2078
  2079					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  2080					;IR ADDX [IR1], IR ADSUB [IR1]
  2081
  2082					;**********
  2083					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-36
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0067

  2084
  2085					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2086					;A WORD OF ALL ZEROS IS ADDED TO AN
  2087					;AC CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2088					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS IN IT ORIGINALLY.
  2089					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2090					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2091					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2092					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2093					;EVERY BIT OF THE AC.
  2094					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2095			011044		SN=SN+1
  2096		400000	000000			ZZ=ZZ+ZZ
  2097						IFE	ZZ,<ZZ=1>
  2098	031365	200 00 0 00 035461 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  2099	031366	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO FLOATING ONE
  2100	031367	444 00 0 00 035461 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2101	031370	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2102	031371	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2103						STOP^
  2104	031372	254 04 0 00 031373 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2105	031373	324 00 0 00 031374 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2106									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2107									;IN THE SUBTEST) TO LOOP ON ERROR^
  2108
  2109					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  2110					;IR ADDX [IR1], IR ADSUB [IR1]
  2111
  2112					;**********
  2113					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 5-37
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0068

  2114
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 6
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0069

  2115					;THIS TEST VERIFIES THAT THE ADDITION OF A WORD OF 
  2116					;ALL ZEROS TO AN AC OF ALL ZEROS RESULTS IN
  2117					;C(AC)=0. FIRST THE AC IS CLEARED; THEN, A WORD
  2118					;OF ALL ZEROS IS ADDED TO THE AC. THE RESULT IN
  2119					;THE AC IS THEN CHECKED TO INSURE THAT C(AC)=0
  2120
  2121	031374	200 00 0 00 035412 	A11100:	MOVE	[0]		;PRESET AC TO ZERO
  2122	031375	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO ZERO SHOULD RESULT IN C(AC)=0
  2123	031376	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2124						STOP^
  2125	031377	254 04 0 00 031400 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2126	031400	324 00 0 00 031401 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2127									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2128									;IN THE SUBTEST) TO LOOP ON ERROR^
  2129
  2130					;FCE[F1], IR AD SUB [IR1]
  2131					;AD FM + EN [ADFP], AD FM + EN A [ADFP],
  2132					;F CYC ACT EN C[F1], IR ADSUB [IR1]
  2133
  2134					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0070

  2135					;ADD ZERO TO A RIPPLED ONE
  2136
  2137			013200		SN=13200
  2138			000000			ZZ=0
  2139
  2140					A13200:	REPEAT	^D36,
  2141					<;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2142					;TO AN AC  OF ALL ZEROS IS ADDED A
  2143					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2144					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2145					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2146					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2147					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2148					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2149					;EVERY BIT OF THE AC.
  2150					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2151					SN=SN+1
  2152						ZZ=ZZ+ZZ
  2153						IFE	ZZ,<ZZ=1>
  2154						MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2155						ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2156						EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2157						EQV	[0]		;RESULTS IN C(AC)=0
  2158						SKIPE			;PASS TEST IF C(AC)=0
  2159						STOP
  2160					
  2161					;**********
  2162					>
  2163					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2164					;TO AN AC  OF ALL ZEROS IS ADDED A
  2165					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2166					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2167					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2168					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2169					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2170					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2171					;EVERY BIT OF THE AC.
  2172					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2173			013201		SN=SN+1
  2174			000000			ZZ=ZZ+ZZ
  2175			000001			IFE	ZZ,<ZZ=1>
  2176	031401	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2177	031402	270 00 0 00 035416 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2178	031403	444 00 0 00 035416 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2179	031404	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2180	031405	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2181						STOP^
  2182	031406	254 04 0 00 031407 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2183	031407	324 00 0 00 031410 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2184									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2185									;IN THE SUBTEST) TO LOOP ON ERROR^
  2186
  2187					;**********
  2188
  2189					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-1
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0071

  2190					;TO AN AC  OF ALL ZEROS IS ADDED A
  2191					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2192					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2193					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2194					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2195					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2196					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2197					;EVERY BIT OF THE AC.
  2198					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2199			013202		SN=SN+1
  2200			000002			ZZ=ZZ+ZZ
  2201						IFE	ZZ,<ZZ=1>
  2202	031410	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2203	031411	270 00 0 00 035417 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2204	031412	444 00 0 00 035417 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2205	031413	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2206	031414	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2207						STOP^
  2208	031415	254 04 0 00 031416 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2209	031416	324 00 0 00 031417 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2210									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2211									;IN THE SUBTEST) TO LOOP ON ERROR^
  2212
  2213					;**********
  2214
  2215					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2216					;TO AN AC  OF ALL ZEROS IS ADDED A
  2217					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2218					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2219					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2220					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2221					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2222					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2223					;EVERY BIT OF THE AC.
  2224					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2225			013203		SN=SN+1
  2226			000004			ZZ=ZZ+ZZ
  2227						IFE	ZZ,<ZZ=1>
  2228	031417	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2229	031420	270 00 0 00 035420 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2230	031421	444 00 0 00 035420 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2231	031422	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2232	031423	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2233						STOP^
  2234	031424	254 04 0 00 031425 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2235	031425	324 00 0 00 031426 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2236									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2237									;IN THE SUBTEST) TO LOOP ON ERROR^
  2238
  2239					;**********
  2240
  2241					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2242					;TO AN AC  OF ALL ZEROS IS ADDED A
  2243					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2244					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-2
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0072

  2245					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2246					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2247					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2248					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2249					;EVERY BIT OF THE AC.
  2250					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2251			013204		SN=SN+1
  2252			000010			ZZ=ZZ+ZZ
  2253						IFE	ZZ,<ZZ=1>
  2254	031426	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2255	031427	270 00 0 00 035421 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2256	031430	444 00 0 00 035421 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2257	031431	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2258	031432	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2259						STOP^
  2260	031433	254 04 0 00 031434 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2261	031434	324 00 0 00 031435 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2262									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2263									;IN THE SUBTEST) TO LOOP ON ERROR^
  2264
  2265					;**********
  2266
  2267					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2268					;TO AN AC  OF ALL ZEROS IS ADDED A
  2269					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2270					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2271					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2272					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2273					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2274					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2275					;EVERY BIT OF THE AC.
  2276					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2277			013205		SN=SN+1
  2278			000020			ZZ=ZZ+ZZ
  2279						IFE	ZZ,<ZZ=1>
  2280	031435	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2281	031436	270 00 0 00 035422 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2282	031437	444 00 0 00 035422 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2283	031440	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2284	031441	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2285						STOP^
  2286	031442	254 04 0 00 031443 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2287	031443	324 00 0 00 031444 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2288									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2289									;IN THE SUBTEST) TO LOOP ON ERROR^
  2290
  2291					;**********
  2292
  2293					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2294					;TO AN AC  OF ALL ZEROS IS ADDED A
  2295					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2296					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2297					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2298					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2299					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-3
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0073

  2300					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2301					;EVERY BIT OF THE AC.
  2302					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2303			013206		SN=SN+1
  2304			000040			ZZ=ZZ+ZZ
  2305						IFE	ZZ,<ZZ=1>
  2306	031444	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2307	031445	270 00 0 00 035423 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2308	031446	444 00 0 00 035423 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2309	031447	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2310	031450	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2311						STOP^
  2312	031451	254 04 0 00 031452 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2313	031452	324 00 0 00 031453 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2314									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2315									;IN THE SUBTEST) TO LOOP ON ERROR^
  2316
  2317					;**********
  2318
  2319					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2320					;TO AN AC  OF ALL ZEROS IS ADDED A
  2321					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2322					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2323					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2324					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2325					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2326					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2327					;EVERY BIT OF THE AC.
  2328					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2329			013207		SN=SN+1
  2330			000100			ZZ=ZZ+ZZ
  2331						IFE	ZZ,<ZZ=1>
  2332	031453	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2333	031454	270 00 0 00 035424 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2334	031455	444 00 0 00 035424 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2335	031456	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2336	031457	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2337						STOP^
  2338	031460	254 04 0 00 031461 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2339	031461	324 00 0 00 031462 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2340									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2341									;IN THE SUBTEST) TO LOOP ON ERROR^
  2342
  2343					;**********
  2344
  2345					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2346					;TO AN AC  OF ALL ZEROS IS ADDED A
  2347					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2348					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2349					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2350					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2351					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2352					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2353					;EVERY BIT OF THE AC.
  2354					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-4
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0074

  2355			013210		SN=SN+1
  2356			000200			ZZ=ZZ+ZZ
  2357						IFE	ZZ,<ZZ=1>
  2358	031462	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2359	031463	270 00 0 00 035425 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2360	031464	444 00 0 00 035425 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2361	031465	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2362	031466	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2363						STOP^
  2364	031467	254 04 0 00 031470 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2365	031470	324 00 0 00 031471 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2366									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2367									;IN THE SUBTEST) TO LOOP ON ERROR^
  2368
  2369					;**********
  2370
  2371					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2372					;TO AN AC  OF ALL ZEROS IS ADDED A
  2373					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2374					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2375					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2376					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2377					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2378					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2379					;EVERY BIT OF THE AC.
  2380					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2381			013211		SN=SN+1
  2382			000400			ZZ=ZZ+ZZ
  2383						IFE	ZZ,<ZZ=1>
  2384	031471	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2385	031472	270 00 0 00 035426 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2386	031473	444 00 0 00 035426 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2387	031474	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2388	031475	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2389						STOP^
  2390	031476	254 04 0 00 031477 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2391	031477	324 00 0 00 031500 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2392									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2393									;IN THE SUBTEST) TO LOOP ON ERROR^
  2394
  2395					;**********
  2396
  2397					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2398					;TO AN AC  OF ALL ZEROS IS ADDED A
  2399					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2400					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2401					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2402					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2403					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2404					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2405					;EVERY BIT OF THE AC.
  2406					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2407			013212		SN=SN+1
  2408			001000			ZZ=ZZ+ZZ
  2409						IFE	ZZ,<ZZ=1>
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-5
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0075

  2410	031500	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2411	031501	270 00 0 00 035427 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2412	031502	444 00 0 00 035427 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2413	031503	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2414	031504	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2415						STOP^
  2416	031505	254 04 0 00 031506 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2417	031506	324 00 0 00 031507 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2418									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2419									;IN THE SUBTEST) TO LOOP ON ERROR^
  2420
  2421					;**********
  2422
  2423					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2424					;TO AN AC  OF ALL ZEROS IS ADDED A
  2425					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2426					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2427					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2428					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2429					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2430					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2431					;EVERY BIT OF THE AC.
  2432					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2433			013213		SN=SN+1
  2434			002000			ZZ=ZZ+ZZ
  2435						IFE	ZZ,<ZZ=1>
  2436	031507	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2437	031510	270 00 0 00 035430 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2438	031511	444 00 0 00 035430 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2439	031512	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2440	031513	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2441						STOP^
  2442	031514	254 04 0 00 031515 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2443	031515	324 00 0 00 031516 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2444									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2445									;IN THE SUBTEST) TO LOOP ON ERROR^
  2446
  2447					;**********
  2448
  2449					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2450					;TO AN AC  OF ALL ZEROS IS ADDED A
  2451					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2452					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2453					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2454					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2455					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2456					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2457					;EVERY BIT OF THE AC.
  2458					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2459			013214		SN=SN+1
  2460			004000			ZZ=ZZ+ZZ
  2461						IFE	ZZ,<ZZ=1>
  2462	031516	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2463	031517	270 00 0 00 035431 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2464	031520	444 00 0 00 035431 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-6
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0076

  2465	031521	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2466	031522	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2467						STOP^
  2468	031523	254 04 0 00 031524 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2469	031524	324 00 0 00 031525 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2470									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2471									;IN THE SUBTEST) TO LOOP ON ERROR^
  2472
  2473					;**********
  2474
  2475					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2476					;TO AN AC  OF ALL ZEROS IS ADDED A
  2477					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2478					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2479					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2480					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2481					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2482					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2483					;EVERY BIT OF THE AC.
  2484					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2485			013215		SN=SN+1
  2486			010000			ZZ=ZZ+ZZ
  2487						IFE	ZZ,<ZZ=1>
  2488	031525	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2489	031526	270 00 0 00 035432 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2490	031527	444 00 0 00 035432 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2491	031530	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2492	031531	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2493						STOP^
  2494	031532	254 04 0 00 031533 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2495	031533	324 00 0 00 031534 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2496									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2497									;IN THE SUBTEST) TO LOOP ON ERROR^
  2498
  2499					;**********
  2500
  2501					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2502					;TO AN AC  OF ALL ZEROS IS ADDED A
  2503					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2504					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2505					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2506					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2507					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2508					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2509					;EVERY BIT OF THE AC.
  2510					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2511			013216		SN=SN+1
  2512			020000			ZZ=ZZ+ZZ
  2513						IFE	ZZ,<ZZ=1>
  2514	031534	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2515	031535	270 00 0 00 035433 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2516	031536	444 00 0 00 035433 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2517	031537	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2518	031540	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2519						STOP^
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-7
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0077

  2520	031541	254 04 0 00 031542 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2521	031542	324 00 0 00 031543 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2522									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2523									;IN THE SUBTEST) TO LOOP ON ERROR^
  2524
  2525					;**********
  2526
  2527					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2528					;TO AN AC  OF ALL ZEROS IS ADDED A
  2529					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2530					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2531					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2532					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2533					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2534					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2535					;EVERY BIT OF THE AC.
  2536					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2537			013217		SN=SN+1
  2538			040000			ZZ=ZZ+ZZ
  2539						IFE	ZZ,<ZZ=1>
  2540	031543	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2541	031544	270 00 0 00 035434 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2542	031545	444 00 0 00 035434 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2543	031546	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2544	031547	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2545						STOP^
  2546	031550	254 04 0 00 031551 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2547	031551	324 00 0 00 031552 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2548									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2549									;IN THE SUBTEST) TO LOOP ON ERROR^
  2550
  2551					;**********
  2552
  2553					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2554					;TO AN AC  OF ALL ZEROS IS ADDED A
  2555					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2556					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2557					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2558					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2559					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2560					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2561					;EVERY BIT OF THE AC.
  2562					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2563			013220		SN=SN+1
  2564			100000			ZZ=ZZ+ZZ
  2565						IFE	ZZ,<ZZ=1>
  2566	031552	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2567	031553	270 00 0 00 035435 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2568	031554	444 00 0 00 035435 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2569	031555	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2570	031556	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2571						STOP^
  2572	031557	254 04 0 00 031560 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2573	031560	324 00 0 00 031561 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2574									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-8
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0078

  2575									;IN THE SUBTEST) TO LOOP ON ERROR^
  2576
  2577					;**********
  2578
  2579					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2580					;TO AN AC  OF ALL ZEROS IS ADDED A
  2581					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2582					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2583					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2584					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2585					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2586					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2587					;EVERY BIT OF THE AC.
  2588					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2589			013221		SN=SN+1
  2590			200000			ZZ=ZZ+ZZ
  2591						IFE	ZZ,<ZZ=1>
  2592	031561	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2593	031562	270 00 0 00 035436 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2594	031563	444 00 0 00 035436 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2595	031564	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2596	031565	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2597						STOP^
  2598	031566	254 04 0 00 031567 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2599	031567	324 00 0 00 031570 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2600									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2601									;IN THE SUBTEST) TO LOOP ON ERROR^
  2602
  2603					;**********
  2604
  2605					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2606					;TO AN AC  OF ALL ZEROS IS ADDED A
  2607					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2608					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2609					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2610					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2611					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2612					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2613					;EVERY BIT OF THE AC.
  2614					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2615			013222		SN=SN+1
  2616			400000			ZZ=ZZ+ZZ
  2617						IFE	ZZ,<ZZ=1>
  2618	031570	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2619	031571	270 00 0 00 035437 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2620	031572	444 00 0 00 035437 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2621	031573	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2622	031574	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2623						STOP^
  2624	031575	254 04 0 00 031576 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2625	031576	324 00 0 00 031577 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2626									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2627									;IN THE SUBTEST) TO LOOP ON ERROR^
  2628
  2629					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-9
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0079

  2630
  2631					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2632					;TO AN AC  OF ALL ZEROS IS ADDED A
  2633					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2634					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2635					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2636					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2637					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2638					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2639					;EVERY BIT OF THE AC.
  2640					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2641			013223		SN=SN+1
  2642		000001	000000			ZZ=ZZ+ZZ
  2643						IFE	ZZ,<ZZ=1>
  2644	031577	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2645	031600	270 00 0 00 035440 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2646	031601	444 00 0 00 035440 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2647	031602	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2648	031603	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2649						STOP^
  2650	031604	254 04 0 00 031605 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2651	031605	324 00 0 00 031606 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2652									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2653									;IN THE SUBTEST) TO LOOP ON ERROR^
  2654
  2655					;**********
  2656
  2657					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2658					;TO AN AC  OF ALL ZEROS IS ADDED A
  2659					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2660					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2661					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2662					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2663					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2664					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2665					;EVERY BIT OF THE AC.
  2666					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2667			013224		SN=SN+1
  2668		000002	000000			ZZ=ZZ+ZZ
  2669						IFE	ZZ,<ZZ=1>
  2670	031606	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2671	031607	270 00 0 00 035441 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2672	031610	444 00 0 00 035441 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2673	031611	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2674	031612	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2675						STOP^
  2676	031613	254 04 0 00 031614 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2677	031614	324 00 0 00 031615 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2678									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2679									;IN THE SUBTEST) TO LOOP ON ERROR^
  2680
  2681					;**********
  2682
  2683					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2684					;TO AN AC  OF ALL ZEROS IS ADDED A
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-10
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0080

  2685					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2686					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2687					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2688					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2689					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2690					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2691					;EVERY BIT OF THE AC.
  2692					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2693			013225		SN=SN+1
  2694		000004	000000			ZZ=ZZ+ZZ
  2695						IFE	ZZ,<ZZ=1>
  2696	031615	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2697	031616	270 00 0 00 035442 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2698	031617	444 00 0 00 035442 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2699	031620	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2700	031621	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2701						STOP^
  2702	031622	254 04 0 00 031623 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2703	031623	324 00 0 00 031624 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2704									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2705									;IN THE SUBTEST) TO LOOP ON ERROR^
  2706
  2707					;**********
  2708
  2709					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2710					;TO AN AC  OF ALL ZEROS IS ADDED A
  2711					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2712					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2713					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2714					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2715					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2716					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2717					;EVERY BIT OF THE AC.
  2718					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2719			013226		SN=SN+1
  2720		000010	000000			ZZ=ZZ+ZZ
  2721						IFE	ZZ,<ZZ=1>
  2722	031624	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2723	031625	270 00 0 00 035443 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2724	031626	444 00 0 00 035443 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2725	031627	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2726	031630	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2727						STOP^
  2728	031631	254 04 0 00 031632 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2729	031632	324 00 0 00 031633 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2730									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2731									;IN THE SUBTEST) TO LOOP ON ERROR^
  2732
  2733					;**********
  2734
  2735					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2736					;TO AN AC  OF ALL ZEROS IS ADDED A
  2737					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2738					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2739					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-11
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0081

  2740					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2741					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2742					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2743					;EVERY BIT OF THE AC.
  2744					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2745			013227		SN=SN+1
  2746		000020	000000			ZZ=ZZ+ZZ
  2747						IFE	ZZ,<ZZ=1>
  2748	031633	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2749	031634	270 00 0 00 035444 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2750	031635	444 00 0 00 035444 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2751	031636	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2752	031637	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2753						STOP^
  2754	031640	254 04 0 00 031641 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2755	031641	324 00 0 00 031642 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2756									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2757									;IN THE SUBTEST) TO LOOP ON ERROR^
  2758
  2759					;**********
  2760
  2761					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2762					;TO AN AC  OF ALL ZEROS IS ADDED A
  2763					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2764					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2765					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2766					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2767					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2768					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2769					;EVERY BIT OF THE AC.
  2770					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2771			013230		SN=SN+1
  2772		000040	000000			ZZ=ZZ+ZZ
  2773						IFE	ZZ,<ZZ=1>
  2774	031642	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2775	031643	270 00 0 00 035445 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2776	031644	444 00 0 00 035445 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2777	031645	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2778	031646	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2779						STOP^
  2780	031647	254 04 0 00 031650 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2781	031650	324 00 0 00 031651 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2782									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2783									;IN THE SUBTEST) TO LOOP ON ERROR^
  2784
  2785					;**********
  2786
  2787					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2788					;TO AN AC  OF ALL ZEROS IS ADDED A
  2789					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2790					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2791					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2792					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2793					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2794					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-12
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0082

  2795					;EVERY BIT OF THE AC.
  2796					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2797			013231		SN=SN+1
  2798		000100	000000			ZZ=ZZ+ZZ
  2799						IFE	ZZ,<ZZ=1>
  2800	031651	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2801	031652	270 00 0 00 035446 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2802	031653	444 00 0 00 035446 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2803	031654	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2804	031655	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2805						STOP^
  2806	031656	254 04 0 00 031657 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2807	031657	324 00 0 00 031660 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2808									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2809									;IN THE SUBTEST) TO LOOP ON ERROR^
  2810
  2811					;**********
  2812
  2813					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2814					;TO AN AC  OF ALL ZEROS IS ADDED A
  2815					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2816					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2817					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2818					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2819					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2820					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2821					;EVERY BIT OF THE AC.
  2822					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2823			013232		SN=SN+1
  2824		000200	000000			ZZ=ZZ+ZZ
  2825						IFE	ZZ,<ZZ=1>
  2826	031660	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2827	031661	270 00 0 00 035447 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2828	031662	444 00 0 00 035447 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2829	031663	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2830	031664	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2831						STOP^
  2832	031665	254 04 0 00 031666 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2833	031666	324 00 0 00 031667 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2834									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2835									;IN THE SUBTEST) TO LOOP ON ERROR^
  2836
  2837					;**********
  2838
  2839					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2840					;TO AN AC  OF ALL ZEROS IS ADDED A
  2841					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2842					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2843					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2844					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2845					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2846					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2847					;EVERY BIT OF THE AC.
  2848					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2849			013233		SN=SN+1
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-13
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0083

  2850		000400	000000			ZZ=ZZ+ZZ
  2851						IFE	ZZ,<ZZ=1>
  2852	031667	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2853	031670	270 00 0 00 035450 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2854	031671	444 00 0 00 035450 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2855	031672	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2856	031673	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2857						STOP^
  2858	031674	254 04 0 00 031675 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2859	031675	324 00 0 00 031676 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2860									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2861									;IN THE SUBTEST) TO LOOP ON ERROR^
  2862
  2863					;**********
  2864
  2865					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2866					;TO AN AC  OF ALL ZEROS IS ADDED A
  2867					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2868					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2869					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2870					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2871					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2872					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2873					;EVERY BIT OF THE AC.
  2874					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2875			013234		SN=SN+1
  2876		001000	000000			ZZ=ZZ+ZZ
  2877						IFE	ZZ,<ZZ=1>
  2878	031676	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2879	031677	270 00 0 00 035451 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2880	031700	444 00 0 00 035451 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2881	031701	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2882	031702	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2883						STOP^
  2884	031703	254 04 0 00 031704 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2885	031704	324 00 0 00 031705 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2886									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2887									;IN THE SUBTEST) TO LOOP ON ERROR^
  2888
  2889					;**********
  2890
  2891					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2892					;TO AN AC  OF ALL ZEROS IS ADDED A
  2893					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2894					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2895					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2896					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2897					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2898					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2899					;EVERY BIT OF THE AC.
  2900					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2901			013235		SN=SN+1
  2902		002000	000000			ZZ=ZZ+ZZ
  2903						IFE	ZZ,<ZZ=1>
  2904	031705	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-14
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0084

  2905	031706	270 00 0 00 035452 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2906	031707	444 00 0 00 035452 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2907	031710	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2908	031711	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2909						STOP^
  2910	031712	254 04 0 00 031713 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2911	031713	324 00 0 00 031714 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2912									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2913									;IN THE SUBTEST) TO LOOP ON ERROR^
  2914
  2915					;**********
  2916
  2917					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2918					;TO AN AC  OF ALL ZEROS IS ADDED A
  2919					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2920					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2921					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2922					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2923					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2924					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2925					;EVERY BIT OF THE AC.
  2926					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2927			013236		SN=SN+1
  2928		004000	000000			ZZ=ZZ+ZZ
  2929						IFE	ZZ,<ZZ=1>
  2930	031714	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2931	031715	270 00 0 00 035453 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2932	031716	444 00 0 00 035453 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2933	031717	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2934	031720	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2935						STOP^
  2936	031721	254 04 0 00 031722 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2937	031722	324 00 0 00 031723 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2938									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2939									;IN THE SUBTEST) TO LOOP ON ERROR^
  2940
  2941					;**********
  2942
  2943					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2944					;TO AN AC  OF ALL ZEROS IS ADDED A
  2945					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2946					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2947					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2948					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2949					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2950					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2951					;EVERY BIT OF THE AC.
  2952					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2953			013237		SN=SN+1
  2954		010000	000000			ZZ=ZZ+ZZ
  2955						IFE	ZZ,<ZZ=1>
  2956	031723	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2957	031724	270 00 0 00 035454 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2958	031725	444 00 0 00 035454 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2959	031726	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-15
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0085

  2960	031727	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2961						STOP^
  2962	031730	254 04 0 00 031731 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2963	031731	324 00 0 00 031732 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2964									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2965									;IN THE SUBTEST) TO LOOP ON ERROR^
  2966
  2967					;**********
  2968
  2969					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2970					;TO AN AC  OF ALL ZEROS IS ADDED A
  2971					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2972					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2973					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  2974					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  2975					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  2976					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  2977					;EVERY BIT OF THE AC.
  2978					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  2979			013240		SN=SN+1
  2980		020000	000000			ZZ=ZZ+ZZ
  2981						IFE	ZZ,<ZZ=1>
  2982	031732	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  2983	031733	270 00 0 00 035455 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  2984	031734	444 00 0 00 035455 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  2985	031735	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  2986	031736	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2987						STOP^
  2988	031737	254 04 0 00 031740 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2989	031740	324 00 0 00 031741 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2990									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2991									;IN THE SUBTEST) TO LOOP ON ERROR^
  2992
  2993					;**********
  2994
  2995					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  2996					;TO AN AC  OF ALL ZEROS IS ADDED A
  2997					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  2998					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  2999					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  3000					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  3001					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  3002					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  3003					;EVERY BIT OF THE AC.
  3004					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  3005			013241		SN=SN+1
  3006		040000	000000			ZZ=ZZ+ZZ
  3007						IFE	ZZ,<ZZ=1>
  3008	031741	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  3009	031742	270 00 0 00 035456 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  3010	031743	444 00 0 00 035456 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  3011	031744	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3012	031745	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3013						STOP^
  3014	031746	254 04 0 00 031747 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-16
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0086

  3015	031747	324 00 0 00 031750 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3016									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3017									;IN THE SUBTEST) TO LOOP ON ERROR^
  3018
  3019					;**********
  3020
  3021					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  3022					;TO AN AC  OF ALL ZEROS IS ADDED A
  3023					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  3024					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  3025					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  3026					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  3027					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  3028					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  3029					;EVERY BIT OF THE AC.
  3030					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  3031			013242		SN=SN+1
  3032		100000	000000			ZZ=ZZ+ZZ
  3033						IFE	ZZ,<ZZ=1>
  3034	031750	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  3035	031751	270 00 0 00 035457 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  3036	031752	444 00 0 00 035457 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  3037	031753	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3038	031754	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3039						STOP^
  3040	031755	254 04 0 00 031756 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3041	031756	324 00 0 00 031757 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3042									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3043									;IN THE SUBTEST) TO LOOP ON ERROR^
  3044
  3045					;**********
  3046
  3047					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  3048					;TO AN AC  OF ALL ZEROS IS ADDED A
  3049					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  3050					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  3051					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  3052					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  3053					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  3054					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  3055					;EVERY BIT OF THE AC.
  3056					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  3057			013243		SN=SN+1
  3058		200000	000000			ZZ=ZZ+ZZ
  3059						IFE	ZZ,<ZZ=1>
  3060	031757	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  3061	031760	270 00 0 00 035460 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  3062	031761	444 00 0 00 035460 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  3063	031762	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3064	031763	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3065						STOP^
  3066	031764	254 04 0 00 031765 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3067	031765	324 00 0 00 031766 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3068									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3069									;IN THE SUBTEST) TO LOOP ON ERROR^
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-17
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0087

  3070
  3071					;**********
  3072
  3073					;THIS TEST CHECKS THE 'ADD' INSTRUCTION AND THE ADDER ON A 0NE-BIT-AT-A-TIME BASIS.
  3074					;TO AN AC  OF ALL ZEROS IS ADDED A
  3075					;WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE IN ONE AND ONLY ONE BIT,
  3076					;THE RESULT IS THAT THE AC CONTAINS THE SAME NUMBER WHICH WAS ADDED TO IT.
  3077					;THE AC IS THEN EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  3078					;BE ALL ONES.  NEXT, THE AC IS EQUIVALENCED WITH A WORD OF ALL ZEROS.
  3079					;THE FINAL RESULT SHOULD BE C(AC)=0. THIS
  3080					;TEST IS REPEATED 36 TIMES SO THAT A ONE MAY BE RIPPLED THOUGH
  3081					;EVERY BIT OF THE AC.
  3082					;THE AC IS CHECKED TO INSURE THAT IT CONTAINS ALL ZEROS.
  3083			013244		SN=SN+1
  3084		400000	000000			ZZ=ZZ+ZZ
  3085						IFE	ZZ,<ZZ=1>
  3086	031766	200 00 0 00 035412 		MOVE	[0]		;LOAD AC WITH ALL ZEROS
  3087	031767	270 00 0 00 035461 		ADD	[ZZ]		;*ADD OF FLOATING ONE TO ZERO
  3088	031770	444 00 0 00 035461 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  3089	031771	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3090	031772	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3091						STOP^
  3092	031773	254 04 0 00 031774 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3093	031774	324 00 0 00 031775 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3094									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3095									;IN THE SUBTEST) TO LOOP ON ERROR^
  3096
  3097					;**********
  3098
  3099					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-18
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0088

  3100					;ADD A RIPPLED ONE TO A RIPPLED ONE
  3101
  3102			011200		SN=11200
  3103			000000			ZZ=0
  3104
  3105					A11200:	REPEAT	^D35,
  3106					<;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3107					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3108					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3109					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3110					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3111					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3112					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3113					;SO THAT A ONE WILL BE FLOATED THROUGH
  3114					;BITS 1 THRU 35 OF BOTH AC AND E
  3115					SN=SN+1
  3116						ZZ=ZZ+ZZ
  3117						IFE	ZZ,<ZZ=1>
  3118						MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3119						ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3120						EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3121						EQV	[0]		;RESULTS IN C(AC)=0
  3122						SKIPE			;PASS TEST IF C(AC)=0
  3123						STOP
  3124					
  3125					;**********
  3126					>
  3127					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3128					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3129					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3130					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3131					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3132					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3133					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3134					;SO THAT A ONE WILL BE FLOATED THROUGH
  3135					;BITS 1 THRU 35 OF BOTH AC AND E
  3136			011201		SN=SN+1
  3137			000000			ZZ=ZZ+ZZ
  3138			000001			IFE	ZZ,<ZZ=1>
  3139	031775	200 00 0 00 035416 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3140	031776	270 00 0 00 035416 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3141	031777	444 00 0 00 035417 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3142	032000	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3143	032001	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3144						STOP^
  3145	032002	254 04 0 00 032003 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3146	032003	324 00 0 00 032004 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3147									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3148									;IN THE SUBTEST) TO LOOP ON ERROR^
  3149
  3150					;**********
  3151
  3152					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3153					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3154					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-19
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0089

  3155					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3156					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3157					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3158					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3159					;SO THAT A ONE WILL BE FLOATED THROUGH
  3160					;BITS 1 THRU 35 OF BOTH AC AND E
  3161			011202		SN=SN+1
  3162			000002			ZZ=ZZ+ZZ
  3163						IFE	ZZ,<ZZ=1>
  3164	032004	200 00 0 00 035417 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3165	032005	270 00 0 00 035417 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3166	032006	444 00 0 00 035420 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3167	032007	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3168	032010	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3169						STOP^
  3170	032011	254 04 0 00 032012 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3171	032012	324 00 0 00 032013 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3172									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3173									;IN THE SUBTEST) TO LOOP ON ERROR^
  3174
  3175					;**********
  3176
  3177					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3178					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3179					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3180					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3181					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3182					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3183					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3184					;SO THAT A ONE WILL BE FLOATED THROUGH
  3185					;BITS 1 THRU 35 OF BOTH AC AND E
  3186			011203		SN=SN+1
  3187			000004			ZZ=ZZ+ZZ
  3188						IFE	ZZ,<ZZ=1>
  3189	032013	200 00 0 00 035420 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3190	032014	270 00 0 00 035420 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3191	032015	444 00 0 00 035421 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3192	032016	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3193	032017	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3194						STOP^
  3195	032020	254 04 0 00 032021 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3196	032021	324 00 0 00 032022 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3197									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3198									;IN THE SUBTEST) TO LOOP ON ERROR^
  3199
  3200					;**********
  3201
  3202					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3203					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3204					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3205					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3206					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3207					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3208					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3209					;SO THAT A ONE WILL BE FLOATED THROUGH
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-20
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0090

  3210					;BITS 1 THRU 35 OF BOTH AC AND E
  3211			011204		SN=SN+1
  3212			000010			ZZ=ZZ+ZZ
  3213						IFE	ZZ,<ZZ=1>
  3214	032022	200 00 0 00 035421 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3215	032023	270 00 0 00 035421 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3216	032024	444 00 0 00 035422 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3217	032025	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3218	032026	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3219						STOP^
  3220	032027	254 04 0 00 032030 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3221	032030	324 00 0 00 032031 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3222									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3223									;IN THE SUBTEST) TO LOOP ON ERROR^
  3224
  3225					;**********
  3226
  3227					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3228					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3229					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3230					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3231					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3232					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3233					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3234					;SO THAT A ONE WILL BE FLOATED THROUGH
  3235					;BITS 1 THRU 35 OF BOTH AC AND E
  3236			011205		SN=SN+1
  3237			000020			ZZ=ZZ+ZZ
  3238						IFE	ZZ,<ZZ=1>
  3239	032031	200 00 0 00 035422 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3240	032032	270 00 0 00 035422 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3241	032033	444 00 0 00 035423 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3242	032034	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3243	032035	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3244						STOP^
  3245	032036	254 04 0 00 032037 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3246	032037	324 00 0 00 032040 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3247									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3248									;IN THE SUBTEST) TO LOOP ON ERROR^
  3249
  3250					;**********
  3251
  3252					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3253					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3254					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3255					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3256					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3257					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3258					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3259					;SO THAT A ONE WILL BE FLOATED THROUGH
  3260					;BITS 1 THRU 35 OF BOTH AC AND E
  3261			011206		SN=SN+1
  3262			000040			ZZ=ZZ+ZZ
  3263						IFE	ZZ,<ZZ=1>
  3264	032040	200 00 0 00 035423 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-21
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0091

  3265	032041	270 00 0 00 035423 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3266	032042	444 00 0 00 035424 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3267	032043	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3268	032044	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3269						STOP^
  3270	032045	254 04 0 00 032046 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3271	032046	324 00 0 00 032047 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3272									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3273									;IN THE SUBTEST) TO LOOP ON ERROR^
  3274
  3275					;**********
  3276
  3277					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3278					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3279					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3280					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3281					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3282					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3283					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3284					;SO THAT A ONE WILL BE FLOATED THROUGH
  3285					;BITS 1 THRU 35 OF BOTH AC AND E
  3286			011207		SN=SN+1
  3287			000100			ZZ=ZZ+ZZ
  3288						IFE	ZZ,<ZZ=1>
  3289	032047	200 00 0 00 035424 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3290	032050	270 00 0 00 035424 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3291	032051	444 00 0 00 035425 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3292	032052	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3293	032053	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3294						STOP^
  3295	032054	254 04 0 00 032055 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3296	032055	324 00 0 00 032056 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3297									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3298									;IN THE SUBTEST) TO LOOP ON ERROR^
  3299
  3300					;**********
  3301
  3302					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3303					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3304					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3305					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3306					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3307					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3308					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3309					;SO THAT A ONE WILL BE FLOATED THROUGH
  3310					;BITS 1 THRU 35 OF BOTH AC AND E
  3311			011210		SN=SN+1
  3312			000200			ZZ=ZZ+ZZ
  3313						IFE	ZZ,<ZZ=1>
  3314	032056	200 00 0 00 035425 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3315	032057	270 00 0 00 035425 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3316	032060	444 00 0 00 035426 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3317	032061	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3318	032062	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3319						STOP^
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-22
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0092

  3320	032063	254 04 0 00 032064 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3321	032064	324 00 0 00 032065 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3322									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3323									;IN THE SUBTEST) TO LOOP ON ERROR^
  3324
  3325					;**********
  3326
  3327					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3328					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3329					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3330					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3331					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3332					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3333					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3334					;SO THAT A ONE WILL BE FLOATED THROUGH
  3335					;BITS 1 THRU 35 OF BOTH AC AND E
  3336			011211		SN=SN+1
  3337			000400			ZZ=ZZ+ZZ
  3338						IFE	ZZ,<ZZ=1>
  3339	032065	200 00 0 00 035426 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3340	032066	270 00 0 00 035426 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3341	032067	444 00 0 00 035427 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3342	032070	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3343	032071	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3344						STOP^
  3345	032072	254 04 0 00 032073 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3346	032073	324 00 0 00 032074 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3347									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3348									;IN THE SUBTEST) TO LOOP ON ERROR^
  3349
  3350					;**********
  3351
  3352					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3353					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3354					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3355					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3356					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3357					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3358					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3359					;SO THAT A ONE WILL BE FLOATED THROUGH
  3360					;BITS 1 THRU 35 OF BOTH AC AND E
  3361			011212		SN=SN+1
  3362			001000			ZZ=ZZ+ZZ
  3363						IFE	ZZ,<ZZ=1>
  3364	032074	200 00 0 00 035427 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3365	032075	270 00 0 00 035427 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3366	032076	444 00 0 00 035430 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3367	032077	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3368	032100	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3369						STOP^
  3370	032101	254 04 0 00 032102 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3371	032102	324 00 0 00 032103 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3372									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3373									;IN THE SUBTEST) TO LOOP ON ERROR^
  3374
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-23
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0093

  3375					;**********
  3376
  3377					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3378					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3379					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3380					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3381					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3382					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3383					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3384					;SO THAT A ONE WILL BE FLOATED THROUGH
  3385					;BITS 1 THRU 35 OF BOTH AC AND E
  3386			011213		SN=SN+1
  3387			002000			ZZ=ZZ+ZZ
  3388						IFE	ZZ,<ZZ=1>
  3389	032103	200 00 0 00 035430 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3390	032104	270 00 0 00 035430 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3391	032105	444 00 0 00 035431 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3392	032106	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3393	032107	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3394						STOP^
  3395	032110	254 04 0 00 032111 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3396	032111	324 00 0 00 032112 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3397									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3398									;IN THE SUBTEST) TO LOOP ON ERROR^
  3399
  3400					;**********
  3401
  3402					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3403					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3404					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3405					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3406					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3407					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3408					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3409					;SO THAT A ONE WILL BE FLOATED THROUGH
  3410					;BITS 1 THRU 35 OF BOTH AC AND E
  3411			011214		SN=SN+1
  3412			004000			ZZ=ZZ+ZZ
  3413						IFE	ZZ,<ZZ=1>
  3414	032112	200 00 0 00 035431 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3415	032113	270 00 0 00 035431 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3416	032114	444 00 0 00 035432 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3417	032115	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3418	032116	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3419						STOP^
  3420	032117	254 04 0 00 032120 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3421	032120	324 00 0 00 032121 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3422									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3423									;IN THE SUBTEST) TO LOOP ON ERROR^
  3424
  3425					;**********
  3426
  3427					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3428					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3429					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-24
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0094

  3430					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3431					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3432					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3433					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3434					;SO THAT A ONE WILL BE FLOATED THROUGH
  3435					;BITS 1 THRU 35 OF BOTH AC AND E
  3436			011215		SN=SN+1
  3437			010000			ZZ=ZZ+ZZ
  3438						IFE	ZZ,<ZZ=1>
  3439	032121	200 00 0 00 035432 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3440	032122	270 00 0 00 035432 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3441	032123	444 00 0 00 035433 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3442	032124	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3443	032125	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3444						STOP^
  3445	032126	254 04 0 00 032127 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3446	032127	324 00 0 00 032130 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3447									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3448									;IN THE SUBTEST) TO LOOP ON ERROR^
  3449
  3450					;**********
  3451
  3452					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3453					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3454					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3455					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3456					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3457					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3458					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3459					;SO THAT A ONE WILL BE FLOATED THROUGH
  3460					;BITS 1 THRU 35 OF BOTH AC AND E
  3461			011216		SN=SN+1
  3462			020000			ZZ=ZZ+ZZ
  3463						IFE	ZZ,<ZZ=1>
  3464	032130	200 00 0 00 035433 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3465	032131	270 00 0 00 035433 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3466	032132	444 00 0 00 035434 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3467	032133	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3468	032134	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3469						STOP^
  3470	032135	254 04 0 00 032136 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3471	032136	324 00 0 00 032137 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3472									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3473									;IN THE SUBTEST) TO LOOP ON ERROR^
  3474
  3475					;**********
  3476
  3477					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3478					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3479					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3480					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3481					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3482					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3483					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3484					;SO THAT A ONE WILL BE FLOATED THROUGH
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-25
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0095

  3485					;BITS 1 THRU 35 OF BOTH AC AND E
  3486			011217		SN=SN+1
  3487			040000			ZZ=ZZ+ZZ
  3488						IFE	ZZ,<ZZ=1>
  3489	032137	200 00 0 00 035434 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3490	032140	270 00 0 00 035434 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3491	032141	444 00 0 00 035435 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3492	032142	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3493	032143	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3494						STOP^
  3495	032144	254 04 0 00 032145 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3496	032145	324 00 0 00 032146 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3497									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3498									;IN THE SUBTEST) TO LOOP ON ERROR^
  3499
  3500					;**********
  3501
  3502					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3503					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3504					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3505					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3506					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3507					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3508					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3509					;SO THAT A ONE WILL BE FLOATED THROUGH
  3510					;BITS 1 THRU 35 OF BOTH AC AND E
  3511			011220		SN=SN+1
  3512			100000			ZZ=ZZ+ZZ
  3513						IFE	ZZ,<ZZ=1>
  3514	032146	200 00 0 00 035435 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3515	032147	270 00 0 00 035435 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3516	032150	444 00 0 00 035436 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3517	032151	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3518	032152	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3519						STOP^
  3520	032153	254 04 0 00 032154 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3521	032154	324 00 0 00 032155 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3522									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3523									;IN THE SUBTEST) TO LOOP ON ERROR^
  3524
  3525					;**********
  3526
  3527					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3528					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3529					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3530					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3531					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3532					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3533					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3534					;SO THAT A ONE WILL BE FLOATED THROUGH
  3535					;BITS 1 THRU 35 OF BOTH AC AND E
  3536			011221		SN=SN+1
  3537			200000			ZZ=ZZ+ZZ
  3538						IFE	ZZ,<ZZ=1>
  3539	032155	200 00 0 00 035436 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-26
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0096

  3540	032156	270 00 0 00 035436 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3541	032157	444 00 0 00 035437 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3542	032160	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3543	032161	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3544						STOP^
  3545	032162	254 04 0 00 032163 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3546	032163	324 00 0 00 032164 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3547									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3548									;IN THE SUBTEST) TO LOOP ON ERROR^
  3549
  3550					;**********
  3551
  3552					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3553					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3554					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3555					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3556					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3557					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3558					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3559					;SO THAT A ONE WILL BE FLOATED THROUGH
  3560					;BITS 1 THRU 35 OF BOTH AC AND E
  3561			011222		SN=SN+1
  3562			400000			ZZ=ZZ+ZZ
  3563						IFE	ZZ,<ZZ=1>
  3564	032164	200 00 0 00 035437 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3565	032165	270 00 0 00 035437 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3566	032166	444 00 0 00 035440 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3567	032167	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3568	032170	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3569						STOP^
  3570	032171	254 04 0 00 032172 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3571	032172	324 00 0 00 032173 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3572									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3573									;IN THE SUBTEST) TO LOOP ON ERROR^
  3574
  3575					;**********
  3576
  3577					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3578					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3579					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3580					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3581					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3582					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3583					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3584					;SO THAT A ONE WILL BE FLOATED THROUGH
  3585					;BITS 1 THRU 35 OF BOTH AC AND E
  3586			011223		SN=SN+1
  3587		000001	000000			ZZ=ZZ+ZZ
  3588						IFE	ZZ,<ZZ=1>
  3589	032173	200 00 0 00 035440 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3590	032174	270 00 0 00 035440 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3591	032175	444 00 0 00 035441 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3592	032176	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3593	032177	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3594						STOP^
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-27
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0097

  3595	032200	254 04 0 00 032201 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3596	032201	324 00 0 00 032202 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3597									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3598									;IN THE SUBTEST) TO LOOP ON ERROR^
  3599
  3600					;**********
  3601
  3602					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3603					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3604					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3605					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3606					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3607					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3608					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3609					;SO THAT A ONE WILL BE FLOATED THROUGH
  3610					;BITS 1 THRU 35 OF BOTH AC AND E
  3611			011224		SN=SN+1
  3612		000002	000000			ZZ=ZZ+ZZ
  3613						IFE	ZZ,<ZZ=1>
  3614	032202	200 00 0 00 035441 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3615	032203	270 00 0 00 035441 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3616	032204	444 00 0 00 035442 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3617	032205	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3618	032206	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3619						STOP^
  3620	032207	254 04 0 00 032210 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3621	032210	324 00 0 00 032211 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3622									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3623									;IN THE SUBTEST) TO LOOP ON ERROR^
  3624
  3625					;**********
  3626
  3627					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3628					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3629					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3630					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3631					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3632					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3633					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3634					;SO THAT A ONE WILL BE FLOATED THROUGH
  3635					;BITS 1 THRU 35 OF BOTH AC AND E
  3636			011225		SN=SN+1
  3637		000004	000000			ZZ=ZZ+ZZ
  3638						IFE	ZZ,<ZZ=1>
  3639	032211	200 00 0 00 035442 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3640	032212	270 00 0 00 035442 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3641	032213	444 00 0 00 035443 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3642	032214	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3643	032215	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3644						STOP^
  3645	032216	254 04 0 00 032217 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3646	032217	324 00 0 00 032220 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3647									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3648									;IN THE SUBTEST) TO LOOP ON ERROR^
  3649
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-28
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0098

  3650					;**********
  3651
  3652					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3653					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3654					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3655					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3656					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3657					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3658					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3659					;SO THAT A ONE WILL BE FLOATED THROUGH
  3660					;BITS 1 THRU 35 OF BOTH AC AND E
  3661			011226		SN=SN+1
  3662		000010	000000			ZZ=ZZ+ZZ
  3663						IFE	ZZ,<ZZ=1>
  3664	032220	200 00 0 00 035443 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3665	032221	270 00 0 00 035443 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3666	032222	444 00 0 00 035444 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3667	032223	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3668	032224	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3669						STOP^
  3670	032225	254 04 0 00 032226 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3671	032226	324 00 0 00 032227 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3672									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3673									;IN THE SUBTEST) TO LOOP ON ERROR^
  3674
  3675					;**********
  3676
  3677					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3678					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3679					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3680					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3681					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3682					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3683					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3684					;SO THAT A ONE WILL BE FLOATED THROUGH
  3685					;BITS 1 THRU 35 OF BOTH AC AND E
  3686			011227		SN=SN+1
  3687		000020	000000			ZZ=ZZ+ZZ
  3688						IFE	ZZ,<ZZ=1>
  3689	032227	200 00 0 00 035444 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3690	032230	270 00 0 00 035444 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3691	032231	444 00 0 00 035445 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3692	032232	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3693	032233	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3694						STOP^
  3695	032234	254 04 0 00 032235 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3696	032235	324 00 0 00 032236 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3697									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3698									;IN THE SUBTEST) TO LOOP ON ERROR^
  3699
  3700					;**********
  3701
  3702					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3703					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3704					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-29
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0099

  3705					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3706					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3707					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3708					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3709					;SO THAT A ONE WILL BE FLOATED THROUGH
  3710					;BITS 1 THRU 35 OF BOTH AC AND E
  3711			011230		SN=SN+1
  3712		000040	000000			ZZ=ZZ+ZZ
  3713						IFE	ZZ,<ZZ=1>
  3714	032236	200 00 0 00 035445 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3715	032237	270 00 0 00 035445 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3716	032240	444 00 0 00 035446 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3717	032241	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3718	032242	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3719						STOP^
  3720	032243	254 04 0 00 032244 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3721	032244	324 00 0 00 032245 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3722									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3723									;IN THE SUBTEST) TO LOOP ON ERROR^
  3724
  3725					;**********
  3726
  3727					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3728					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3729					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3730					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3731					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3732					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3733					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3734					;SO THAT A ONE WILL BE FLOATED THROUGH
  3735					;BITS 1 THRU 35 OF BOTH AC AND E
  3736			011231		SN=SN+1
  3737		000100	000000			ZZ=ZZ+ZZ
  3738						IFE	ZZ,<ZZ=1>
  3739	032245	200 00 0 00 035446 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3740	032246	270 00 0 00 035446 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3741	032247	444 00 0 00 035447 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3742	032250	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3743	032251	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3744						STOP^
  3745	032252	254 04 0 00 032253 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3746	032253	324 00 0 00 032254 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3747									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3748									;IN THE SUBTEST) TO LOOP ON ERROR^
  3749
  3750					;**********
  3751
  3752					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3753					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3754					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3755					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3756					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3757					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3758					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3759					;SO THAT A ONE WILL BE FLOATED THROUGH
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-30
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0100

  3760					;BITS 1 THRU 35 OF BOTH AC AND E
  3761			011232		SN=SN+1
  3762		000200	000000			ZZ=ZZ+ZZ
  3763						IFE	ZZ,<ZZ=1>
  3764	032254	200 00 0 00 035447 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3765	032255	270 00 0 00 035447 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3766	032256	444 00 0 00 035450 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3767	032257	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3768	032260	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3769						STOP^
  3770	032261	254 04 0 00 032262 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3771	032262	324 00 0 00 032263 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3772									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3773									;IN THE SUBTEST) TO LOOP ON ERROR^
  3774
  3775					;**********
  3776
  3777					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3778					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3779					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3780					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3781					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3782					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3783					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3784					;SO THAT A ONE WILL BE FLOATED THROUGH
  3785					;BITS 1 THRU 35 OF BOTH AC AND E
  3786			011233		SN=SN+1
  3787		000400	000000			ZZ=ZZ+ZZ
  3788						IFE	ZZ,<ZZ=1>
  3789	032263	200 00 0 00 035450 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3790	032264	270 00 0 00 035450 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3791	032265	444 00 0 00 035451 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3792	032266	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3793	032267	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3794						STOP^
  3795	032270	254 04 0 00 032271 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3796	032271	324 00 0 00 032272 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3797									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3798									;IN THE SUBTEST) TO LOOP ON ERROR^
  3799
  3800					;**********
  3801
  3802					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3803					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3804					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3805					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3806					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3807					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3808					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3809					;SO THAT A ONE WILL BE FLOATED THROUGH
  3810					;BITS 1 THRU 35 OF BOTH AC AND E
  3811			011234		SN=SN+1
  3812		001000	000000			ZZ=ZZ+ZZ
  3813						IFE	ZZ,<ZZ=1>
  3814	032272	200 00 0 00 035451 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-31
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0101

  3815	032273	270 00 0 00 035451 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3816	032274	444 00 0 00 035452 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3817	032275	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3818	032276	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3819						STOP^
  3820	032277	254 04 0 00 032300 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3821	032300	324 00 0 00 032301 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3822									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3823									;IN THE SUBTEST) TO LOOP ON ERROR^
  3824
  3825					;**********
  3826
  3827					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3828					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3829					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3830					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3831					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3832					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3833					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3834					;SO THAT A ONE WILL BE FLOATED THROUGH
  3835					;BITS 1 THRU 35 OF BOTH AC AND E
  3836			011235		SN=SN+1
  3837		002000	000000			ZZ=ZZ+ZZ
  3838						IFE	ZZ,<ZZ=1>
  3839	032301	200 00 0 00 035452 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3840	032302	270 00 0 00 035452 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3841	032303	444 00 0 00 035453 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3842	032304	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3843	032305	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3844						STOP^
  3845	032306	254 04 0 00 032307 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3846	032307	324 00 0 00 032310 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3847									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3848									;IN THE SUBTEST) TO LOOP ON ERROR^
  3849
  3850					;**********
  3851
  3852					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3853					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3854					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3855					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3856					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3857					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3858					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3859					;SO THAT A ONE WILL BE FLOATED THROUGH
  3860					;BITS 1 THRU 35 OF BOTH AC AND E
  3861			011236		SN=SN+1
  3862		004000	000000			ZZ=ZZ+ZZ
  3863						IFE	ZZ,<ZZ=1>
  3864	032310	200 00 0 00 035453 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3865	032311	270 00 0 00 035453 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3866	032312	444 00 0 00 035454 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3867	032313	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3868	032314	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3869						STOP^
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-32
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0102

  3870	032315	254 04 0 00 032316 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3871	032316	324 00 0 00 032317 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3872									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3873									;IN THE SUBTEST) TO LOOP ON ERROR^
  3874
  3875					;**********
  3876
  3877					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3878					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3879					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3880					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3881					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3882					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3883					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3884					;SO THAT A ONE WILL BE FLOATED THROUGH
  3885					;BITS 1 THRU 35 OF BOTH AC AND E
  3886			011237		SN=SN+1
  3887		010000	000000			ZZ=ZZ+ZZ
  3888						IFE	ZZ,<ZZ=1>
  3889	032317	200 00 0 00 035454 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3890	032320	270 00 0 00 035454 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3891	032321	444 00 0 00 035455 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3892	032322	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3893	032323	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3894						STOP^
  3895	032324	254 04 0 00 032325 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3896	032325	324 00 0 00 032326 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3897									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3898									;IN THE SUBTEST) TO LOOP ON ERROR^
  3899
  3900					;**********
  3901
  3902					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3903					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3904					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3905					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3906					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3907					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3908					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3909					;SO THAT A ONE WILL BE FLOATED THROUGH
  3910					;BITS 1 THRU 35 OF BOTH AC AND E
  3911			011240		SN=SN+1
  3912		020000	000000			ZZ=ZZ+ZZ
  3913						IFE	ZZ,<ZZ=1>
  3914	032326	200 00 0 00 035455 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3915	032327	270 00 0 00 035455 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3916	032330	444 00 0 00 035456 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3917	032331	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3918	032332	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3919						STOP^
  3920	032333	254 04 0 00 032334 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3921	032334	324 00 0 00 032335 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3922									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3923									;IN THE SUBTEST) TO LOOP ON ERROR^
  3924
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-33
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0103

  3925					;**********
  3926
  3927					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3928					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3929					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3930					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3931					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3932					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3933					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3934					;SO THAT A ONE WILL BE FLOATED THROUGH
  3935					;BITS 1 THRU 35 OF BOTH AC AND E
  3936			011241		SN=SN+1
  3937		040000	000000			ZZ=ZZ+ZZ
  3938						IFE	ZZ,<ZZ=1>
  3939	032335	200 00 0 00 035456 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3940	032336	270 00 0 00 035456 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3941	032337	444 00 0 00 035457 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3942	032340	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3943	032341	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3944						STOP^
  3945	032342	254 04 0 00 032343 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3946	032343	324 00 0 00 032344 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3947									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3948									;IN THE SUBTEST) TO LOOP ON ERROR^
  3949
  3950					;**********
  3951
  3952					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3953					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3954					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
  3955					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3956					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3957					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3958					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3959					;SO THAT A ONE WILL BE FLOATED THROUGH
  3960					;BITS 1 THRU 35 OF BOTH AC AND E
  3961			011242		SN=SN+1
  3962		100000	000000			ZZ=ZZ+ZZ
  3963						IFE	ZZ,<ZZ=1>
  3964	032344	200 00 0 00 035457 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3965	032345	270 00 0 00 035457 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3966	032346	444 00 0 00 035460 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3967	032347	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3968	032350	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3969						STOP^
  3970	032351	254 04 0 00 032352 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3971	032352	324 00 0 00 032353 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3972									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3973									;IN THE SUBTEST) TO LOOP ON ERROR^
  3974
  3975					;**********
  3976
  3977					;THIS TEST VERIFIES THAT THE RESULT OF ADDING C(AC)
  3978					;TO C(E) WHERE AC IS DIFFERENT FROM E BUT C(AC)=
  3979					;C(E)=A ONE IN ONE AND ONLY ONE BIT IS AN
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 7-34
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0104

  3980					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3981					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3982					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3983					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3984					;SO THAT A ONE WILL BE FLOATED THROUGH
  3985					;BITS 1 THRU 35 OF BOTH AC AND E
  3986			011243		SN=SN+1
  3987		200000	000000			ZZ=ZZ+ZZ
  3988						IFE	ZZ,<ZZ=1>
  3989	032353	200 00 0 00 035460 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3990	032354	270 00 0 00 035460 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3991	032355	444 00 0 00 035461 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3992	032356	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3993	032357	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3994						STOP^
  3995	032360	254 04 0 00 032361 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3996	032361	324 00 0 00 032362 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3997									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3998									;IN THE SUBTEST) TO LOOP ON ERROR^
  3999
  4000					;**********
  4001
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0105

  4002			011300		SN=11300
  4003			000000			ZZ=0
  4004			000000			YY=0
  4005
  4006					A11300:	REPEAT	^D18,
  4007					<;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4008					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4009					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4010					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4011					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4012					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4013					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4014					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4015					;FORMER VALUE PLUS THE CURRENT C(AC)
  4016					SN=SN+1
  4017						YY=YY/2
  4018						ZZ=ZZ+YY
  4019						IFE	YY,<YY=400000>
  4020						IFE	ZZ,<ZZ=400000>
  4021						MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4022						ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4023									;POWER SHOULD RESULT IN C(AC)=0.
  4024						SKIPE			;PASS TEST IF C(AC)=0
  4025						STOP
  4026					
  4027					;**********
  4028					>
  4029					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4030					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4031					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4032					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4033					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4034					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4035					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4036					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4037					;FORMER VALUE PLUS THE CURRENT C(AC)
  4038			011301		SN=SN+1
  4039			000000			YY=YY/2
  4040			000000			ZZ=ZZ+YY
  4041			400000			IFE	YY,<YY=400000>
  4042			400000			IFE	ZZ,<ZZ=400000>
  4043	032362	200 00 0 00 035461 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4044	032363	270 00 0 00 035461 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4045									;POWER SHOULD RESULT IN C(AC)=0.
  4046	032364	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4047						STOP^
  4048	032365	254 04 0 00 032366 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4049	032366	324 00 0 00 032367 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4050									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4051									;IN THE SUBTEST) TO LOOP ON ERROR^
  4052
  4053					;**********
  4054
  4055					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4056					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-1
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0106

  4057					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4058					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4059					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4060					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4061					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4062					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4063					;FORMER VALUE PLUS THE CURRENT C(AC)
  4064			011302		SN=SN+1
  4065			200000			YY=YY/2
  4066			600000			ZZ=ZZ+YY
  4067						IFE	YY,<YY=400000>
  4068						IFE	ZZ,<ZZ=400000>
  4069	032367	200 00 0 00 035462 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4070	032370	270 00 0 00 035460 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4071									;POWER SHOULD RESULT IN C(AC)=0.
  4072	032371	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4073						STOP^
  4074	032372	254 04 0 00 032373 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4075	032373	324 00 0 00 032374 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4076									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4077									;IN THE SUBTEST) TO LOOP ON ERROR^
  4078
  4079					;**********
  4080
  4081					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4082					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4083					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4084					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4085					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4086					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4087					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4088					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4089					;FORMER VALUE PLUS THE CURRENT C(AC)
  4090			011303		SN=SN+1
  4091			100000			YY=YY/2
  4092			700000			ZZ=ZZ+YY
  4093						IFE	YY,<YY=400000>
  4094						IFE	ZZ,<ZZ=400000>
  4095	032374	200 00 0 00 035463 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4096	032375	270 00 0 00 035457 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4097									;POWER SHOULD RESULT IN C(AC)=0.
  4098	032376	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4099						STOP^
  4100	032377	254 04 0 00 032400 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4101	032400	324 00 0 00 032401 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4102									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4103									;IN THE SUBTEST) TO LOOP ON ERROR^
  4104
  4105					;**********
  4106
  4107					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4108					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4109					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4110					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4111					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-2
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0107

  4112					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4113					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4114					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4115					;FORMER VALUE PLUS THE CURRENT C(AC)
  4116			011304		SN=SN+1
  4117			040000			YY=YY/2
  4118			740000			ZZ=ZZ+YY
  4119						IFE	YY,<YY=400000>
  4120						IFE	ZZ,<ZZ=400000>
  4121	032401	200 00 0 00 035464 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4122	032402	270 00 0 00 035456 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4123									;POWER SHOULD RESULT IN C(AC)=0.
  4124	032403	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4125						STOP^
  4126	032404	254 04 0 00 032405 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4127	032405	324 00 0 00 032406 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4128									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4129									;IN THE SUBTEST) TO LOOP ON ERROR^
  4130
  4131					;**********
  4132
  4133					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4134					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4135					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4136					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4137					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4138					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4139					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4140					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4141					;FORMER VALUE PLUS THE CURRENT C(AC)
  4142			011305		SN=SN+1
  4143			020000			YY=YY/2
  4144			760000			ZZ=ZZ+YY
  4145						IFE	YY,<YY=400000>
  4146						IFE	ZZ,<ZZ=400000>
  4147	032406	200 00 0 00 035465 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4148	032407	270 00 0 00 035455 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4149									;POWER SHOULD RESULT IN C(AC)=0.
  4150	032410	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4151						STOP^
  4152	032411	254 04 0 00 032412 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4153	032412	324 00 0 00 032413 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4154									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4155									;IN THE SUBTEST) TO LOOP ON ERROR^
  4156
  4157					;**********
  4158
  4159					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4160					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4161					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4162					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4163					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4164					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4165					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4166					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-3
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0108

  4167					;FORMER VALUE PLUS THE CURRENT C(AC)
  4168			011306		SN=SN+1
  4169			010000			YY=YY/2
  4170			770000			ZZ=ZZ+YY
  4171						IFE	YY,<YY=400000>
  4172						IFE	ZZ,<ZZ=400000>
  4173	032413	200 00 0 00 035466 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4174	032414	270 00 0 00 035454 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4175									;POWER SHOULD RESULT IN C(AC)=0.
  4176	032415	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4177						STOP^
  4178	032416	254 04 0 00 032417 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4179	032417	324 00 0 00 032420 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4180									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4181									;IN THE SUBTEST) TO LOOP ON ERROR^
  4182
  4183					;**********
  4184
  4185					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4186					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4187					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4188					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4189					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4190					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4191					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4192					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4193					;FORMER VALUE PLUS THE CURRENT C(AC)
  4194			011307		SN=SN+1
  4195			004000			YY=YY/2
  4196			774000			ZZ=ZZ+YY
  4197						IFE	YY,<YY=400000>
  4198						IFE	ZZ,<ZZ=400000>
  4199	032420	200 00 0 00 035467 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4200	032421	270 00 0 00 035453 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4201									;POWER SHOULD RESULT IN C(AC)=0.
  4202	032422	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4203						STOP^
  4204	032423	254 04 0 00 032424 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4205	032424	324 00 0 00 032425 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4206									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4207									;IN THE SUBTEST) TO LOOP ON ERROR^
  4208
  4209					;**********
  4210
  4211					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4212					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4213					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4214					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4215					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4216					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4217					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4218					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4219					;FORMER VALUE PLUS THE CURRENT C(AC)
  4220			011310		SN=SN+1
  4221			002000			YY=YY/2
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-4
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0109

  4222			776000			ZZ=ZZ+YY
  4223						IFE	YY,<YY=400000>
  4224						IFE	ZZ,<ZZ=400000>
  4225	032425	200 00 0 00 035470 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4226	032426	270 00 0 00 035452 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4227									;POWER SHOULD RESULT IN C(AC)=0.
  4228	032427	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4229						STOP^
  4230	032430	254 04 0 00 032431 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4231	032431	324 00 0 00 032432 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4232									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4233									;IN THE SUBTEST) TO LOOP ON ERROR^
  4234
  4235					;**********
  4236
  4237					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4238					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4239					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4240					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4241					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4242					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4243					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4244					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4245					;FORMER VALUE PLUS THE CURRENT C(AC)
  4246			011311		SN=SN+1
  4247			001000			YY=YY/2
  4248			777000			ZZ=ZZ+YY
  4249						IFE	YY,<YY=400000>
  4250						IFE	ZZ,<ZZ=400000>
  4251	032432	200 00 0 00 035471 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4252	032433	270 00 0 00 035451 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4253									;POWER SHOULD RESULT IN C(AC)=0.
  4254	032434	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4255						STOP^
  4256	032435	254 04 0 00 032436 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4257	032436	324 00 0 00 032437 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4258									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4259									;IN THE SUBTEST) TO LOOP ON ERROR^
  4260
  4261					;**********
  4262
  4263					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4264					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4265					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4266					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4267					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4268					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4269					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4270					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4271					;FORMER VALUE PLUS THE CURRENT C(AC)
  4272			011312		SN=SN+1
  4273			000400			YY=YY/2
  4274			777400			ZZ=ZZ+YY
  4275						IFE	YY,<YY=400000>
  4276						IFE	ZZ,<ZZ=400000>
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-5
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0110

  4277	032437	200 00 0 00 035472 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4278	032440	270 00 0 00 035450 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4279									;POWER SHOULD RESULT IN C(AC)=0.
  4280	032441	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4281						STOP^
  4282	032442	254 04 0 00 032443 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4283	032443	324 00 0 00 032444 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4284									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4285									;IN THE SUBTEST) TO LOOP ON ERROR^
  4286
  4287					;**********
  4288
  4289					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4290					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4291					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4292					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4293					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4294					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4295					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4296					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4297					;FORMER VALUE PLUS THE CURRENT C(AC)
  4298			011313		SN=SN+1
  4299			000200			YY=YY/2
  4300			777600			ZZ=ZZ+YY
  4301						IFE	YY,<YY=400000>
  4302						IFE	ZZ,<ZZ=400000>
  4303	032444	200 00 0 00 035473 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4304	032445	270 00 0 00 035447 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4305									;POWER SHOULD RESULT IN C(AC)=0.
  4306	032446	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4307						STOP^
  4308	032447	254 04 0 00 032450 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4309	032450	324 00 0 00 032451 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4310									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4311									;IN THE SUBTEST) TO LOOP ON ERROR^
  4312
  4313					;**********
  4314
  4315					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4316					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4317					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4318					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4319					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4320					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4321					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4322					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4323					;FORMER VALUE PLUS THE CURRENT C(AC)
  4324			011314		SN=SN+1
  4325			000100			YY=YY/2
  4326			777700			ZZ=ZZ+YY
  4327						IFE	YY,<YY=400000>
  4328						IFE	ZZ,<ZZ=400000>
  4329	032451	200 00 0 00 035474 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4330	032452	270 00 0 00 035446 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4331									;POWER SHOULD RESULT IN C(AC)=0.
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-6
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0111

  4332	032453	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4333						STOP^
  4334	032454	254 04 0 00 032455 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4335	032455	324 00 0 00 032456 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4336									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4337									;IN THE SUBTEST) TO LOOP ON ERROR^
  4338
  4339					;**********
  4340
  4341					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4342					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4343					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4344					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4345					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4346					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4347					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4348					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4349					;FORMER VALUE PLUS THE CURRENT C(AC)
  4350			011315		SN=SN+1
  4351			000040			YY=YY/2
  4352			777740			ZZ=ZZ+YY
  4353						IFE	YY,<YY=400000>
  4354						IFE	ZZ,<ZZ=400000>
  4355	032456	200 00 0 00 035475 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4356	032457	270 00 0 00 035445 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4357									;POWER SHOULD RESULT IN C(AC)=0.
  4358	032460	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4359						STOP^
  4360	032461	254 04 0 00 032462 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4361	032462	324 00 0 00 032463 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4362									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4363									;IN THE SUBTEST) TO LOOP ON ERROR^
  4364
  4365					;**********
  4366
  4367					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4368					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4369					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4370					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4371					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4372					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4373					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4374					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4375					;FORMER VALUE PLUS THE CURRENT C(AC)
  4376			011316		SN=SN+1
  4377			000020			YY=YY/2
  4378			777760			ZZ=ZZ+YY
  4379						IFE	YY,<YY=400000>
  4380						IFE	ZZ,<ZZ=400000>
  4381	032463	200 00 0 00 035476 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4382	032464	270 00 0 00 035444 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4383									;POWER SHOULD RESULT IN C(AC)=0.
  4384	032465	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4385						STOP^
  4386	032466	254 04 0 00 032467 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-7
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0112

  4387	032467	324 00 0 00 032470 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4388									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4389									;IN THE SUBTEST) TO LOOP ON ERROR^
  4390
  4391					;**********
  4392
  4393					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4394					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4395					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4396					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4397					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4398					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4399					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4400					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4401					;FORMER VALUE PLUS THE CURRENT C(AC)
  4402			011317		SN=SN+1
  4403			000010			YY=YY/2
  4404			777770			ZZ=ZZ+YY
  4405						IFE	YY,<YY=400000>
  4406						IFE	ZZ,<ZZ=400000>
  4407	032470	200 00 0 00 035477 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4408	032471	270 00 0 00 035443 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4409									;POWER SHOULD RESULT IN C(AC)=0.
  4410	032472	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4411						STOP^
  4412	032473	254 04 0 00 032474 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4413	032474	324 00 0 00 032475 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4414									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4415									;IN THE SUBTEST) TO LOOP ON ERROR^
  4416
  4417					;**********
  4418
  4419					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4420					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4421					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4422					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4423					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4424					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4425					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4426					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4427					;FORMER VALUE PLUS THE CURRENT C(AC)
  4428			011320		SN=SN+1
  4429			000004			YY=YY/2
  4430			777774			ZZ=ZZ+YY
  4431						IFE	YY,<YY=400000>
  4432						IFE	ZZ,<ZZ=400000>
  4433	032475	200 00 0 00 035500 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4434	032476	270 00 0 00 035442 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4435									;POWER SHOULD RESULT IN C(AC)=0.
  4436	032477	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4437						STOP^
  4438	032500	254 04 0 00 032501 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4439	032501	324 00 0 00 032502 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4440									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4441									;IN THE SUBTEST) TO LOOP ON ERROR^
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-8
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0113

  4442
  4443					;**********
  4444
  4445					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4446					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4447					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4448					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4449					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4450					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4451					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4452					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4453					;FORMER VALUE PLUS THE CURRENT C(AC)
  4454			011321		SN=SN+1
  4455			000002			YY=YY/2
  4456			777776			ZZ=ZZ+YY
  4457						IFE	YY,<YY=400000>
  4458						IFE	ZZ,<ZZ=400000>
  4459	032502	200 00 0 00 035501 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4460	032503	270 00 0 00 035441 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4461									;POWER SHOULD RESULT IN C(AC)=0.
  4462	032504	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4463						STOP^
  4464	032505	254 04 0 00 032506 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4465	032506	324 00 0 00 032507 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4466									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4467									;IN THE SUBTEST) TO LOOP ON ERROR^
  4468
  4469					;**********
  4470
  4471					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4472					;36TH POWER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4473					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4474					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHOUT THE
  4475					;ADDER. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4476					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4477					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4478					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MADE EQUAL TO ITS
  4479					;FORMER VALUE PLUS THE CURRENT C(AC)
  4480			011322		SN=SN+1
  4481			000001			YY=YY/2
  4482			777777			ZZ=ZZ+YY
  4483						IFE	YY,<YY=400000>
  4484						IFE	ZZ,<ZZ=400000>
  4485	032507	200 00 0 00 035502 		MOVE	[XWD ZZ,0]	;PRESET AC TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4486	032510	270 00 0 00 035440 		ADD	[XWD YY,0]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4487									;POWER SHOULD RESULT IN C(AC)=0.
  4488	032511	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4489						STOP^
  4490	032512	254 04 0 00 032513 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4491	032513	324 00 0 00 032514 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4492									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4493									;IN THE SUBTEST) TO LOOP ON ERROR^
  4494
  4495					;**********
  4496
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-9
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0114

  4497					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-10
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0115

  4498			011400		SN=11400
  4499			000000			ZZ=0
  4500			000000			YY=0
  4501
  4502					A11400:	REPEAT	^D18,
  4503					<;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4504					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4505					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4506					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4507					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4508					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4509					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4510					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4511					;FORMER VALUE PLUS THE CURRENT C(AC)
  4512					SN=SN+1
  4513						YY=YY/2
  4514						ZZ=ZZ+YY
  4515						IFE	YY,<YY=400000>
  4516						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4517						MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4518									;POWER SHOULD RESULT IN C(AC)=0.
  4519						ADD	[YY]		;PASS TEST IF C(AC)=0
  4520						SKIPE
  4521						STOP
  4522					
  4523					;**********
  4524					>
  4525					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4526					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4527					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4528					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4529					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4530					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4531					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4532					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4533					;FORMER VALUE PLUS THE CURRENT C(AC)
  4534			011401		SN=SN+1
  4535			000000			YY=YY/2
  4536			000000			ZZ=ZZ+YY
  4537			400000			IFE	YY,<YY=400000>
  4538			400000			IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4539	032514	200 00 0 00 035503 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4540									;POWER SHOULD RESULT IN C(AC)=0.
  4541	032515	270 00 0 00 035437 		ADD	[YY]		;PASS TEST IF C(AC)=0
  4542	032516	332 00 0 00 000000 		SKIPE
  4543						STOP^
  4544	032517	254 04 0 00 032520 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4545	032520	324 00 0 00 032521 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4546									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4547									;IN THE SUBTEST) TO LOOP ON ERROR^
  4548
  4549					;**********
  4550
  4551					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4552					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-11
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0116

  4553					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4554					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4555					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4556					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4557					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4558					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4559					;FORMER VALUE PLUS THE CURRENT C(AC)
  4560			011402		SN=SN+1
  4561			200000			YY=YY/2
  4562			600000			ZZ=ZZ+YY
  4563						IFE	YY,<YY=400000>
  4564						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4565	032521	200 00 0 00 035504 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4566									;POWER SHOULD RESULT IN C(AC)=0.
  4567	032522	270 00 0 00 035436 		ADD	[YY]		;PASS TEST IF C(AC)=0
  4568	032523	332 00 0 00 000000 		SKIPE
  4569						STOP^
  4570	032524	254 04 0 00 032525 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4571	032525	324 00 0 00 032526 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4572									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4573									;IN THE SUBTEST) TO LOOP ON ERROR^
  4574
  4575					;**********
  4576
  4577					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4578					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4579					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4580					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4581					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4582					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4583					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4584					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4585					;FORMER VALUE PLUS THE CURRENT C(AC)
  4586			011403		SN=SN+1
  4587			100000			YY=YY/2
  4588			700000			ZZ=ZZ+YY
  4589						IFE	YY,<YY=400000>
  4590						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4591	032526	200 00 0 00 035505 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4592									;POWER SHOULD RESULT IN C(AC)=0.
  4593	032527	270 00 0 00 035435 		ADD	[YY]		;PASS TEST IF C(AC)=0
  4594	032530	332 00 0 00 000000 		SKIPE
  4595						STOP^
  4596	032531	254 04 0 00 032532 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4597	032532	324 00 0 00 032533 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4598									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4599									;IN THE SUBTEST) TO LOOP ON ERROR^
  4600
  4601					;**********
  4602
  4603					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4604					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4605					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4606					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4607					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-12
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0117

  4608					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4609					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4610					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4611					;FORMER VALUE PLUS THE CURRENT C(AC)
  4612			011404		SN=SN+1
  4613			040000			YY=YY/2
  4614			740000			ZZ=ZZ+YY
  4615						IFE	YY,<YY=400000>
  4616						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4617	032533	200 00 0 00 035506 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4618									;POWER SHOULD RESULT IN C(AC)=0.
  4619	032534	270 00 0 00 035434 		ADD	[YY]		;PASS TEST IF C(AC)=0
  4620	032535	332 00 0 00 000000 		SKIPE
  4621						STOP^
  4622	032536	254 04 0 00 032537 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4623	032537	324 00 0 00 032540 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4624									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4625									;IN THE SUBTEST) TO LOOP ON ERROR^
  4626
  4627					;**********
  4628
  4629					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4630					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4631					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4632					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4633					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4634					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4635					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4636					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4637					;FORMER VALUE PLUS THE CURRENT C(AC)
  4638			011405		SN=SN+1
  4639			020000			YY=YY/2
  4640			760000			ZZ=ZZ+YY
  4641						IFE	YY,<YY=400000>
  4642						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4643	032540	200 00 0 00 035507 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4644									;POWER SHOULD RESULT IN C(AC)=0.
  4645	032541	270 00 0 00 035433 		ADD	[YY]		;PASS TEST IF C(AC)=0
  4646	032542	332 00 0 00 000000 		SKIPE
  4647						STOP^
  4648	032543	254 04 0 00 032544 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4649	032544	324 00 0 00 032545 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4650									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4651									;IN THE SUBTEST) TO LOOP ON ERROR^
  4652
  4653					;**********
  4654
  4655					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4656					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4657					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4658					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4659					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4660					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4661					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4662					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-13
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0118

  4663					;FORMER VALUE PLUS THE CURRENT C(AC)
  4664			011406		SN=SN+1
  4665			010000			YY=YY/2
  4666			770000			ZZ=ZZ+YY
  4667						IFE	YY,<YY=400000>
  4668						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4669	032545	200 00 0 00 035510 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4670									;POWER SHOULD RESULT IN C(AC)=0.
  4671	032546	270 00 0 00 035432 		ADD	[YY]		;PASS TEST IF C(AC)=0
  4672	032547	332 00 0 00 000000 		SKIPE
  4673						STOP^
  4674	032550	254 04 0 00 032551 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4675	032551	324 00 0 00 032552 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4676									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4677									;IN THE SUBTEST) TO LOOP ON ERROR^
  4678
  4679					;**********
  4680
  4681					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4682					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4683					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4684					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4685					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4686					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4687					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4688					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4689					;FORMER VALUE PLUS THE CURRENT C(AC)
  4690			011407		SN=SN+1
  4691			004000			YY=YY/2
  4692			774000			ZZ=ZZ+YY
  4693						IFE	YY,<YY=400000>
  4694						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4695	032552	200 00 0 00 035511 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4696									;POWER SHOULD RESULT IN C(AC)=0.
  4697	032553	270 00 0 00 035431 		ADD	[YY]		;PASS TEST IF C(AC)=0
  4698	032554	332 00 0 00 000000 		SKIPE
  4699						STOP^
  4700	032555	254 04 0 00 032556 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4701	032556	324 00 0 00 032557 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4702									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4703									;IN THE SUBTEST) TO LOOP ON ERROR^
  4704
  4705					;**********
  4706
  4707					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4708					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4709					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4710					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4711					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4712					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4713					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4714					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4715					;FORMER VALUE PLUS THE CURRENT C(AC)
  4716			011410		SN=SN+1
  4717			002000			YY=YY/2
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-14
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0119

  4718			776000			ZZ=ZZ+YY
  4719						IFE	YY,<YY=400000>
  4720						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4721	032557	200 00 0 00 035512 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4722									;POWER SHOULD RESULT IN C(AC)=0.
  4723	032560	270 00 0 00 035430 		ADD	[YY]		;PASS TEST IF C(AC)=0
  4724	032561	332 00 0 00 000000 		SKIPE
  4725						STOP^
  4726	032562	254 04 0 00 032563 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4727	032563	324 00 0 00 032564 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4728									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4729									;IN THE SUBTEST) TO LOOP ON ERROR^
  4730
  4731					;**********
  4732
  4733					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4734					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4735					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4736					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4737					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4738					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4739					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4740					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4741					;FORMER VALUE PLUS THE CURRENT C(AC)
  4742			011411		SN=SN+1
  4743			001000			YY=YY/2
  4744			777000			ZZ=ZZ+YY
  4745						IFE	YY,<YY=400000>
  4746						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4747	032564	200 00 0 00 035513 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4748									;POWER SHOULD RESULT IN C(AC)=0.
  4749	032565	270 00 0 00 035427 		ADD	[YY]		;PASS TEST IF C(AC)=0
  4750	032566	332 00 0 00 000000 		SKIPE
  4751						STOP^
  4752	032567	254 04 0 00 032570 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4753	032570	324 00 0 00 032571 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4754									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4755									;IN THE SUBTEST) TO LOOP ON ERROR^
  4756
  4757					;**********
  4758
  4759					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4760					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4761					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4762					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4763					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4764					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4765					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4766					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4767					;FORMER VALUE PLUS THE CURRENT C(AC)
  4768			011412		SN=SN+1
  4769			000400			YY=YY/2
  4770			777400			ZZ=ZZ+YY
  4771						IFE	YY,<YY=400000>
  4772						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-15
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0120

  4773	032571	200 00 0 00 035514 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4774									;POWER SHOULD RESULT IN C(AC)=0.
  4775	032572	270 00 0 00 035426 		ADD	[YY]		;PASS TEST IF C(AC)=0
  4776	032573	332 00 0 00 000000 		SKIPE
  4777						STOP^
  4778	032574	254 04 0 00 032575 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4779	032575	324 00 0 00 032576 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4780									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4781									;IN THE SUBTEST) TO LOOP ON ERROR^
  4782
  4783					;**********
  4784
  4785					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4786					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4787					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4788					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4789					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4790					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4791					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4792					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4793					;FORMER VALUE PLUS THE CURRENT C(AC)
  4794			011413		SN=SN+1
  4795			000200			YY=YY/2
  4796			777600			ZZ=ZZ+YY
  4797						IFE	YY,<YY=400000>
  4798						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4799	032576	200 00 0 00 035515 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4800									;POWER SHOULD RESULT IN C(AC)=0.
  4801	032577	270 00 0 00 035425 		ADD	[YY]		;PASS TEST IF C(AC)=0
  4802	032600	332 00 0 00 000000 		SKIPE
  4803						STOP^
  4804	032601	254 04 0 00 032602 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4805	032602	324 00 0 00 032603 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4806									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4807									;IN THE SUBTEST) TO LOOP ON ERROR^
  4808
  4809					;**********
  4810
  4811					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4812					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4813					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4814					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4815					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4816					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4817					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4818					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4819					;FORMER VALUE PLUS THE CURRENT C(AC)
  4820			011414		SN=SN+1
  4821			000100			YY=YY/2
  4822			777700			ZZ=ZZ+YY
  4823						IFE	YY,<YY=400000>
  4824						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4825	032603	200 00 0 00 035516 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4826									;POWER SHOULD RESULT IN C(AC)=0.
  4827	032604	270 00 0 00 035424 		ADD	[YY]		;PASS TEST IF C(AC)=0
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-16
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0121

  4828	032605	332 00 0 00 000000 		SKIPE
  4829						STOP^
  4830	032606	254 04 0 00 032607 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4831	032607	324 00 0 00 032610 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4832									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4833									;IN THE SUBTEST) TO LOOP ON ERROR^
  4834
  4835					;**********
  4836
  4837					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4838					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4839					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4840					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4841					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4842					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4843					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4844					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4845					;FORMER VALUE PLUS THE CURRENT C(AC)
  4846			011415		SN=SN+1
  4847			000040			YY=YY/2
  4848			777740			ZZ=ZZ+YY
  4849						IFE	YY,<YY=400000>
  4850						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4851	032610	200 00 0 00 035517 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4852									;POWER SHOULD RESULT IN C(AC)=0.
  4853	032611	270 00 0 00 035423 		ADD	[YY]		;PASS TEST IF C(AC)=0
  4854	032612	332 00 0 00 000000 		SKIPE
  4855						STOP^
  4856	032613	254 04 0 00 032614 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4857	032614	324 00 0 00 032615 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4858									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4859									;IN THE SUBTEST) TO LOOP ON ERROR^
  4860
  4861					;**********
  4862
  4863					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4864					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4865					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4866					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4867					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4868					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4869					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4870					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4871					;FORMER VALUE PLUS THE CURRENT C(AC)
  4872			011416		SN=SN+1
  4873			000020			YY=YY/2
  4874			777760			ZZ=ZZ+YY
  4875						IFE	YY,<YY=400000>
  4876						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4877	032615	200 00 0 00 035520 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4878									;POWER SHOULD RESULT IN C(AC)=0.
  4879	032616	270 00 0 00 035422 		ADD	[YY]		;PASS TEST IF C(AC)=0
  4880	032617	332 00 0 00 000000 		SKIPE
  4881						STOP^
  4882	032620	254 04 0 00 032621 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-17
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0122

  4883	032621	324 00 0 00 032622 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4884									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4885									;IN THE SUBTEST) TO LOOP ON ERROR^
  4886
  4887					;**********
  4888
  4889					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4890					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4891					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4892					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4893					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4894					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4895					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4896					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4897					;FORMER VALUE PLUS THE CURRENT C(AC)
  4898			011417		SN=SN+1
  4899			000010			YY=YY/2
  4900			777770			ZZ=ZZ+YY
  4901						IFE	YY,<YY=400000>
  4902						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4903	032622	200 00 0 00 035521 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4904									;POWER SHOULD RESULT IN C(AC)=0.
  4905	032623	270 00 0 00 035421 		ADD	[YY]		;PASS TEST IF C(AC)=0
  4906	032624	332 00 0 00 000000 		SKIPE
  4907						STOP^
  4908	032625	254 04 0 00 032626 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4909	032626	324 00 0 00 032627 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4910									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4911									;IN THE SUBTEST) TO LOOP ON ERROR^
  4912
  4913					;**********
  4914
  4915					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4916					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4917					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4918					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4919					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4920					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4921					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4922					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4923					;FORMER VALUE PLUS THE CURRENT C(AC)
  4924			011420		SN=SN+1
  4925			000004			YY=YY/2
  4926			777774			ZZ=ZZ+YY
  4927						IFE	YY,<YY=400000>
  4928						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4929	032627	200 00 0 00 035522 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4930									;POWER SHOULD RESULT IN C(AC)=0.
  4931	032630	270 00 0 00 035420 		ADD	[YY]		;PASS TEST IF C(AC)=0
  4932	032631	332 00 0 00 000000 		SKIPE
  4933						STOP^
  4934	032632	254 04 0 00 032633 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4935	032633	324 00 0 00 032634 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4936									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4937									;IN THE SUBTEST) TO LOOP ON ERROR^
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 8-18
DAKABM	MAC	19-JAN-77 13:39		TEST OF THE ADD INSTRUCTION                                                        SEQ 0123

  4938
  4939					;**********
  4940
  4941					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4942					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4943					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4944					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4945					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4946					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4947					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4948					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4949					;FORMER VALUE PLUS THE CURRENT C(AC)
  4950			011421		SN=SN+1
  4951			000002			YY=YY/2
  4952			777776			ZZ=ZZ+YY
  4953						IFE	YY,<YY=400000>
  4954						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4955	032634	200 00 0 00 035523 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4956									;POWER SHOULD RESULT IN C(AC)=0.
  4957	032635	270 00 0 00 035417 		ADD	[YY]		;PASS TEST IF C(AC)=0
  4958	032636	332 00 0 00 000000 		SKIPE
  4959						STOP^
  4960	032637	254 04 0 00 032640 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4961	032640	324 00 0 00 032641 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4962									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4963									;IN THE SUBTEST) TO LOOP ON ERROR^
  4964
  4965					;**********
  4966
  4967					;THIS TEST VERIFIES THAT THE ADDITION OF TWO NUMBERS WHOSE SUM IS 2 RAISED TO THE
  4968					;36TH POSER WILL RESULT IN THE C(AC)=0 SINCE THIS NUMBER IS ONE LARGER
  4969					;THAN THE 36 BIT HARDWARE OF THE PROCESSOR IS DESIGNED TO HANDLE. THIS TEST
  4970					;ALSO VERIFIES CARRY GENERATION AND PROPAGATION THROUGHT THE
  4971					;ADDEC. THIS TEST IS REPEATED 36 TIMES. TESTING BEGINS WITH LOADING THE
  4972					;AC WITH 400000000000 AND ADDING THE SAME NUMBER TO IT; THEN,
  4973					;CHECKING FOR C(AC)=0. IN THE SUBSEQUENT 35 TESTS, THE NUMBER
  4974					;LOADED INTO THE AC IS HALVED EACH TIME AND C(E) IS MODE EQUAL TO ITS
  4975					;FORMER VALUE PLUS THE CURRENT C(AC)
  4976			011422		SN=SN+1
  4977			000001			YY=YY/2
  4978			777777			ZZ=ZZ+YY
  4979						IFE	YY,<YY=400000>
  4980						IFE	ZZ,<ZZ=400000>	;PRESET AB TO A RIPPLED ONE STARTING WITH BIT POSITION 0
  4981	032641	200 00 0 00 035524 		MOVE	[XWD -1,ZZ]	;*ADD OF TWO NUMBERS TOTALING 2 RAISED TO THE 36TH
  4982									;POWER SHOULD RESULT IN C(AC)=0.
  4983	032642	270 00 0 00 035416 		ADD	[YY]		;PASS TEST IF C(AC)=0
  4984	032643	332 00 0 00 000000 		SKIPE
  4985						STOP^
  4986	032644	254 04 0 00 032645 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4987	032645	324 00 0 00 032646 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4988									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  4989									;IN THE SUBTEST) TO LOOP ON ERROR^
  4990
  4991					;**********
  4992
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 9
DAKABM	MAC	19-JAN-77 13:39		SPECIAL KI10 FOUR BIT ADDER TEST                                                   SEQ 0124

  4993					SUBTTL	SPECIAL KI10 FOUR BIT ADDER TEST
  4994
  4995					;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR
  4996					;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER.
  4997					;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 33 TO BIT 32.
  4998
  4999	032646	200 00 0 00 035525 	A13500:	MOVE	[-1,,-5]	;PRESET AC WITH ALL ONES EXCEPT FOR BIT 33
  5000	032647	270 00 0 00 035416 		ADD	[1]		;*ADD SHOULD NOT CAUSE CARRY FROM BIT 33 TO BIT 32
  5001	032650	444 00 0 00 035522 		EQV	[-1,,-4]	;RESULT IN AC=ALL ONES
  5002	032651	444 00 0 00 035412 		EQV	[0]		;RESULT IN AC=0
  5003	032652	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5004						STOP^
  5005	032653	254 04 0 00 032654 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5006	032654	324 00 0 00 032655 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5007									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5008									;IN THE SUBTEST) TO LOOP ON ERROR^
  5009
  5010					;**********
  5011
  5012					;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR
  5013					;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER.
  5014					;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 29 TO BIT 28.
  5015
  5016	032655	200 00 0 00 035526 	A13600:	MOVE	[-1,,-101]	;PRESET AC WITH ALL ONES EXCEPT FOR BIT 29
  5017	032656	270 00 0 00 035416 		ADD	[1]		;*ADD SHOULD NOT CAUSE CARRY FROM BIT 29 TO BIT 28
  5018	032657	444 00 0 00 035516 		EQV	[-1,,-100]	;RESULT IN AC=ALL ONES
  5019	032660	444 00 0 00 035412 		EQV	[0]		;RESULT IN AC=0
  5020	032661	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5021						STOP^
  5022	032662	254 04 0 00 032663 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5023	032663	324 00 0 00 032664 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5024									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5025									;IN THE SUBTEST) TO LOOP ON ERROR^
  5026
  5027					;**********
  5028
  5029					;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR
  5030					;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER.
  5031					;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 25 TO BIT 24.
  5032
  5033	032664	200 00 0 00 035527 	A13700:	MOVE	[-1,,-2001]	;PRESET AC WITH ALL ONES EXCEPT FOR BIT 25
  5034	032665	270 00 0 00 035416 		ADD	[1]		;*ADD SHOULD NOT CAUSE CARRY FROM BIT 25 TO BIT 24
  5035	032666	444 00 0 00 035512 		EQV	[-1,,-2000]	;RESULT IN AC=ALL ONES
  5036	032667	444 00 0 00 035412 		EQV	[0]		;RESULT IN AC=0
  5037	032670	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5038						STOP^
  5039	032671	254 04 0 00 032672 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5040	032672	324 00 0 00 032673 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5041									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5042									;IN THE SUBTEST) TO LOOP ON ERROR^
  5043
  5044					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 10
DAKABM	MAC	19-JAN-77 13:39		SPECIAL KI10 FOUR BIT ADDER TEST                                                   SEQ 0125

  5045					;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR
  5046					;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER.
  5047					;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 21 TO BIT 20.
  5048
  5049	032673	200 00 0 00 035530 	A14000:	MOVE	[-1,,-40001]	;PRESET AC WITH ALL ONES EXCEPT FOR BIT 21
  5050	032674	270 00 0 00 035416 		ADD	[1]		;*ADD SHOULD NOT CAUSE CARRY FROM BIT 21 TO BIT 20
  5051	032675	444 00 0 00 035506 		EQV	[-1,,-40000]	;RESULT IN AC=ALL ONES
  5052	032676	444 00 0 00 035412 		EQV	[0]		;RESULT IN AC=0
  5053	032677	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5054						STOP^
  5055	032700	254 04 0 00 032701 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5056	032701	324 00 0 00 032702 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5057									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5058									;IN THE SUBTEST) TO LOOP ON ERROR^
  5059
  5060					;**********
  5061
  5062					;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR
  5063					;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER.
  5064					;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 18 TO BIT 17.
  5065
  5066	032702	200 00 0 00 035531 	A14100:	MOVE	[-1,,-400001]	;PRESET AC WITH ALL ONES EXCEPT FOR BIT 18
  5067	032703	270 00 0 00 035416 		ADD	[1]		;*ADD SHOULD NOT CAUSE CARRY FROM BIT 18 TO BIT 17
  5068	032704	444 00 0 00 035503 		EQV	[-1,,400000]	;RESULT IN AC=ALL ONES
  5069	032705	444 00 0 00 035412 		EQV	[0]		;RESULT IN AC=0
  5070	032706	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5071						STOP^
  5072	032707	254 04 0 00 032710 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5073	032710	324 00 0 00 032711 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5074									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5075									;IN THE SUBTEST) TO LOOP ON ERROR^
  5076
  5077					;**********
  5078
  5079					;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR
  5080					;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER.
  5081					;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 14 TO BIT 13.
  5082
  5083	032711	200 00 0 00 035532 	A14200:	MOVE	[-11,,-1]	;PRESET AC WITH ALL ONES EXCEPT FOR BIT 14
  5084	032712	270 00 0 00 035416 		ADD	[1]		;*ADD SHOULD NOT CAUSE CARRY FROM BIT 14 TO BIT 13
  5085	032713	444 00 0 00 035477 		EQV	[-10,,0]	;RESULT IN AC=ALL ONES
  5086	032714	444 00 0 00 035412 		EQV	[0]		;RESULT IN AC=0
  5087	032715	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5088						STOP^
  5089	032716	254 04 0 00 032717 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5090	032717	324 00 0 00 032720 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5091									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5092									;IN THE SUBTEST) TO LOOP ON ERROR^
  5093
  5094					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 11
DAKABM	MAC	19-JAN-77 13:39		SPECIAL KI10 FOUR BIT ADDER TEST                                                   SEQ 0126

  5095					;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR
  5096					;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER.
  5097					;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 10 TO BIT 9.
  5098
  5099	032720	200 00 0 00 035533 	A14300:	MOVE	[-201,,-1]	;PRESET AC WITH ALL ONES EXCEPT FOR BIT 10
  5100	032721	270 00 0 00 035416 		ADD	[1]		;*ADD SHOULD NOT CAUSE CARRY FROM BIT 10 TO BIT 9
  5101	032722	444 00 0 00 035473 		EQV	[-200,,0]	;RESULT IN AC=ALL ONES
  5102	032723	444 00 0 00 035412 		EQV	[0]		;RESULT IN AC=0
  5103	032724	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5104						STOP^
  5105	032725	254 04 0 00 032726 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5106	032726	324 00 0 00 032727 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5107									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5108									;IN THE SUBTEST) TO LOOP ON ERROR^
  5109
  5110					;**********
  5111
  5112					;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR
  5113					;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER.
  5114					;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 6 TO BIT 5.
  5115
  5116	032727	200 00 0 00 035534 	A14400:	MOVE	[-4001,,-1]	;PRESET AC WITH ALL ONES EXCEPT FOR BIT 6
  5117	032730	270 00 0 00 035416 		ADD	[1]		;*ADD SHOULD NOT CAUSE CARRY FROM BIT 6 TO BIT 5
  5118	032731	444 00 0 00 035467 		EQV	[-4000,,0]	;RESULT IN AC=ALL ONES
  5119	032732	444 00 0 00 035412 		EQV	[0]		;RESULT IN AC=0
  5120	032733	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5121						STOP^
  5122	032734	254 04 0 00 032735 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5123	032735	324 00 0 00 032736 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5124									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5125									;IN THE SUBTEST) TO LOOP ON ERROR^
  5126
  5127					;**********
  5128
  5129					;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR
  5130					;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER.
  5131					;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 2 TO BIT 1.
  5132
  5133	032736	200 00 0 00 035535 	A14500:	MOVE	[-100001,,-1]	;PRESET AC WITH ALL ONES EXCEPT FOR BIT 2
  5134	032737	270 00 0 00 035416 		ADD	[1]		;*ADD SHOULD NOT CAUSE CARRY FROM BIT 2 TO BIT 1
  5135	032740	444 00 0 00 035463 		EQV	[-100000,,0]	;RESULT IN AC=ALL ONES
  5136	032741	444 00 0 00 035412 		EQV	[0]		;RESULT IN AC=0
  5137	032742	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5138						STOP^
  5139	032743	254 04 0 00 032744 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5140	032744	324 00 0 00 032745 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5141									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5142									;IN THE SUBTEST) TO LOOP ON ERROR^
  5143
  5144					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 12
DAKABM	MAC	19-JAN-77 13:39		SPECIAL KI10 FOUR BIT ADDER TEST                                                   SEQ 0127

  5145					;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR
  5146					;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER.
  5147					;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT 1 TO BIT 0.
  5148
  5149	032745	200 00 0 00 035536 	A14600:	MOVE	[-200001,,-1]	;PRESET AC WITH ALL ONES EXCEPT FOR BIT 1
  5150	032746	270 00 0 00 035416 		ADD	[1]		;*ADD SHOULD NOT CAUSE CARRY FROM BIT 1 TO BIT 0
  5151	032747	444 00 0 00 035462 		EQV	[600000,,0]	;RESULT IN AC=ALL ONES
  5152	032750	444 00 0 00 035412 		EQV	[0]		;RESULT IN AC=0
  5153	032751	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5154						STOP^
  5155	032752	254 04 0 00 032753 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5156	032753	324 00 0 00 032754 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5157									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5158									;IN THE SUBTEST) TO LOOP ON ERROR^
  5159
  5160					;**********
  5161
  5162					;THIS TEST CHECKS THE CARRY FUNCTION FROM THE MOST SIGNIFICANT BIT OF A FOUR
  5163					;BIT ADDER TO THE LEAST SIGNIFICANT BIT OF THE NEXT SIGNIFICANT FOUR BIT ADDER.
  5164					;SPECIFICALLY, IT IS VERIFIED THAT AN ILLEGAL CARRY DOES NOT OCCUR FROM BIT -1TO BIT 35.
  5165
  5166	032754	200 00 0 00 035524 	A14700:	MOVE	[-1,,-1]	;PRESET AC WITH ALL ONES
  5167	032755	270 00 0 00 035416 		ADD	[1]		;*ADD SHOULD NOT CAUSE CARRY FROM BIT -1 TO BIT 35
  5168	032756	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5169						STOP^
  5170	032757	254 04 0 00 032760 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5171	032760	324 00 0 00 032761 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5172									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5173									;IN THE SUBTEST) TO LOOP ON ERROR^
  5174
  5175					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 13
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0128

  5176					SUBTTL	TEST OF SUB AND COMPARE INSTRUCTIONS
  5177
  5178					;THIS TEST VERIFIES THAT IF A NON ZERO POSITIVE NUMBER IN E IS
  5179					;SUBTRACTED FROM THE AC WHEN C(AC)=0, THE RESULT IN THE AC
  5180					;IS NEGATIVE
  5181
  5182	032761	200 00 0 00 035412 	A11500:	MOVE	[0]		;PRESET AC TO ZERO
  5183	032762	274 00 0 00 035537 		SUB	[XWD 0,-1]	;*SUB OF POSITIVE NONZERO NUMBER FROM AC OF ALL ZEROS
  5184									;SHOULD RESULT IN C(AC) NEGATIVE
  5185	032763	331 00 0 00 000000 		SKIPL			;PASS TEST IF C(AC) IS NEGATIVE
  5186						STOP^
  5187	032764	254 04 0 00 032765 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5188	032765	324 00 0 00 032766 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5189									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5190									;IN THE SUBTEST) TO LOOP ON ERROR^
  5191
  5192					;AD AR- EN D [ADAM], F CYC ACT ENB [F1],
  5193					;IR SUBX[IR1], IR ADSUB[IR1]
  5194
  5195					;**********
  5196
  5197					;THIS TEST VERIFIES THAT IF A WORD OF ALL ZEROS IS
  5198					;SUBTRACTED FROM AN AC OF ALL ZEROS, THE RESULT
  5199					;IS AN AC OF ZEROS.
  5200
  5201	032766	200 00 0 00 035412 	A11600:	MOVE	[0]		;PRESET AC TO ZERO
  5202	032767	274 00 0 00 035412 		SUB	[0]		;*SUB OF 0 FROM 0 SHOULD RESULT IN C(AC)=0
  5203	032770	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5204						STOP^
  5205	032771	254 04 0 00 032772 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5206	032772	324 00 0 00 032773 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5207									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5208									;IN THE SUBTEST) TO LOOP ON ERROR^
  5209					;AD CRY 36[ADCR], F CYC ACT EN D[F1], IF SUBX [IR1]
  5210
  5211					;**********
  5212					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 13-1
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0129

  5213			011700		SN=11700
  5214			000000			ZZ=0
  5215
  5216					A11700:	REPEAT	^D36,
  5217					<;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5218					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5219					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5220					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5221					SN=SN+1
  5222						ZZ=ZZ+ZZ
  5223						IFE	ZZ,<ZZ=1>
  5224						MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5225						SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5226						SKIPE			;PASS TEST IF C(AC)=0
  5227						STOP
  5228					
  5229					;**********
  5230					>
  5231					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5232					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5233					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5234					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5235			011701		SN=SN+1
  5236			000000			ZZ=ZZ+ZZ
  5237			000001			IFE	ZZ,<ZZ=1>
  5238	032773	200 00 0 00 035416 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5239	032774	274 00 0 00 035416 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5240	032775	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5241						STOP^
  5242	032776	254 04 0 00 032777 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5243	032777	324 00 0 00 033000 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5244									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5245									;IN THE SUBTEST) TO LOOP ON ERROR^
  5246
  5247					;**********
  5248
  5249					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5250					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5251					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5252					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5253			011702		SN=SN+1
  5254			000002			ZZ=ZZ+ZZ
  5255						IFE	ZZ,<ZZ=1>
  5256	033000	200 00 0 00 035417 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5257	033001	274 00 0 00 035417 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5258	033002	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5259						STOP^
  5260	033003	254 04 0 00 033004 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5261	033004	324 00 0 00 033005 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5262									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5263									;IN THE SUBTEST) TO LOOP ON ERROR^
  5264
  5265					;**********
  5266
  5267					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 13-2
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0130

  5268					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5269					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5270					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5271			011703		SN=SN+1
  5272			000004			ZZ=ZZ+ZZ
  5273						IFE	ZZ,<ZZ=1>
  5274	033005	200 00 0 00 035420 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5275	033006	274 00 0 00 035420 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5276	033007	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5277						STOP^
  5278	033010	254 04 0 00 033011 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5279	033011	324 00 0 00 033012 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5280									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5281									;IN THE SUBTEST) TO LOOP ON ERROR^
  5282
  5283					;**********
  5284
  5285					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5286					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5287					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5288					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5289			011704		SN=SN+1
  5290			000010			ZZ=ZZ+ZZ
  5291						IFE	ZZ,<ZZ=1>
  5292	033012	200 00 0 00 035421 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5293	033013	274 00 0 00 035421 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5294	033014	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5295						STOP^
  5296	033015	254 04 0 00 033016 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5297	033016	324 00 0 00 033017 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5298									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5299									;IN THE SUBTEST) TO LOOP ON ERROR^
  5300
  5301					;**********
  5302
  5303					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5304					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5305					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5306					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5307			011705		SN=SN+1
  5308			000020			ZZ=ZZ+ZZ
  5309						IFE	ZZ,<ZZ=1>
  5310	033017	200 00 0 00 035422 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5311	033020	274 00 0 00 035422 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5312	033021	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5313						STOP^
  5314	033022	254 04 0 00 033023 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5315	033023	324 00 0 00 033024 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5316									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5317									;IN THE SUBTEST) TO LOOP ON ERROR^
  5318
  5319					;**********
  5320
  5321					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5322					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 13-3
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0131

  5323					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5324					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5325			011706		SN=SN+1
  5326			000040			ZZ=ZZ+ZZ
  5327						IFE	ZZ,<ZZ=1>
  5328	033024	200 00 0 00 035423 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5329	033025	274 00 0 00 035423 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5330	033026	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5331						STOP^
  5332	033027	254 04 0 00 033030 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5333	033030	324 00 0 00 033031 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5334									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5335									;IN THE SUBTEST) TO LOOP ON ERROR^
  5336
  5337					;**********
  5338
  5339					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5340					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5341					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5342					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5343			011707		SN=SN+1
  5344			000100			ZZ=ZZ+ZZ
  5345						IFE	ZZ,<ZZ=1>
  5346	033031	200 00 0 00 035424 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5347	033032	274 00 0 00 035424 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5348	033033	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5349						STOP^
  5350	033034	254 04 0 00 033035 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5351	033035	324 00 0 00 033036 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5352									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5353									;IN THE SUBTEST) TO LOOP ON ERROR^
  5354
  5355					;**********
  5356
  5357					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5358					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5359					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5360					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5361			011710		SN=SN+1
  5362			000200			ZZ=ZZ+ZZ
  5363						IFE	ZZ,<ZZ=1>
  5364	033036	200 00 0 00 035425 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5365	033037	274 00 0 00 035425 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5366	033040	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5367						STOP^
  5368	033041	254 04 0 00 033042 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5369	033042	324 00 0 00 033043 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5370									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5371									;IN THE SUBTEST) TO LOOP ON ERROR^
  5372
  5373					;**********
  5374
  5375					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5376					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5377					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 13-4
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0132

  5378					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5379			011711		SN=SN+1
  5380			000400			ZZ=ZZ+ZZ
  5381						IFE	ZZ,<ZZ=1>
  5382	033043	200 00 0 00 035426 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5383	033044	274 00 0 00 035426 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5384	033045	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5385						STOP^
  5386	033046	254 04 0 00 033047 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5387	033047	324 00 0 00 033050 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5388									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5389									;IN THE SUBTEST) TO LOOP ON ERROR^
  5390
  5391					;**********
  5392
  5393					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5394					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5395					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5396					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5397			011712		SN=SN+1
  5398			001000			ZZ=ZZ+ZZ
  5399						IFE	ZZ,<ZZ=1>
  5400	033050	200 00 0 00 035427 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5401	033051	274 00 0 00 035427 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5402	033052	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5403						STOP^
  5404	033053	254 04 0 00 033054 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5405	033054	324 00 0 00 033055 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5406									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5407									;IN THE SUBTEST) TO LOOP ON ERROR^
  5408
  5409					;**********
  5410
  5411					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5412					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5413					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5414					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5415			011713		SN=SN+1
  5416			002000			ZZ=ZZ+ZZ
  5417						IFE	ZZ,<ZZ=1>
  5418	033055	200 00 0 00 035430 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5419	033056	274 00 0 00 035430 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5420	033057	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5421						STOP^
  5422	033060	254 04 0 00 033061 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5423	033061	324 00 0 00 033062 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5424									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5425									;IN THE SUBTEST) TO LOOP ON ERROR^
  5426
  5427					;**********
  5428
  5429					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5430					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5431					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5432					;TIMES IN ORDER TO TEST ALL 36 BITS.
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 13-5
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0133

  5433			011714		SN=SN+1
  5434			004000			ZZ=ZZ+ZZ
  5435						IFE	ZZ,<ZZ=1>
  5436	033062	200 00 0 00 035431 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5437	033063	274 00 0 00 035431 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5438	033064	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5439						STOP^
  5440	033065	254 04 0 00 033066 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5441	033066	324 00 0 00 033067 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5442									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5443									;IN THE SUBTEST) TO LOOP ON ERROR^
  5444
  5445					;**********
  5446
  5447					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5448					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5449					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5450					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5451			011715		SN=SN+1
  5452			010000			ZZ=ZZ+ZZ
  5453						IFE	ZZ,<ZZ=1>
  5454	033067	200 00 0 00 035432 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5455	033070	274 00 0 00 035432 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5456	033071	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5457						STOP^
  5458	033072	254 04 0 00 033073 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5459	033073	324 00 0 00 033074 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5460									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5461									;IN THE SUBTEST) TO LOOP ON ERROR^
  5462
  5463					;**********
  5464
  5465					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5466					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5467					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5468					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5469			011716		SN=SN+1
  5470			020000			ZZ=ZZ+ZZ
  5471						IFE	ZZ,<ZZ=1>
  5472	033074	200 00 0 00 035433 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5473	033075	274 00 0 00 035433 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5474	033076	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5475						STOP^
  5476	033077	254 04 0 00 033100 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5477	033100	324 00 0 00 033101 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5478									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5479									;IN THE SUBTEST) TO LOOP ON ERROR^
  5480
  5481					;**********
  5482
  5483					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5484					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5485					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5486					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5487			011717		SN=SN+1
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 13-6
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0134

  5488			040000			ZZ=ZZ+ZZ
  5489						IFE	ZZ,<ZZ=1>
  5490	033101	200 00 0 00 035434 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5491	033102	274 00 0 00 035434 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5492	033103	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5493						STOP^
  5494	033104	254 04 0 00 033105 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5495	033105	324 00 0 00 033106 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5496									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5497									;IN THE SUBTEST) TO LOOP ON ERROR^
  5498
  5499					;**********
  5500
  5501					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5502					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5503					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5504					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5505			011720		SN=SN+1
  5506			100000			ZZ=ZZ+ZZ
  5507						IFE	ZZ,<ZZ=1>
  5508	033106	200 00 0 00 035435 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5509	033107	274 00 0 00 035435 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5510	033110	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5511						STOP^
  5512	033111	254 04 0 00 033112 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5513	033112	324 00 0 00 033113 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5514									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5515									;IN THE SUBTEST) TO LOOP ON ERROR^
  5516
  5517					;**********
  5518
  5519					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5520					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5521					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5522					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5523			011721		SN=SN+1
  5524			200000			ZZ=ZZ+ZZ
  5525						IFE	ZZ,<ZZ=1>
  5526	033113	200 00 0 00 035436 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5527	033114	274 00 0 00 035436 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5528	033115	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5529						STOP^
  5530	033116	254 04 0 00 033117 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5531	033117	324 00 0 00 033120 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5532									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5533									;IN THE SUBTEST) TO LOOP ON ERROR^
  5534
  5535					;**********
  5536
  5537					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5538					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5539					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5540					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5541			011722		SN=SN+1
  5542			400000			ZZ=ZZ+ZZ
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 13-7
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0135

  5543						IFE	ZZ,<ZZ=1>
  5544	033120	200 00 0 00 035437 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5545	033121	274 00 0 00 035437 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5546	033122	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5547						STOP^
  5548	033123	254 04 0 00 033124 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5549	033124	324 00 0 00 033125 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5550									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5551									;IN THE SUBTEST) TO LOOP ON ERROR^
  5552
  5553					;**********
  5554
  5555					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5556					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5557					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5558					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5559			011723		SN=SN+1
  5560		000001	000000			ZZ=ZZ+ZZ
  5561						IFE	ZZ,<ZZ=1>
  5562	033125	200 00 0 00 035440 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5563	033126	274 00 0 00 035440 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5564	033127	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5565						STOP^
  5566	033130	254 04 0 00 033131 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5567	033131	324 00 0 00 033132 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5568									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5569									;IN THE SUBTEST) TO LOOP ON ERROR^
  5570
  5571					;**********
  5572
  5573					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5574					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5575					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5576					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5577			011724		SN=SN+1
  5578		000002	000000			ZZ=ZZ+ZZ
  5579						IFE	ZZ,<ZZ=1>
  5580	033132	200 00 0 00 035441 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5581	033133	274 00 0 00 035441 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5582	033134	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5583						STOP^
  5584	033135	254 04 0 00 033136 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5585	033136	324 00 0 00 033137 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5586									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5587									;IN THE SUBTEST) TO LOOP ON ERROR^
  5588
  5589					;**********
  5590
  5591					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5592					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5593					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5594					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5595			011725		SN=SN+1
  5596		000004	000000			ZZ=ZZ+ZZ
  5597						IFE	ZZ,<ZZ=1>
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 13-8
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0136

  5598	033137	200 00 0 00 035442 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5599	033140	274 00 0 00 035442 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5600	033141	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5601						STOP^
  5602	033142	254 04 0 00 033143 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5603	033143	324 00 0 00 033144 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5604									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5605									;IN THE SUBTEST) TO LOOP ON ERROR^
  5606
  5607					;**********
  5608
  5609					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5610					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5611					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5612					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5613			011726		SN=SN+1
  5614		000010	000000			ZZ=ZZ+ZZ
  5615						IFE	ZZ,<ZZ=1>
  5616	033144	200 00 0 00 035443 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5617	033145	274 00 0 00 035443 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5618	033146	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5619						STOP^
  5620	033147	254 04 0 00 033150 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5621	033150	324 00 0 00 033151 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5622									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5623									;IN THE SUBTEST) TO LOOP ON ERROR^
  5624
  5625					;**********
  5626
  5627					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5628					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5629					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5630					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5631			011727		SN=SN+1
  5632		000020	000000			ZZ=ZZ+ZZ
  5633						IFE	ZZ,<ZZ=1>
  5634	033151	200 00 0 00 035444 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5635	033152	274 00 0 00 035444 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5636	033153	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5637						STOP^
  5638	033154	254 04 0 00 033155 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5639	033155	324 00 0 00 033156 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5640									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5641									;IN THE SUBTEST) TO LOOP ON ERROR^
  5642
  5643					;**********
  5644
  5645					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5646					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5647					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5648					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5649			011730		SN=SN+1
  5650		000040	000000			ZZ=ZZ+ZZ
  5651						IFE	ZZ,<ZZ=1>
  5652	033156	200 00 0 00 035445 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 13-9
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0137

  5653	033157	274 00 0 00 035445 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5654	033160	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5655						STOP^
  5656	033161	254 04 0 00 033162 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5657	033162	324 00 0 00 033163 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5658									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5659									;IN THE SUBTEST) TO LOOP ON ERROR^
  5660
  5661					;**********
  5662
  5663					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5664					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5665					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5666					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5667			011731		SN=SN+1
  5668		000100	000000			ZZ=ZZ+ZZ
  5669						IFE	ZZ,<ZZ=1>
  5670	033163	200 00 0 00 035446 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5671	033164	274 00 0 00 035446 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5672	033165	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5673						STOP^
  5674	033166	254 04 0 00 033167 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5675	033167	324 00 0 00 033170 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5676									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5677									;IN THE SUBTEST) TO LOOP ON ERROR^
  5678
  5679					;**********
  5680
  5681					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5682					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5683					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5684					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5685			011732		SN=SN+1
  5686		000200	000000			ZZ=ZZ+ZZ
  5687						IFE	ZZ,<ZZ=1>
  5688	033170	200 00 0 00 035447 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5689	033171	274 00 0 00 035447 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5690	033172	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5691						STOP^
  5692	033173	254 04 0 00 033174 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5693	033174	324 00 0 00 033175 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5694									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5695									;IN THE SUBTEST) TO LOOP ON ERROR^
  5696
  5697					;**********
  5698
  5699					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5700					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5701					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5702					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5703			011733		SN=SN+1
  5704		000400	000000			ZZ=ZZ+ZZ
  5705						IFE	ZZ,<ZZ=1>
  5706	033175	200 00 0 00 035450 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5707	033176	274 00 0 00 035450 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 13-10
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0138

  5708	033177	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5709						STOP^
  5710	033200	254 04 0 00 033201 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5711	033201	324 00 0 00 033202 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5712									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5713									;IN THE SUBTEST) TO LOOP ON ERROR^
  5714
  5715					;**********
  5716
  5717					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5718					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5719					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5720					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5721			011734		SN=SN+1
  5722		001000	000000			ZZ=ZZ+ZZ
  5723						IFE	ZZ,<ZZ=1>
  5724	033202	200 00 0 00 035451 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5725	033203	274 00 0 00 035451 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5726	033204	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5727						STOP^
  5728	033205	254 04 0 00 033206 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5729	033206	324 00 0 00 033207 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5730									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5731									;IN THE SUBTEST) TO LOOP ON ERROR^
  5732
  5733					;**********
  5734
  5735					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5736					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5737					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5738					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5739			011735		SN=SN+1
  5740		002000	000000			ZZ=ZZ+ZZ
  5741						IFE	ZZ,<ZZ=1>
  5742	033207	200 00 0 00 035452 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5743	033210	274 00 0 00 035452 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5744	033211	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5745						STOP^
  5746	033212	254 04 0 00 033213 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5747	033213	324 00 0 00 033214 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5748									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5749									;IN THE SUBTEST) TO LOOP ON ERROR^
  5750
  5751					;**********
  5752
  5753					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5754					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5755					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5756					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5757			011736		SN=SN+1
  5758		004000	000000			ZZ=ZZ+ZZ
  5759						IFE	ZZ,<ZZ=1>
  5760	033214	200 00 0 00 035453 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5761	033215	274 00 0 00 035453 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5762	033216	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 13-11
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0139

  5763						STOP^
  5764	033217	254 04 0 00 033220 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5765	033220	324 00 0 00 033221 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5766									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5767									;IN THE SUBTEST) TO LOOP ON ERROR^
  5768
  5769					;**********
  5770
  5771					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5772					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5773					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5774					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5775			011737		SN=SN+1
  5776		010000	000000			ZZ=ZZ+ZZ
  5777						IFE	ZZ,<ZZ=1>
  5778	033221	200 00 0 00 035454 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5779	033222	274 00 0 00 035454 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5780	033223	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5781						STOP^
  5782	033224	254 04 0 00 033225 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5783	033225	324 00 0 00 033226 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5784									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5785									;IN THE SUBTEST) TO LOOP ON ERROR^
  5786
  5787					;**********
  5788
  5789					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5790					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5791					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5792					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5793			011740		SN=SN+1
  5794		020000	000000			ZZ=ZZ+ZZ
  5795						IFE	ZZ,<ZZ=1>
  5796	033226	200 00 0 00 035455 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5797	033227	274 00 0 00 035455 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5798	033230	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5799						STOP^
  5800	033231	254 04 0 00 033232 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5801	033232	324 00 0 00 033233 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5802									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5803									;IN THE SUBTEST) TO LOOP ON ERROR^
  5804
  5805					;**********
  5806
  5807					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5808					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5809					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5810					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5811			011741		SN=SN+1
  5812		040000	000000			ZZ=ZZ+ZZ
  5813						IFE	ZZ,<ZZ=1>
  5814	033233	200 00 0 00 035456 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5815	033234	274 00 0 00 035456 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5816	033235	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5817						STOP^
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 13-12
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0140

  5818	033236	254 04 0 00 033237 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5819	033237	324 00 0 00 033240 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5820									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5821									;IN THE SUBTEST) TO LOOP ON ERROR^
  5822
  5823					;**********
  5824
  5825					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5826					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5827					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5828					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5829			011742		SN=SN+1
  5830		100000	000000			ZZ=ZZ+ZZ
  5831						IFE	ZZ,<ZZ=1>
  5832	033240	200 00 0 00 035457 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5833	033241	274 00 0 00 035457 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5834	033242	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5835						STOP^
  5836	033243	254 04 0 00 033244 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5837	033244	324 00 0 00 033245 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5838									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5839									;IN THE SUBTEST) TO LOOP ON ERROR^
  5840
  5841					;**********
  5842
  5843					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5844					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5845					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5846					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5847			011743		SN=SN+1
  5848		200000	000000			ZZ=ZZ+ZZ
  5849						IFE	ZZ,<ZZ=1>
  5850	033245	200 00 0 00 035460 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5851	033246	274 00 0 00 035460 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5852	033247	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5853						STOP^
  5854	033250	254 04 0 00 033251 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5855	033251	324 00 0 00 033252 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5856									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5857									;IN THE SUBTEST) TO LOOP ON ERROR^
  5858
  5859					;**********
  5860
  5861					;THIS TEST VERIFIES THAT IF A RIPPLED ONE
  5862					;IS SUBTRACTED FROM ITSELF, THE RESULT IS
  5863					;AN AC OF ALL ZEROS. THIS TEST IS REPEATED 36
  5864					;TIMES IN ORDER TO TEST ALL 36 BITS.
  5865			011744		SN=SN+1
  5866		400000	000000			ZZ=ZZ+ZZ
  5867						IFE	ZZ,<ZZ=1>
  5868	033252	200 00 0 00 035461 		MOVE	[ZZ]		;LOAD AC WITH A FLOATING ONE
  5869	033253	274 00 0 00 035461 		SUB	[ZZ]		;*SUB OF FLOATING ONE FROM ITSELF SHOULD RESULT IN C(AC)=0
  5870	033254	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5871						STOP^
  5872	033255	254 04 0 00 033256 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 13-13
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0141

  5873	033256	324 00 0 00 033257 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5874									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5875									;IN THE SUBTEST) TO LOOP ON ERROR^
  5876
  5877					;**********
  5878
  5879					PAGE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 13-14
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0142

  5880					;THIS TEST VERIFIES THAT IF A WORD OF ALL
  5881					;ONES IS SUBTRACTED FROM ITSELF, THE RESULT
  5882					;IN THE AC IS ZERO.
  5883
  5884	033257	200 00 0 00 035524 	A12000:	MOVE	[-1]		;PRESET AC TO ALL ONES
  5885	033260	274 00 0 00 035524 		SUB	[-1]		;*SUB OF -1 FROM ITSELF SHOULD RESULT IN C(AC)=0
  5886	033261	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5887						STOP^
  5888	033262	254 04 0 00 033263 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5889	033263	324 00 0 00 033264 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5890									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5891									;IN THE SUBTEST) TO LOOP ON ERROR^
  5892
  5893					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 14
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0143

  5894					;THIS TEST VERIFIES THAT CAMA ALWAYS SKIPS THE
  5895					;NEXT INSTRUCTION INDEPENDENT OF THE DATA WITH AC
  5896					;AND E. THIS TEST FAILS IF CAMA DOES NOT SKIP ALWAYS.
  5897
  5898	033264	200 00 0 00 035412 	A12100:	MOVE	[0]		;PRESET AC, E TO ZERO
  5899	033265	314 00 0 00 000000 		CAMA			;*CAMA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION,
  5900									;OTHERWISE THIS TEST FAILS
  5901						STOP^
  5902	033266	254 04 0 00 033267 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5903	033267	324 00 0 00 033270 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5904									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5905									;IN THE SUBTEST) TO LOOP ON ERROR^
  5906
  5907					;ET0 [E], ET0 EN[E], IR CAXX[IR3], AD CRY 3C[ADCR],
  5908					;FCYC ACT EN D [ADCR], AD CRY 36 F/F'S [ADCR],
  5909					;PC CLOCK EN [PCC], ET0 C F/F[E], IR CAXX[IR3],
  5910					;ADZ COND P[ADZ] AND ADZ COND Z[ADZ]
  5911
  5912					;**********
  5913
  5914					;THIS TEST VERIFIES THAT CAME IS DATA SENSITIVE.
  5915					;IT SKIPS THE NEXT INSTRUCTION IF AND ONLY
  5916					;IF C(AC)=C(E). IN THIS TEST AC=E=0 AND
  5917					;C(AC)=C(E)=0. HENCE, CAME MUST
  5918					;SKIP THE NEXT INSTRUCTION
  5919					;IN THIS TEST
  5920
  5921	033270	200 00 0 00 035412 	A12200:	MOVE	[0]		;PRESET AC, E TO ZERO
  5922	033271	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP SINCE E=AC
  5923						STOP^
  5924	033272	254 04 0 00 033273 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5925	033273	324 00 0 00 033274 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5926									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5927									;IN THE SUBTEST) TO LOOP ON ERROR^
  5928
  5929					;AD FM + EN [ADFP], F CXC ACT ENC[F1], IRCAXX[IR3]
  5930
  5931					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 15
DAKABM	MAC	19-JAN-77 13:39		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0144

  5932					;THIS TEST VERIFIES THAT CAME IS DATA SENSITIVE
  5933					;IT SKIPS THE NEXT INSTRUCTION OF AND ONLY IF
  5934					;C(AC)=C(E). IN THIS TEST C(AC)=C(E)=0;
  5935					;BUT, E IS NOT WITHIN THE AC RANGE.
  5936					;HENCE, CAME MUST SKIP
  5937					;THE NEXT INSTRUCTION IN THIS TEST.
  5938
  5939	033274	200 00 0 00 035412 	A12300:	MOVE	[0]		;*CAME SHOULD SKIP WHEN C(AC)=C(E)=0
  5940	033275	312 00 0 00 035412 		CAME	[0]
  5941						STOP^
  5942	033276	254 04 0 00 033277 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5943	033277	324 00 0 00 033300 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5944									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5945									;IN THE SUBTEST) TO LOOP ON ERROR^
  5946
  5947					;CAMX: FCE[F1], IR CAMX[IR1]
  5948
  5949					;**********
  5950
  5951					;THIS TEST VERIFIES THAT CAME IS DATA SENSITIVE.
  5952					;IT SKIPS THE NEXT INSTRUCTION IF AND ONLY IF
  5953					;C(AC)=C(E). IN THIS TEST C(AC)=0 AND
  5954					;C(E)=-1. HENCE, CAME SHOULD NOT
  5955					;SKIP THE NEXT INSTRUCTION IN THIS TEST.
  5956
  5957	033300	200 00 0 00 035412 	A12400:	MOVE	[0]		;PRESET AC TO ZERO
  5958	033301	312 00 0 00 035524 		CAME	[-1]		;*CAME SHOULD NOT SKIP BECAUSE C(AC)=0 ANDC(E)=-
  5959	033302	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF CAME PASSES TEST
  5960						STOP^
  5961	033303	254 04 0 00 033304 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5962	033304	324 00 0 00 033305 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5963									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5964									;IN THE SUBTEST) TO LOOP ON ERROR^
  5965
  5966					;AD AR- EN [ADAM], IR CAXX [IR3], F CYC ACT EN B [F1],
  5967					;AD AR- F/F'S [ADAM], AD ADD [ADC1], AD FM + FETCH EN A [ADFP],
  5968					;F CYC ACT EN A [F1], AD ADD EN C [ADC1], AD ADD F/F'S [ADC1]
  5969
  5970					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 16
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0145

  5971					SUBTTL	TEST OF COMPARE (CAMX) INSTRUCTIONS
  5972
  5973					;**********
  5974
  5975					;THIS TEST VERIFIES THAT CAML SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  5976					;ONLY WHEN C(AC) IS LESS THAN C(E).
  5977					;IN THIS TEST, C(AC)=-1 AND C(E)=0; HENCE, CAML SHOULD SKIP.  OTHERWISE,THE 
  5978					;PROGRAM HALTS.
  5979
  5980	033305	200 00 0 00 035524 	B100:	MOVE	[-1]		;PRELOAD AC WITH -1
  5981	033306	311 00 0 00 035412 		CAML	[0]		;*CAML SHOULD SKIP BECAUSE C(AC) IS LESS THAN C(E)
  5982						STOP^
  5983	033307	254 04 0 00 033310 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5984	033310	324 00 0 00 033311 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5985									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5986									;IN THE SUBTEST) TO LOOP ON ERROR^
  5987
  5988					;*****     FAILURE ANALYSIS     *****
  5989					;C(AC0)		C(AC1)		FAILING SIGNAL
  5990
  5991					;				FC: AB PC EN
  5992					;				ET0: COND Q: PC CLK EN
  5993
  5994					;**********
  5995
  5996					;THIS TEST VERIFIES THAT CAML SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  5997					;ONLY WHEN C(AC) IS LESS THAN C(E).
  5998					;IN THIS CASE, C(AC)=0 AND C(E)=-1; HENCE, CAML SHOULD NOT SKIP.  OTHERWISE,
  5999					;THE PROGRAM HALTS.
  6000
  6001	033311	200 00 0 00 035412 	B200:	MOVE	[0]		;PRELOAD AC WITH 0
  6002	033312	311 00 0 00 035524 		CAML	[-1]		;*CAML SHOULD NOT SKIP BECAUSE
  6003									;C(AC) IS GREATER THAN C(E)
  6004	033313	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF CAML PASSES
  6005						STOP^
  6006	033314	254 04 0 00 033315 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6007	033315	324 00 0 00 033316 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6008									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6009									;IN THE SUBTEST) TO LOOP ON ERROR^
  6010
  6011					;*****     FAILURE ANALYSIS     *****
  6012					;C(AC0)		C(AC1)		FAILING SIGNAL
  6013
  6014					;				SW: FCE
  6015					;				FC: PC CHANGE
  6016
  6017					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 17
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0146

  6018					;THIS TEST VERIFIES THAT CAML SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  6019					;ONLY WHEN C(AC) IS LESS THAN C(E).
  6020					;IN THIS CASE, C(AC)=400000,,0 (THE MOST
  6021					;NEGATIVE NUMBER) AND C(E)=377777,,-1
  6022					;(THE MOST POSITIVE NUMBER); HENCE,
  6023					;CAML SHOULD SKIP.  OTHERWISE, THE
  6024					;PROGRAM HALTS
  6025
  6026	033316	200 00 0 00 035461 	B300:	MOVE	[XWD 400000,0]	;PRELOAD AC WITH 400000,,0
  6027	033317	311 00 0 00 035540 		CAML	[XWD 377777,-1]	;*CAML SHOULD SKIP BECAUSE C(AC) IS LESS THAN C(E)
  6028						STOP^
  6029	033320	254 04 0 00 033321 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6030	033321	324 00 0 00 033322 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6031									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6032									;IN THE SUBTEST) TO LOOP ON ERROR^
  6033
  6034					;*****     FAILURE ANALYSIS     *****
  6035					;C(AC0)		C(AC1)		FAILING SIGNAL
  6036
  6037					;				FC: AD ADD
  6038
  6039					;**********
  6040
  6041					;THIS TEST VERIFIES THAT CAML SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  6042					;ONLY WHEN C(AC) IS LESS THAN C(E).
  6043					;IN THIS CASE, C(AC)=377777,,-1 (THE MOST POSITIVE NUMBER) AND C(E)=400000,,0 (THE MOST NEG
  6044					ATIVE NUMBER)
  6045					;HENCE, CAML SHOULD NOT SKIP.  OTHERWISE, THE PROGRAM HALTS.
  6046
  6047	033322	200 00 0 00 035540 	B400:	MOVE	[XWD 377777,-1]	;PRELOAD AC WITH 377777,,-1
  6048	033323	311 00 0 00 035461 		CAML	[XWD 400000,0]	;*CAML SHOULD NOT SKIP BECAUSE
  6049									;C(AC) IS GREATER THAN C(E)
  6050	033324	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF CAML PASSES
  6051						STOP^
  6052	033325	254 04 0 00 033326 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6053	033326	324 00 0 00 033327 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6054									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6055									;IN THE SUBTEST) TO LOOP ON ERROR^
  6056
  6057					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 18
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0147

  6058					;THIS TEST VERIFIES THAT CAML SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  6059					;ONLY WHEN C(AC) IS LESS THAN C(E).
  6060					;IN THIS CASE, C(AC)=400000,,0 (THE MOST NEGTIVE NUMBER) AND C(E)=-1;
  6061					;HENCE, CAML SHOULD SKIP.  OTHERWISE, THE PROGRAM HALTS
  6062
  6063	033327	200 00 0 00 035461 	B500:	MOVE	[XWD 400000,0]	;PRELOAD AC WITH 400000,,0
  6064	033330	311 00 0 00 035524 		CAML	[-1]		;*CAML SHOULD SKIP BECAUSE C(AC) IS LESS THAN C(E)
  6065						STOP^
  6066	033331	254 04 0 00 033332 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6067	033332	324 00 0 00 033333 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6068									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6069									;IN THE SUBTEST) TO LOOP ON ERROR^
  6070
  6071					;*****     FAILURE ANALYSIS     *****
  6072					;C(AC0)		C(AC1)		FAILING SIGNAL
  6073
  6074					;				FC: AD FM + EN
  6075
  6076					;**********
  6077
  6078					;THIS TEST VERIFIES THAT CAML SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  6079					;ONLY WHEN C(AC) IS LESS THAN C(E).
  6080					;IN THIS CASE, C(AC)=0 AND C(E)=-1 ;HENCE, CAML SHOULD NOT SKIP.  OTHERWISE,
  6081					;THE PROGRAM HALTS.
  6082
  6083	033333	400 00 0 00 000000 	B600:	SETZ			;PRELOAD AC WITH 0		
  6084	033334	311 00 0 00 035524 		CAML	[-1]		;*CAML SHOULD NOT SKIP BECAUSE
  6085									;C(AC) IS GREATER THAN C(E)
  6086	033335	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF CAML PASSES.
  6087						STOP^
  6088	033336	254 04 0 00 033337 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6089	033337	324 00 0 00 033340 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6090									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6091									;IN THE SUBTEST) TO LOOP ON ERROR^
  6092
  6093					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 19
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0148

  6094					;THIS TEST VERIFIES THAT CAML SKIPS THE NEXT INSTRUCTION WHEN AND
  6095					;ONLY WHEN C(AC) IS LESS THAN C(E).
  6096					;IN THIS CASE, C(AC)=0 AND C(E)=0 ;HENCE, CAML SHOULD NOT SKIP.  OTHERWISE,
  6097					;THE PROGRAM HALTS.
  6098
  6099	033340	400 00 0 00 000000 	B700:	SETZ			;PRELOAD AS WITH 0		
  6100	033341	311 00 0 00 035412 		CAML	[0]		;*CAML SHOULD NOT SKIP BECAUSE C(AC)=C(E)
  6101	033342	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF CAML PASSES
  6102						STOP^
  6103	033343	254 04 0 00 033344 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6104	033344	324 00 0 00 033345 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6105									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6106									;IN THE SUBTEST) TO LOOP ON ERROR^
  6107
  6108					;*****     FAILURE ANALYSIS     *****
  6109					;C(AC0)		C(AC1)		FAILING SIGNAL
  6110
  6111					;				FC: AD CRY 36
  6112
  6113					;**********
  6114
  6115					;THIS TEST VERIFIES THAT CAML SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  6116					;ONLY WHEN C(AC) IS LESS THAN C(E).
  6117					;IN THIS CASE, C(AC)=0 AND C(E)=400000,,O (THE MOST NEGATIVE NUMBER);
  6118					;HENCE CAML SHOULD NOT SKIP.  OTHERWISE, THE PROGRAM HALTS.
  6119
  6120	033345	400 00 0 00 000000 	B1000:	SETZ			;PRELOAD AC WITH 0
  6121	033346	311 00 0 00 035461 		CAML	[XWD 400000,0]	;*CAML SHOULD NOT SKIP BECAUSE
  6122									;C(AC) IS GREATER THAN C(E)
  6123	033347	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF CAML PASSES
  6124						STOP^
  6125	033350	254 04 0 00 033351 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6126	033351	324 00 0 00 033352 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6127									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6128									;IN THE SUBTEST) TO LOOP ON ERROR^
  6129
  6130					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 20
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0149

  6131					;THIS TEST VERIFIES THAT CAM IS DATA INDEPENDENT.  IT NEVER SKIPS
  6132					;THE NEXT SEQUENTIAL INSTRUCTION
  6133					;IN THIS CASE, C(AC)=-1 AND C(E)=0
  6134					;IF IT DOES SKIP THE NEXT INSTRUCTION, THE PROGRAM HALTS
  6135
  6136	033352	200 00 0 00 035524 	B1100:	MOVE	[-1]		;PRELOAD AC WITH -1	
  6137	033353	310 00 0 00 035412 		CAM	[0]		;*CAM SHOULD NEVER SKIP
  6138	033354	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF CAM PASSES
  6139						STOP^
  6140	033355	254 04 0 00 033356 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6141	033356	324 00 0 00 033357 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6142									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6143									;IN THE SUBTEST) TO LOOP ON ERROR^
  6144
  6145					;**********
  6146
  6147					;THIS TEST VERIFIES THAT CAMGE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  6148					;ONLY WHEN C(AC) IS GREATER THAN OR EQUAL TO C(E).
  6149					;IN THIS CASE, C(AC)=-1 AND C(E)=0;  HENCE, CAMGE SHOULD NOT SKIP.
  6150					;OTHERWISE, THE PROGRAM HALTS.
  6151
  6152	033357	200 00 0 00 035524 	B1200:	MOVE	[-1]		;PRELOAD AC WITH-1	
  6153	033360	315 00 0 00 035412 		CAMGE	[0]		;*CAMGE SHOULD NOT SKIP BECAUSE C(AC) IS LESS THAN C(E)
  6154	033361	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF CAMGE PASSES.
  6155						STOP^
  6156	033362	254 04 0 00 033363 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6157	033363	324 00 0 00 033364 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6158									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6159									;IN THE SUBTEST) TO LOOP ON ERROR^
  6160
  6161					;*****     FAILURE ANALYSIS     *****
  6162					;C(AC0)		C(AC1)		FAILING SIGNAL
  6163
  6164					;				FC: PC CHANGE
  6165					;				FC: AB PC EN
  6166
  6167					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 21
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0150

  6168					;THIS TEST VERIFIES THAT CAMGE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  6169					;ONLY WHEN C(AC) IS GREATER THAN OR EQUAL TO C(E)
  6170					;IN THIS CASE, C(AC)=0 AND C(E)=-1;  HENCE CAMGE SHOULD SKIP.
  6171					;OTHEWISE, THE PROGRAM HALTS.
  6172
  6173	033364	400 00 0 00 000000 	B1300:	SETZ			;PRELOAD AC WITH 0		
  6174	033365	315 00 0 00 035524 		CAMGE	[-1]		;*CAMGE SHOULD SKIP BECAUSE C(AC) IS GREATER THAN C(E)
  6175						STOP^
  6176	033366	254 04 0 00 033367 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6177	033367	324 00 0 00 033370 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6178									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6179									;IN THE SUBTEST) TO LOOP ON ERROR^
  6180
  6181					;*****     FAILURE ANALYSIS     *****
  6182					;C(AC0)		C(AC1)		FAILING SIGNAL
  6183
  6184					;				SW: FCE
  6185					;				ET0: COND Q: PC CLK EN
  6186
  6187					;**********
  6188
  6189					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  6190					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E)
  6191					;IN THIS CASE C(AC)=0 AND C(E)=-1;  HENCE CAMN SHOULD SKIP.
  6192					;OTHERWISE, THE PROGRAM HALTS
  6193
  6194	033370	400 00 0 00 000000 	B1400:	SETZ			;PRELOAD AC WITH 0		
  6195	033371	316 00 0 00 035524 		CAMN	[-1]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)
  6196						STOP^
  6197	033372	254 04 0 00 033373 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6198	033373	324 00 0 00 033374 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6199									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6200									;IN THE SUBTEST) TO LOOP ON ERROR^
  6201
  6202					;*****     FAILURE ANALYSIS     *****
  6203					;C(AC0)		C(AC1)		FAILING SIGNAL
  6204
  6205					;				FC:AD FM + EN
  6206					;				FC: AD AR - EN
  6207					;				FC: AD CRY 36
  6208					;				FC: AD ADD
  6209					;				FC: AB PC EN
  6210					;				ET0: PC CLK EN
  6211
  6212					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 22
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0151

  6213					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  6214					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E)
  6215					;IN THIS CASE, C(AC)=0 AND C(E)=0;  HENCE CAMN SHOULD NOT SKIP.
  6216					;OTHERWISE, THE PROGRAM HALTS
  6217
  6218	033374	400 00 0 00 000000 	B1500:	SETZ			;PRELOAD AC WITH 0		
  6219	033375	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD NOT SKIP BECAUSE C(AC)=C(E).
  6220	033376	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF CAMN PASSES
  6221						STOP^
  6222	033377	254 04 0 00 033400 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6223	033400	324 00 0 00 033401 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6224									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6225									;IN THE SUBTEST) TO LOOP ON ERROR^
  6226
  6227					;*****     FAILURE ANALYSIS     *****
  6228					;C(AC0)		C(AC1)		FAILING SIGNAL
  6229
  6230					;				SW: FCE
  6231					;				FC: PC CHANGE
  6232
  6233					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 23
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0152

  6234			001600		SN=1600
  6235			000000			ZZ=0
  6236
  6237					B1600:	REPEAT	^D18,<
  6238					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6239					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6240					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6241					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6242					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6243					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6244					
  6245					SN=SN+1
  6246						ZZ=ZZ+ZZ
  6247						IFE	ZZ,<ZZ=1>
  6248						MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6249						CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6250						CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6251						STOP
  6252					
  6253					;*****     FAILURE ANALYSIS     *****
  6254					;C(AC0)		C(AC1)		FAILING SIGNAL
  6255					
  6256					;				ET0: COND P
  6257					
  6258					;**********
  6259					>
  6260
  6261					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6262					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6263					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6264					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6265					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6266					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6267
  6268			001601		SN=SN+1
  6269			000000			ZZ=ZZ+ZZ
  6270			000001			IFE	ZZ,<ZZ=1>
  6271	033401	200 00 0 00 035416 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6272	033402	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6273	033403	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6274						STOP^
  6275	033404	254 04 0 00 033405 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6276	033405	324 00 0 00 033406 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6277									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6278									;IN THE SUBTEST) TO LOOP ON ERROR^
  6279
  6280					;*****     FAILURE ANALYSIS     *****
  6281					;C(AC0)		C(AC1)		FAILING SIGNAL
  6282
  6283					;				ET0: COND P
  6284
  6285					;**********
  6286
  6287
  6288					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 23-1
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0153

  6289					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6290					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6291					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6292					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6293					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6294
  6295			001602		SN=SN+1
  6296			000002			ZZ=ZZ+ZZ
  6297						IFE	ZZ,<ZZ=1>
  6298	033406	200 00 0 00 035417 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6299	033407	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6300	033410	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6301						STOP^
  6302	033411	254 04 0 00 033412 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6303	033412	324 00 0 00 033413 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6304									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6305									;IN THE SUBTEST) TO LOOP ON ERROR^
  6306
  6307					;*****     FAILURE ANALYSIS     *****
  6308					;C(AC0)		C(AC1)		FAILING SIGNAL
  6309
  6310					;				ET0: COND P
  6311
  6312					;**********
  6313
  6314
  6315					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6316					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6317					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6318					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6319					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6320					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6321
  6322			001603		SN=SN+1
  6323			000004			ZZ=ZZ+ZZ
  6324						IFE	ZZ,<ZZ=1>
  6325	033413	200 00 0 00 035420 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6326	033414	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6327	033415	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6328						STOP^
  6329	033416	254 04 0 00 033417 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6330	033417	324 00 0 00 033420 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6331									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6332									;IN THE SUBTEST) TO LOOP ON ERROR^
  6333
  6334					;*****     FAILURE ANALYSIS     *****
  6335					;C(AC0)		C(AC1)		FAILING SIGNAL
  6336
  6337					;				ET0: COND P
  6338
  6339					;**********
  6340
  6341
  6342					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6343					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 23-2
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0154

  6344					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6345					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6346					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6347					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6348
  6349			001604		SN=SN+1
  6350			000010			ZZ=ZZ+ZZ
  6351						IFE	ZZ,<ZZ=1>
  6352	033420	200 00 0 00 035421 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6353	033421	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6354	033422	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6355						STOP^
  6356	033423	254 04 0 00 033424 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6357	033424	324 00 0 00 033425 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6358									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6359									;IN THE SUBTEST) TO LOOP ON ERROR^
  6360
  6361					;*****     FAILURE ANALYSIS     *****
  6362					;C(AC0)		C(AC1)		FAILING SIGNAL
  6363
  6364					;				ET0: COND P
  6365
  6366					;**********
  6367
  6368
  6369					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6370					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6371					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6372					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6373					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6374					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6375
  6376			001605		SN=SN+1
  6377			000020			ZZ=ZZ+ZZ
  6378						IFE	ZZ,<ZZ=1>
  6379	033425	200 00 0 00 035422 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6380	033426	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6381	033427	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6382						STOP^
  6383	033430	254 04 0 00 033431 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6384	033431	324 00 0 00 033432 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6385									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6386									;IN THE SUBTEST) TO LOOP ON ERROR^
  6387
  6388					;*****     FAILURE ANALYSIS     *****
  6389					;C(AC0)		C(AC1)		FAILING SIGNAL
  6390
  6391					;				ET0: COND P
  6392
  6393					;**********
  6394
  6395
  6396					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6397					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6398					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 23-3
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0155

  6399					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6400					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6401					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6402
  6403			001606		SN=SN+1
  6404			000040			ZZ=ZZ+ZZ
  6405						IFE	ZZ,<ZZ=1>
  6406	033432	200 00 0 00 035423 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6407	033433	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6408	033434	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6409						STOP^
  6410	033435	254 04 0 00 033436 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6411	033436	324 00 0 00 033437 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6412									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6413									;IN THE SUBTEST) TO LOOP ON ERROR^
  6414
  6415					;*****     FAILURE ANALYSIS     *****
  6416					;C(AC0)		C(AC1)		FAILING SIGNAL
  6417
  6418					;				ET0: COND P
  6419
  6420					;**********
  6421
  6422
  6423					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6424					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6425					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6426					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6427					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6428					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6429
  6430			001607		SN=SN+1
  6431			000100			ZZ=ZZ+ZZ
  6432						IFE	ZZ,<ZZ=1>
  6433	033437	200 00 0 00 035424 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6434	033440	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6435	033441	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6436						STOP^
  6437	033442	254 04 0 00 033443 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6438	033443	324 00 0 00 033444 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6439									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6440									;IN THE SUBTEST) TO LOOP ON ERROR^
  6441
  6442					;*****     FAILURE ANALYSIS     *****
  6443					;C(AC0)		C(AC1)		FAILING SIGNAL
  6444
  6445					;				ET0: COND P
  6446
  6447					;**********
  6448
  6449
  6450					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6451					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6452					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6453					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 23-4
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0156

  6454					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6455					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6456
  6457			001610		SN=SN+1
  6458			000200			ZZ=ZZ+ZZ
  6459						IFE	ZZ,<ZZ=1>
  6460	033444	200 00 0 00 035425 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6461	033445	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6462	033446	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6463						STOP^
  6464	033447	254 04 0 00 033450 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6465	033450	324 00 0 00 033451 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6466									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6467									;IN THE SUBTEST) TO LOOP ON ERROR^
  6468
  6469					;*****     FAILURE ANALYSIS     *****
  6470					;C(AC0)		C(AC1)		FAILING SIGNAL
  6471
  6472					;				ET0: COND P
  6473
  6474					;**********
  6475
  6476
  6477					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6478					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6479					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6480					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6481					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6482					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6483
  6484			001611		SN=SN+1
  6485			000400			ZZ=ZZ+ZZ
  6486						IFE	ZZ,<ZZ=1>
  6487	033451	200 00 0 00 035426 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6488	033452	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6489	033453	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6490						STOP^
  6491	033454	254 04 0 00 033455 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6492	033455	324 00 0 00 033456 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6493									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6494									;IN THE SUBTEST) TO LOOP ON ERROR^
  6495
  6496					;*****     FAILURE ANALYSIS     *****
  6497					;C(AC0)		C(AC1)		FAILING SIGNAL
  6498
  6499					;				ET0: COND P
  6500
  6501					;**********
  6502
  6503
  6504					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6505					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6506					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6507					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6508					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 23-5
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0157

  6509					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6510
  6511			001612		SN=SN+1
  6512			001000			ZZ=ZZ+ZZ
  6513						IFE	ZZ,<ZZ=1>
  6514	033456	200 00 0 00 035427 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6515	033457	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6516	033460	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6517						STOP^
  6518	033461	254 04 0 00 033462 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6519	033462	324 00 0 00 033463 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6520									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6521									;IN THE SUBTEST) TO LOOP ON ERROR^
  6522
  6523					;*****     FAILURE ANALYSIS     *****
  6524					;C(AC0)		C(AC1)		FAILING SIGNAL
  6525
  6526					;				ET0: COND P
  6527
  6528					;**********
  6529
  6530
  6531					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6532					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6533					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6534					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6535					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6536					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6537
  6538			001613		SN=SN+1
  6539			002000			ZZ=ZZ+ZZ
  6540						IFE	ZZ,<ZZ=1>
  6541	033463	200 00 0 00 035430 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6542	033464	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6543	033465	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6544						STOP^
  6545	033466	254 04 0 00 033467 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6546	033467	324 00 0 00 033470 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6547									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6548									;IN THE SUBTEST) TO LOOP ON ERROR^
  6549
  6550					;*****     FAILURE ANALYSIS     *****
  6551					;C(AC0)		C(AC1)		FAILING SIGNAL
  6552
  6553					;				ET0: COND P
  6554
  6555					;**********
  6556
  6557
  6558					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6559					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6560					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6561					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6562					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6563					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 23-6
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0158

  6564
  6565			001614		SN=SN+1
  6566			004000			ZZ=ZZ+ZZ
  6567						IFE	ZZ,<ZZ=1>
  6568	033470	200 00 0 00 035431 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6569	033471	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6570	033472	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6571						STOP^
  6572	033473	254 04 0 00 033474 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6573	033474	324 00 0 00 033475 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6574									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6575									;IN THE SUBTEST) TO LOOP ON ERROR^
  6576
  6577					;*****     FAILURE ANALYSIS     *****
  6578					;C(AC0)		C(AC1)		FAILING SIGNAL
  6579
  6580					;				ET0: COND P
  6581
  6582					;**********
  6583
  6584
  6585					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6586					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6587					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6588					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6589					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6590					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6591
  6592			001615		SN=SN+1
  6593			010000			ZZ=ZZ+ZZ
  6594						IFE	ZZ,<ZZ=1>
  6595	033475	200 00 0 00 035432 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6596	033476	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6597	033477	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6598						STOP^
  6599	033500	254 04 0 00 033501 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6600	033501	324 00 0 00 033502 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6601									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6602									;IN THE SUBTEST) TO LOOP ON ERROR^
  6603
  6604					;*****     FAILURE ANALYSIS     *****
  6605					;C(AC0)		C(AC1)		FAILING SIGNAL
  6606
  6607					;				ET0: COND P
  6608
  6609					;**********
  6610
  6611
  6612					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6613					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6614					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6615					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6616					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6617					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6618
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 23-7
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0159

  6619			001616		SN=SN+1
  6620			020000			ZZ=ZZ+ZZ
  6621						IFE	ZZ,<ZZ=1>
  6622	033502	200 00 0 00 035433 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6623	033503	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6624	033504	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6625						STOP^
  6626	033505	254 04 0 00 033506 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6627	033506	324 00 0 00 033507 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6628									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6629									;IN THE SUBTEST) TO LOOP ON ERROR^
  6630
  6631					;*****     FAILURE ANALYSIS     *****
  6632					;C(AC0)		C(AC1)		FAILING SIGNAL
  6633
  6634					;				ET0: COND P
  6635
  6636					;**********
  6637
  6638
  6639					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6640					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6641					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6642					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6643					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6644					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6645
  6646			001617		SN=SN+1
  6647			040000			ZZ=ZZ+ZZ
  6648						IFE	ZZ,<ZZ=1>
  6649	033507	200 00 0 00 035434 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6650	033510	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6651	033511	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6652						STOP^
  6653	033512	254 04 0 00 033513 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6654	033513	324 00 0 00 033514 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6655									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6656									;IN THE SUBTEST) TO LOOP ON ERROR^
  6657
  6658					;*****     FAILURE ANALYSIS     *****
  6659					;C(AC0)		C(AC1)		FAILING SIGNAL
  6660
  6661					;				ET0: COND P
  6662
  6663					;**********
  6664
  6665
  6666					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6667					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6668					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6669					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6670					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6671					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6672
  6673			001620		SN=SN+1
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 23-8
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0160

  6674			100000			ZZ=ZZ+ZZ
  6675						IFE	ZZ,<ZZ=1>
  6676	033514	200 00 0 00 035435 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6677	033515	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6678	033516	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6679						STOP^
  6680	033517	254 04 0 00 033520 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6681	033520	324 00 0 00 033521 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6682									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6683									;IN THE SUBTEST) TO LOOP ON ERROR^
  6684
  6685					;*****     FAILURE ANALYSIS     *****
  6686					;C(AC0)		C(AC1)		FAILING SIGNAL
  6687
  6688					;				ET0: COND P
  6689
  6690					;**********
  6691
  6692
  6693					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6694					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6695					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6696					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6697					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6698					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6699
  6700			001621		SN=SN+1
  6701			200000			ZZ=ZZ+ZZ
  6702						IFE	ZZ,<ZZ=1>
  6703	033521	200 00 0 00 035436 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6704	033522	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6705	033523	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6706						STOP^
  6707	033524	254 04 0 00 033525 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6708	033525	324 00 0 00 033526 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6709									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6710									;IN THE SUBTEST) TO LOOP ON ERROR^
  6711
  6712					;*****     FAILURE ANALYSIS     *****
  6713					;C(AC0)		C(AC1)		FAILING SIGNAL
  6714
  6715					;				ET0: COND P
  6716
  6717					;**********
  6718
  6719
  6720					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6721					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6722					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6723					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6724					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6725					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6726
  6727			001622		SN=SN+1
  6728			400000			ZZ=ZZ+ZZ
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 23-9
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0161

  6729						IFE	ZZ,<ZZ=1>
  6730	033526	200 00 0 00 035437 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6731	033527	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6732	033530	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6733						STOP^
  6734	033531	254 04 0 00 033532 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6735	033532	324 00 0 00 033533 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6736									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6737									;IN THE SUBTEST) TO LOOP ON ERROR^
  6738
  6739					;*****     FAILURE ANALYSIS     *****
  6740					;C(AC0)		C(AC1)		FAILING SIGNAL
  6741
  6742					;				ET0: COND P
  6743
  6744					;**********
  6745
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 24
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0162

  6746			000000			ZZ=0
  6747
  6748						REPEAT	^D18,<
  6749					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6750					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6751					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6752					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6753					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6754					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6755					
  6756					SN=SN+1
  6757						ZZ=ZZ+ZZ
  6758						IFE	ZZ,<ZZ=1>
  6759						MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  6760						CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6761						CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6762						STOP
  6763					
  6764					;**********
  6765					>
  6766
  6767					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6768					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6769					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6770					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6771					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6772					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6773
  6774			001623		SN=SN+1
  6775			000000			ZZ=ZZ+ZZ
  6776			000001			IFE	ZZ,<ZZ=1>
  6777	033533	200 00 0 00 035440 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  6778	033534	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6779	033535	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6780						STOP^
  6781	033536	254 04 0 00 033537 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6782	033537	324 00 0 00 033540 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6783									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6784									;IN THE SUBTEST) TO LOOP ON ERROR^
  6785
  6786					;**********
  6787
  6788
  6789					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6790					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6791					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6792					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6793					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6794					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6795
  6796			001624		SN=SN+1
  6797			000002			ZZ=ZZ+ZZ
  6798						IFE	ZZ,<ZZ=1>
  6799	033540	200 00 0 00 035441 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  6800	033541	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 24-1
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0163

  6801	033542	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6802						STOP^
  6803	033543	254 04 0 00 033544 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6804	033544	324 00 0 00 033545 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6805									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6806									;IN THE SUBTEST) TO LOOP ON ERROR^
  6807
  6808					;**********
  6809
  6810
  6811					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6812					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6813					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6814					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6815					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6816					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6817
  6818			001625		SN=SN+1
  6819			000004			ZZ=ZZ+ZZ
  6820						IFE	ZZ,<ZZ=1>
  6821	033545	200 00 0 00 035442 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  6822	033546	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6823	033547	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6824						STOP^
  6825	033550	254 04 0 00 033551 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6826	033551	324 00 0 00 033552 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6827									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6828									;IN THE SUBTEST) TO LOOP ON ERROR^
  6829
  6830					;**********
  6831
  6832
  6833					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6834					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6835					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6836					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6837					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6838					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6839
  6840			001626		SN=SN+1
  6841			000010			ZZ=ZZ+ZZ
  6842						IFE	ZZ,<ZZ=1>
  6843	033552	200 00 0 00 035443 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  6844	033553	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6845	033554	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6846						STOP^
  6847	033555	254 04 0 00 033556 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6848	033556	324 00 0 00 033557 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6849									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6850									;IN THE SUBTEST) TO LOOP ON ERROR^
  6851
  6852					;**********
  6853
  6854
  6855					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 24-2
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0164

  6856					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6857					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6858					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6859					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6860					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6861
  6862			001627		SN=SN+1
  6863			000020			ZZ=ZZ+ZZ
  6864						IFE	ZZ,<ZZ=1>
  6865	033557	200 00 0 00 035444 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  6866	033560	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6867	033561	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6868						STOP^
  6869	033562	254 04 0 00 033563 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6870	033563	324 00 0 00 033564 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6871									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6872									;IN THE SUBTEST) TO LOOP ON ERROR^
  6873
  6874					;**********
  6875
  6876
  6877					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6878					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6879					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6880					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6881					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6882					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6883
  6884			001630		SN=SN+1
  6885			000040			ZZ=ZZ+ZZ
  6886						IFE	ZZ,<ZZ=1>
  6887	033564	200 00 0 00 035445 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  6888	033565	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6889	033566	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6890						STOP^
  6891	033567	254 04 0 00 033570 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6892	033570	324 00 0 00 033571 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6893									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6894									;IN THE SUBTEST) TO LOOP ON ERROR^
  6895
  6896					;**********
  6897
  6898
  6899					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6900					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6901					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6902					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6903					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6904					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6905
  6906			001631		SN=SN+1
  6907			000100			ZZ=ZZ+ZZ
  6908						IFE	ZZ,<ZZ=1>
  6909	033571	200 00 0 00 035446 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  6910	033572	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 24-3
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0165

  6911	033573	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6912						STOP^
  6913	033574	254 04 0 00 033575 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6914	033575	324 00 0 00 033576 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6915									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6916									;IN THE SUBTEST) TO LOOP ON ERROR^
  6917
  6918					;**********
  6919
  6920
  6921					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6922					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6923					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6924					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6925					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6926					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6927
  6928			001632		SN=SN+1
  6929			000200			ZZ=ZZ+ZZ
  6930						IFE	ZZ,<ZZ=1>
  6931	033576	200 00 0 00 035447 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  6932	033577	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6933	033600	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6934						STOP^
  6935	033601	254 04 0 00 033602 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6936	033602	324 00 0 00 033603 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6937									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6938									;IN THE SUBTEST) TO LOOP ON ERROR^
  6939
  6940					;**********
  6941
  6942
  6943					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6944					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6945					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6946					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6947					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6948					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6949
  6950			001633		SN=SN+1
  6951			000400			ZZ=ZZ+ZZ
  6952						IFE	ZZ,<ZZ=1>
  6953	033603	200 00 0 00 035450 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  6954	033604	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6955	033605	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6956						STOP^
  6957	033606	254 04 0 00 033607 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6958	033607	324 00 0 00 033610 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6959									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6960									;IN THE SUBTEST) TO LOOP ON ERROR^
  6961
  6962					;**********
  6963
  6964
  6965					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 24-4
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0166

  6966					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6967					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6968					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6969					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6970					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6971
  6972			001634		SN=SN+1
  6973			001000			ZZ=ZZ+ZZ
  6974						IFE	ZZ,<ZZ=1>
  6975	033610	200 00 0 00 035451 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  6976	033611	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6977	033612	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6978						STOP^
  6979	033613	254 04 0 00 033614 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6980	033614	324 00 0 00 033615 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6981									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6982									;IN THE SUBTEST) TO LOOP ON ERROR^
  6983
  6984					;**********
  6985
  6986
  6987					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  6988					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  6989					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  6990					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  6991					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  6992					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  6993
  6994			001635		SN=SN+1
  6995			002000			ZZ=ZZ+ZZ
  6996						IFE	ZZ,<ZZ=1>
  6997	033615	200 00 0 00 035452 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  6998	033616	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6999	033617	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  7000						STOP^
  7001	033620	254 04 0 00 033621 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7002	033621	324 00 0 00 033622 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7003									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7004									;IN THE SUBTEST) TO LOOP ON ERROR^
  7005
  7006					;**********
  7007
  7008
  7009					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  7010					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  7011					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  7012					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  7013					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  7014					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  7015
  7016			001636		SN=SN+1
  7017			004000			ZZ=ZZ+ZZ
  7018						IFE	ZZ,<ZZ=1>
  7019	033622	200 00 0 00 035453 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  7020	033623	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 24-5
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0167

  7021	033624	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  7022						STOP^
  7023	033625	254 04 0 00 033626 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7024	033626	324 00 0 00 033627 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7025									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7026									;IN THE SUBTEST) TO LOOP ON ERROR^
  7027
  7028					;**********
  7029
  7030
  7031					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  7032					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  7033					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  7034					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  7035					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  7036					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  7037
  7038			001637		SN=SN+1
  7039			010000			ZZ=ZZ+ZZ
  7040						IFE	ZZ,<ZZ=1>
  7041	033627	200 00 0 00 035454 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  7042	033630	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  7043	033631	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  7044						STOP^
  7045	033632	254 04 0 00 033633 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7046	033633	324 00 0 00 033634 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7047									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7048									;IN THE SUBTEST) TO LOOP ON ERROR^
  7049
  7050					;**********
  7051
  7052
  7053					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  7054					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  7055					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  7056					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  7057					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  7058					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  7059
  7060			001640		SN=SN+1
  7061			020000			ZZ=ZZ+ZZ
  7062						IFE	ZZ,<ZZ=1>
  7063	033634	200 00 0 00 035455 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  7064	033635	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  7065	033636	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  7066						STOP^
  7067	033637	254 04 0 00 033640 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7068	033640	324 00 0 00 033641 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7069									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7070									;IN THE SUBTEST) TO LOOP ON ERROR^
  7071
  7072					;**********
  7073
  7074
  7075					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 24-6
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0168

  7076					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  7077					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  7078					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  7079					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  7080					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  7081
  7082			001641		SN=SN+1
  7083			040000			ZZ=ZZ+ZZ
  7084						IFE	ZZ,<ZZ=1>
  7085	033641	200 00 0 00 035456 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  7086	033642	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  7087	033643	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  7088						STOP^
  7089	033644	254 04 0 00 033645 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7090	033645	324 00 0 00 033646 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7091									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7092									;IN THE SUBTEST) TO LOOP ON ERROR^
  7093
  7094					;**********
  7095
  7096
  7097					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  7098					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  7099					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  7100					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  7101					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  7102					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  7103
  7104			001642		SN=SN+1
  7105			100000			ZZ=ZZ+ZZ
  7106						IFE	ZZ,<ZZ=1>
  7107	033646	200 00 0 00 035457 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  7108	033647	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  7109	033650	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  7110						STOP^
  7111	033651	254 04 0 00 033652 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7112	033652	324 00 0 00 033653 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7113									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7114									;IN THE SUBTEST) TO LOOP ON ERROR^
  7115
  7116					;**********
  7117
  7118
  7119					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  7120					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  7121					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  7122					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  7123					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  7124					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  7125
  7126			001643		SN=SN+1
  7127			200000			ZZ=ZZ+ZZ
  7128						IFE	ZZ,<ZZ=1>
  7129	033653	200 00 0 00 035460 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  7130	033654	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 24-7
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0169

  7131	033655	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  7132						STOP^
  7133	033656	254 04 0 00 033657 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7134	033657	324 00 0 00 033660 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7135									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7136									;IN THE SUBTEST) TO LOOP ON ERROR^
  7137
  7138					;**********
  7139
  7140
  7141					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  7142					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  7143					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  7144					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  7145					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  7146					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  7147
  7148			001644		SN=SN+1
  7149			400000			ZZ=ZZ+ZZ
  7150						IFE	ZZ,<ZZ=1>
  7151	033660	200 00 0 00 035461 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  7152	033661	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  7153	033662	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  7154						STOP^
  7155	033663	254 04 0 00 033664 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7156	033664	324 00 0 00 033665 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7157									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7158									;IN THE SUBTEST) TO LOOP ON ERROR^
  7159
  7160					;**********
  7161
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 25
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0170

  7162			001700		SN=1700
  7163			000000			ZZ=0
  7164
  7165					B1700:	REPEAT	^D36,<
  7166					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7167					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7168					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7169					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7170					SN=SN+1
  7171						ZZ=ZZ+ZZ
  7172						IFE	ZZ,<ZZ=1>
  7173						SETZ			;PRELOAD AC WITH 0
  7174						CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7175						STOP		
  7176					
  7177					;**********
  7178					>
  7179
  7180					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7181					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7182					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7183					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7184			001701		SN=SN+1
  7185			000000			ZZ=ZZ+ZZ
  7186			000001			IFE	ZZ,<ZZ=1>
  7187	033665	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7188	033666	316 00 0 00 035416 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7189						STOP		^
  7190	033667	254 04 0 00 033670 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7191	033670	324 00 0 00 033671 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7192									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7193									;IN THE SUBTEST) TO LOOP ON ERROR^
  7194
  7195					;**********
  7196
  7197
  7198					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7199					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7200					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7201					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7202			001702		SN=SN+1
  7203			000002			ZZ=ZZ+ZZ
  7204						IFE	ZZ,<ZZ=1>
  7205	033671	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7206	033672	316 00 0 00 035417 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7207						STOP		^
  7208	033673	254 04 0 00 033674 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7209	033674	324 00 0 00 033675 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7210									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7211									;IN THE SUBTEST) TO LOOP ON ERROR^
  7212
  7213					;**********
  7214
  7215
  7216					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 25-1
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0171

  7217					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7218					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7219					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7220			001703		SN=SN+1
  7221			000004			ZZ=ZZ+ZZ
  7222						IFE	ZZ,<ZZ=1>
  7223	033675	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7224	033676	316 00 0 00 035420 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7225						STOP		^
  7226	033677	254 04 0 00 033700 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7227	033700	324 00 0 00 033701 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7228									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7229									;IN THE SUBTEST) TO LOOP ON ERROR^
  7230
  7231					;**********
  7232
  7233
  7234					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7235					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7236					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7237					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7238			001704		SN=SN+1
  7239			000010			ZZ=ZZ+ZZ
  7240						IFE	ZZ,<ZZ=1>
  7241	033701	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7242	033702	316 00 0 00 035421 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7243						STOP		^
  7244	033703	254 04 0 00 033704 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7245	033704	324 00 0 00 033705 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7246									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7247									;IN THE SUBTEST) TO LOOP ON ERROR^
  7248
  7249					;**********
  7250
  7251
  7252					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7253					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7254					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7255					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7256			001705		SN=SN+1
  7257			000020			ZZ=ZZ+ZZ
  7258						IFE	ZZ,<ZZ=1>
  7259	033705	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7260	033706	316 00 0 00 035422 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7261						STOP		^
  7262	033707	254 04 0 00 033710 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7263	033710	324 00 0 00 033711 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7264									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7265									;IN THE SUBTEST) TO LOOP ON ERROR^
  7266
  7267					;**********
  7268
  7269
  7270					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7271					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 25-2
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0172

  7272					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7273					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7274			001706		SN=SN+1
  7275			000040			ZZ=ZZ+ZZ
  7276						IFE	ZZ,<ZZ=1>
  7277	033711	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7278	033712	316 00 0 00 035423 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7279						STOP		^
  7280	033713	254 04 0 00 033714 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7281	033714	324 00 0 00 033715 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7282									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7283									;IN THE SUBTEST) TO LOOP ON ERROR^
  7284
  7285					;**********
  7286
  7287
  7288					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7289					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7290					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7291					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7292			001707		SN=SN+1
  7293			000100			ZZ=ZZ+ZZ
  7294						IFE	ZZ,<ZZ=1>
  7295	033715	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7296	033716	316 00 0 00 035424 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7297						STOP		^
  7298	033717	254 04 0 00 033720 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7299	033720	324 00 0 00 033721 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7300									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7301									;IN THE SUBTEST) TO LOOP ON ERROR^
  7302
  7303					;**********
  7304
  7305
  7306					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7307					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7308					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7309					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7310			001710		SN=SN+1
  7311			000200			ZZ=ZZ+ZZ
  7312						IFE	ZZ,<ZZ=1>
  7313	033721	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7314	033722	316 00 0 00 035425 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7315						STOP		^
  7316	033723	254 04 0 00 033724 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7317	033724	324 00 0 00 033725 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7318									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7319									;IN THE SUBTEST) TO LOOP ON ERROR^
  7320
  7321					;**********
  7322
  7323
  7324					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7325					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7326					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 25-3
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0173

  7327					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7328			001711		SN=SN+1
  7329			000400			ZZ=ZZ+ZZ
  7330						IFE	ZZ,<ZZ=1>
  7331	033725	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7332	033726	316 00 0 00 035426 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7333						STOP		^
  7334	033727	254 04 0 00 033730 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7335	033730	324 00 0 00 033731 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7336									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7337									;IN THE SUBTEST) TO LOOP ON ERROR^
  7338
  7339					;**********
  7340
  7341
  7342					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7343					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7344					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7345					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7346			001712		SN=SN+1
  7347			001000			ZZ=ZZ+ZZ
  7348						IFE	ZZ,<ZZ=1>
  7349	033731	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7350	033732	316 00 0 00 035427 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7351						STOP		^
  7352	033733	254 04 0 00 033734 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7353	033734	324 00 0 00 033735 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7354									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7355									;IN THE SUBTEST) TO LOOP ON ERROR^
  7356
  7357					;**********
  7358
  7359
  7360					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7361					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7362					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7363					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7364			001713		SN=SN+1
  7365			002000			ZZ=ZZ+ZZ
  7366						IFE	ZZ,<ZZ=1>
  7367	033735	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7368	033736	316 00 0 00 035430 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7369						STOP		^
  7370	033737	254 04 0 00 033740 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7371	033740	324 00 0 00 033741 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7372									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7373									;IN THE SUBTEST) TO LOOP ON ERROR^
  7374
  7375					;**********
  7376
  7377
  7378					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7379					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7380					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7381					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 25-4
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0174

  7382			001714		SN=SN+1
  7383			004000			ZZ=ZZ+ZZ
  7384						IFE	ZZ,<ZZ=1>
  7385	033741	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7386	033742	316 00 0 00 035431 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7387						STOP		^
  7388	033743	254 04 0 00 033744 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7389	033744	324 00 0 00 033745 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7390									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7391									;IN THE SUBTEST) TO LOOP ON ERROR^
  7392
  7393					;**********
  7394
  7395
  7396					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7397					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7398					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7399					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7400			001715		SN=SN+1
  7401			010000			ZZ=ZZ+ZZ
  7402						IFE	ZZ,<ZZ=1>
  7403	033745	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7404	033746	316 00 0 00 035432 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7405						STOP		^
  7406	033747	254 04 0 00 033750 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7407	033750	324 00 0 00 033751 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7408									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7409									;IN THE SUBTEST) TO LOOP ON ERROR^
  7410
  7411					;**********
  7412
  7413
  7414					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7415					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7416					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7417					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7418			001716		SN=SN+1
  7419			020000			ZZ=ZZ+ZZ
  7420						IFE	ZZ,<ZZ=1>
  7421	033751	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7422	033752	316 00 0 00 035433 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7423						STOP		^
  7424	033753	254 04 0 00 033754 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7425	033754	324 00 0 00 033755 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7426									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7427									;IN THE SUBTEST) TO LOOP ON ERROR^
  7428
  7429					;**********
  7430
  7431
  7432					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7433					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7434					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7435					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7436			001717		SN=SN+1
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 25-5
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0175

  7437			040000			ZZ=ZZ+ZZ
  7438						IFE	ZZ,<ZZ=1>
  7439	033755	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7440	033756	316 00 0 00 035434 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7441						STOP		^
  7442	033757	254 04 0 00 033760 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7443	033760	324 00 0 00 033761 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7444									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7445									;IN THE SUBTEST) TO LOOP ON ERROR^
  7446
  7447					;**********
  7448
  7449
  7450					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7451					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7452					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7453					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7454			001720		SN=SN+1
  7455			100000			ZZ=ZZ+ZZ
  7456						IFE	ZZ,<ZZ=1>
  7457	033761	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7458	033762	316 00 0 00 035435 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7459						STOP		^
  7460	033763	254 04 0 00 033764 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7461	033764	324 00 0 00 033765 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7462									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7463									;IN THE SUBTEST) TO LOOP ON ERROR^
  7464
  7465					;**********
  7466
  7467
  7468					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7469					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7470					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7471					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7472			001721		SN=SN+1
  7473			200000			ZZ=ZZ+ZZ
  7474						IFE	ZZ,<ZZ=1>
  7475	033765	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7476	033766	316 00 0 00 035436 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7477						STOP		^
  7478	033767	254 04 0 00 033770 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7479	033770	324 00 0 00 033771 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7480									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7481									;IN THE SUBTEST) TO LOOP ON ERROR^
  7482
  7483					;**********
  7484
  7485
  7486					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7487					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7488					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7489					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7490			001722		SN=SN+1
  7491			400000			ZZ=ZZ+ZZ
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 25-6
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0176

  7492						IFE	ZZ,<ZZ=1>
  7493	033771	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7494	033772	316 00 0 00 035437 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7495						STOP		^
  7496	033773	254 04 0 00 033774 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7497	033774	324 00 0 00 033775 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7498									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7499									;IN THE SUBTEST) TO LOOP ON ERROR^
  7500
  7501					;**********
  7502
  7503
  7504					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7505					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7506					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7507					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7508			001723		SN=SN+1
  7509		000001	000000			ZZ=ZZ+ZZ
  7510						IFE	ZZ,<ZZ=1>
  7511	033775	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7512	033776	316 00 0 00 035440 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7513						STOP		^
  7514	033777	254 04 0 00 034000 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7515	034000	324 00 0 00 034001 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7516									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7517									;IN THE SUBTEST) TO LOOP ON ERROR^
  7518
  7519					;**********
  7520
  7521
  7522					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7523					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7524					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7525					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7526			001724		SN=SN+1
  7527		000002	000000			ZZ=ZZ+ZZ
  7528						IFE	ZZ,<ZZ=1>
  7529	034001	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7530	034002	316 00 0 00 035441 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7531						STOP		^
  7532	034003	254 04 0 00 034004 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7533	034004	324 00 0 00 034005 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7534									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7535									;IN THE SUBTEST) TO LOOP ON ERROR^
  7536
  7537					;**********
  7538
  7539
  7540					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7541					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7542					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7543					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7544			001725		SN=SN+1
  7545		000004	000000			ZZ=ZZ+ZZ
  7546						IFE	ZZ,<ZZ=1>
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 25-7
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0177

  7547	034005	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7548	034006	316 00 0 00 035442 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7549						STOP		^
  7550	034007	254 04 0 00 034010 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7551	034010	324 00 0 00 034011 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7552									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7553									;IN THE SUBTEST) TO LOOP ON ERROR^
  7554
  7555					;**********
  7556
  7557
  7558					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7559					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7560					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7561					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7562			001726		SN=SN+1
  7563		000010	000000			ZZ=ZZ+ZZ
  7564						IFE	ZZ,<ZZ=1>
  7565	034011	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7566	034012	316 00 0 00 035443 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7567						STOP		^
  7568	034013	254 04 0 00 034014 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7569	034014	324 00 0 00 034015 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7570									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7571									;IN THE SUBTEST) TO LOOP ON ERROR^
  7572
  7573					;**********
  7574
  7575
  7576					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7577					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7578					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7579					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7580			001727		SN=SN+1
  7581		000020	000000			ZZ=ZZ+ZZ
  7582						IFE	ZZ,<ZZ=1>
  7583	034015	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7584	034016	316 00 0 00 035444 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7585						STOP		^
  7586	034017	254 04 0 00 034020 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7587	034020	324 00 0 00 034021 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7588									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7589									;IN THE SUBTEST) TO LOOP ON ERROR^
  7590
  7591					;**********
  7592
  7593
  7594					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7595					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7596					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7597					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7598			001730		SN=SN+1
  7599		000040	000000			ZZ=ZZ+ZZ
  7600						IFE	ZZ,<ZZ=1>
  7601	034021	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 25-8
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0178

  7602	034022	316 00 0 00 035445 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7603						STOP		^
  7604	034023	254 04 0 00 034024 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7605	034024	324 00 0 00 034025 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7606									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7607									;IN THE SUBTEST) TO LOOP ON ERROR^
  7608
  7609					;**********
  7610
  7611
  7612					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7613					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7614					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7615					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7616			001731		SN=SN+1
  7617		000100	000000			ZZ=ZZ+ZZ
  7618						IFE	ZZ,<ZZ=1>
  7619	034025	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7620	034026	316 00 0 00 035446 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7621						STOP		^
  7622	034027	254 04 0 00 034030 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7623	034030	324 00 0 00 034031 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7624									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7625									;IN THE SUBTEST) TO LOOP ON ERROR^
  7626
  7627					;**********
  7628
  7629
  7630					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7631					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7632					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7633					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7634			001732		SN=SN+1
  7635		000200	000000			ZZ=ZZ+ZZ
  7636						IFE	ZZ,<ZZ=1>
  7637	034031	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7638	034032	316 00 0 00 035447 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7639						STOP		^
  7640	034033	254 04 0 00 034034 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7641	034034	324 00 0 00 034035 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7642									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7643									;IN THE SUBTEST) TO LOOP ON ERROR^
  7644
  7645					;**********
  7646
  7647
  7648					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7649					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7650					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7651					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7652			001733		SN=SN+1
  7653		000400	000000			ZZ=ZZ+ZZ
  7654						IFE	ZZ,<ZZ=1>
  7655	034035	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7656	034036	316 00 0 00 035450 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 25-9
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0179

  7657						STOP		^
  7658	034037	254 04 0 00 034040 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7659	034040	324 00 0 00 034041 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7660									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7661									;IN THE SUBTEST) TO LOOP ON ERROR^
  7662
  7663					;**********
  7664
  7665
  7666					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7667					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7668					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7669					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7670			001734		SN=SN+1
  7671		001000	000000			ZZ=ZZ+ZZ
  7672						IFE	ZZ,<ZZ=1>
  7673	034041	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7674	034042	316 00 0 00 035451 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7675						STOP		^
  7676	034043	254 04 0 00 034044 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7677	034044	324 00 0 00 034045 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7678									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7679									;IN THE SUBTEST) TO LOOP ON ERROR^
  7680
  7681					;**********
  7682
  7683
  7684					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7685					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7686					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7687					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7688			001735		SN=SN+1
  7689		002000	000000			ZZ=ZZ+ZZ
  7690						IFE	ZZ,<ZZ=1>
  7691	034045	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7692	034046	316 00 0 00 035452 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7693						STOP		^
  7694	034047	254 04 0 00 034050 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7695	034050	324 00 0 00 034051 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7696									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7697									;IN THE SUBTEST) TO LOOP ON ERROR^
  7698
  7699					;**********
  7700
  7701
  7702					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7703					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7704					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7705					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7706			001736		SN=SN+1
  7707		004000	000000			ZZ=ZZ+ZZ
  7708						IFE	ZZ,<ZZ=1>
  7709	034051	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7710	034052	316 00 0 00 035453 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7711						STOP		^
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 25-10
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0180

  7712	034053	254 04 0 00 034054 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7713	034054	324 00 0 00 034055 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7714									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7715									;IN THE SUBTEST) TO LOOP ON ERROR^
  7716
  7717					;**********
  7718
  7719
  7720					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7721					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7722					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7723					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7724			001737		SN=SN+1
  7725		010000	000000			ZZ=ZZ+ZZ
  7726						IFE	ZZ,<ZZ=1>
  7727	034055	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7728	034056	316 00 0 00 035454 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7729						STOP		^
  7730	034057	254 04 0 00 034060 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7731	034060	324 00 0 00 034061 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7732									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7733									;IN THE SUBTEST) TO LOOP ON ERROR^
  7734
  7735					;**********
  7736
  7737
  7738					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7739					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7740					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7741					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7742			001740		SN=SN+1
  7743		020000	000000			ZZ=ZZ+ZZ
  7744						IFE	ZZ,<ZZ=1>
  7745	034061	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7746	034062	316 00 0 00 035455 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7747						STOP		^
  7748	034063	254 04 0 00 034064 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7749	034064	324 00 0 00 034065 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7750									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7751									;IN THE SUBTEST) TO LOOP ON ERROR^
  7752
  7753					;**********
  7754
  7755
  7756					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7757					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7758					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7759					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7760			001741		SN=SN+1
  7761		040000	000000			ZZ=ZZ+ZZ
  7762						IFE	ZZ,<ZZ=1>
  7763	034065	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7764	034066	316 00 0 00 035456 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7765						STOP		^
  7766	034067	254 04 0 00 034070 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 25-11
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0181

  7767	034070	324 00 0 00 034071 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7768									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7769									;IN THE SUBTEST) TO LOOP ON ERROR^
  7770
  7771					;**********
  7772
  7773
  7774					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7775					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7776					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7777					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7778			001742		SN=SN+1
  7779		100000	000000			ZZ=ZZ+ZZ
  7780						IFE	ZZ,<ZZ=1>
  7781	034071	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7782	034072	316 00 0 00 035457 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7783						STOP		^
  7784	034073	254 04 0 00 034074 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7785	034074	324 00 0 00 034075 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7786									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7787									;IN THE SUBTEST) TO LOOP ON ERROR^
  7788
  7789					;**********
  7790
  7791
  7792					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7793					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7794					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7795					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7796			001743		SN=SN+1
  7797		200000	000000			ZZ=ZZ+ZZ
  7798						IFE	ZZ,<ZZ=1>
  7799	034075	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7800	034076	316 00 0 00 035460 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7801						STOP		^
  7802	034077	254 04 0 00 034100 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7803	034100	324 00 0 00 034101 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7804									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7805									;IN THE SUBTEST) TO LOOP ON ERROR^
  7806
  7807					;**********
  7808
  7809
  7810					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT INSTRUCTION WHEN AND
  7811					;ONLY WHEN C(AC)=0 AND C(E)=FLOATING 1.  HENCE,
  7812					;CAMN SHOULD SKIP;  OTHERWISE, THE PROGRAM HALTS
  7813					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF E
  7814			001744		SN=SN+1
  7815		400000	000000			ZZ=ZZ+ZZ
  7816						IFE	ZZ,<ZZ=1>
  7817	034101	400 00 0 00 000000 		SETZ			;PRELOAD AC WITH 0
  7818	034102	316 00 0 00 035461 		CAMN	[ZZ]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7819						STOP		^
  7820	034103	254 04 0 00 034104 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7821	034104	324 00 0 00 034105 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 25-12
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0182

  7822									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7823									;IN THE SUBTEST) TO LOOP ON ERROR^
  7824
  7825					;**********
  7826
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 26
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0183

  7827			002000		SN=2000
  7828			000000			ZZ=0
  7829
  7830					B2000:	REPEAT	^D36,<
  7831					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  7832					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  7833					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  7834					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  7835					SN=SN+1
  7836						ZZ=ZZ+ZZ
  7837						IFE	ZZ,<ZZ=1>
  7838						MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  7839						CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7840						STOP
  7841					
  7842					;**********
  7843					>
  7844
  7845					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  7846					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  7847					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  7848					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  7849			002001		SN=SN+1
  7850			000000			ZZ=ZZ+ZZ
  7851			000001			IFE	ZZ,<ZZ=1>
  7852	034105	200 00 0 00 035416 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  7853	034106	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7854						STOP^
  7855	034107	254 04 0 00 034110 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7856	034110	324 00 0 00 034111 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7857									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7858									;IN THE SUBTEST) TO LOOP ON ERROR^
  7859
  7860					;**********
  7861
  7862
  7863					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  7864					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  7865					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  7866					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  7867			002002		SN=SN+1
  7868			000002			ZZ=ZZ+ZZ
  7869						IFE	ZZ,<ZZ=1>
  7870	034111	200 00 0 00 035417 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  7871	034112	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7872						STOP^
  7873	034113	254 04 0 00 034114 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7874	034114	324 00 0 00 034115 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7875									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7876									;IN THE SUBTEST) TO LOOP ON ERROR^
  7877
  7878					;**********
  7879
  7880
  7881					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 26-1
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0184

  7882					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  7883					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  7884					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  7885			002003		SN=SN+1
  7886			000004			ZZ=ZZ+ZZ
  7887						IFE	ZZ,<ZZ=1>
  7888	034115	200 00 0 00 035420 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  7889	034116	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7890						STOP^
  7891	034117	254 04 0 00 034120 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7892	034120	324 00 0 00 034121 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7893									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7894									;IN THE SUBTEST) TO LOOP ON ERROR^
  7895
  7896					;**********
  7897
  7898
  7899					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  7900					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  7901					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  7902					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  7903			002004		SN=SN+1
  7904			000010			ZZ=ZZ+ZZ
  7905						IFE	ZZ,<ZZ=1>
  7906	034121	200 00 0 00 035421 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  7907	034122	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7908						STOP^
  7909	034123	254 04 0 00 034124 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7910	034124	324 00 0 00 034125 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7911									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7912									;IN THE SUBTEST) TO LOOP ON ERROR^
  7913
  7914					;**********
  7915
  7916
  7917					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  7918					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  7919					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  7920					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  7921			002005		SN=SN+1
  7922			000020			ZZ=ZZ+ZZ
  7923						IFE	ZZ,<ZZ=1>
  7924	034125	200 00 0 00 035422 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  7925	034126	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7926						STOP^
  7927	034127	254 04 0 00 034130 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7928	034130	324 00 0 00 034131 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7929									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7930									;IN THE SUBTEST) TO LOOP ON ERROR^
  7931
  7932					;**********
  7933
  7934
  7935					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  7936					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 26-2
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0185

  7937					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  7938					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  7939			002006		SN=SN+1
  7940			000040			ZZ=ZZ+ZZ
  7941						IFE	ZZ,<ZZ=1>
  7942	034131	200 00 0 00 035423 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  7943	034132	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7944						STOP^
  7945	034133	254 04 0 00 034134 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7946	034134	324 00 0 00 034135 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7947									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7948									;IN THE SUBTEST) TO LOOP ON ERROR^
  7949
  7950					;**********
  7951
  7952
  7953					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  7954					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  7955					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  7956					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  7957			002007		SN=SN+1
  7958			000100			ZZ=ZZ+ZZ
  7959						IFE	ZZ,<ZZ=1>
  7960	034135	200 00 0 00 035424 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  7961	034136	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7962						STOP^
  7963	034137	254 04 0 00 034140 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7964	034140	324 00 0 00 034141 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7965									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7966									;IN THE SUBTEST) TO LOOP ON ERROR^
  7967
  7968					;**********
  7969
  7970
  7971					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  7972					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  7973					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  7974					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  7975			002010		SN=SN+1
  7976			000200			ZZ=ZZ+ZZ
  7977						IFE	ZZ,<ZZ=1>
  7978	034141	200 00 0 00 035425 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  7979	034142	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7980						STOP^
  7981	034143	254 04 0 00 034144 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7982	034144	324 00 0 00 034145 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7983									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7984									;IN THE SUBTEST) TO LOOP ON ERROR^
  7985
  7986					;**********
  7987
  7988
  7989					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  7990					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  7991					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 26-3
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0186

  7992					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  7993			002011		SN=SN+1
  7994			000400			ZZ=ZZ+ZZ
  7995						IFE	ZZ,<ZZ=1>
  7996	034145	200 00 0 00 035426 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  7997	034146	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  7998						STOP^
  7999	034147	254 04 0 00 034150 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8000	034150	324 00 0 00 034151 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8001									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8002									;IN THE SUBTEST) TO LOOP ON ERROR^
  8003
  8004					;**********
  8005
  8006
  8007					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8008					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8009					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8010					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8011			002012		SN=SN+1
  8012			001000			ZZ=ZZ+ZZ
  8013						IFE	ZZ,<ZZ=1>
  8014	034151	200 00 0 00 035427 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8015	034152	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8016						STOP^
  8017	034153	254 04 0 00 034154 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8018	034154	324 00 0 00 034155 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8019									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8020									;IN THE SUBTEST) TO LOOP ON ERROR^
  8021
  8022					;**********
  8023
  8024
  8025					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8026					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8027					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8028					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8029			002013		SN=SN+1
  8030			002000			ZZ=ZZ+ZZ
  8031						IFE	ZZ,<ZZ=1>
  8032	034155	200 00 0 00 035430 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8033	034156	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8034						STOP^
  8035	034157	254 04 0 00 034160 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8036	034160	324 00 0 00 034161 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8037									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8038									;IN THE SUBTEST) TO LOOP ON ERROR^
  8039
  8040					;**********
  8041
  8042
  8043					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8044					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8045					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8046					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 26-4
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0187

  8047			002014		SN=SN+1
  8048			004000			ZZ=ZZ+ZZ
  8049						IFE	ZZ,<ZZ=1>
  8050	034161	200 00 0 00 035431 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8051	034162	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8052						STOP^
  8053	034163	254 04 0 00 034164 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8054	034164	324 00 0 00 034165 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8055									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8056									;IN THE SUBTEST) TO LOOP ON ERROR^
  8057
  8058					;**********
  8059
  8060
  8061					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8062					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8063					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8064					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8065			002015		SN=SN+1
  8066			010000			ZZ=ZZ+ZZ
  8067						IFE	ZZ,<ZZ=1>
  8068	034165	200 00 0 00 035432 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8069	034166	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8070						STOP^
  8071	034167	254 04 0 00 034170 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8072	034170	324 00 0 00 034171 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8073									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8074									;IN THE SUBTEST) TO LOOP ON ERROR^
  8075
  8076					;**********
  8077
  8078
  8079					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8080					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8081					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8082					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8083			002016		SN=SN+1
  8084			020000			ZZ=ZZ+ZZ
  8085						IFE	ZZ,<ZZ=1>
  8086	034171	200 00 0 00 035433 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8087	034172	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8088						STOP^
  8089	034173	254 04 0 00 034174 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8090	034174	324 00 0 00 034175 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8091									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8092									;IN THE SUBTEST) TO LOOP ON ERROR^
  8093
  8094					;**********
  8095
  8096
  8097					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8098					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8099					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8100					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8101			002017		SN=SN+1
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 26-5
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0188

  8102			040000			ZZ=ZZ+ZZ
  8103						IFE	ZZ,<ZZ=1>
  8104	034175	200 00 0 00 035434 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8105	034176	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8106						STOP^
  8107	034177	254 04 0 00 034200 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8108	034200	324 00 0 00 034201 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8109									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8110									;IN THE SUBTEST) TO LOOP ON ERROR^
  8111
  8112					;**********
  8113
  8114
  8115					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8116					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8117					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8118					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8119			002020		SN=SN+1
  8120			100000			ZZ=ZZ+ZZ
  8121						IFE	ZZ,<ZZ=1>
  8122	034201	200 00 0 00 035435 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8123	034202	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8124						STOP^
  8125	034203	254 04 0 00 034204 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8126	034204	324 00 0 00 034205 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8127									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8128									;IN THE SUBTEST) TO LOOP ON ERROR^
  8129
  8130					;**********
  8131
  8132
  8133					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8134					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8135					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8136					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8137			002021		SN=SN+1
  8138			200000			ZZ=ZZ+ZZ
  8139						IFE	ZZ,<ZZ=1>
  8140	034205	200 00 0 00 035436 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8141	034206	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8142						STOP^
  8143	034207	254 04 0 00 034210 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8144	034210	324 00 0 00 034211 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8145									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8146									;IN THE SUBTEST) TO LOOP ON ERROR^
  8147
  8148					;**********
  8149
  8150
  8151					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8152					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8153					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8154					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8155			002022		SN=SN+1
  8156			400000			ZZ=ZZ+ZZ
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 26-6
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0189

  8157						IFE	ZZ,<ZZ=1>
  8158	034211	200 00 0 00 035437 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8159	034212	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8160						STOP^
  8161	034213	254 04 0 00 034214 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8162	034214	324 00 0 00 034215 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8163									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8164									;IN THE SUBTEST) TO LOOP ON ERROR^
  8165
  8166					;**********
  8167
  8168
  8169					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8170					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8171					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8172					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8173			002023		SN=SN+1
  8174		000001	000000			ZZ=ZZ+ZZ
  8175						IFE	ZZ,<ZZ=1>
  8176	034215	200 00 0 00 035440 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8177	034216	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8178						STOP^
  8179	034217	254 04 0 00 034220 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8180	034220	324 00 0 00 034221 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8181									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8182									;IN THE SUBTEST) TO LOOP ON ERROR^
  8183
  8184					;**********
  8185
  8186
  8187					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8188					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8189					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8190					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8191			002024		SN=SN+1
  8192		000002	000000			ZZ=ZZ+ZZ
  8193						IFE	ZZ,<ZZ=1>
  8194	034221	200 00 0 00 035441 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8195	034222	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8196						STOP^
  8197	034223	254 04 0 00 034224 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8198	034224	324 00 0 00 034225 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8199									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8200									;IN THE SUBTEST) TO LOOP ON ERROR^
  8201
  8202					;**********
  8203
  8204
  8205					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8206					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8207					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8208					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8209			002025		SN=SN+1
  8210		000004	000000			ZZ=ZZ+ZZ
  8211						IFE	ZZ,<ZZ=1>
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 26-7
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0190

  8212	034225	200 00 0 00 035442 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8213	034226	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8214						STOP^
  8215	034227	254 04 0 00 034230 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8216	034230	324 00 0 00 034231 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8217									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8218									;IN THE SUBTEST) TO LOOP ON ERROR^
  8219
  8220					;**********
  8221
  8222
  8223					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8224					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8225					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8226					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8227			002026		SN=SN+1
  8228		000010	000000			ZZ=ZZ+ZZ
  8229						IFE	ZZ,<ZZ=1>
  8230	034231	200 00 0 00 035443 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8231	034232	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8232						STOP^
  8233	034233	254 04 0 00 034234 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8234	034234	324 00 0 00 034235 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8235									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8236									;IN THE SUBTEST) TO LOOP ON ERROR^
  8237
  8238					;**********
  8239
  8240
  8241					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8242					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8243					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8244					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8245			002027		SN=SN+1
  8246		000020	000000			ZZ=ZZ+ZZ
  8247						IFE	ZZ,<ZZ=1>
  8248	034235	200 00 0 00 035444 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8249	034236	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8250						STOP^
  8251	034237	254 04 0 00 034240 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8252	034240	324 00 0 00 034241 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8253									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8254									;IN THE SUBTEST) TO LOOP ON ERROR^
  8255
  8256					;**********
  8257
  8258
  8259					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8260					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8261					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8262					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8263			002030		SN=SN+1
  8264		000040	000000			ZZ=ZZ+ZZ
  8265						IFE	ZZ,<ZZ=1>
  8266	034241	200 00 0 00 035445 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 26-8
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0191

  8267	034242	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8268						STOP^
  8269	034243	254 04 0 00 034244 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8270	034244	324 00 0 00 034245 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8271									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8272									;IN THE SUBTEST) TO LOOP ON ERROR^
  8273
  8274					;**********
  8275
  8276
  8277					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8278					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8279					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8280					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8281			002031		SN=SN+1
  8282		000100	000000			ZZ=ZZ+ZZ
  8283						IFE	ZZ,<ZZ=1>
  8284	034245	200 00 0 00 035446 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8285	034246	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8286						STOP^
  8287	034247	254 04 0 00 034250 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8288	034250	324 00 0 00 034251 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8289									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8290									;IN THE SUBTEST) TO LOOP ON ERROR^
  8291
  8292					;**********
  8293
  8294
  8295					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8296					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8297					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8298					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8299			002032		SN=SN+1
  8300		000200	000000			ZZ=ZZ+ZZ
  8301						IFE	ZZ,<ZZ=1>
  8302	034251	200 00 0 00 035447 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8303	034252	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8304						STOP^
  8305	034253	254 04 0 00 034254 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8306	034254	324 00 0 00 034255 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8307									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8308									;IN THE SUBTEST) TO LOOP ON ERROR^
  8309
  8310					;**********
  8311
  8312
  8313					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8314					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8315					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8316					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8317			002033		SN=SN+1
  8318		000400	000000			ZZ=ZZ+ZZ
  8319						IFE	ZZ,<ZZ=1>
  8320	034255	200 00 0 00 035450 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8321	034256	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 26-9
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0192

  8322						STOP^
  8323	034257	254 04 0 00 034260 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8324	034260	324 00 0 00 034261 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8325									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8326									;IN THE SUBTEST) TO LOOP ON ERROR^
  8327
  8328					;**********
  8329
  8330
  8331					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8332					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8333					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8334					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8335			002034		SN=SN+1
  8336		001000	000000			ZZ=ZZ+ZZ
  8337						IFE	ZZ,<ZZ=1>
  8338	034261	200 00 0 00 035451 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8339	034262	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8340						STOP^
  8341	034263	254 04 0 00 034264 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8342	034264	324 00 0 00 034265 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8343									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8344									;IN THE SUBTEST) TO LOOP ON ERROR^
  8345
  8346					;**********
  8347
  8348
  8349					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8350					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8351					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8352					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8353			002035		SN=SN+1
  8354		002000	000000			ZZ=ZZ+ZZ
  8355						IFE	ZZ,<ZZ=1>
  8356	034265	200 00 0 00 035452 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8357	034266	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8358						STOP^
  8359	034267	254 04 0 00 034270 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8360	034270	324 00 0 00 034271 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8361									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8362									;IN THE SUBTEST) TO LOOP ON ERROR^
  8363
  8364					;**********
  8365
  8366
  8367					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8368					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8369					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8370					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8371			002036		SN=SN+1
  8372		004000	000000			ZZ=ZZ+ZZ
  8373						IFE	ZZ,<ZZ=1>
  8374	034271	200 00 0 00 035453 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8375	034272	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8376						STOP^
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 26-10
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0193

  8377	034273	254 04 0 00 034274 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8378	034274	324 00 0 00 034275 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8379									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8380									;IN THE SUBTEST) TO LOOP ON ERROR^
  8381
  8382					;**********
  8383
  8384
  8385					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8386					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8387					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8388					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8389			002037		SN=SN+1
  8390		010000	000000			ZZ=ZZ+ZZ
  8391						IFE	ZZ,<ZZ=1>
  8392	034275	200 00 0 00 035454 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8393	034276	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8394						STOP^
  8395	034277	254 04 0 00 034300 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8396	034300	324 00 0 00 034301 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8397									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8398									;IN THE SUBTEST) TO LOOP ON ERROR^
  8399
  8400					;**********
  8401
  8402
  8403					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8404					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8405					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8406					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8407			002040		SN=SN+1
  8408		020000	000000			ZZ=ZZ+ZZ
  8409						IFE	ZZ,<ZZ=1>
  8410	034301	200 00 0 00 035455 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8411	034302	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8412						STOP^
  8413	034303	254 04 0 00 034304 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8414	034304	324 00 0 00 034305 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8415									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8416									;IN THE SUBTEST) TO LOOP ON ERROR^
  8417
  8418					;**********
  8419
  8420
  8421					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8422					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8423					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8424					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8425			002041		SN=SN+1
  8426		040000	000000			ZZ=ZZ+ZZ
  8427						IFE	ZZ,<ZZ=1>
  8428	034305	200 00 0 00 035456 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8429	034306	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8430						STOP^
  8431	034307	254 04 0 00 034310 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 26-11
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0194

  8432	034310	324 00 0 00 034311 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8433									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8434									;IN THE SUBTEST) TO LOOP ON ERROR^
  8435
  8436					;**********
  8437
  8438
  8439					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8440					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8441					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8442					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8443			002042		SN=SN+1
  8444		100000	000000			ZZ=ZZ+ZZ
  8445						IFE	ZZ,<ZZ=1>
  8446	034311	200 00 0 00 035457 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8447	034312	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8448						STOP^
  8449	034313	254 04 0 00 034314 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8450	034314	324 00 0 00 034315 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8451									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8452									;IN THE SUBTEST) TO LOOP ON ERROR^
  8453
  8454					;**********
  8455
  8456
  8457					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8458					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8459					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8460					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8461			002043		SN=SN+1
  8462		200000	000000			ZZ=ZZ+ZZ
  8463						IFE	ZZ,<ZZ=1>
  8464	034315	200 00 0 00 035460 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8465	034316	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8466						STOP^
  8467	034317	254 04 0 00 034320 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8468	034320	324 00 0 00 034321 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8469									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8470									;IN THE SUBTEST) TO LOOP ON ERROR^
  8471
  8472					;**********
  8473
  8474
  8475					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  8476					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E).  HENCE,
  8477					;CAMN SHOULD SKIP;  OTHERWISE THE PROGRAM HALTS.
  8478					;THIS TEST IS REPEATED 36 TIMES TO FLOAT A 1 THRU ALL 36 BITS OF THE AC
  8479			002044		SN=SN+1
  8480		400000	000000			ZZ=ZZ+ZZ
  8481						IFE	ZZ,<ZZ=1>
  8482	034321	200 00 0 00 035461 		MOVE	[ZZ]		;PRELOAD AC WITH A FLOATING 1	
  8483	034322	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD SKIP BECAUSE C(AC) IS NOT EQUAL TO C(E)	
  8484						STOP^
  8485	034323	254 04 0 00 034324 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8486	034324	324 00 0 00 034325 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 26-12
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0195

  8487									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8488									;IN THE SUBTEST) TO LOOP ON ERROR^
  8489
  8490					;**********
  8491
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 27
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0196

  8492					SUBTTL	TEST OF MOVS INSTRUCTION
  8493
  8494					;**********
  8495
  8496			002100		SN=2100
  8497			000000			ZZ=0
  8498
  8499					B2100:	REPEAT	^D18,<
  8500					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8501					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8502					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8503					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8504					
  8505					SN=SN+1
  8506						ZZ=ZZ+ZZ
  8507						IFE	ZZ,<ZZ=1>
  8508						MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8509									;AND MOVE RESULT INTO AC
  8510						CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
  8511						STOP		
  8512					
  8513					;**********
  8514					>
  8515
  8516					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8517					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8518					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8519					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8520
  8521			002101		SN=SN+1
  8522			000000			ZZ=ZZ+ZZ
  8523			000001			IFE	ZZ,<ZZ=1>
  8524	034325	204 00 0 00 035410 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8525									;AND MOVE RESULT INTO AC
  8526	034326	312 00 0 00 035410 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
  8527						STOP		^
  8528	034327	254 04 0 00 034330 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8529	034330	324 00 0 00 034331 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8530									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8531									;IN THE SUBTEST) TO LOOP ON ERROR^
  8532
  8533					;**********
  8534
  8535
  8536					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8537					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8538					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8539					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8540
  8541			002102		SN=SN+1
  8542			000002			ZZ=ZZ+ZZ
  8543						IFE	ZZ,<ZZ=1>
  8544	034331	204 00 0 00 035541 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8545									;AND MOVE RESULT INTO AC
  8546	034332	312 00 0 00 035541 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 27-1
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0197

  8547						STOP		^
  8548	034333	254 04 0 00 034334 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8549	034334	324 00 0 00 034335 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8550									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8551									;IN THE SUBTEST) TO LOOP ON ERROR^
  8552
  8553					;**********
  8554
  8555
  8556					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8557					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8558					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8559					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8560
  8561			002103		SN=SN+1
  8562			000004			ZZ=ZZ+ZZ
  8563						IFE	ZZ,<ZZ=1>
  8564	034335	204 00 0 00 035542 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8565									;AND MOVE RESULT INTO AC
  8566	034336	312 00 0 00 035542 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
  8567						STOP		^
  8568	034337	254 04 0 00 034340 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8569	034340	324 00 0 00 034341 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8570									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8571									;IN THE SUBTEST) TO LOOP ON ERROR^
  8572
  8573					;**********
  8574
  8575
  8576					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8577					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8578					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8579					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8580
  8581			002104		SN=SN+1
  8582			000010			ZZ=ZZ+ZZ
  8583						IFE	ZZ,<ZZ=1>
  8584	034341	204 00 0 00 035543 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8585									;AND MOVE RESULT INTO AC
  8586	034342	312 00 0 00 035543 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
  8587						STOP		^
  8588	034343	254 04 0 00 034344 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8589	034344	324 00 0 00 034345 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8590									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8591									;IN THE SUBTEST) TO LOOP ON ERROR^
  8592
  8593					;**********
  8594
  8595
  8596					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8597					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8598					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8599					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8600
  8601			002105		SN=SN+1
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 27-2
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0198

  8602			000020			ZZ=ZZ+ZZ
  8603						IFE	ZZ,<ZZ=1>
  8604	034345	204 00 0 00 035544 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8605									;AND MOVE RESULT INTO AC
  8606	034346	312 00 0 00 035544 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
  8607						STOP		^
  8608	034347	254 04 0 00 034350 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8609	034350	324 00 0 00 034351 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8610									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8611									;IN THE SUBTEST) TO LOOP ON ERROR^
  8612
  8613					;**********
  8614
  8615
  8616					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8617					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8618					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8619					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8620
  8621			002106		SN=SN+1
  8622			000040			ZZ=ZZ+ZZ
  8623						IFE	ZZ,<ZZ=1>
  8624	034351	204 00 0 00 035545 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8625									;AND MOVE RESULT INTO AC
  8626	034352	312 00 0 00 035545 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
  8627						STOP		^
  8628	034353	254 04 0 00 034354 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8629	034354	324 00 0 00 034355 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8630									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8631									;IN THE SUBTEST) TO LOOP ON ERROR^
  8632
  8633					;**********
  8634
  8635
  8636					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8637					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8638					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8639					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8640
  8641			002107		SN=SN+1
  8642			000100			ZZ=ZZ+ZZ
  8643						IFE	ZZ,<ZZ=1>
  8644	034355	204 00 0 00 035546 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8645									;AND MOVE RESULT INTO AC
  8646	034356	312 00 0 00 035546 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
  8647						STOP		^
  8648	034357	254 04 0 00 034360 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8649	034360	324 00 0 00 034361 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8650									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8651									;IN THE SUBTEST) TO LOOP ON ERROR^
  8652
  8653					;**********
  8654
  8655
  8656					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 27-3
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0199

  8657					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8658					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8659					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8660
  8661			002110		SN=SN+1
  8662			000200			ZZ=ZZ+ZZ
  8663						IFE	ZZ,<ZZ=1>
  8664	034361	204 00 0 00 035547 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8665									;AND MOVE RESULT INTO AC
  8666	034362	312 00 0 00 035547 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
  8667						STOP		^
  8668	034363	254 04 0 00 034364 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8669	034364	324 00 0 00 034365 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8670									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8671									;IN THE SUBTEST) TO LOOP ON ERROR^
  8672
  8673					;**********
  8674
  8675
  8676					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8677					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8678					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8679					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8680
  8681			002111		SN=SN+1
  8682			000400			ZZ=ZZ+ZZ
  8683						IFE	ZZ,<ZZ=1>
  8684	034365	204 00 0 00 035550 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8685									;AND MOVE RESULT INTO AC
  8686	034366	312 00 0 00 035550 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
  8687						STOP		^
  8688	034367	254 04 0 00 034370 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8689	034370	324 00 0 00 034371 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8690									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8691									;IN THE SUBTEST) TO LOOP ON ERROR^
  8692
  8693					;**********
  8694
  8695
  8696					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8697					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8698					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8699					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8700
  8701			002112		SN=SN+1
  8702			001000			ZZ=ZZ+ZZ
  8703						IFE	ZZ,<ZZ=1>
  8704	034371	204 00 0 00 035551 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8705									;AND MOVE RESULT INTO AC
  8706	034372	312 00 0 00 035551 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
  8707						STOP		^
  8708	034373	254 04 0 00 034374 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8709	034374	324 00 0 00 034375 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8710									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8711									;IN THE SUBTEST) TO LOOP ON ERROR^
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 27-4
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0200

  8712
  8713					;**********
  8714
  8715
  8716					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8717					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8718					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8719					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8720
  8721			002113		SN=SN+1
  8722			002000			ZZ=ZZ+ZZ
  8723						IFE	ZZ,<ZZ=1>
  8724	034375	204 00 0 00 035552 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8725									;AND MOVE RESULT INTO AC
  8726	034376	312 00 0 00 035552 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
  8727						STOP		^
  8728	034377	254 04 0 00 034400 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8729	034400	324 00 0 00 034401 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8730									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8731									;IN THE SUBTEST) TO LOOP ON ERROR^
  8732
  8733					;**********
  8734
  8735
  8736					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8737					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8738					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8739					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8740
  8741			002114		SN=SN+1
  8742			004000			ZZ=ZZ+ZZ
  8743						IFE	ZZ,<ZZ=1>
  8744	034401	204 00 0 00 035553 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8745									;AND MOVE RESULT INTO AC
  8746	034402	312 00 0 00 035553 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
  8747						STOP		^
  8748	034403	254 04 0 00 034404 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8749	034404	324 00 0 00 034405 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8750									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8751									;IN THE SUBTEST) TO LOOP ON ERROR^
  8752
  8753					;**********
  8754
  8755
  8756					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8757					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8758					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8759					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8760
  8761			002115		SN=SN+1
  8762			010000			ZZ=ZZ+ZZ
  8763						IFE	ZZ,<ZZ=1>
  8764	034405	204 00 0 00 035554 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8765									;AND MOVE RESULT INTO AC
  8766	034406	312 00 0 00 035554 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 27-5
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0201

  8767						STOP		^
  8768	034407	254 04 0 00 034410 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8769	034410	324 00 0 00 034411 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8770									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8771									;IN THE SUBTEST) TO LOOP ON ERROR^
  8772
  8773					;**********
  8774
  8775
  8776					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8777					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8778					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8779					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8780
  8781			002116		SN=SN+1
  8782			020000			ZZ=ZZ+ZZ
  8783						IFE	ZZ,<ZZ=1>
  8784	034411	204 00 0 00 035555 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8785									;AND MOVE RESULT INTO AC
  8786	034412	312 00 0 00 035555 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
  8787						STOP		^
  8788	034413	254 04 0 00 034414 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8789	034414	324 00 0 00 034415 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8790									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8791									;IN THE SUBTEST) TO LOOP ON ERROR^
  8792
  8793					;**********
  8794
  8795
  8796					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8797					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8798					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8799					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8800
  8801			002117		SN=SN+1
  8802			040000			ZZ=ZZ+ZZ
  8803						IFE	ZZ,<ZZ=1>
  8804	034415	204 00 0 00 035556 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8805									;AND MOVE RESULT INTO AC
  8806	034416	312 00 0 00 035556 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
  8807						STOP		^
  8808	034417	254 04 0 00 034420 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8809	034420	324 00 0 00 034421 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8810									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8811									;IN THE SUBTEST) TO LOOP ON ERROR^
  8812
  8813					;**********
  8814
  8815
  8816					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8817					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8818					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8819					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8820
  8821			002120		SN=SN+1
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 27-6
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0202

  8822			100000			ZZ=ZZ+ZZ
  8823						IFE	ZZ,<ZZ=1>
  8824	034421	204 00 0 00 035557 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8825									;AND MOVE RESULT INTO AC
  8826	034422	312 00 0 00 035557 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
  8827						STOP		^
  8828	034423	254 04 0 00 034424 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8829	034424	324 00 0 00 034425 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8830									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8831									;IN THE SUBTEST) TO LOOP ON ERROR^
  8832
  8833					;**********
  8834
  8835
  8836					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8837					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8838					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8839					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8840
  8841			002121		SN=SN+1
  8842			200000			ZZ=ZZ+ZZ
  8843						IFE	ZZ,<ZZ=1>
  8844	034425	204 00 0 00 035560 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8845									;AND MOVE RESULT INTO AC
  8846	034426	312 00 0 00 035560 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
  8847						STOP		^
  8848	034427	254 04 0 00 034430 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8849	034430	324 00 0 00 034431 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8850									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8851									;IN THE SUBTEST) TO LOOP ON ERROR^
  8852
  8853					;**********
  8854
  8855
  8856					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8857					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU BOTH HALVES
  8858					;OF E [C(E)=ZZ,,ZZ WHERE ZZ IS A FLOATING 1].  THEN, C(AC) IS CHECKED.
  8859					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF EACH HALF
  8860
  8861			002122		SN=SN+1
  8862			400000			ZZ=ZZ+ZZ
  8863						IFE	ZZ,<ZZ=1>
  8864	034431	204 00 0 00 035561 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8865									;AND MOVE RESULT INTO AC
  8866	034432	312 00 0 00 035561 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF C(AC) CONTAINS ZZ,,ZZ
  8867						STOP		^
  8868	034433	254 04 0 00 034434 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8869	034434	324 00 0 00 034435 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8870									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8871									;IN THE SUBTEST) TO LOOP ON ERROR^
  8872
  8873					;**********
  8874
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 28
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0203

  8875			002200		SN=2200
  8876			000000			ZZ=0
  8877
  8878					B2200:	REPEAT	^D18,<
  8879					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8880					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  8881					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  8882					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  8883					
  8884					SN=SN+1
  8885						ZZ=ZZ+ZZ+1
  8886						IFE	<ZZ-1>,<ZZ=-2>
  8887						MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8888									;AND MOVE RESULT INTO AC
  8889						CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  8890						STOP		
  8891					
  8892					;**********
  8893					>
  8894
  8895					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8896					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  8897					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  8898					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  8899
  8900			002201		SN=SN+1
  8901			000001			ZZ=ZZ+ZZ+1
  8902		777777	777776			IFE	<ZZ-1>,<ZZ=-2>
  8903	034435	204 00 0 00 035562 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8904									;AND MOVE RESULT INTO AC
  8905	034436	312 00 0 00 035562 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  8906						STOP		^
  8907	034437	254 04 0 00 034440 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8908	034440	324 00 0 00 034441 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8909									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8910									;IN THE SUBTEST) TO LOOP ON ERROR^
  8911
  8912					;**********
  8913
  8914
  8915					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8916					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  8917					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  8918					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  8919
  8920			002202		SN=SN+1
  8921		777777	777775			ZZ=ZZ+ZZ+1
  8922						IFE	<ZZ-1>,<ZZ=-2>
  8923	034441	204 00 0 00 035563 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8924									;AND MOVE RESULT INTO AC
  8925	034442	312 00 0 00 035563 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  8926						STOP		^
  8927	034443	254 04 0 00 034444 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8928	034444	324 00 0 00 034445 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8929									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 28-1
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0204

  8930									;IN THE SUBTEST) TO LOOP ON ERROR^
  8931
  8932					;**********
  8933
  8934
  8935					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8936					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  8937					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  8938					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  8939
  8940			002203		SN=SN+1
  8941		777777	777773			ZZ=ZZ+ZZ+1
  8942						IFE	<ZZ-1>,<ZZ=-2>
  8943	034445	204 00 0 00 035564 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8944									;AND MOVE RESULT INTO AC
  8945	034446	312 00 0 00 035564 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  8946						STOP		^
  8947	034447	254 04 0 00 034450 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8948	034450	324 00 0 00 034451 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8949									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8950									;IN THE SUBTEST) TO LOOP ON ERROR^
  8951
  8952					;**********
  8953
  8954
  8955					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8956					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  8957					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  8958					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  8959
  8960			002204		SN=SN+1
  8961		777777	777767			ZZ=ZZ+ZZ+1
  8962						IFE	<ZZ-1>,<ZZ=-2>
  8963	034451	204 00 0 00 035565 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8964									;AND MOVE RESULT INTO AC
  8965	034452	312 00 0 00 035565 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  8966						STOP		^
  8967	034453	254 04 0 00 034454 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8968	034454	324 00 0 00 034455 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8969									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8970									;IN THE SUBTEST) TO LOOP ON ERROR^
  8971
  8972					;**********
  8973
  8974
  8975					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8976					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  8977					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  8978					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  8979
  8980			002205		SN=SN+1
  8981		777777	777757			ZZ=ZZ+ZZ+1
  8982						IFE	<ZZ-1>,<ZZ=-2>
  8983	034455	204 00 0 00 035566 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  8984									;AND MOVE RESULT INTO AC
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 28-2
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0205

  8985	034456	312 00 0 00 035566 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  8986						STOP		^
  8987	034457	254 04 0 00 034460 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8988	034460	324 00 0 00 034461 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8989									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8990									;IN THE SUBTEST) TO LOOP ON ERROR^
  8991
  8992					;**********
  8993
  8994
  8995					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  8996					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  8997					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  8998					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  8999
  9000			002206		SN=SN+1
  9001		777777	777737			ZZ=ZZ+ZZ+1
  9002						IFE	<ZZ-1>,<ZZ=-2>
  9003	034461	204 00 0 00 035567 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9004									;AND MOVE RESULT INTO AC
  9005	034462	312 00 0 00 035567 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  9006						STOP		^
  9007	034463	254 04 0 00 034464 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9008	034464	324 00 0 00 034465 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9009									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9010									;IN THE SUBTEST) TO LOOP ON ERROR^
  9011
  9012					;**********
  9013
  9014
  9015					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9016					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  9017					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  9018					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  9019
  9020			002207		SN=SN+1
  9021		777777	777677			ZZ=ZZ+ZZ+1
  9022						IFE	<ZZ-1>,<ZZ=-2>
  9023	034465	204 00 0 00 035570 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9024									;AND MOVE RESULT INTO AC
  9025	034466	312 00 0 00 035570 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  9026						STOP		^
  9027	034467	254 04 0 00 034470 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9028	034470	324 00 0 00 034471 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9029									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9030									;IN THE SUBTEST) TO LOOP ON ERROR^
  9031
  9032					;**********
  9033
  9034
  9035					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9036					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  9037					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  9038					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  9039
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 28-3
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0206

  9040			002210		SN=SN+1
  9041		777777	777577			ZZ=ZZ+ZZ+1
  9042						IFE	<ZZ-1>,<ZZ=-2>
  9043	034471	204 00 0 00 035571 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9044									;AND MOVE RESULT INTO AC
  9045	034472	312 00 0 00 035571 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  9046						STOP		^
  9047	034473	254 04 0 00 034474 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9048	034474	324 00 0 00 034475 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9049									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9050									;IN THE SUBTEST) TO LOOP ON ERROR^
  9051
  9052					;**********
  9053
  9054
  9055					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9056					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  9057					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  9058					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  9059
  9060			002211		SN=SN+1
  9061		777777	777377			ZZ=ZZ+ZZ+1
  9062						IFE	<ZZ-1>,<ZZ=-2>
  9063	034475	204 00 0 00 035572 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9064									;AND MOVE RESULT INTO AC
  9065	034476	312 00 0 00 035572 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  9066						STOP		^
  9067	034477	254 04 0 00 034500 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9068	034500	324 00 0 00 034501 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9069									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9070									;IN THE SUBTEST) TO LOOP ON ERROR^
  9071
  9072					;**********
  9073
  9074
  9075					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9076					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  9077					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  9078					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  9079
  9080			002212		SN=SN+1
  9081		777777	776777			ZZ=ZZ+ZZ+1
  9082						IFE	<ZZ-1>,<ZZ=-2>
  9083	034501	204 00 0 00 035573 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9084									;AND MOVE RESULT INTO AC
  9085	034502	312 00 0 00 035573 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  9086						STOP		^
  9087	034503	254 04 0 00 034504 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9088	034504	324 00 0 00 034505 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9089									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9090									;IN THE SUBTEST) TO LOOP ON ERROR^
  9091
  9092					;**********
  9093
  9094
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 28-4
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0207

  9095					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9096					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  9097					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  9098					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  9099
  9100			002213		SN=SN+1
  9101		777777	775777			ZZ=ZZ+ZZ+1
  9102						IFE	<ZZ-1>,<ZZ=-2>
  9103	034505	204 00 0 00 035574 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9104									;AND MOVE RESULT INTO AC
  9105	034506	312 00 0 00 035574 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  9106						STOP		^
  9107	034507	254 04 0 00 034510 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9108	034510	324 00 0 00 034511 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9109									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9110									;IN THE SUBTEST) TO LOOP ON ERROR^
  9111
  9112					;**********
  9113
  9114
  9115					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9116					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  9117					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  9118					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  9119
  9120			002214		SN=SN+1
  9121		777777	773777			ZZ=ZZ+ZZ+1
  9122						IFE	<ZZ-1>,<ZZ=-2>
  9123	034511	204 00 0 00 035575 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9124									;AND MOVE RESULT INTO AC
  9125	034512	312 00 0 00 035575 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  9126						STOP		^
  9127	034513	254 04 0 00 034514 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9128	034514	324 00 0 00 034515 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9129									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9130									;IN THE SUBTEST) TO LOOP ON ERROR^
  9131
  9132					;**********
  9133
  9134
  9135					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9136					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  9137					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  9138					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  9139
  9140			002215		SN=SN+1
  9141		777777	767777			ZZ=ZZ+ZZ+1
  9142						IFE	<ZZ-1>,<ZZ=-2>
  9143	034515	204 00 0 00 035576 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9144									;AND MOVE RESULT INTO AC
  9145	034516	312 00 0 00 035576 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  9146						STOP		^
  9147	034517	254 04 0 00 034520 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9148	034520	324 00 0 00 034521 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9149									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 28-5
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0208

  9150									;IN THE SUBTEST) TO LOOP ON ERROR^
  9151
  9152					;**********
  9153
  9154
  9155					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9156					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  9157					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  9158					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  9159
  9160			002216		SN=SN+1
  9161		777777	757777			ZZ=ZZ+ZZ+1
  9162						IFE	<ZZ-1>,<ZZ=-2>
  9163	034521	204 00 0 00 035577 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9164									;AND MOVE RESULT INTO AC
  9165	034522	312 00 0 00 035577 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  9166						STOP		^
  9167	034523	254 04 0 00 034524 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9168	034524	324 00 0 00 034525 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9169									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9170									;IN THE SUBTEST) TO LOOP ON ERROR^
  9171
  9172					;**********
  9173
  9174
  9175					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9176					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  9177					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  9178					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  9179
  9180			002217		SN=SN+1
  9181		777777	737777			ZZ=ZZ+ZZ+1
  9182						IFE	<ZZ-1>,<ZZ=-2>
  9183	034525	204 00 0 00 035600 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9184									;AND MOVE RESULT INTO AC
  9185	034526	312 00 0 00 035600 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  9186						STOP		^
  9187	034527	254 04 0 00 034530 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9188	034530	324 00 0 00 034531 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9189									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9190									;IN THE SUBTEST) TO LOOP ON ERROR^
  9191
  9192					;**********
  9193
  9194
  9195					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9196					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  9197					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  9198					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  9199
  9200			002220		SN=SN+1
  9201		777777	677777			ZZ=ZZ+ZZ+1
  9202						IFE	<ZZ-1>,<ZZ=-2>
  9203	034531	204 00 0 00 035601 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9204									;AND MOVE RESULT INTO AC
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 28-6
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0209

  9205	034532	312 00 0 00 035601 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  9206						STOP		^
  9207	034533	254 04 0 00 034534 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9208	034534	324 00 0 00 034535 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9209									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9210									;IN THE SUBTEST) TO LOOP ON ERROR^
  9211
  9212					;**********
  9213
  9214
  9215					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9216					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  9217					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  9218					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  9219
  9220			002221		SN=SN+1
  9221		777777	577777			ZZ=ZZ+ZZ+1
  9222						IFE	<ZZ-1>,<ZZ=-2>
  9223	034535	204 00 0 00 035602 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9224									;AND MOVE RESULT INTO AC
  9225	034536	312 00 0 00 035602 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  9226						STOP		^
  9227	034537	254 04 0 00 034540 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9228	034540	324 00 0 00 034541 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9229									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9230									;IN THE SUBTEST) TO LOOP ON ERROR^
  9231
  9232					;**********
  9233
  9234
  9235					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9236					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU BOTH HALVES
  9237					;OF E [C(E)=ZZ,,ZZ, WHERE ZZ IS A FLOATING 0].  THEN, C(AC) IS CHECKED.
  9238					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 0 THRU ALL 18 BITS OF EACH HALF
  9239
  9240			002222		SN=SN+1
  9241		777777	377777			ZZ=ZZ+ZZ+1
  9242						IFE	<ZZ-1>,<ZZ=-2>
  9243	034541	204 00 0 00 035603 		MOVS	[XWD ZZ,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9244									;AND MOVE RESULT INTO AC
  9245	034542	312 00 0 00 035603 		CAME	[XWD ZZ,ZZ]	;PASS TEST IF AC CONTAINS ZZ,,ZZ
  9246						STOP		^
  9247	034543	254 04 0 00 034544 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9248	034544	324 00 0 00 034545 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9249									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9250									;IN THE SUBTEST) TO LOOP ON ERROR^
  9251
  9252					;**********
  9253
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 29
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0210

  9254			002300		SN=2300
  9255			000000			ZZ=0
  9256			000000			YY=0
  9257
  9258					B2300:	REPEAT	^D18,<
  9259					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9260					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9261					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9262					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9263					;THEN, C(AC) IS CHECKED.
  9264					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9265					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9266					
  9267					SN=SN+1
  9268						ZZ=ZZ+ZZ
  9269						YY=YY+YY+1
  9270						IFE	ZZ,<ZZ=1>
  9271						IFE	<YY-1>,<YY=-2>
  9272						MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9273									;AND MOVE RESULT INTO AC
  9274						CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9275						STOP		
  9276					
  9277					;**********
  9278					>
  9279
  9280					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9281					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9282					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9283					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9284					;THEN, C(AC) IS CHECKED.
  9285					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9286					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9287
  9288			002301		SN=SN+1
  9289			000000			ZZ=ZZ+ZZ
  9290			000001			YY=YY+YY+1
  9291			000001			IFE	ZZ,<ZZ=1>
  9292		777777	777776			IFE	<YY-1>,<YY=-2>
  9293	034545	204 00 0 00 035604 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9294									;AND MOVE RESULT INTO AC
  9295	034546	312 00 0 00 035605 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9296						STOP		^
  9297	034547	254 04 0 00 034550 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9298	034550	324 00 0 00 034551 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9299									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9300									;IN THE SUBTEST) TO LOOP ON ERROR^
  9301
  9302					;**********
  9303
  9304
  9305					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9306					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9307					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9308					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 29-1
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0211

  9309					;THEN, C(AC) IS CHECKED.
  9310					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9311					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9312
  9313			002302		SN=SN+1
  9314			000002			ZZ=ZZ+ZZ
  9315		777777	777775			YY=YY+YY+1
  9316						IFE	ZZ,<ZZ=1>
  9317						IFE	<YY-1>,<YY=-2>
  9318	034551	204 00 0 00 035606 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9319									;AND MOVE RESULT INTO AC
  9320	034552	312 00 0 00 035607 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9321						STOP		^
  9322	034553	254 04 0 00 034554 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9323	034554	324 00 0 00 034555 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9324									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9325									;IN THE SUBTEST) TO LOOP ON ERROR^
  9326
  9327					;**********
  9328
  9329
  9330					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9331					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9332					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9333					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9334					;THEN, C(AC) IS CHECKED.
  9335					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9336					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9337
  9338			002303		SN=SN+1
  9339			000004			ZZ=ZZ+ZZ
  9340		777777	777773			YY=YY+YY+1
  9341						IFE	ZZ,<ZZ=1>
  9342						IFE	<YY-1>,<YY=-2>
  9343	034555	204 00 0 00 035610 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9344									;AND MOVE RESULT INTO AC
  9345	034556	312 00 0 00 035611 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9346						STOP		^
  9347	034557	254 04 0 00 034560 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9348	034560	324 00 0 00 034561 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9349									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9350									;IN THE SUBTEST) TO LOOP ON ERROR^
  9351
  9352					;**********
  9353
  9354
  9355					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9356					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9357					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9358					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9359					;THEN, C(AC) IS CHECKED.
  9360					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9361					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9362
  9363			002304		SN=SN+1
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 29-2
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0212

  9364			000010			ZZ=ZZ+ZZ
  9365		777777	777767			YY=YY+YY+1
  9366						IFE	ZZ,<ZZ=1>
  9367						IFE	<YY-1>,<YY=-2>
  9368	034561	204 00 0 00 035612 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9369									;AND MOVE RESULT INTO AC
  9370	034562	312 00 0 00 035613 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9371						STOP		^
  9372	034563	254 04 0 00 034564 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9373	034564	324 00 0 00 034565 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9374									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9375									;IN THE SUBTEST) TO LOOP ON ERROR^
  9376
  9377					;**********
  9378
  9379
  9380					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9381					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9382					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9383					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9384					;THEN, C(AC) IS CHECKED.
  9385					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9386					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9387
  9388			002305		SN=SN+1
  9389			000020			ZZ=ZZ+ZZ
  9390		777777	777757			YY=YY+YY+1
  9391						IFE	ZZ,<ZZ=1>
  9392						IFE	<YY-1>,<YY=-2>
  9393	034565	204 00 0 00 035614 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9394									;AND MOVE RESULT INTO AC
  9395	034566	312 00 0 00 035615 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9396						STOP		^
  9397	034567	254 04 0 00 034570 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9398	034570	324 00 0 00 034571 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9399									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9400									;IN THE SUBTEST) TO LOOP ON ERROR^
  9401
  9402					;**********
  9403
  9404
  9405					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9406					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9407					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9408					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9409					;THEN, C(AC) IS CHECKED.
  9410					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9411					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9412
  9413			002306		SN=SN+1
  9414			000040			ZZ=ZZ+ZZ
  9415		777777	777737			YY=YY+YY+1
  9416						IFE	ZZ,<ZZ=1>
  9417						IFE	<YY-1>,<YY=-2>
  9418	034571	204 00 0 00 035616 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 29-3
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0213

  9419									;AND MOVE RESULT INTO AC
  9420	034572	312 00 0 00 035617 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9421						STOP		^
  9422	034573	254 04 0 00 034574 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9423	034574	324 00 0 00 034575 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9424									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9425									;IN THE SUBTEST) TO LOOP ON ERROR^
  9426
  9427					;**********
  9428
  9429
  9430					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9431					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9432					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9433					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9434					;THEN, C(AC) IS CHECKED.
  9435					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9436					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9437
  9438			002307		SN=SN+1
  9439			000100			ZZ=ZZ+ZZ
  9440		777777	777677			YY=YY+YY+1
  9441						IFE	ZZ,<ZZ=1>
  9442						IFE	<YY-1>,<YY=-2>
  9443	034575	204 00 0 00 035620 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9444									;AND MOVE RESULT INTO AC
  9445	034576	312 00 0 00 035621 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9446						STOP		^
  9447	034577	254 04 0 00 034600 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9448	034600	324 00 0 00 034601 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9449									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9450									;IN THE SUBTEST) TO LOOP ON ERROR^
  9451
  9452					;**********
  9453
  9454
  9455					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9456					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9457					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9458					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9459					;THEN, C(AC) IS CHECKED.
  9460					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9461					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9462
  9463			002310		SN=SN+1
  9464			000200			ZZ=ZZ+ZZ
  9465		777777	777577			YY=YY+YY+1
  9466						IFE	ZZ,<ZZ=1>
  9467						IFE	<YY-1>,<YY=-2>
  9468	034601	204 00 0 00 035622 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9469									;AND MOVE RESULT INTO AC
  9470	034602	312 00 0 00 035623 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9471						STOP		^
  9472	034603	254 04 0 00 034604 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9473	034604	324 00 0 00 034605 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 29-4
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0214

  9474									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9475									;IN THE SUBTEST) TO LOOP ON ERROR^
  9476
  9477					;**********
  9478
  9479
  9480					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9481					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9482					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9483					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9484					;THEN, C(AC) IS CHECKED.
  9485					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9486					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9487
  9488			002311		SN=SN+1
  9489			000400			ZZ=ZZ+ZZ
  9490		777777	777377			YY=YY+YY+1
  9491						IFE	ZZ,<ZZ=1>
  9492						IFE	<YY-1>,<YY=-2>
  9493	034605	204 00 0 00 035624 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9494									;AND MOVE RESULT INTO AC
  9495	034606	312 00 0 00 035625 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9496						STOP		^
  9497	034607	254 04 0 00 034610 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9498	034610	324 00 0 00 034611 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9499									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9500									;IN THE SUBTEST) TO LOOP ON ERROR^
  9501
  9502					;**********
  9503
  9504
  9505					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9506					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9507					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9508					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9509					;THEN, C(AC) IS CHECKED.
  9510					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9511					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9512
  9513			002312		SN=SN+1
  9514			001000			ZZ=ZZ+ZZ
  9515		777777	776777			YY=YY+YY+1
  9516						IFE	ZZ,<ZZ=1>
  9517						IFE	<YY-1>,<YY=-2>
  9518	034611	204 00 0 00 035626 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9519									;AND MOVE RESULT INTO AC
  9520	034612	312 00 0 00 035627 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9521						STOP		^
  9522	034613	254 04 0 00 034614 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9523	034614	324 00 0 00 034615 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9524									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9525									;IN THE SUBTEST) TO LOOP ON ERROR^
  9526
  9527					;**********
  9528
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 29-5
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0215

  9529
  9530					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9531					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9532					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9533					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9534					;THEN, C(AC) IS CHECKED.
  9535					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9536					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9537
  9538			002313		SN=SN+1
  9539			002000			ZZ=ZZ+ZZ
  9540		777777	775777			YY=YY+YY+1
  9541						IFE	ZZ,<ZZ=1>
  9542						IFE	<YY-1>,<YY=-2>
  9543	034615	204 00 0 00 035630 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9544									;AND MOVE RESULT INTO AC
  9545	034616	312 00 0 00 035631 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9546						STOP		^
  9547	034617	254 04 0 00 034620 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9548	034620	324 00 0 00 034621 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9549									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9550									;IN THE SUBTEST) TO LOOP ON ERROR^
  9551
  9552					;**********
  9553
  9554
  9555					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9556					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9557					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9558					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9559					;THEN, C(AC) IS CHECKED.
  9560					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9561					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9562
  9563			002314		SN=SN+1
  9564			004000			ZZ=ZZ+ZZ
  9565		777777	773777			YY=YY+YY+1
  9566						IFE	ZZ,<ZZ=1>
  9567						IFE	<YY-1>,<YY=-2>
  9568	034621	204 00 0 00 035632 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9569									;AND MOVE RESULT INTO AC
  9570	034622	312 00 0 00 035633 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9571						STOP		^
  9572	034623	254 04 0 00 034624 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9573	034624	324 00 0 00 034625 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9574									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9575									;IN THE SUBTEST) TO LOOP ON ERROR^
  9576
  9577					;**********
  9578
  9579
  9580					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9581					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9582					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9583					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 29-6
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0216

  9584					;THEN, C(AC) IS CHECKED.
  9585					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9586					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9587
  9588			002315		SN=SN+1
  9589			010000			ZZ=ZZ+ZZ
  9590		777777	767777			YY=YY+YY+1
  9591						IFE	ZZ,<ZZ=1>
  9592						IFE	<YY-1>,<YY=-2>
  9593	034625	204 00 0 00 035634 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9594									;AND MOVE RESULT INTO AC
  9595	034626	312 00 0 00 035635 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9596						STOP		^
  9597	034627	254 04 0 00 034630 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9598	034630	324 00 0 00 034631 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9599									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9600									;IN THE SUBTEST) TO LOOP ON ERROR^
  9601
  9602					;**********
  9603
  9604
  9605					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9606					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9607					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9608					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9609					;THEN, C(AC) IS CHECKED.
  9610					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9611					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9612
  9613			002316		SN=SN+1
  9614			020000			ZZ=ZZ+ZZ
  9615		777777	757777			YY=YY+YY+1
  9616						IFE	ZZ,<ZZ=1>
  9617						IFE	<YY-1>,<YY=-2>
  9618	034631	204 00 0 00 035636 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9619									;AND MOVE RESULT INTO AC
  9620	034632	312 00 0 00 035637 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9621						STOP		^
  9622	034633	254 04 0 00 034634 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9623	034634	324 00 0 00 034635 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9624									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9625									;IN THE SUBTEST) TO LOOP ON ERROR^
  9626
  9627					;**********
  9628
  9629
  9630					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9631					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9632					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9633					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9634					;THEN, C(AC) IS CHECKED.
  9635					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9636					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9637
  9638			002317		SN=SN+1
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 29-7
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0217

  9639			040000			ZZ=ZZ+ZZ
  9640		777777	737777			YY=YY+YY+1
  9641						IFE	ZZ,<ZZ=1>
  9642						IFE	<YY-1>,<YY=-2>
  9643	034635	204 00 0 00 035640 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9644									;AND MOVE RESULT INTO AC
  9645	034636	312 00 0 00 035641 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9646						STOP		^
  9647	034637	254 04 0 00 034640 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9648	034640	324 00 0 00 034641 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9649									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9650									;IN THE SUBTEST) TO LOOP ON ERROR^
  9651
  9652					;**********
  9653
  9654
  9655					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9656					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9657					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9658					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9659					;THEN, C(AC) IS CHECKED.
  9660					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9661					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9662
  9663			002320		SN=SN+1
  9664			100000			ZZ=ZZ+ZZ
  9665		777777	677777			YY=YY+YY+1
  9666						IFE	ZZ,<ZZ=1>
  9667						IFE	<YY-1>,<YY=-2>
  9668	034641	204 00 0 00 035642 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9669									;AND MOVE RESULT INTO AC
  9670	034642	312 00 0 00 035643 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9671						STOP		^
  9672	034643	254 04 0 00 034644 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9673	034644	324 00 0 00 034645 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9674									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9675									;IN THE SUBTEST) TO LOOP ON ERROR^
  9676
  9677					;**********
  9678
  9679
  9680					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9681					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9682					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9683					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9684					;THEN, C(AC) IS CHECKED.
  9685					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9686					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9687
  9688			002321		SN=SN+1
  9689			200000			ZZ=ZZ+ZZ
  9690		777777	577777			YY=YY+YY+1
  9691						IFE	ZZ,<ZZ=1>
  9692						IFE	<YY-1>,<YY=-2>
  9693	034645	204 00 0 00 035644 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 29-8
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0218

  9694									;AND MOVE RESULT INTO AC
  9695	034646	312 00 0 00 035645 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9696						STOP		^
  9697	034647	254 04 0 00 034650 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9698	034650	324 00 0 00 034651 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9699									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9700									;IN THE SUBTEST) TO LOOP ON ERROR^
  9701
  9702					;**********
  9703
  9704
  9705					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9706					;MOVES IT INTO AC.  IN THIS CASE, A 1 IS RIPPLED THRU THE LEFT HALF OF E
  9707					;AND A 0 IS RIPPLED THRU THE RIGHT HALF
  9708					;OF E [C(E)=ZZ,,YY, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9709					;THEN, C(AC) IS CHECKED.
  9710					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9711					;THE LEFT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9712
  9713			002322		SN=SN+1
  9714			400000			ZZ=ZZ+ZZ
  9715		777777	377777			YY=YY+YY+1
  9716						IFE	ZZ,<ZZ=1>
  9717						IFE	<YY-1>,<YY=-2>
  9718	034651	204 00 0 00 035646 		MOVS	[XWD ZZ,YY]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9719									;AND MOVE RESULT INTO AC
  9720	034652	312 00 0 00 035647 		CAME	[XWD YY,ZZ]	;PASS TEST IF AC CONTAINS YY,,ZZ
  9721						STOP		^
  9722	034653	254 04 0 00 034654 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9723	034654	324 00 0 00 034655 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9724									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9725									;IN THE SUBTEST) TO LOOP ON ERROR^
  9726
  9727					;**********
  9728
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 30
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0219

  9729			002400		SN=2400
  9730			000000			ZZ=0
  9731			000000			YY=0
  9732
  9733					B2400:	REPEAT	 ^D18,<
  9734					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9735					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
  9736					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
  9737					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9738					;THEN, C(AC) IS CHECKED.
  9739					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9740					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9741					
  9742					SN=SN+1
  9743						ZZ=ZZ+ZZ
  9744						YY=YY+YY+1
  9745						IFE	ZZ,<ZZ=1>
  9746						IFE	<YY-1>,<YY=-2>
  9747						MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9748									;AND MOVE RESULT INTO AC
  9749						CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
  9750						STOP		
  9751					
  9752					;**********
  9753					>
  9754
  9755					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9756					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
  9757					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
  9758					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9759					;THEN, C(AC) IS CHECKED.
  9760					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9761					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9762
  9763			002401		SN=SN+1
  9764			000000			ZZ=ZZ+ZZ
  9765			000001			YY=YY+YY+1
  9766			000001			IFE	ZZ,<ZZ=1>
  9767		777777	777776			IFE	<YY-1>,<YY=-2>
  9768	034655	204 00 0 00 035605 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9769									;AND MOVE RESULT INTO AC
  9770	034656	312 00 0 00 035604 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
  9771						STOP		^
  9772	034657	254 04 0 00 034660 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9773	034660	324 00 0 00 034661 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9774									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9775									;IN THE SUBTEST) TO LOOP ON ERROR^
  9776
  9777					;**********
  9778
  9779
  9780					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9781					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
  9782					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
  9783					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 30-1
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0220

  9784					;THEN, C(AC) IS CHECKED.
  9785					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9786					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9787
  9788			002402		SN=SN+1
  9789			000002			ZZ=ZZ+ZZ
  9790		777777	777775			YY=YY+YY+1
  9791						IFE	ZZ,<ZZ=1>
  9792						IFE	<YY-1>,<YY=-2>
  9793	034661	204 00 0 00 035607 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9794									;AND MOVE RESULT INTO AC
  9795	034662	312 00 0 00 035606 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
  9796						STOP		^
  9797	034663	254 04 0 00 034664 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9798	034664	324 00 0 00 034665 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9799									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9800									;IN THE SUBTEST) TO LOOP ON ERROR^
  9801
  9802					;**********
  9803
  9804
  9805					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9806					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
  9807					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
  9808					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9809					;THEN, C(AC) IS CHECKED.
  9810					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9811					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9812
  9813			002403		SN=SN+1
  9814			000004			ZZ=ZZ+ZZ
  9815		777777	777773			YY=YY+YY+1
  9816						IFE	ZZ,<ZZ=1>
  9817						IFE	<YY-1>,<YY=-2>
  9818	034665	204 00 0 00 035611 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9819									;AND MOVE RESULT INTO AC
  9820	034666	312 00 0 00 035610 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
  9821						STOP		^
  9822	034667	254 04 0 00 034670 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9823	034670	324 00 0 00 034671 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9824									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9825									;IN THE SUBTEST) TO LOOP ON ERROR^
  9826
  9827					;**********
  9828
  9829
  9830					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9831					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
  9832					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
  9833					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9834					;THEN, C(AC) IS CHECKED.
  9835					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9836					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9837
  9838			002404		SN=SN+1
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 30-2
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0221

  9839			000010			ZZ=ZZ+ZZ
  9840		777777	777767			YY=YY+YY+1
  9841						IFE	ZZ,<ZZ=1>
  9842						IFE	<YY-1>,<YY=-2>
  9843	034671	204 00 0 00 035613 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9844									;AND MOVE RESULT INTO AC
  9845	034672	312 00 0 00 035612 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
  9846						STOP		^
  9847	034673	254 04 0 00 034674 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9848	034674	324 00 0 00 034675 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9849									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9850									;IN THE SUBTEST) TO LOOP ON ERROR^
  9851
  9852					;**********
  9853
  9854
  9855					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9856					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
  9857					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
  9858					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9859					;THEN, C(AC) IS CHECKED.
  9860					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9861					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9862
  9863			002405		SN=SN+1
  9864			000020			ZZ=ZZ+ZZ
  9865		777777	777757			YY=YY+YY+1
  9866						IFE	ZZ,<ZZ=1>
  9867						IFE	<YY-1>,<YY=-2>
  9868	034675	204 00 0 00 035615 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9869									;AND MOVE RESULT INTO AC
  9870	034676	312 00 0 00 035614 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
  9871						STOP		^
  9872	034677	254 04 0 00 034700 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9873	034700	324 00 0 00 034701 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9874									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9875									;IN THE SUBTEST) TO LOOP ON ERROR^
  9876
  9877					;**********
  9878
  9879
  9880					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9881					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
  9882					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
  9883					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9884					;THEN, C(AC) IS CHECKED.
  9885					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9886					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9887
  9888			002406		SN=SN+1
  9889			000040			ZZ=ZZ+ZZ
  9890		777777	777737			YY=YY+YY+1
  9891						IFE	ZZ,<ZZ=1>
  9892						IFE	<YY-1>,<YY=-2>
  9893	034701	204 00 0 00 035617 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 30-3
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0222

  9894									;AND MOVE RESULT INTO AC
  9895	034702	312 00 0 00 035616 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
  9896						STOP		^
  9897	034703	254 04 0 00 034704 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9898	034704	324 00 0 00 034705 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9899									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9900									;IN THE SUBTEST) TO LOOP ON ERROR^
  9901
  9902					;**********
  9903
  9904
  9905					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9906					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
  9907					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
  9908					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9909					;THEN, C(AC) IS CHECKED.
  9910					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9911					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9912
  9913			002407		SN=SN+1
  9914			000100			ZZ=ZZ+ZZ
  9915		777777	777677			YY=YY+YY+1
  9916						IFE	ZZ,<ZZ=1>
  9917						IFE	<YY-1>,<YY=-2>
  9918	034705	204 00 0 00 035621 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9919									;AND MOVE RESULT INTO AC
  9920	034706	312 00 0 00 035620 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
  9921						STOP		^
  9922	034707	254 04 0 00 034710 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9923	034710	324 00 0 00 034711 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9924									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9925									;IN THE SUBTEST) TO LOOP ON ERROR^
  9926
  9927					;**********
  9928
  9929
  9930					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9931					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
  9932					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
  9933					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9934					;THEN, C(AC) IS CHECKED.
  9935					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9936					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9937
  9938			002410		SN=SN+1
  9939			000200			ZZ=ZZ+ZZ
  9940		777777	777577			YY=YY+YY+1
  9941						IFE	ZZ,<ZZ=1>
  9942						IFE	<YY-1>,<YY=-2>
  9943	034711	204 00 0 00 035623 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9944									;AND MOVE RESULT INTO AC
  9945	034712	312 00 0 00 035622 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
  9946						STOP		^
  9947	034713	254 04 0 00 034714 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9948	034714	324 00 0 00 034715 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 30-4
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0223

  9949									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9950									;IN THE SUBTEST) TO LOOP ON ERROR^
  9951
  9952					;**********
  9953
  9954
  9955					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9956					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
  9957					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
  9958					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9959					;THEN, C(AC) IS CHECKED.
  9960					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9961					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9962
  9963			002411		SN=SN+1
  9964			000400			ZZ=ZZ+ZZ
  9965		777777	777377			YY=YY+YY+1
  9966						IFE	ZZ,<ZZ=1>
  9967						IFE	<YY-1>,<YY=-2>
  9968	034715	204 00 0 00 035625 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9969									;AND MOVE RESULT INTO AC
  9970	034716	312 00 0 00 035624 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
  9971						STOP		^
  9972	034717	254 04 0 00 034720 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9973	034720	324 00 0 00 034721 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9974									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  9975									;IN THE SUBTEST) TO LOOP ON ERROR^
  9976
  9977					;**********
  9978
  9979
  9980					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
  9981					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
  9982					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
  9983					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
  9984					;THEN, C(AC) IS CHECKED.
  9985					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
  9986					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
  9987
  9988			002412		SN=SN+1
  9989			001000			ZZ=ZZ+ZZ
  9990		777777	776777			YY=YY+YY+1
  9991						IFE	ZZ,<ZZ=1>
  9992						IFE	<YY-1>,<YY=-2>
  9993	034721	204 00 0 00 035627 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
  9994									;AND MOVE RESULT INTO AC
  9995	034722	312 00 0 00 035626 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
  9996						STOP		^
  9997	034723	254 04 0 00 034724 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  9998	034724	324 00 0 00 034725 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  9999									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10000									;IN THE SUBTEST) TO LOOP ON ERROR^
 10001
 10002					;**********
 10003
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 30-5
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0224

 10004
 10005					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
 10006					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
 10007					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
 10008					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
 10009					;THEN, C(AC) IS CHECKED.
 10010					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
 10011					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
 10012
 10013			002413		SN=SN+1
 10014			002000			ZZ=ZZ+ZZ
 10015		777777	775777			YY=YY+YY+1
 10016						IFE	ZZ,<ZZ=1>
 10017						IFE	<YY-1>,<YY=-2>
 10018	034725	204 00 0 00 035631 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
 10019									;AND MOVE RESULT INTO AC
 10020	034726	312 00 0 00 035630 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
 10021						STOP		^
 10022	034727	254 04 0 00 034730 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10023	034730	324 00 0 00 034731 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10024									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10025									;IN THE SUBTEST) TO LOOP ON ERROR^
 10026
 10027					;**********
 10028
 10029
 10030					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
 10031					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
 10032					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
 10033					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
 10034					;THEN, C(AC) IS CHECKED.
 10035					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
 10036					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
 10037
 10038			002414		SN=SN+1
 10039			004000			ZZ=ZZ+ZZ
 10040		777777	773777			YY=YY+YY+1
 10041						IFE	ZZ,<ZZ=1>
 10042						IFE	<YY-1>,<YY=-2>
 10043	034731	204 00 0 00 035633 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
 10044									;AND MOVE RESULT INTO AC
 10045	034732	312 00 0 00 035632 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
 10046						STOP		^
 10047	034733	254 04 0 00 034734 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10048	034734	324 00 0 00 034735 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10049									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10050									;IN THE SUBTEST) TO LOOP ON ERROR^
 10051
 10052					;**********
 10053
 10054
 10055					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
 10056					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
 10057					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
 10058					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 30-6
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0225

 10059					;THEN, C(AC) IS CHECKED.
 10060					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
 10061					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
 10062
 10063			002415		SN=SN+1
 10064			010000			ZZ=ZZ+ZZ
 10065		777777	767777			YY=YY+YY+1
 10066						IFE	ZZ,<ZZ=1>
 10067						IFE	<YY-1>,<YY=-2>
 10068	034735	204 00 0 00 035635 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
 10069									;AND MOVE RESULT INTO AC
 10070	034736	312 00 0 00 035634 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
 10071						STOP		^
 10072	034737	254 04 0 00 034740 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10073	034740	324 00 0 00 034741 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10074									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10075									;IN THE SUBTEST) TO LOOP ON ERROR^
 10076
 10077					;**********
 10078
 10079
 10080					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
 10081					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
 10082					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
 10083					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
 10084					;THEN, C(AC) IS CHECKED.
 10085					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
 10086					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
 10087
 10088			002416		SN=SN+1
 10089			020000			ZZ=ZZ+ZZ
 10090		777777	757777			YY=YY+YY+1
 10091						IFE	ZZ,<ZZ=1>
 10092						IFE	<YY-1>,<YY=-2>
 10093	034741	204 00 0 00 035637 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
 10094									;AND MOVE RESULT INTO AC
 10095	034742	312 00 0 00 035636 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
 10096						STOP		^
 10097	034743	254 04 0 00 034744 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10098	034744	324 00 0 00 034745 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10099									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10100									;IN THE SUBTEST) TO LOOP ON ERROR^
 10101
 10102					;**********
 10103
 10104
 10105					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
 10106					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
 10107					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
 10108					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
 10109					;THEN, C(AC) IS CHECKED.
 10110					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
 10111					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
 10112
 10113			002417		SN=SN+1
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 30-7
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0226

 10114			040000			ZZ=ZZ+ZZ
 10115		777777	737777			YY=YY+YY+1
 10116						IFE	ZZ,<ZZ=1>
 10117						IFE	<YY-1>,<YY=-2>
 10118	034745	204 00 0 00 035641 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
 10119									;AND MOVE RESULT INTO AC
 10120	034746	312 00 0 00 035640 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
 10121						STOP		^
 10122	034747	254 04 0 00 034750 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10123	034750	324 00 0 00 034751 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10124									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10125									;IN THE SUBTEST) TO LOOP ON ERROR^
 10126
 10127					;**********
 10128
 10129
 10130					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
 10131					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
 10132					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
 10133					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
 10134					;THEN, C(AC) IS CHECKED.
 10135					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
 10136					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
 10137
 10138			002420		SN=SN+1
 10139			100000			ZZ=ZZ+ZZ
 10140		777777	677777			YY=YY+YY+1
 10141						IFE	ZZ,<ZZ=1>
 10142						IFE	<YY-1>,<YY=-2>
 10143	034751	204 00 0 00 035643 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
 10144									;AND MOVE RESULT INTO AC
 10145	034752	312 00 0 00 035642 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
 10146						STOP		^
 10147	034753	254 04 0 00 034754 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10148	034754	324 00 0 00 034755 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10149									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10150									;IN THE SUBTEST) TO LOOP ON ERROR^
 10151
 10152					;**********
 10153
 10154
 10155					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
 10156					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
 10157					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
 10158					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
 10159					;THEN, C(AC) IS CHECKED.
 10160					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
 10161					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
 10162
 10163			002421		SN=SN+1
 10164			200000			ZZ=ZZ+ZZ
 10165		777777	577777			YY=YY+YY+1
 10166						IFE	ZZ,<ZZ=1>
 10167						IFE	<YY-1>,<YY=-2>
 10168	034755	204 00 0 00 035645 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 30-8
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVS INSTRUCTION                                                           SEQ 0227

 10169									;AND MOVE RESULT INTO AC
 10170	034756	312 00 0 00 035644 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
 10171						STOP		^
 10172	034757	254 04 0 00 034760 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10173	034760	324 00 0 00 034761 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10174									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10175									;IN THE SUBTEST) TO LOOP ON ERROR^
 10176
 10177					;**********
 10178
 10179
 10180					;THIS TEST VERIFIES THAT MOVS SWAPS LEFT AND RIGHT HALVES OF E AND
 10181					;MOVES IT INTO AC.  IN THIS CASE, A 0 IS RIPPLED THRU THE LEFT HALF OF E
 10182					;AND A 1 IS RIPPLED THRU THE RIGHT HALF
 10183					;OF E [C(E)=YY,,ZZ, WHERE ZZ IS A FLOATING 1 AND YY IS A FLOATING 0].
 10184					;THEN, C(AC) IS CHECKED.
 10185					;THIS TEST IS REPEATED 18 TIMES TO FLOAT A 1 THRU ALL 18 BITS OF
 10186					;THE RIGHT HALF AND A 0 THRU ALL 18 BITS OF THE RIGHT HALF OF E
 10187
 10188			002422		SN=SN+1
 10189			400000			ZZ=ZZ+ZZ
 10190		777777	377777			YY=YY+YY+1
 10191						IFE	ZZ,<ZZ=1>
 10192						IFE	<YY-1>,<YY=-2>
 10193	034761	204 00 0 00 035647 		MOVS	[XWD YY,ZZ]	;*MOVS SHOULD SWAP HALVES OF C(E)
 10194									;AND MOVE RESULT INTO AC
 10195	034762	312 00 0 00 035646 		CAME	[XWD ZZ,YY]	;PASS TEST IF C(AC)=ZZ,,YY
 10196						STOP		^
 10197	034763	254 04 0 00 034764 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10198	034764	324 00 0 00 034765 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10199									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10200									;IN THE SUBTEST) TO LOOP ON ERROR^
 10201
 10202					;**********
 10203
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 31
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAXX) INSTRUCTIONS                                                SEQ 0228

 10204					SUBTTL	TEST OF COMPARE (CAXX) INSTRUCTIONS
 10205
 10206					;**********
 10207
 10208					;THIS TEST VERIFIES THAT CAIE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN
 10209					;AND ONLY WHEN C(AC)=E
 10210					;IN THIS CASE C(AC)=E=0;  HENCE, CAIE SHOULD SKIP
 10211					;OTHERWISE THE PROGRAM HALTS
 10212
 10213	034765	400 00 0 00 000000 	B2500:	SETZ			;PRELOAD AC TO 0		
 10214	034766	302 00 0 00 000000 		CAIE			;*CAIE SHOULD SKIP BECAUSE C(AC)=E
 10215						STOP^
 10216	034767	254 04 0 00 034770 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10217	034770	324 00 0 00 034771 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10218									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10219									;IN THE SUBTEST) TO LOOP ON ERROR^
 10220
 10221					;*****     FAILURE ANALYSIS     *****
 10222					;C(AC0)		C(AC1)		FAILING SIGNAL
 10223
 10224					;				SW: PC CHANGE
 10225					;				FC: AD FM ; EN
 10226					;				FC: AD CRY 36
 10227					;				FC: AB PC EN
 10228					;				ET0: COND P: PC CLK EN
 10229
 10230					;**********
 10231
 10232					;THIS TEST VERIFIES THAT CAIE SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN
 10233					;AND ONLY WHEN C(AC)=E
 10234					;IN THIS CASE C(AC)=E=1.  HENCE, CAIE SHOULD SKIP
 10235					;OTHERWISE THE PROGRAM HALTS
 10236
 10237	034771	200 00 0 00 035416 	B2600:	MOVE	[1]		;PRELOAD AC TO 1	
 10238	034772	302 00 0 00 000001 		CAIE	1		;*CAIE SHOULD SKIP BECAUSE C(AC)=E
 10239						STOP^
 10240	034773	254 04 0 00 034774 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10241	034774	324 00 0 00 034775 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10242									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10243									;IN THE SUBTEST) TO LOOP ON ERROR^
 10244
 10245					;*****     FAILURE ANALYSIS     *****
 10246					;C(AC0)		C(AC1)		FAILING SIGNAL
 10247
 10248					;				FC: AD AR - EN
 10249
 10250					;**********
 10251
 10252					;THIS TEST VERIFIES THAT CAME SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN
 10253					;AND ONLY WHEN C(AC)=C(E)
 10254					;IN THIS CASE C(AC)=C(E)=1;  HENCE, CAME SHOULD SKIP
 10255					;OTHERWISE THE PROGRAM HALTS
 10256
 10257	034775	201 00 0 00 000001 	B2700:	MOVEI	1		;PRELOAD AC TO 1	
 10258	034776	312 00 0 00 035416 		CAME	[1]		;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 31-1
DAKABM	MAC	19-JAN-77 13:39		TEST OF COMPARE (CAXX) INSTRUCTIONS                                                SEQ 0229

 10259						STOP^
 10260	034777	254 04 0 00 035000 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10261	035000	324 00 0 00 035001 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10262									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10263									;IN THE SUBTEST) TO LOOP ON ERROR^
 10264
 10265					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 32
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0230

 10266					SUBTTL	TEST OF BOOLEAN INSTRUCTIONS
 10267
 10268					;**********
 10269
 10270					;THIS TEST VERIFIES THAT SETCA IGNORES THE ADDRESS FIELD OF THE INSTUCTION WORD.
 10271					;IN THIS CASE C(AC)=0,,-1;  HENCE, THE RESULT IN THE AC SHOULD BE -1,,0
 10272					;IF THE RESULT IN THE AC IS -1,,0, THE TEST PASSES.
 10273
 10274	035001	201 00 0 00 777777 	B3000:	MOVEI	-1		;PRELOAD AC TO 0,,-1	
 10275	035002	450 00 0 00 035524 		SETCA	[-1]		;*SETCA SHOULD PUT -1,,0 INTO THE AC
 10276	035003	312 00 0 00 035502 		CAME	[-1,,0]		;PASS TEST IF C(AC)=-1,,0
 10277						STOP^
 10278	035004	254 04 0 00 035005 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10279	035005	324 00 0 00 035006 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10280									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10281									;IN THE SUBTEST) TO LOOP ON ERROR^
 10282
 10283					;**********
 10284
 10285					;THIS TEST VERIFIES THAT SETCA COMPLEMENTS C(AC), THEN PLACES THE
 10286					;RESULT IN THE AC.
 10287					;IN THIS CASE C(AC)=0,,-1;  HENCE, THE RESULT IN THE AC SHOULD BE -1,,0
 10288					;IF THE RESULT IN THE AC IS -1,,0, THE TEST PASSES
 10289
 10290	035006	201 00 0 00 777777 	B3100:	MOVEI	-1		;PRELOAD AC TO 0,,-1
 10291	035007	450 00 0 00 000000 		SETCA			;*SETCA SHOULD PUT -1,,0 INTO THE AC
 10292	035010	312 00 0 00 035502 		CAME	[-1,,0]		;PASS TEST IF C(AC) =-1,,0
 10293						STOP^
 10294	035011	254 04 0 00 035012 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10295	035012	324 00 0 00 035013 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10296									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10297									;IN THE SUBTEST) TO LOOP ON ERROR^
 10298
 10299					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 33
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0231

 10300					;THIS TEST VERIFIES THAT SETCA COMPLEMENTS C(AC), THEN PLACES THE
 10301					;RESULT IN THE AC,
 10302					;IN THIS CASE C(AC)=0,,0  HENCE, THE RESULT IN THE AC SHOULD BE,-1
 10303					;IF THE RESULT IN THE AC IS -1,,-1, THE TEST PASSES
 10304
 10305	035013	201 00 0 00 000000 	B3200:	MOVEI	0		;PRELOAD AC TO 0,,0
 10306	035014	450 00 0 00 000000 		SETCA			;*SETCA SHOULD PUT -1,,-1 INTO THE AC
 10307	035015	312 00 0 00 035524 		CAME	[-1]		;PASS TEST IF C(AC) =-1,,-1
 10308						STOP^
 10309	035016	254 04 0 00 035017 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10310	035017	324 00 0 00 035020 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10311									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10312									;IN THE SUBTEST) TO LOOP ON ERROR^
 10313
 10314					;*****     FAILURE ANALYSIS     *****
 10315					;C(AC0)		C(AC1)		FAILING SIGNAL
 10316
 10317					;0				ET2: AR AD EN
 10318
 10319					;**********
 10320
 10321					;THIS TEST VERIFIES THAT SETCA COMPLEMENTS C(AC), THEN PLACES THE
 10322					;RESULT IN THE AC,
 10323					;IN THIS CASE C(AC)=-1,,-1;  HENCE, THE RESULT IN THE AC SHOULD BE 0,,0
 10324					;IF THE RESULT IN THE AC IS ZERO, THE TEST PASSES
 10325
 10326	035020	200 00 0 00 035524 	B3300:	MOVE	[-1]		;PRELOAD AC TO -1,,-1	
 10327	035021	450 00 0 00 000000 		SETCA			;*SETCA SHOULD PUT 0,,0 INTO THE AC
 10328	035022	312 00 0 00 035412 		CAME	[0]		;PASS TEST IF C(AC) IS ZERO
 10329						STOP^
 10330	035023	254 04 0 00 035024 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10331	035024	324 00 0 00 035025 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10332									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10333									;IN THE SUBTEST) TO LOOP ON ERROR^
 10334
 10335					;*****     FAILURE ANALYSIS     *****
 10336					;C(AC0)		C(AC1)		FAILING SIGNAL
 10337
 10338					;-1,,-1				FC: AD FM - EN
 10339
 10340					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 34
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0232

 10341					;THIS TEST VERIFIES THAT SETCM COMPLEMENTS C(E), THEN PLACES THE
 10342					;RESULT IN THE AC.
 10343					;IN THIS CASE AC=E AND C(E)=C(AC)=0,,-1;  HENCE, THE RESULT IN THE AC SHOULD BE -1,,0
 10344					;IF THE RESULT IN THE AC IS -1,,0, THE TEST PASSES
 10345
 10346	035025	201 00 0 00 777777 	B3500:	MOVEI	-1		;PRELOAD AC TO 0,,-1
 10347	035026	460 00 0 00 000000 		SETCM			;*SETCM SHOULD PUT -1,,0 INTO THE AC
 10348	035027	312 00 0 00 035502 		CAME	[-1,,0]		;PASS TEST IF C(AC) =-1,,0
 10349						STOP^
 10350	035030	254 04 0 00 035031 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10351	035031	324 00 0 00 035032 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10352									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10353									;IN THE SUBTEST) TO LOOP ON ERROR^
 10354
 10355					;*****     FAILURE ANALYSIS     *****
 10356					;C(AC0)		C(AC1)		FAILING SIGNAL
 10357
 10358					;-1,,-1				SW: FCE
 10359					;-1,,-1				FC: AD AR - EN
 10360					;0,,-1				ET2: AR AD EN
 10361
 10362					;**********
 10363
 10364					;THIS TEST VERIFIES THAT SETCM COMPLEMENTS C(E), THEN PLACES THE
 10365					;RESULT IN THE AC.
 10366					;IN THIS CASE C(E)=-1,,-1;  HENCE, THE RESULT IN THE AC SHOULD BE 0,,0
 10367					;IF THE RESULT IN THE AC IS ZERO,THE TEST PASSES
 10368
 10369	035032	460 00 0 00 035524 	B3600:	SETCM	[-1]		;*SETCM SHOULD PUT 0 INTO THE AC	
 10370	035033	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC0)=0		
 10371						STOP^
 10372	035034	254 04 0 00 035035 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10373	035035	324 00 0 00 035036 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10374									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10375									;IN THE SUBTEST) TO LOOP ON ERROR^
 10376
 10377					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 35
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0233

 10378					;THIS TEST VERIFIES THAT SETCM COMPLEMENTS C(E), THEN PLACES THE
 10379					;RESULT IN THE AC.
 10380					;IN THIS CASE C(E)=0,,0;  HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1
 10381					;IF THE RESULT IN THE AC IS -1,,-1,THE TEST PASSES
 10382
 10383	035036	460 00 0 00 035412 	B3700:	SETCM	[0]		;*SETCM SHOULD PUT -1,,-1 INTO THE AC	
 10384	035037	312 00 0 00 035524 		CAME	[-1]		;PASS TEST IF C(AC)=-1,,-1	
 10385						STOP^
 10386	035040	254 04 0 00 035041 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10387	035041	324 00 0 00 035042 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10388									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10389									;IN THE SUBTEST) TO LOOP ON ERROR^
 10390
 10391					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 36
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0234

 10392					;THIS TEST VERIFIES THAT SETO SETS C(AC) TO -1,,-1.  SETO IGNORES
 10393					;THE ADDRESS FIELD OF THE INSTRUCTION WORD.
 10394					;FIRST C(AC) IS SET TO 0,,0; THEN SETO IS EXECUTED.
 10395					;THE AC IS THEN CHECKED FOR ALL ONES.  IF C(AC) IS ALL ONES,
 10396					;THE TEST PASSES
 10397
 10398	035042	201 00 0 00 000000 	B4300:	MOVEI	0		;PRELOAD AC WITH 0,,0
 10399	035043	474 00 0 00 000000 		SETO			;*SETO SHOULD LOAD THE AC WITH -1,,-1
 10400	035044	312 00 0 00 035524 		CAME	[-1]		;PASS TEST IF C(AC)=-1,,-1
 10401						STOP^
 10402	035045	254 04 0 00 035046 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10403	035046	324 00 0 00 035047 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10404									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10405									;IN THE SUBTEST) TO LOOP ON ERROR^
 10406
 10407					;*****     FAILURE ANALYSIS     *****
 10408					;C(AC0)		C(AC1)		FAILING SIGNAL
 10409
 10410					;0				ET2: AR AD EN
 10411
 10412					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 37
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0235

 10413					;THIS TEST VERIFIES THAT ORCM CHANGES C(AC) TO THE LOGICAL
 10414					;INCLUSIVE OR OF C(AC) WITH THE COMPLEMENT OF C(MEMORY).
 10415					;IN THIS CASE AC=MEMORY=AC0 AND C(AC)=C(E)=0.
 10416					;HENCE THE RESULT IN THE AC SHOULD BE ALL ONES.
 10417					;THE AC IS CHECKED FOR ITS FINAL CONTENTS NON-ZERO.
 10418					;IF C(AC) IS NOT=0, THE TEST PASSES
 10419
 10420	035047	201 00 0 00 000000 	B4400:	MOVEI	0		;PRELOAD AC,E WITH 0
 10421	035050	464 00 0 00 000000 		ORCM			;*ORCM SHOULD PUT ALL ONES INTO AC0
 10422	035051	336 00 0 00 000000 		SKIPN			;PASS IF C(AC) IS NON-ZERO
 10423						STOP^
 10424	035052	254 04 0 00 035053 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10425	035053	324 00 0 00 035054 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10426									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10427									;IN THE SUBTEST) TO LOOP ON ERROR^
 10428
 10429					;**********
 10430
 10431					;THIS TEST VERIFIES THAT ORCM CHANGES C(AC) TO THE LOGICAL
 10432					;INCLUSIVE OR OF C(AC) WITH COMPLEMENT OF C(MEMORY).
 10433					;IN THIS CASE AC=MEMORY=AC0 AND C(AC)=C(E)=0
 10434					;HENCE THE RESULT IN THE AC SHOULD BE ALL ONES.
 10435					;THE AC IS CHECKED FOR ITS FINAL CONTENTS EQUAL TO -1,,-1
 10436					;IF C(AC0)=-1,,-1, THE TEST PASSES
 10437
 10438	035054	201 00 0 00 000000 	B4500:	MOVEI	0		;PRELOAD AC,E WITH 0
 10439	035055	464 00 0 00 000000 		ORCM			;*ORCM SHOULD PUT ALL ONES INTO AC0
 10440	035056	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 10441						STOP^
 10442	035057	254 04 0 00 035060 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10443	035060	324 00 0 00 035061 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10444									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10445									;IN THE SUBTEST) TO LOOP ON ERROR^
 10446
 10447					;*****     FAILURE ANALYSIS     *****
 10448					;C(AC0)		C(AC1)		FAILING SIGNAL
 10449
 10450					;0				SW: ET0
 10451					;0				FC: AD AR + EN
 10452					;0				ET2: AR AD EN
 10453
 10454					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 38
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0236

 10455					;THIS TEST VERIFIES THAT ORCM CHANGES C(AC) TO THE LOGICAL
 10456					;INCLUSIVE OR OF C(AC) WITH COMPLEMENT OF C(MEMORY).
 10457					;IN THIS CASE AC=MEMORY=AC0 AND C(AC)=C(E)=-1,,-1
 10458					;HENCE THE RESULT IN THE AC SHOULD BE ALL ONES.
 10459					;THE AC IS CHECKED FOR ITS FINAL CONTENTS EQUAL TO -1,,-1
 10460					;IF C(AC0)=-1,,-1, THE TEST PASSES
 10461
 10462	035061	200 00 0 00 035524 	B4600:	MOVE	[-1]		;PRELOAD AC,E WITH -1,,-1
 10463	035062	464 00 0 00 000000 		ORCM			;*ORCM SHOULD PUT ALL ONES INTO AC0
 10464	035063	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 10465						STOP^
 10466	035064	254 04 0 00 035065 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10467	035065	324 00 0 00 035066 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10468									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10469									;IN THE SUBTEST) TO LOOP ON ERROR^
 10470
 10471					;*****     FAILURE ANALYSIS     *****
 10472					;C(AC0)		C(AC1)		FAILING SIGNAL
 10473
 10474					;0				FC: AD FM - EN
 10475					;0				ET0: AR AD EN
 10476
 10477					;**********
 10478
 10479					;THIS TEST VERIFIES THAT ORCM CHANGES C(AC) TO THE LOGICAL
 10480					;INCLUSIVE OR OF C(AC) WITH COMPLEMENT OF C(MEMORY).
 10481					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1; HENCE, THE RESULT
 10482					;IN THE AC SHOULD BE 0.  THE AC IS CHECKED FOR ITS INAL CONTENTS=0.
 10483					;IF C(AC)=0, THE TEST PASSES
 10484
 10485	035066	201 00 0 00 000000 	B4700:	MOVEI	0		;PRELOAD AC WITH 0
 10486	035067	464 00 0 00 035524 		ORCM	[-1]		;*ORCM SHOULD PLACE ALL ZEROS INTO THE AC
 10487	035070	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0,,0
 10488						STOP^
 10489	035071	254 04 0 00 035072 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10490	035072	324 00 0 00 035073 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10491									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10492									;IN THE SUBTEST) TO LOOP ON ERROR^
 10493
 10494					;*****     FAILURE ANALYSIS     *****
 10495					;C(AC0)		C(AC1)		FAILING SIGNAL
 10496
 10497					;-E				SW: FCE
 10498
 10499					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 39
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0237

 10500					;THIS TEST VERIFIES THAT IOR CHANGES C(AC) TO THE LOGICAL
 10501					;INCLUSIVE OR OF C(AC) WITH C(E).
 10502					;IN THIS CASE AC=E AND C(AC)=C(E)=0,,0.  HENCE THE
 10503					;RESULT IN THE AC SHOULD BE 0,,0.
 10504					;THE AC IS CHECKED FOR 0,,0.  IF C(AC)=0,,0, THIS TEST PASSES
 10505
 10506	035073	201 00 0 00 000000 	B5000:	MOVEI	0		;PRELOAD AC,E WITH 0,,0
 10507	035074	434 00 0 00 000000 		IOR			;*IOR SHOULD PUT 0 INTO AC
 10508	035075	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0,,0
 10509						STOP^
 10510	035076	254 04 0 00 035077 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10511	035077	324 00 0 00 035100 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10512									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10513									;IN THE SUBTEST) TO LOOP ON ERROR^
 10514
 10515					;*****     FAILURE ANALYSIS     *****
 10516					;C(AC0)		C(AC1)		FAILING SIGNAL
 10517
 10518					;-1,,-1				SW: ET0
 10519					;-1,,-1				ET0: AR AD EN
 10520					;-1,,-1				ET0: AD AR - EN
 10521					;-1,,-1				ET2: AR AD EN
 10522
 10523					;**********
 10524
 10525					;THIS TEST VERIFIES THAT IOR CHANGES C(AC) TO THE LOGICAL
 10526					;INCLUSIVE OR OF C(AC) WITH C(E).
 10527					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE
 10528					;RESULT IN THE AC SHOULD BE -1,,-1.
 10529					;THE AC IS CHECKED FOR -1,,-1
 10530					;IF C(AC) =-1,,-1 THE TEST PASSES.
 10531
 10532	035100	201 00 0 00 000000 	B5100:	MOVEI	0		;PRELOAD AC WITH 0
 10533	035101	434 00 0 00 035524 		IOR	[-1]		;*IOR SHOULD PUT -1,,-1 INTO AC
 10534	035102	312 00 0 00 035524 		CAME	[-1]		;PASS TEST IF C(AC)  =-1,,-1
 10535						STOP^
 10536	035103	254 04 0 00 035104 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10537	035104	324 00 0 00 035105 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10538									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10539									;IN THE SUBTEST) TO LOOP ON ERROR^
 10540
 10541					;*****     FAILURE ANALYSIS     *****
 10542					;C(AC0)		C(AC1)		FAILING SIGNAL
 10543
 10544					;E				SW: FCE
 10545					;0				FC: AD AR - EN
 10546
 10547					;*****     FAILURE ANALYSIS     *****
 10548					;C(AC0)		C(AC1)		FAILING SIGNAL
 10549
 10550					;0				FC: AD FM - EN
 10551
 10552	035105				NB5300:;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 40
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0238

 10553					;THIS TEST VERIFIES THAT IOR CHANGES C(AC) TO THE LOGICAL
 10554					;INCLUSIVE OR OF C(AC) WITH C(E).
 10555					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE
 10556					;RESULT IN THE AC SHOULD BE -1,,-1
 10557					;THE AC IS CHECKED FOR ITS CONTENTS = ALL ONES
 10558					;IF C(AC)=-1, THE TEST PASSES
 10559
 10560	035105	474 00 0 00 000000 	B5200:	SETO			;PRELOAD AC WITH -1,,-1
 10561	035106	434 00 0 00 035524 		IOR	[-1]		;*IOR SHOULD PUT -1,,-1 INTO AC
 10562	035107	312 00 0 00 035524 		CAME	[-1]		;PASS TEST IF C(AC)=-1,,-1
 10563						STOP^
 10564	035110	254 04 0 00 035111 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10565	035111	324 00 0 00 035112 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10566									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10567									;IN THE SUBTEST) TO LOOP ON ERROR^
 10568
 10569					;**********
 10570
 10571					;THIS TEST VERIFIES THAT IOR CHANGES C(AC) TO THE LOGICAL
 10572					;INCLUSIVE OR OF C(AC) WITH C(E).
 10573					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE
 10574					;RESULT IN THE AC SHOULD BE -1,,-1
 10575					;THE AC IS CHECKED FOR ITS CONTENTS = ALL ONES
 10576					;IF C(AC)=-1,,-1, THE TEST PASSES
 10577
 10578	035112	474 00 0 00 000000 	B5300:	SETO			;PRELOAD AC WITH -1,,-1
 10579	035113	434 00 0 00 035412 		IOR	[0]		;*IOR SHOULD PUT -1,,-1 INTO AC
 10580	035114	312 00 0 00 035524 		CAME	[-1]		;PASS TEST IF C(AC)=-1,,-1
 10581						STOP^
 10582	035115	254 04 0 00 035116 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10583	035116	324 00 0 00 035117 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10584									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10585									;IN THE SUBTEST) TO LOOP ON ERROR^
 10586
 10587					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 41
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0239

 10588					;THIS TEST VERIFIES THAT ANDCM CHANGES C(AC) TO THE LOGICAL AND
 10589					;OF C(AC) AND THE COMPLEMENT OF C(MEMORY).
 10590					;IN THIS CASE C(AC)=-1,,-1 AND C(E)=-1,,0.  HENCE, THE RESULT 
 10591					;IN THE AC SHOULD BE 0,,-1
 10592					;THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1, THE TEST PASSES
 10593
 10594	035117	474 00 0 00 000000 	B5500:	SETO			;PRELOAD AC WITH ALL ONES
 10595	035120	420 00 0 00 035502 		ANDCM	[XWD -1,0]	;*ANDCM SHOULD PLACE 0,,-1 IN THE AC
 10596	035121	312 00 0 00 035537 		CAME	[0,,-1]		;IF C(AC)=0,,-1, THE TEST PASSES
 10597						STOP^
 10598	035122	254 04 0 00 035123 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10599	035123	324 00 0 00 035124 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10600									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10601									;IN THE SUBTEST) TO LOOP ON ERROR^
 10602
 10603					;*****     FAILURE ANALYSIS     *****
 10604					;C(AC0)		C(AC1)		FAILING SIGNAL
 10605
 10606					;-E				SW: FCE
 10607					;-1,,-1				FC: AD AR - EN
 10608					;-1,,0				ET2: AR AD EN
 10609
 10610					;**********
 10611
 10612					;THIS TEST VERIFIES THAT ANDCM CHANGES C(AC) TO THE LOGICAL AND
 10613					;OF C(AC) AND THE COMPLEMENT OF C(MEMORY).
 10614					;IN THIS CASE AC=E=AC0 AND C(AC)=C(E)=0.  HENCE,
 10615					;THE RESULT IN THE AC SHOULD BE 0.  THE AC IS CHECKED FOR 0.
 10616					;IF C(AC)=0, THE TEST PASSES.
 10617
 10618	035124	474 00 0 00 000000 	B5600:	SETO			;PRELOAD AC WITH ALL ONES
 10619	035125	420 00 0 00 000000 		ANDCM			;*ANDCM SHOULD PLACE 0 IN THE AC
 10620	035126	332 00 0 00 000000 		SKIPE			;IF C(AC)=0, THE TEST PASSES.
 10621						STOP^
 10622	035127	254 04 0 00 035130 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10623	035130	324 00 0 00 035131 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10624									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10625									;IN THE SUBTEST) TO LOOP ON ERROR^
 10626
 10627					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 42
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0240

 10628					;THIS TEST VERIFIES THAT ANDCM CHANGES C(AC) TO THE LOGICAL AND
 10629					;OF C(AC) AND THE COMPLEMENT OF C(MEMORY).
 10630					;IN THIS CASE C(AC)=-1,,-1, AND C(E)=0.  HENCE, THE RESULT IN THE AC
 10631					;SHOULD BE ALL ONES.  THE AC IS CHECKED FOR -1,,-1.
 10632					;IF C(AC)=-1,,-1, THE TEST PASSES
 10633
 10634	035131	474 00 0 00 000000 	B5700:	SETO			;PRELOAD AC WITH 0		
 10635	035132	420 00 0 00 035412 		ANDCM	[0]		;*ANDCM SHOULD PLACE -1,,-1 IN THE AC
 10636	035133	312 00 0 00 035524 		CAME	[-1]		;IF C(AC)=-1,,-1, THE TEST PASSES
 10637						STOP^
 10638	035134	254 04 0 00 035135 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10639	035135	324 00 0 00 035136 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10640									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10641									;IN THE SUBTEST) TO LOOP ON ERROR^
 10642
 10643					;**********
 10644
 10645					;THIS TEST VERIFIES THAT ANDCM CHANGES C(AC) TO THE LOGICAL AND
 10646					;OF C(AC) AND THE COMPLEMENT OF C(MEMORY).
 10647					;IN THIS CASE, AC=E AND C(AC)=C(E)=0.  HENCE, THE RESULT IN THE AC
 10648					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.
 10649					;IF C(AC)=0, THE TEST PASSES
 10650
 10651	035136	201 00 0 00 000000 	B6000:	MOVEI	0		;PRELOAD AC WITH 0	
 10652	035137	420 00 0 00 000000 		ANDCM			;*ANDCM SHOULD PLACE 0 IN THE AC
 10653	035140	332 00 0 00 000000 		SKIPE			;IF C(AC)=0, THE TEST PASSES.
 10654						STOP^
 10655	035141	254 04 0 00 035142 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10656	035142	324 00 0 00 035143 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10657									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10658									;IN THE SUBTEST) TO LOOP ON ERROR^
 10659
 10660					;*****     FAILURE ANALYSIS     *****
 10661					;C(AC0)		C(AC1)		FAILING SIGNAL
 10662
 10663					;-1,,-1				FC: AD FM + EN
 10664
 10665					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 43
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0241

 10666					;THIS TEST VERIFIES THAT ANDCM CHANGES C(AC) TO THE LOGICAL AND
 10667					;OF C(AC) AND THE COMPLEMENT OF C(MEMORY).
 10668					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC
 10669					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.
 10670					;IF C(AC)=0, THE TEST PASSES
 10671
 10672	035143	400 00 0 00 000000 	B6100:	SETZ			;PRELOAD AC WITH 0	
 10673	035144	420 00 0 00 035524 		ANDCM	[-1]		;*ANDCM SHOULD PLACE 0 IN THE AC	
 10674	035145	332 00 0 00 000000 		SKIPE			;IF C(AC)=0, THE TEST PASSES
 10675						STOP^
 10676	035146	254 04 0 00 035147 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10677	035147	324 00 0 00 035150 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10678									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10679									;IN THE SUBTEST) TO LOOP ON ERROR^
 10680
 10681					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 44
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0242

 10682					;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION
 10683					;OF THE COMPLEMENT OF C(AC) AND C(E).
 10684					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=0.  HENCE, THE RESULT IN THE AC
 10685					;SHOULD BE 0.  THE AC IS CHECKED FOR ZERO.  IF C(AC) IS
 10686					;EQUAL TO ZERO, THE TEST PASSES.
 10687
 10688	035150	200 00 0 00 035502 	B6200:	MOVE	[XWD -1,0]	;PRELOAD AC WITH -1,,0
 10689	035151	410 00 0 00 035412 		ANDCA	[0]		;*ANDCA SHOULD PLACE 0 IN THE AC
 10690	035152	332 00 0 00 000000 		SKIPE			;IF C(AC)=0, THE TEST PASSES.
 10691						STOP^
 10692	035153	254 04 0 00 035154 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10693	035154	324 00 0 00 035155 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10694									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10695									;IN THE SUBTEST) TO LOOP ON ERROR^
 10696
 10697					;*****     FAILURE ANALYSIS     *****
 10698					;C(AC0)		C(AC1)		FAILING SIGNAL
 10699
 10700					;E				SW: FCE
 10701					;0,,-1				FC: AD AR + EN
 10702
 10703					;**********
 10704
 10705					;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION
 10706					;OF THE COMPLEMENT OF C(AC) AND C(E).
 10707					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=707070,,707070.  HENCE, THE
 10708					;RESULT IN THE AC SHOULD BE 0,,707070.  THE AC IS CHECKED
 10709					;FOR 0,,707070.  IF C(AC)=0,,707070, THE TEST PASSES.
 10710
 10711	035155	200 00 0 00 035502 	B6300:	MOVE	[XWD -1,0]	;PRELOAD AC WITH -1,,0
 10712	035156	410 00 0 00 035650 		ANDCA	[707070707070]	;*ANDCA SHOULD PLACE 0,,707070 IN THE AC
 10713	035157	312 00 0 00 035651 		CAME	[XWD 0,707070]	;IF C(AC)=0,,707070, THE TEST PASSES
 10714						STOP^
 10715	035160	254 04 0 00 035161 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10716	035161	324 00 0 00 035162 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10717									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10718									;IN THE SUBTEST) TO LOOP ON ERROR^
 10719
 10720					;*****     FAILURE ANALYSIS     *****
 10721					;C(AC0)		C(AC1)		FAILING SIGNAL
 10722
 10723					;707070,,707070			FC: AD FM - EN
 10724					;707070,,707070			ET2: AR AD EN
 10725
 10726					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 45
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0243

 10727					;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION
 10728					;OF THE COMPLEMENT OF C(AC) AND C(E).
 10729					;IN THIS CASE AC=E=AC0 AND C(AC)=C(E)=0. HENCE, THE RESULT
 10730					;IN THE AC SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC=0,
 10731					;THE TEST PASSES.
 10732
 10733	035162	400 00 0 00 000000 	B6400:	SETZ			;CLEAR THE AC AND E		
 10734	035163	410 00 0 00 000000 		ANDCA			;*ANDCA SHOULD PLACE 0 IN THE AC
 10735	035164	332 00 0 00 000000 		SKIPE			;IF C(AC)=0, THE TEST PASSES
 10736						STOP^
 10737	035165	254 04 0 00 035166 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10738	035166	324 00 0 00 035167 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10739									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10740									;IN THE SUBTEST) TO LOOP ON ERROR^
 10741
 10742					;**********
 10743
 10744					;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION
 10745					;OF THE COMPLEMENT OF C(AC) AND C(E).
 10746					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 10747					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR ALL ONES.
 10748					;IF C(AC)=-1,,-1, THE TEST PASSES.
 10749
 10750	035167	400 00 0 00 000000 	B6500:	SETZ			;CLEAR THE AC		
 10751	035170	410 00 0 00 035524 		ANDCA	[-1]		;*ANDCA SHOULD PLACE ALL ONES IN THE AC
 10752	035171	312 00 0 00 035524 		CAME	[-1]		;IF C(AC)=ALL ONES, THE TEST PASSES.
 10753						STOP^
 10754	035172	254 04 0 00 035173 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10755	035173	324 00 0 00 035174 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10756									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10757									;IN THE SUBTEST) TO LOOP ON ERROR^
 10758
 10759					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 46
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0244

 10760					;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION
 10761					;OF THE COMPLEMENT OF C(AC) AND C(E).
 10762					;IN THIS CASE AC=E=AC0 AND C(AC)=C(E)=-1,,-1. HENCE, THE RESULT
 10763					;IN THE AC SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0,
 10764					;THE TEST PASSES.
 10765
 10766	035174	474 00 0 00 000000 	B6600:	SETO			;PRESET AC TO ALL ONES		
 10767	035175	410 00 0 00 000000 		ANDCA			;*ANDCA SHOULD PLACE 0 IN THE AC
 10768	035176	332 00 0 00 000000 		SKIPE			;IF C(AC)=0, THE TEST PASSES
 10769						STOP^
 10770	035177	254 04 0 00 035200 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10771	035200	324 00 0 00 035201 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10772									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10773									;IN THE SUBTEST) TO LOOP ON ERROR^
 10774
 10775					;**********
 10776
 10777					;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION
 10778					;OF THE COMPLEMENT OF C(AC) AND C(E).
 10779					;IN THIS CASE C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
 10780					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0,
 10781					;THE TEST PASSES.
 10782
 10783	035201	474 00 0 00 000000 	B6700:	SETO			;PRESET AC TO ALL ONES		
 10784	035202	410 00 0 00 035412 		ANDCA	[0]		;*ANDCA SHOULD PLACE 0 IN THE AC
 10785	035203	332 00 0 00 000000 		SKIPE			;IF C(AC)=0, THE TEST PASSES.
 10786						STOP^
 10787	035204	254 04 0 00 035205 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10788	035205	324 00 0 00 035206 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10789									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10790									;IN THE SUBTEST) TO LOOP ON ERROR^
 10791
 10792					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 47
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0245

 10793					;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION
 10794					;OF THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 10795					;IN THIS CASE C(AC)=-1,,0 AND C(E)=0; HENCE, THE RESULT IN THE AC
 10796					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1,
 10797					;THIS TEST PASSES.
 10798
 10799	035206	200 00 0 00 035502 	B7000:	MOVE	[XWD -1,0]	;PRELOAD AC WITH -1,,0
 10800	035207	440 00 0 00 035412 		ANDCB	[0]		;*ANDCB SHOULD PLACE 0,,-1 IN THE AC
 10801	035210	312 00 0 00 035537 		CAME	[XWD 0,-1]	;PASS IF C(AC)=0,,-1
 10802						STOP^
 10803	035211	254 04 0 00 035212 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10804	035212	324 00 0 00 035213 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10805									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10806									;IN THE SUBTEST) TO LOOP ON ERROR^
 10807
 10808					;*****     FAILURE ANALYSIS     *****
 10809					;C(AC0)		C(AC1)		FAILING SIGNAL
 10810
 10811					;0,,-E				SW: FCE
 10812					;-1,,-1				FC: AD FM - EN
 10813					;0				ET2: AR AD EN
 10814
 10815					;**********
 10816
 10817					;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION
 10818					;OF THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 10819					;IN THIS CASE C(AC)=-1,,0 AND C(E)=-1,,-1; HENCE, THE RESULT IN THE AC
 10820					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0,
 10821					;THIS TEST PASSES.
 10822
 10823	035213	200 00 0 00 035502 	B7100:	MOVE	[XWD -1,0]	;PRELOAD AC WITH -1,,0
 10824	035214	440 00 0 00 035524 		ANDCB	[-1]		;*ANDCB SHOULD PLACE 0 IN AC
 10825	035215	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
 10826						STOP^
 10827	035216	254 04 0 00 035217 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10828	035217	324 00 0 00 035220 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10829									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10830									;IN THE SUBTEST) TO LOOP ON ERROR^
 10831
 10832					;*****     FAILURE ANALYSIS     *****
 10833					;C(AC0)		C(AC1)		FAILING SIGNAL
 10834
 10835					;0,,-1				FC: AD AR - EN
 10836
 10837					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 48
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0246

 10838
 10839					;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION OF
 10840					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 10841					;IN THIS CASE AC=E AND C(AC)=C(E)=0.  HENCE, THE RESULT IN THE AC
 10842					;SHOULD BE ALL ONES.  THE AC IS CHECKED FOR ALL ONES.  IF C(AC)=-1,,-1,
 10843					;THE TEST PASSES.
 10844
 10845	035220	400 00 0 00 000000 	B7200:	SETZ			;PRELOAD AC,E WITH ZEROES
 10846	035221	440 00 0 00 000000 		ANDCB			;*ANDCB SHOULD PLACE ALL ONES IN THE AC
 10847	035222	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC) IS ALL ONES
 10848						STOP^
 10849	035223	254 04 0 00 035224 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10850	035224	324 00 0 00 035225 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10851									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10852									;IN THE SUBTEST) TO LOOP ON ERROR^
 10853
 10854					;**********
 10855
 10856					;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION OF
 10857					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 10858					;IN THIS CASE AC=E AND C(AC)=C(E)=-1,,-1.  HENCE THE RESULT IN THE AC
 10859					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES.
 10860
 10861	035225	474 00 0 00 000000 	B7300:	SETO			;PRELOAD AC,E WITH ONES
 10862	035226	440 00 0 00 000000 		ANDCB			;*ANDCB SHOULD PLACE ALL ZEROS IN THE AC
 10863	035227	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
 10864						STOP^
 10865	035230	254 04 0 00 035231 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10866	035231	324 00 0 00 035232 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10867									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10868									;IN THE SUBTEST) TO LOOP ON ERROR^
 10869
 10870					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 49
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0247

 10871					;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION OF
 10872					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 10873					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 10874					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES.
 10875
 10876	035232	400 00 0 00 000000 	B7400:	SETZ			;PRELOAD AC WITH 0
 10877	035233	440 00 0 00 035524 		ANDCB	[-1]		;*ANDCB SHOULD PLACE 0 IN THE AC
 10878	035234	302 00 0 00 000000 		CAIE			;PASS IF C(AC)=0
 10879						STOP^
 10880	035235	254 04 0 00 035236 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10881	035236	324 00 0 00 035237 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10882									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10883									;IN THE SUBTEST) TO LOOP ON ERROR^
 10884
 10885					;**********
 10886
 10887					;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION OF
 10888					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 10889					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 10890					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES.
 10891
 10892	035237	474 00 0 00 000000 	B7500:	SETO			;PRELOAD AC WITH -1,,-1
 10893	035240	440 00 0 00 035412 		ANDCB	[0]		;*ANDCB SHOULD PLACE 0 IN THE AC
 10894	035241	302 00 0 00 000000 		CAIE			;PASS IF C(AC)=0
 10895						STOP^
 10896	035242	254 04 0 00 035243 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10897	035243	324 00 0 00 035244 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10898									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10899									;IN THE SUBTEST) TO LOOP ON ERROR^
 10900
 10901					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 50
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0248

 10902					;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 10903					;THE COMPLEMENT OF C(AC) AND C(E).
 10904					;IN THIS CASE C(AC)=-1,,0 AND C(E)=0.  HENCE, THE RESULT IN THE AC
 10905					;SHOULD BE 0,,-1.  THE AC IS CHECKED FOR 0,,-1.  IF C(AC)=0,,-1,
 10906					;THIS TEST FAILS.
 10907
 10908	035244	200 00 0 00 035502 	B7600:	MOVE	[XWD -1,0]	;PRELOAD AC WITH -1,,0
 10909	035245	454 00 0 00 035412 		ORCA	[0]		;*ORCA SHOULD PLACE 0,,-1 IN THE AC
 10910	035246	312 00 0 00 035537 		CAME	[XWD 0,-1]	;PASS IF C(AC)=0,,-1
 10911						STOP^
 10912	035247	254 04 0 00 035250 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10913	035250	324 00 0 00 035251 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10914									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10915									;IN THE SUBTEST) TO LOOP ON ERROR^
 10916
 10917					;*****     FAILURE ANALYSIS     *****
 10918					;C(AC0)		C(AC1)		FAILING SIGNAL
 10919
 10920					;-1,,0				SW: ET0
 10921					;-1,,0				FC: AD AR - EN
 10922					;0				FC: AD FM + EN
 10923					;-1,,-1				ET0: AR AD EN
 10924					;-1,,-1				ET0: AD AR - EN
 10925					;-1,,0				ET2: AR AD EN
 10926
 10927					;**********
 10928
 10929					;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 10930					;THE COMPLEMENT OF C(AC) AND C(E).
 10931					;IN THIS CASE C(AC)=-1,,0 AND C(E)=707070,,707070.  HENCE, THE RESULT IN THE AC
 10932					;SHOULD BE 707070,,-1.  THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0,
 10933					;THIS TEST FAILS.
 10934
 10935	035251	200 00 0 00 035502 	B10000:	MOVE	[XWD -1,0]	;PRELOAD AC WITH -1,,0
 10936	035252	454 00 0 00 035650 		ORCA	[707070707070]	;*ORCA SHOULD PLACE 707070,,-1 IN THE AC
 10937	035253	312 00 0 00 035652 		CAME	[XWD 707070,-1]	;PASS IF C(AC)=707070,,-1
 10938						STOP^
 10939	035254	254 04 0 00 035255 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10940	035255	324 00 0 00 035256 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10941									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10942									;IN THE SUBTEST) TO LOOP ON ERROR^
 10943
 10944					;*****     FAILURE ANALYSIS     *****
 10945					;C(AC0)		C(AC1)		FAILING SIGNAL
 10946
 10947					;0,,-1				SW: FCE
 10948
 10949					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 51
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0249

 10950					;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 10951					;THE COMPLEMENT OF C(AC) AND C(E).
 10952					;IN THIS CASE, AC=E AND C(AC)=C(E)=0.  HENCE, THE RESULT IN THE AC
 10953					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES.
 10954
 10955	035256	400 00 0 00 000000 	B10100:	SETZ			;PRELOAD AC,E WITH 0
 10956	035257	454 00 0 00 000000 		ORCA			;*ORCA SHOULD PLACE -1,,-1 IN THE AC
 10957	035260	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 10958						STOP^
 10959	035261	254 04 0 00 035262 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10960	035262	324 00 0 00 035263 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10961									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10962									;IN THE SUBTEST) TO LOOP ON ERROR^
 10963
 10964					;**********
 10965
 10966					;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OF FUNCTION OF
 10967					;THE COMPLEMENT OF C(AC) AND C(E).
 10968					;IN THIS CASE, AC=E AND C(AC)=C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 10969					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES.
 10970
 10971	035263	474 00 0 00 000000 	B10200:	SETO			;PRELOAD AC,E WITH 0
 10972	035264	454 00 0 00 000000 		ORCA			;*ORCA SHOULD PLACE -1,,-1 IN THE AC
 10973	035265	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 10974						STOP^
 10975	035266	254 04 0 00 035267 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10976	035267	324 00 0 00 035270 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10977									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10978									;IN THE SUBTEST) TO LOOP ON ERROR^
 10979
 10980					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 52
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0250

 10981					;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 10982					;THE COMPLEMENT OF C(AC) AND C(E).
 10983					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESUTL IN THE AC
 10984					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES.
 10985
 10986	035270	400 00 0 00 000000 	B10300:	SETZ			;PRELOAD AC WITH 0
 10987	035271	454 00 0 00 035524 		ORCA	[-1]		;*ORCA SHOULD PLACE -1,,-1 IN THE AC
 10988	035272	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 10989						STOP^
 10990	035273	254 04 0 00 035274 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10991	035274	324 00 0 00 035275 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10992									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10993									;IN THE SUBTEST) TO LOOP ON ERROR^
 10994
 10995					;**********
 10996
 10997					;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 10998					;THE COMPLEMENT OF C(AC) AND C(E).
 10999					;IN THIS CASE C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
 11000					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES.
 11001
 11002	035275	474 00 0 00 000000 	B10400:	SETO			;PRELOAD AC WITH -1,,-1
 11003	035276	454 00 0 00 035412 		ORCA	[0]		;*ORCA SHOULD PLACE 0 IN THE AC
 11004	035277	302 00 0 00 000000 		CAIE			;PASS IF C(AC)=0
 11005						STOP^
 11006	035300	254 04 0 00 035301 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11007	035301	324 00 0 00 035302 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11008									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11009									;IN THE SUBTEST) TO LOOP ON ERROR^
 11010
 11011					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 53
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0251

 11012					;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 11013					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E)
 11014					;IN THIS CASE, C(AC)=-1,,0 AND C(E)=707070,,707070.  HENCE THE RESULT
 11015					;IN THE AC 070707,,-1.  THE AC IS CHECKED FOR 070707,,-1.  IF C(AC)=070707,,-1,
 11016					;THIS TEST PASSES
 11017
 11018	035302	200 00 0 00 035502 	B10500:	MOVE	[XWD -1,0]	;PRELOAD THE AC WITH -1,,0
 11019	035303	470 00 0 00 035650 		ORCB	[707070707070]	;*ORCB SHOULD PLACE 070707,,-1 IN THE AC
 11020	035304	312 00 0 00 035653 		CAME	[XWD 070707,-1]	;PASS IF C(AC)=070707,,-1
 11021						STOP^
 11022	035305	254 04 0 00 035306 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11023	035306	324 00 0 00 035307 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11024									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11025									;IN THE SUBTEST) TO LOOP ON ERROR^
 11026
 11027					;*****     FAILURE ANALYSIS     *****
 11028					;C(AC0)		C(AC1)		FAILING SIGNAL
 11029
 11030					;-1,,-1				SW: FCE
 11031					;707070,,0			SW: ET0
 11032					;0,,-1				FC: AD AR + EN
 11033					;070707,,070707			FC: AD FM + EN
 11034					;070707,,070707			ET0: AR AD EN
 11035					;-1,,-1				ET0: AD AR - EN
 11036					;707070,,0			ET2: AR AD EN
 11037
 11038					;**********
 11039
 11040					;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 11041					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E)
 11042					;IN THIS CASE, C(AC)=0,,-1 AND C(E)=-1,,-1.  HENCE THE RESULT
 11043					;IN THE AC -1,,0.  THE AC IS CHECKED FOR -1,,0.  IF C(AC)=-1,,0,
 11044					;THIS TEST PASSES
 11045
 11046	035307	200 00 0 00 035537 	B10700:	MOVE	[XWD 0,-1]	;PRELOAD THE AC WITH 0,,-1
 11047	035310	470 00 0 00 035524 		ORCB	[-1]		;*ORCB SHOULD PLACE -1,,0 IN THE AC
 11048	035311	312 00 0 00 035502 		CAME	[XWD -1,0]	;PASS IF C(AC)=-1,,0
 11049						STOP^
 11050	035312	254 04 0 00 035313 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11051	035313	324 00 0 00 035314 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11052									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11053									;IN THE SUBTEST) TO LOOP ON ERROR^
 11054
 11055					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 54
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0252

 11056					;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 11057					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 11058					;IN THIS CASE, C(AC)=0 AND C(E)=0.  HENCE, THE RESULT IN THE AC
 11059					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)-1,,-1, THE TEST PASSES
 11060
 11061	035314	400 00 0 00 000000 	B11000:	SETZ			;PRELOAD AC WITH 0		
 11062	035315	470 00 0 00 035412 		ORCB	[0]		;*ORCB SHOULD PLACE -1,,-1 IN THE AC
 11063	035316	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 11064						STOP^
 11065	035317	254 04 0 00 035320 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11066	035320	324 00 0 00 035321 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11067									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11068									;IN THE SUBTEST) TO LOOP ON ERROR^
 11069
 11070					;**********
 11071
 11072					;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 11073					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 11074					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 11075					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES
 11076
 11077	035321	474 00 0 00 000000 	B11100:	SETO			;PRELOAD AC WITH -1,,-1
 11078	035322	470 00 0 00 035524 		ORCB	[-1]		;*ORCB SHOULD PLACE 0 IN THE AC
 11079	035323	302 00 0 00 000000 		CAIE			;PASS IF C(AC)=0
 11080						STOP^
 11081	035324	254 04 0 00 035325 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11082	035325	324 00 0 00 035326 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11083									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11084									;IN THE SUBTEST) TO LOOP ON ERROR^
 11085
 11086					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 55
DAKABM	MAC	19-JAN-77 13:39		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0253

 11087					;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 11088					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E)
 11089					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 11090					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES
 11091
 11092	035326	400 00 0 00 000000 	B11200:	SETZ			;PRELOAD AC WITH 0		
 11093	035327	470 00 0 00 035524 		ORCB	[-1]		;*ORCB SHOULD PLACE -1,,-1 IN THE AC
 11094	035330	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 11095						STOP^
 11096	035331	254 04 0 00 035332 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11097	035332	324 00 0 00 035333 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11098									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11099									;IN THE SUBTEST) TO LOOP ON ERROR^
 11100
 11101					;**********
 11102
 11103					;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 11104					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 11105					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
 11106					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES
 11107
 11108	035333	474 00 0 00 000000 	B11300:	SETO			;PRELOAD AC WITH -1,,-1		
 11109	035334	470 00 0 00 035412 		ORCB	[0]		;*ORCB SHOULD PLACE -1,,-1 IN THE AC
 11110	035335	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 11111						STOP^
 11112	035336	254 04 0 00 035337 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11113	035337	324 00 0 00 035340 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11114									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11115									;IN THE SUBTEST) TO LOOP ON ERROR^
 11116
 11117					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 56
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVN INSTRUCTION                                                           SEQ 0254

 11118					SUBTTL	TEST OF MOVN INSTRUCTION
 11119
 11120					;**********
 11121
 11122					;THIS TEST VERIFIES THAT MOVN PLACES THE NEGATIVE OF C(E) INTO THE AC
 11123					;IN THIS CASE C(E)=0.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
 11124					;THE AC IS CHECKED FOR 0, THE NEGATIVE OF 0.  IF C(AC)=0, THIS TEST PASSES
 11125
 11126	035340	474 00 0 00 000000 	B11500:	SETO			;PRELOAD AC WITH -1,,-1		
 11127	035341	210 00 0 00 035412 		MOVN	[0]		;*MOVN SHOULD PLACE 0 INTO THE AC
 11128	035342	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
 11129						STOP^
 11130	035343	254 04 0 00 035344 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11131	035344	324 00 0 00 035345 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11132									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11133									;IN THE SUBTEST) TO LOOP ON ERROR^
 11134
 11135					;*****     FAILURE ANALYSIS     *****
 11136					;C(AC0)		C(AC1)		FAILING SIGNAL
 11137
 11138					;E				SW: FCE
 11139					;-1,,-1				FC: AD FM + EN
 11140					;-1,,-1				FC: AD CRY 36
 11141
 11142					;**********
 11143
 11144					;THIS TEST VERIFIES THAT MOVN PLACES THE NEGATIVE OF C(E) INTO THE AC.
 11145					;IN THIS CASE C(E)=-1,,0.  HENCE, THE RESULT IN THE AC SHOULD BE 1,,0
 11146					;THE AC IS CHECKED FOR 1,,0.  IF C(AC)=1,,0, THE TEST PASSES
 11147
 11148	035345	200 00 0 00 035502 	B11600:	MOVE	[XWD -1,0]	;PRELOAD AC,E WITH -1,,0
 11149	035346	210 00 0 00 000000 		MOVN			;*MOVN SHOULD PLACE 1,,0 INTO THE AC
 11150	035347	312 00 0 00 035440 		CAME	[XWD 1,0]	;PASS IF C(AC)=1,,0
 11151						STOP^
 11152	035350	254 04 0 00 035351 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11153	035351	324 00 0 00 035352 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11154									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11155									;IN THE SUBTEST) TO LOOP ON ERROR^
 11156
 11157					;*****     FAILURE ANALYSIS     *****
 11158					;C(AC0)		C(AC1)		FAILING SIGNAL
 11159
 11160					;0				FC: AD ADD
 11161					;0				FC: AD FM - EN
 11162					;0				FC: AD AR - EN
 11163					;-1,,0				ET2: AR AD EN
 11164
 11165					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 57
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVN INSTRUCTION                                                           SEQ 0255

 11166					;THIS TEST VERIFIES THAT MOVN PLACES THE NEGATIVE OF C(E) INTO THE AC.
 11167					;IN THIS CASE C(E) =707070,,707070.  HENCE, THE RESULT IN THE AC SHOULD BE
 11168					;070707,,070710.  THE AC IS CHECKED FOR 070707,,070710.  IF C(AC)=
 11169					;070707,,070710, THE TEST PASSES
 11170
 11171	035352	400 00 0 00 000000 	B11700:	SETZ			;PRELOAD AC WITH 0		
 11172	035353	210 00 0 00 035650 		MOVN	[707070707070]	;*MOVN SHOULD PLACE 070707,,070710 INTO THE AC
 11173	035354	312 00 0 00 035654 		CAME	[070707070710]	;PASS IF C(AC) 070707,,070710
 11174						STOP^
 11175	035355	254 04 0 00 035356 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11176	035356	324 00 0 00 035357 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11177									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11178									;IN THE SUBTEST) TO LOOP ON ERROR^
 11179
 11180					;**********
 11181
 11182					;THIS TEST VERIFIES THAT MOVN PLACES THE NEGATIVE OF C(E) INTO THE AC
 11183					;IN THIS CASE C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC SHOULD BE 0,,1.
 11184					;THE AC IS CHECKED FOR 0,,1, THE NEGATIVE OF -1,,-1.  IF C(AC)=1, THIS TEST PASSES
 11185
 11186	035357	210 00 0 00 035524 	B12100:	MOVN	[-1]		;*MOVN SHOULD PLACE 0,,1 INTO THE AC	
 11187	035360	302 00 0 00 000001 		CAIE	1		;PASS OF C(AC)=0,,1
 11188						STOP^
 11189	035361	254 04 0 00 035362 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11190	035362	324 00 0 00 035363 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11191									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11192									;IN THE SUBTEST) TO LOOP ON ERROR^
 11193
 11194					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 58
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVM INSTRUCTION                                                           SEQ 0256

 11195					SUBTTL	TEST OF MOVM INSTRUCTION
 11196
 11197					;**********
 11198
 11199					;THIS TEST VERIFIES THAT MOVM PLACES THE MAGNITUDE OF C(E) INTO THE AC.
 11200					;IN THIS CASE, C(E)=0.  HENCE, THE RESULT IN THE AC SHOULD BE 0.
 11201					;THE AC IS CHECKED FOR 0.  IF C(AC)=0, THIS TEST PASSES
 11202
 11203	035363	474 00 0 00 000000 	B12200:	SETO			;PRELOAD AC WITH -1,,-1		
 11204	035364	214 00 0 00 035412 		MOVM	[0]		;*MOVM SHOULD PLACE 0 INTO THE AC	
 11205	035365	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
 11206						STOP^
 11207	035366	254 04 0 00 035367 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11208	035367	324 00 0 00 035370 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11209									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11210									;IN THE SUBTEST) TO LOOP ON ERROR^
 11211
 11212					;*****     FAILURE ANALYSIS     *****
 11213					;C(AC0)		C(AC1)		FAILING SIGNAL
 11214
 11215					;E				SW: FCE
 11216
 11217					;**********
 11218
 11219					;THIS TEST VERIFIES THAT MOVM PLACES THE MAGNITUDE OF C(E) INTO THE AC
 11220					;IN THIS CASE, C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC SHOULD BE 0,,1.
 11221					;THE AC IS CHECKED FOR 0,,1.  IF C(AC)=0,,1, THIS TEST PASSES
 11222
 11223	035370	400 00 0 00 000000 	B12300:	SETZ			;PRELOAD AC WITH 0		
 11224	035371	214 00 0 00 035524 		MOVM	[-1]		;*MOVM SHOULD PLACE 0,,1 INTO THE AC
 11225	035372	302 00 0 00 000001 		CAIE	1		;PASS IF C(AC)=0,,1
 11226						STOP^
 11227	035373	254 04 0 00 035374 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11228	035374	324 00 0 00 035375 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11229									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11230									;IN THE SUBTEST) TO LOOP ON ERROR^
 11231
 11232					;*****     FAILURE ANALYSIS     *****
 11233					;C(AC0)		C(AC1)		FAILING SIGNAL
 11234
 11235					;0				FC: AD FM + EN
 11236					;0				FC: AD ADD
 11237					;0				FC: AD CRY 36
 11238					;0				FC: AD AR - EN
 11239					;-1,,-1				ET2: AR AD EN
 11240
 11241					;**********
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 59
DAKABM	MAC	19-JAN-77 13:39		TEST OF MOVM INSTRUCTION                                                           SEQ 0257

 11242					;THIS TEST VERIFIES THAT MOVM PLACES THE MAGNITUDE OF C(E) INTO THE AC
 11243					;IN THIS CASE, C(E)=400000,,0.  HENCE, THE RESULT IN THE AC SHOULD BE
 11244					;400000,,0.  THE AC IS CHECKED FOR 400000,,0.
 11245					;IF C(AC)=400000,,0, THIS TEST PASSES.
 11246
 11247	035375	400 00 0 00 000000 	B12400:	SETZ
 11248	035376	214 00 0 00 035461 		MOVM	[XWD 400000,0]	;*MOVM SHOULD PLACE 400000,,0 INTO THE AC
 11249	035377	312 00 0 00 035461 		CAME	[XWD 400000,0]	;PASS IF C(AC)=400000,,0
 11250						STOP^
 11251	035400	254 04 0 00 035401 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11252	035401	324 00 0 00 035402 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11253									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11254									;IN THE SUBTEST) TO LOOP ON ERROR^
 11255
 11256					;**********
 11257
 11258					;THIS TEST VERIFIES THAT MOVM PLACES THE MAGNITUDE OF C(E) INTO THE AC
 11259					;IN THIS CASE, C(E)=377777,,-1.  HENCE, THE RESULT IN THE AC SHOULD BE
 11260					;377777,,-1.  THE AC IS CHECKED FOR 377777,,-1.
 11261					;IF C(AC)=377777,,-1, THIS TEST PASSES.
 11262
 11263	035402	400 00 0 00 000000 	B12500:	SETZ			;PRELOAD AC WITH 0
 11264	035403	214 00 0 00 035540 		MOVM	[XWD 377777,-1]	;*MOVM SHOULD PLACE 377777,,-1 INTO THE AC
 11265	035404	312 00 0 00 035540 		CAME	[XWD 377777,-1]	;PASS IF C(AC)=377777,,-1
 11266						STOP^
 11267	035405	254 04 0 00 035406 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11268	035406	324 00 0 00 035407 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11269									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11270									;IN THE SUBTEST) TO LOOP ON ERROR^
 11271
 11272					;**********
 11273	035407	254 00 0 00 030057 		JRST	BEGEND
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0258

 11274					SUBTTL	*STOR* RESERVED STORAGE, JAN 18,1977
 11275
 11276					;PROGRAM LITERALS
 11277
 11278						XLIST
 11279					IFNDEF	$LPAPER,<LIST>
 11280	035410					LIT
 11281	035410	000001	000001
 11282	035411	254 00 0 00 030741 
 11283	035412	000000	000000
 11284	035413	123456	765432
 11285	035414	123456	000000
 11286	035415	000000	123456
 11287	035416	000000	000001
 11288	035417	000000	000002
 11289	035420	000000	000004
 11290	035421	000000	000010
 11291	035422	000000	000020
 11292	035423	000000	000040
 11293	035424	000000	000100
 11294	035425	000000	000200
 11295	035426	000000	000400
 11296	035427	000000	001000
 11297	035430	000000	002000
 11298	035431	000000	004000
 11299	035432	000000	010000
 11300	035433	000000	020000
 11301	035434	000000	040000
 11302	035435	000000	100000
 11303	035436	000000	200000
 11304	035437	000000	400000
 11305	035440	000001	000000
 11306	035441	000002	000000
 11307	035442	000004	000000
 11308	035443	000010	000000
 11309	035444	000020	000000
 11310	035445	000040	000000
 11311	035446	000100	000000
 11312	035447	000200	000000
 11313	035450	000400	000000
 11314	035451	001000	000000
 11315	035452	002000	000000
 11316	035453	004000	000000
 11317	035454	010000	000000
 11318	035455	020000	000000
 11319	035456	040000	000000
 11320	035457	100000	000000
 11321	035460	200000	000000
 11322	035461	400000	000000
 11323	035462	600000	000000
 11324	035463	700000	000000
 11325	035464	740000	000000
 11326	035465	760000	000000
 11327	035466	770000	000000
 11328	035467	774000	000000
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 1-1
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0259

 11329	035470	776000	000000
 11330	035471	777000	000000
 11331	035472	777400	000000
 11332	035473	777600	000000
 11333	035474	777700	000000
 11334	035475	777740	000000
 11335	035476	777760	000000
 11336	035477	777770	000000
 11337	035500	777774	000000
 11338	035501	777776	000000
 11339	035502	777777	000000
 11340	035503	777777	400000
 11341	035504	777777	600000
 11342	035505	777777	700000
 11343	035506	777777	740000
 11344	035507	777777	760000
 11345	035510	777777	770000
 11346	035511	777777	774000
 11347	035512	777777	776000
 11348	035513	777777	777000
 11349	035514	777777	777400
 11350	035515	777777	777600
 11351	035516	777777	777700
 11352	035517	777777	777740
 11353	035520	777777	777760
 11354	035521	777777	777770
 11355	035522	777777	777774
 11356	035523	777777	777776
 11357	035524	777777	777777
 11358	035525	777777	777773
 11359	035526	777777	777677
 11360	035527	777777	775777
 11361	035530	777777	737777
 11362	035531	777777	377777
 11363	035532	777767	777777
 11364	035533	777577	777777
 11365	035534	773777	777777
 11366	035535	677777	777777
 11367	035536	577777	777777
 11368	035537	000000	777777
 11369	035540	377777	777777
 11370	035541	000002	000002
 11371	035542	000004	000004
 11372	035543	000010	000010
 11373	035544	000020	000020
 11374	035545	000040	000040
 11375	035546	000100	000100
 11376	035547	000200	000200
 11377	035550	000400	000400
 11378	035551	001000	001000
 11379	035552	002000	002000
 11380	035553	004000	004000
 11381	035554	010000	010000
 11382	035555	020000	020000
 11383	035556	040000	040000
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 1-2
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0260

 11384	035557	100000	100000
 11385	035560	200000	200000
 11386	035561	400000	400000
 11387	035562	777776	777776
 11388	035563	777775	777775
 11389	035564	777773	777773
 11390	035565	777767	777767
 11391	035566	777757	777757
 11392	035567	777737	777737
 11393	035570	777677	777677
 11394	035571	777577	777577
 11395	035572	777377	777377
 11396	035573	776777	776777
 11397	035574	775777	775777
 11398	035575	773777	773777
 11399	035576	767777	767777
 11400	035577	757777	757777
 11401	035600	737777	737777
 11402	035601	677777	677777
 11403	035602	577777	577777
 11404	035603	377777	377777
 11405	035604	000001	777776
 11406	035605	777776	000001
 11407	035606	000002	777775
 11408	035607	777775	000002
 11409	035610	000004	777773
 11410	035611	777773	000004
 11411	035612	000010	777767
 11412	035613	777767	000010
 11413	035614	000020	777757
 11414	035615	777757	000020
 11415	035616	000040	777737
 11416	035617	777737	000040
 11417	035620	000100	777677
 11418	035621	777677	000100
 11419	035622	000200	777577
 11420	035623	777577	000200
 11421	035624	000400	777377
 11422	035625	777377	000400
 11423	035626	001000	776777
 11424	035627	776777	001000
 11425	035630	002000	775777
 11426	035631	775777	002000
 11427	035632	004000	773777
 11428	035633	773777	004000
 11429	035634	010000	767777
 11430	035635	767777	010000
 11431	035636	020000	757777
 11432	035637	757777	020000
 11433	035640	040000	737777
 11434	035641	737777	040000
 11435	035642	100000	677777
 11436	035643	677777	100000
 11437	035644	200000	577777
 11438	035645	577777	200000
DAKAB PDP-10 KA10 BASIC INSTRUCTION DIAGNOSTIC (2) 0,2	MACRO %52(537) 14:08 19-JAN-77 PAGE 1-3
STOR	KLM	18-JAN-77 11:42		*STOR* RESERVED STORAGE, JAN 18,1977                                               SEQ 0261

 11439	035646	400000	377777
 11440	035647	377777	400000
 11441	035650	707070	707070
 11442	035651	000000	707070
 11443	035652	707070	777777
 11444	035653	070707	777777
 11445	035654	070707	070710
 11446						LIST
 11447	035655	000000	000000		ENDSLD:	0
 11448
 11449					IFDEF	DEBUG,<
 11450					PATCH:	BLOCK DEBUG		;PATCHING AREA
 11451					>
 11452
 11453					;PROGRAM VARIABLES
 11454	035656					VAR
 11455
 11456					IFDEF	PGMEND,<
 11457	035656	000000	000000		END:	0
 11458			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 035657
CPU TIME USED 00:41.977

11K CORE USED

A10400	   890#
A10500	   913#                                                                                                            SEQ 0262
A10600	   934#
A10700	   956#
A11000	  1008#
A11100	  2121#
A11200	  3105#
A11300	  4006#
A11400	  4502#
A11500	  5182#
A11600	  5201#
A11700	  5216#
A12000	  5884#
A12100	  5898#
A12200	  5921#
A12300	  5939#
A12400	  5957#
A13200	  2140#
A13300	   974#
A13400	   992#
A13500	  4999#
A13600	  5016#
A13700	  5033#
A14000	  5049#
A14100	  5066#
A14200	  5083#
A14300	  5099#
A14400	  5116#
A14500	  5133#
A14600	  5149#
A14700	  5166#
ABORT	    83#
AC0	   678#
ALTMGO	   437#
ANXM	   351#
APR	   775	   776	   777
AROV	   351#
AROVU	   351#
AST	   552#
ATSIN	   553#
B00	    52	    53	    54	    55	    56	    57	    58	    59	    60	    61	    62	   854	   881#
B100	  5980#
B1000	  6120#
B10000	 10935#
B10100	 10955#
B10200	 10971#
B10300	 10986#
B10400	 11002#
B10500	 11018#
B10700	 11046#
B1100	  6136#
B11000	 11061#
B11100	 11077#
B11200	 11092#
B11300	 11108#                                                                                                            SEQ 0263
B11500	 11126#
B11600	 11148#
B11700	 11171#
B1200	  6152#
B12100	 11186#
B12200	 11203#
B12300	 11223#
B12400	 11247#
B12500	 11263#
B1300	  6173#
B1400	  6194#
B1500	  6218#
B1600	  6237#
B1700	  7165#
B200	  6001#
B2000	  7830#
B2100	  8499#
B2200	  8878#
B2300	  9258#
B2400	  9733#
B2500	 10213#
B2600	 10237#
B2700	 10257#
B300	  6026#
B3000	 10274#
B3100	 10290#
B3200	 10305#
B3300	 10326#
B3500	 10346#
B3600	 10369#
B3700	 10383#
B400	  6047#
B4300	 10398#
B4400	 10420#
B4500	 10438#
B4600	 10462#
B4700	 10485#
B500	  6063#
B5000	 10506#
B5100	 10532#
B5200	 10560#
B5300	 10578#
B5500	 10594#
B5600	 10618#
B5700	 10634#
B600	  6083#
B6000	 10651#
B6100	 10672#
B6200	 10688#
B6300	 10711#
B6400	 10733#
B6500	 10750#
B6600	 10766#                                                                                                            SEQ 0264
B6700	 10783#
B700	  6099#
B7000	 10799#
B7100	 10823#
B7200	 10845#
B7300	 10861#
B7400	 10876#
B7500	 10892#
B7600	 10908#
BEGEND	   433#	 11273
BEGIN	   297	   298	   364#	   721	   843	 11458
BEGIN1	   380#	   434
BELL	   556#
BIS	   351#
CCA	   351#
CHAIN	   103#
CHNOFF	   351#
CHNON	   351#
CLK	   351#
CLKCLR	   351#
CLKDIS	   351#
CLKENB	   351#
CLKU	   351#
CLOCKF	   419#
CNTLC	   436#
COMMA	   545#
CONSW	   420#
CPOPJ	   440#
CPOPJ1	   438#
CRLF	   232	   233	   540#
CRLF2	   236	   237	   542#
CRY0	   351#
CRY1	   351#
CSHFLG	   599#
CSHMEM	   600#
CYCL60	   593#
DCK	   351#
DDT	   680#
DDTLNK	   117#	   378
DDTSRT	   378#
DEBUG	 11449
DECVER	     5#	    11	    27	   399
DF22F	   504#
DIAGMN	   367#
DIAGNO	   679#
DIAMON	   681#
DING	    89#
DOLLAR	   559#
DONG11	   682#	   822	   838
DSKUPD	   404
DTE	   686#	   822	   824	   838	   840
DTE0	   687#
DTE1	   688#                                                                                                            SEQ 0265
DTE2	   689#
DTE3	   690#
END	 11457#
ENDFIX	   673#
ENDSLD	 11447#
ERMORE	   453#
ERRPC	   424#
ERRTLS	   425#
ERSTOP	    92#
EXCASB	    32#	   402
EXIOT	   351#
FOV	   351#
FOVU	   351#
FRDLNK	   115#
FSELNK	   114#
FXU	   351#
HYPEN	   550#
INHCSH	   100#
INHPAG	    97#
INXM	   351#
IOCLR	   351#
ITERAT	    71#	   397
ITRCH1	   457#
ITRCNT	   397#	   767	   796	   800	   808	   809	   813
JOB41	   351#
JOBAPR	   351#
JOBCNI	   351#
JOBDDT	   351#
JOBFF	   351#
JOBOPC	   351#
JOBREL	   351#
JOBREN	   351#
JOBSA	   351#
JOBSYM	   351#
JOBTPC	   351#
JOBUSY	   351#
JOBUUO	   351#
JOBVER	   351#
KA10	   351
KAHZ50	   105#
KAIFLG	   414#
KI10	   351
KL10	   351
KLFLG	   415#	   769	   787	   806
KLOLD	   312
KLTYP	   631#	   768	   779	   821	   823	   837	   839
LDLNK	   116#	   367	   369
LFP	   554#
LOOPER	    91#
LUUO	   351#
LUUO1	   484	   485
LUUO10	   484	   489
LUUO11	   484	   489                                                                                                     SEQ 0266
LUUO12	   484	   490
LUUO13	   484	   490
LUUO14	   484	   491
LUUO15	   484	   491
LUUO16	   484	   492
LUUO17	   484	   492
LUUO2	   484	   486
LUUO20	   484	   493
LUUO21	   484	   493
LUUO22	   484	   494
LUUO23	   484	   494
LUUO24	   484	   495
LUUO25	   484	   495
LUUO26	   484	   496
LUUO27	   484	   496
LUUO3	   484	   486
LUUO30	   484	   497
LUUO31	   484	   497
LUUO32	   484	   498
LUUO33	   484	   498
LUUO4	   484	   487
LUUO5	   484	   487
LUUO6	   484	   488
LUUO7	   484	   488
LUUOI	   351#
MAPNEW	   505#
MARGIN	   427#
MCNVER	     6#	    11	    27	   399
MEMLOW	   507#
MEMMAP	   405
MEMSIZ	   508#
MEMTOT	   506#
MINUS	   549#
MODDVC	    99#
MODDVL	   297	   297#	   400
MODDVU	   298	   298#	   401
MODLNK	   118#	   364
MONCTL	   417#	   816	   855
MONFLG	   416#	   761	   851
MONTEN	   418#	   766	   802	   831
MPVU	   351#
NB5300	 10552#
NOPNT	    87#
NXMU	   351#
OPRSEL	   101#
OPTIME	   519#
P	   144	   145	   146	   147	   351#	   439
PAG	   351#
PALERS	    93#
PARCLR	   351#
PARDIS	   351#
PAREA0	    64#
PAREA1	    65#	   395                                                                                                     SEQ 0267
PAREA2	    66#	   396
PAREA3	    67#	   393
PAREA4	    68#	   394
PAREA5	    69#	   406
PAREA6	    70#	   407
PAREA7	   406#
PAREA8	   407#
PARENB	   351#
PARU	   351#
PASCNT	   421#	   795
PDISF	   516#
PDLOVU	   351#
PERIOD	   546#
PFSTRT	   373#
PGMEND	    72#	 11456
PGMNAM	   398	   856	   859#
PI	   808
PICHN1	   351#
PICHN2	   351#
PICHN3	   351#
PICHN4	   351#
PICHN5	   351#
PICHN6	   351#
PICHN7	   351#
PICHNA	   351#
PICLR	   351#
PIOFF	   351#
PION	   351#
PLIST	   585#	   585
PLISTE	   585	   587#	   671
PLISTS	   586#
PLUS	   551#
PNTENB	   515#
PNTEXT	   394#
PNTFLG	   514#
PNTINH	   517#
PNTLPT	    88#
PNTNAM	   393#
PNTSPC	   518#
PVPAGI	   612#
PWFCLR	   351#
QUEST	   557#
RADIX	   560#
RADLSC	   562#
RADLSP	   561#
RANDBS	   395#
REENTR	   375#
RELIAB	    95#
REPT	   351#
REPT1	   351#
REPTU	   473#
REQSET	   351#
RESRT1	   450#                                                                                                            SEQ 0268
RESRT2	   451#
RETURN	   382#	   804	   811	   832
RSTART	    84#
RTP	   555#
RUNFLG	   422#
SADR1	    52#	   371
SADR10	    61#	   387
SADR11	    62#	   388
SADR2	    53#	   373
SADR3	    54#	   375
SADR4	    55#
SADR5	    56#	   436
SADR6	    57#	   437
SADR7	    58#	   384
SADR8	    59#	   385
SADR9	    60#	   386
SBINIT	   157	   381#
SCOPE	   474#
SFSTRT	   371#
SLASH	   558#
SN	  1005#	  1045	  1045#	  1075	  1075#	  1105	  1105#	  1135	  1135#	  1165	  1165#	  1195	  1195#	  1225
	  1225#	  1255	  1255#	  1285	  1285#	  1315	  1315#	  1345	  1345#	  1375	  1375#	  1405	  1405#	  1435
	  1435#	  1465	  1465#	  1495	  1495#	  1525	  1525#	  1555	  1555#	  1585	  1585#	  1615	  1615#	  1645
	  1645#	  1675	  1675#	  1705	  1705#	  1735	  1735#	  1765	  1765#	  1795	  1795#	  1825	  1825#	  1855
	  1855#	  1885	  1885#	  1915	  1915#	  1945	  1945#	  1975	  1975#	  2005	  2005#	  2035	  2035#	  2065
	  2065#	  2095	  2095#	  2137#	  2173	  2173#	  2199	  2199#	  2225	  2225#	  2251	  2251#	  2277	  2277#
	  2303	  2303#	  2329	  2329#	  2355	  2355#	  2381	  2381#	  2407	  2407#	  2433	  2433#	  2459	  2459#
	  2485	  2485#	  2511	  2511#	  2537	  2537#	  2563	  2563#	  2589	  2589#	  2615	  2615#	  2641	  2641#
	  2667	  2667#	  2693	  2693#	  2719	  2719#	  2745	  2745#	  2771	  2771#	  2797	  2797#	  2823	  2823#
	  2849	  2849#	  2875	  2875#	  2901	  2901#	  2927	  2927#	  2953	  2953#	  2979	  2979#	  3005	  3005#
	  3031	  3031#	  3057	  3057#	  3083	  3083#	  3102#	  3136	  3136#	  3161	  3161#	  3186	  3186#	  3211
	  3211#	  3236	  3236#	  3261	  3261#	  3286	  3286#	  3311	  3311#	  3336	  3336#	  3361	  3361#	  3386
	  3386#	  3411	  3411#	  3436	  3436#	  3461	  3461#	  3486	  3486#	  3511	  3511#	  3536	  3536#	  3561
	  3561#	  3586	  3586#	  3611	  3611#	  3636	  3636#	  3661	  3661#	  3686	  3686#	  3711	  3711#	  3736
	  3736#	  3761	  3761#	  3786	  3786#	  3811	  3811#	  3836	  3836#	  3861	  3861#	  3886	  3886#	  3911
	  3911#	  3936	  3936#	  3961	  3961#	  3986	  3986#	  4002#	  4038	  4038#	  4064	  4064#	  4090	  4090#
	  4116	  4116#	  4142	  4142#	  4168	  4168#	  4194	  4194#	  4220	  4220#	  4246	  4246#	  4272	  4272#
	  4298	  4298#	  4324	  4324#	  4350	  4350#	  4376	  4376#	  4402	  4402#	  4428	  4428#	  4454	  4454#
	  4480	  4480#	  4498#	  4534	  4534#	  4560	  4560#	  4586	  4586#	  4612	  4612#	  4638	  4638#	  4664
	  4664#	  4690	  4690#	  4716	  4716#	  4742	  4742#	  4768	  4768#	  4794	  4794#	  4820	  4820#	  4846
	  4846#	  4872	  4872#	  4898	  4898#	  4924	  4924#	  4950	  4950#	  4976	  4976#	  5213#	  5235	  5235#
	  5253	  5253#	  5271	  5271#	  5289	  5289#	  5307	  5307#	  5325	  5325#	  5343	  5343#	  5361	  5361#
	  5379	  5379#	  5397	  5397#	  5415	  5415#	  5433	  5433#	  5451	  5451#	  5469	  5469#	  5487	  5487#
	  5505	  5505#	  5523	  5523#	  5541	  5541#	  5559	  5559#	  5577	  5577#	  5595	  5595#	  5613	  5613#
	  5631	  5631#	  5649	  5649#	  5667	  5667#	  5685	  5685#	  5703	  5703#	  5721	  5721#	  5739	  5739#
	  5757	  5757#	  5775	  5775#	  5793	  5793#	  5811	  5811#	  5829	  5829#	  5847	  5847#	  5865	  5865#
	  6234#	  6268	  6268#	  6295	  6295#	  6322	  6322#	  6349	  6349#	  6376	  6376#	  6403	  6403#	  6430
	  6430#	  6457	  6457#	  6484	  6484#	  6511	  6511#	  6538	  6538#	  6565	  6565#	  6592	  6592#	  6619
	  6619#	  6646	  6646#	  6673	  6673#	  6700	  6700#	  6727	  6727#	  6774	  6774#	  6796	  6796#	  6818
	  6818#	  6840	  6840#	  6862	  6862#	  6884	  6884#	  6906	  6906#	  6928	  6928#	  6950	  6950#	  6972
	  6972#	  6994	  6994#	  7016	  7016#	  7038	  7038#	  7060	  7060#	  7082	  7082#	  7104	  7104#	  7126
	  7126#	  7148	  7148#	  7162#	  7184	  7184#	  7202	  7202#	  7220	  7220#	  7238	  7238#	  7256	  7256#
	  7274	  7274#	  7292	  7292#	  7310	  7310#	  7328	  7328#	  7346	  7346#	  7364	  7364#	  7382	  7382#    SEQ 0269
	  7400	  7400#	  7418	  7418#	  7436	  7436#	  7454	  7454#	  7472	  7472#	  7490	  7490#	  7508	  7508#
	  7526	  7526#	  7544	  7544#	  7562	  7562#	  7580	  7580#	  7598	  7598#	  7616	  7616#	  7634	  7634#
	  7652	  7652#	  7670	  7670#	  7688	  7688#	  7706	  7706#	  7724	  7724#	  7742	  7742#	  7760	  7760#
	  7778	  7778#	  7796	  7796#	  7814	  7814#	  7827#	  7849	  7849#	  7867	  7867#	  7885	  7885#	  7903
	  7903#	  7921	  7921#	  7939	  7939#	  7957	  7957#	  7975	  7975#	  7993	  7993#	  8011	  8011#	  8029
	  8029#	  8047	  8047#	  8065	  8065#	  8083	  8083#	  8101	  8101#	  8119	  8119#	  8137	  8137#	  8155
	  8155#	  8173	  8173#	  8191	  8191#	  8209	  8209#	  8227	  8227#	  8245	  8245#	  8263	  8263#	  8281
	  8281#	  8299	  8299#	  8317	  8317#	  8335	  8335#	  8353	  8353#	  8371	  8371#	  8389	  8389#	  8407
	  8407#	  8425	  8425#	  8443	  8443#	  8461	  8461#	  8479	  8479#	  8496#	  8521	  8521#	  8541	  8541#
	  8561	  8561#	  8581	  8581#	  8601	  8601#	  8621	  8621#	  8641	  8641#	  8661	  8661#	  8681	  8681#
	  8701	  8701#	  8721	  8721#	  8741	  8741#	  8761	  8761#	  8781	  8781#	  8801	  8801#	  8821	  8821#
	  8841	  8841#	  8861	  8861#	  8875#	  8900	  8900#	  8920	  8920#	  8940	  8940#	  8960	  8960#	  8980
	  8980#	  9000	  9000#	  9020	  9020#	  9040	  9040#	  9060	  9060#	  9080	  9080#	  9100	  9100#	  9120
	  9120#	  9140	  9140#	  9160	  9160#	  9180	  9180#	  9200	  9200#	  9220	  9220#	  9240	  9240#	  9254#
	  9288	  9288#	  9313	  9313#	  9338	  9338#	  9363	  9363#	  9388	  9388#	  9413	  9413#	  9438	  9438#
	  9463	  9463#	  9488	  9488#	  9513	  9513#	  9538	  9538#	  9563	  9563#	  9588	  9588#	  9613	  9613#
	  9638	  9638#	  9663	  9663#	  9688	  9688#	  9713	  9713#	  9729#	  9763	  9763#	  9788	  9788#	  9813
	  9813#	  9838	  9838#	  9863	  9863#	  9888	  9888#	  9913	  9913#	  9938	  9938#	  9963	  9963#	  9988
	  9988#	 10013	 10013#	 10038	 10038#	 10063	 10063#	 10088	 10088#	 10113	 10113#	 10138	 10138#	 10163
	 10163#	 10188	 10188#
SPACE	   547#
SRTDDT	   377#
START	   365	   764	   773	   788	   792	   847#
START1	   384#
START2	   385#
START3	   386#
START4	   387#
START5	   388#
STARTA	   380	   790	   801	   810	   817	   827	   857	   879#
SUBLNK	   119#	   381
SWTEXR	   396#
SYSEXR	   369#
TAB	   548#
TESTPC	   423#
TICKS	   426#
TOTALS	    85#
TTNBRF	   606#
TTYFIL	   522#
TTYSPD	   523#
TXTINH	    96#
USER	   413#	   757	   760	   762	   763	   797	   847#	   847	   850	   852	   853
USERF	    36#	   351#	   759	   849
USRASB	    33#	   403
USRCRF	   532#
USRLFF	   531#
UUODIS	   485#
UUOEXT	   441#
UUORTN	   442#
UUOSKP	   439#
YY	  4004#	  4039	  4039#	  4040	  4041	  4041#	  4044	  4065	  4065#	  4066	  4067	  4070	  4091	  4091#
	  4092	  4093	  4096	  4117	  4117#	  4118	  4119	  4122	  4143	  4143#	  4144	  4145	  4148	  4169
	  4169#	  4170	  4171	  4174	  4195	  4195#	  4196	  4197	  4200	  4221	  4221#	  4222	  4223	  4226
	  4247	  4247#	  4248	  4249	  4252	  4273	  4273#	  4274	  4275	  4278	  4299	  4299#	  4300	  4301     SEQ 0270
	  4304	  4325	  4325#	  4326	  4327	  4330	  4351	  4351#	  4352	  4353	  4356	  4377	  4377#	  4378
	  4379	  4382	  4403	  4403#	  4404	  4405	  4408	  4429	  4429#	  4430	  4431	  4434	  4455	  4455#
	  4456	  4457	  4460	  4481	  4481#	  4482	  4483	  4486	  4500#	  4535	  4535#	  4536	  4537	  4537#
	  4541	  4561	  4561#	  4562	  4563	  4567	  4587	  4587#	  4588	  4589	  4593	  4613	  4613#	  4614
	  4615	  4619	  4639	  4639#	  4640	  4641	  4645	  4665	  4665#	  4666	  4667	  4671	  4691	  4691#
	  4692	  4693	  4697	  4717	  4717#	  4718	  4719	  4723	  4743	  4743#	  4744	  4745	  4749	  4769
	  4769#	  4770	  4771	  4775	  4795	  4795#	  4796	  4797	  4801	  4821	  4821#	  4822	  4823	  4827
	  4847	  4847#	  4848	  4849	  4853	  4873	  4873#	  4874	  4875	  4879	  4899	  4899#	  4900	  4901
	  4905	  4925	  4925#	  4926	  4927	  4931	  4951	  4951#	  4952	  4953	  4957	  4977	  4977#	  4978
	  4979	  4983	  9256#	  9290	  9290#	  9292	  9292#	  9293	  9295	  9315	  9315#	  9317	  9318	  9320
	  9340	  9340#	  9342	  9343	  9345	  9365	  9365#	  9367	  9368	  9370	  9390	  9390#	  9392	  9393
	  9395	  9415	  9415#	  9417	  9418	  9420	  9440	  9440#	  9442	  9443	  9445	  9465	  9465#	  9467
	  9468	  9470	  9490	  9490#	  9492	  9493	  9495	  9515	  9515#	  9517	  9518	  9520	  9540	  9540#
	  9542	  9543	  9545	  9565	  9565#	  9567	  9568	  9570	  9590	  9590#	  9592	  9593	  9595	  9615
	  9615#	  9617	  9618	  9620	  9640	  9640#	  9642	  9643	  9645	  9665	  9665#	  9667	  9668	  9670
	  9690	  9690#	  9692	  9693	  9695	  9715	  9715#	  9717	  9718	  9720	  9731#	  9765	  9765#	  9767
	  9767#	  9768	  9770	  9790	  9790#	  9792	  9793	  9795	  9815	  9815#	  9817	  9818	  9820	  9840
	  9840#	  9842	  9843	  9845	  9865	  9865#	  9867	  9868	  9870	  9890	  9890#	  9892	  9893	  9895
	  9915	  9915#	  9917	  9918	  9920	  9940	  9940#	  9942	  9943	  9945	  9965	  9965#	  9967	  9968
	  9970	  9990	  9990#	  9992	  9993	  9995	 10015	 10015#	 10017	 10018	 10020	 10040	 10040#	 10042
	 10043	 10045	 10065	 10065#	 10067	 10068	 10070	 10090	 10090#	 10092	 10093	 10095	 10115	 10115#
	 10117	 10118	 10120	 10140	 10140#	 10142	 10143	 10145	 10165	 10165#	 10167	 10168	 10170	 10190
	 10190#	 10192	 10193	 10195
ZZ	  1006#	  1046	  1046#	  1047	  1047#	  1048	  1050	  1076	  1076#	  1077	  1078	  1080	  1106	  1106#
	  1107	  1108	  1110	  1136	  1136#	  1137	  1138	  1140	  1166	  1166#	  1167	  1168	  1170	  1196
	  1196#	  1197	  1198	  1200	  1226	  1226#	  1227	  1228	  1230	  1256	  1256#	  1257	  1258	  1260
	  1286	  1286#	  1287	  1288	  1290	  1316	  1316#	  1317	  1318	  1320	  1346	  1346#	  1347	  1348
	  1350	  1376	  1376#	  1377	  1378	  1380	  1406	  1406#	  1407	  1408	  1410	  1436	  1436#	  1437
	  1438	  1440	  1466	  1466#	  1467	  1468	  1470	  1496	  1496#	  1497	  1498	  1500	  1526	  1526#
	  1527	  1528	  1530	  1556	  1556#	  1557	  1558	  1560	  1586	  1586#	  1587	  1588	  1590	  1616
	  1616#	  1617	  1618	  1620	  1646	  1646#	  1647	  1648	  1650	  1676	  1676#	  1677	  1678	  1680
	  1706	  1706#	  1707	  1708	  1710	  1736	  1736#	  1737	  1738	  1740	  1766	  1766#	  1767	  1768
	  1770	  1796	  1796#	  1797	  1798	  1800	  1826	  1826#	  1827	  1828	  1830	  1856	  1856#	  1857
	  1858	  1860	  1886	  1886#	  1887	  1888	  1890	  1916	  1916#	  1917	  1918	  1920	  1946	  1946#
	  1947	  1948	  1950	  1976	  1976#	  1977	  1978	  1980	  2006	  2006#	  2007	  2008	  2010	  2036
	  2036#	  2037	  2038	  2040	  2066	  2066#	  2067	  2068	  2070	  2096	  2096#	  2097	  2098	  2100
	  2138#	  2174	  2174#	  2175	  2175#	  2177	  2178	  2200	  2200#	  2201	  2203	  2204	  2226	  2226#
	  2227	  2229	  2230	  2252	  2252#	  2253	  2255	  2256	  2278	  2278#	  2279	  2281	  2282	  2304
	  2304#	  2305	  2307	  2308	  2330	  2330#	  2331	  2333	  2334	  2356	  2356#	  2357	  2359	  2360
	  2382	  2382#	  2383	  2385	  2386	  2408	  2408#	  2409	  2411	  2412	  2434	  2434#	  2435	  2437
	  2438	  2460	  2460#	  2461	  2463	  2464	  2486	  2486#	  2487	  2489	  2490	  2512	  2512#	  2513
	  2515	  2516	  2538	  2538#	  2539	  2541	  2542	  2564	  2564#	  2565	  2567	  2568	  2590	  2590#
	  2591	  2593	  2594	  2616	  2616#	  2617	  2619	  2620	  2642	  2642#	  2643	  2645	  2646	  2668
	  2668#	  2669	  2671	  2672	  2694	  2694#	  2695	  2697	  2698	  2720	  2720#	  2721	  2723	  2724
	  2746	  2746#	  2747	  2749	  2750	  2772	  2772#	  2773	  2775	  2776	  2798	  2798#	  2799	  2801
	  2802	  2824	  2824#	  2825	  2827	  2828	  2850	  2850#	  2851	  2853	  2854	  2876	  2876#	  2877
	  2879	  2880	  2902	  2902#	  2903	  2905	  2906	  2928	  2928#	  2929	  2931	  2932	  2954	  2954#
	  2955	  2957	  2958	  2980	  2980#	  2981	  2983	  2984	  3006	  3006#	  3007	  3009	  3010	  3032
	  3032#	  3033	  3035	  3036	  3058	  3058#	  3059	  3061	  3062	  3084	  3084#	  3085	  3087	  3088
	  3103#	  3137	  3137#	  3138	  3138#	  3139	  3140	  3141	  3162	  3162#	  3163	  3164	  3165	  3166
	  3187	  3187#	  3188	  3189	  3190	  3191	  3212	  3212#	  3213	  3214	  3215	  3216	  3237	  3237#
	  3238	  3239	  3240	  3241	  3262	  3262#	  3263	  3264	  3265	  3266	  3287	  3287#	  3288	  3289
	  3290	  3291	  3312	  3312#	  3313	  3314	  3315	  3316	  3337	  3337#	  3338	  3339	  3340	  3341     SEQ 0271
	  3362	  3362#	  3363	  3364	  3365	  3366	  3387	  3387#	  3388	  3389	  3390	  3391	  3412	  3412#
	  3413	  3414	  3415	  3416	  3437	  3437#	  3438	  3439	  3440	  3441	  3462	  3462#	  3463	  3464
	  3465	  3466	  3487	  3487#	  3488	  3489	  3490	  3491	  3512	  3512#	  3513	  3514	  3515	  3516
	  3537	  3537#	  3538	  3539	  3540	  3541	  3562	  3562#	  3563	  3564	  3565	  3566	  3587	  3587#
	  3588	  3589	  3590	  3591	  3612	  3612#	  3613	  3614	  3615	  3616	  3637	  3637#	  3638	  3639
	  3640	  3641	  3662	  3662#	  3663	  3664	  3665	  3666	  3687	  3687#	  3688	  3689	  3690	  3691
	  3712	  3712#	  3713	  3714	  3715	  3716	  3737	  3737#	  3738	  3739	  3740	  3741	  3762	  3762#
	  3763	  3764	  3765	  3766	  3787	  3787#	  3788	  3789	  3790	  3791	  3812	  3812#	  3813	  3814
	  3815	  3816	  3837	  3837#	  3838	  3839	  3840	  3841	  3862	  3862#	  3863	  3864	  3865	  3866
	  3887	  3887#	  3888	  3889	  3890	  3891	  3912	  3912#	  3913	  3914	  3915	  3916	  3937	  3937#
	  3938	  3939	  3940	  3941	  3962	  3962#	  3963	  3964	  3965	  3966	  3987	  3987#	  3988	  3989
	  3990	  3991	  4003#	  4040	  4040#	  4042	  4042#	  4043	  4066	  4066#	  4068	  4069	  4092	  4092#
	  4094	  4095	  4118	  4118#	  4120	  4121	  4144	  4144#	  4146	  4147	  4170	  4170#	  4172	  4173
	  4196	  4196#	  4198	  4199	  4222	  4222#	  4224	  4225	  4248	  4248#	  4250	  4251	  4274	  4274#
	  4276	  4277	  4300	  4300#	  4302	  4303	  4326	  4326#	  4328	  4329	  4352	  4352#	  4354	  4355
	  4378	  4378#	  4380	  4381	  4404	  4404#	  4406	  4407	  4430	  4430#	  4432	  4433	  4456	  4456#
	  4458	  4459	  4482	  4482#	  4484	  4485	  4499#	  4536	  4536#	  4538	  4538#	  4539	  4562	  4562#
	  4564	  4565	  4588	  4588#	  4590	  4591	  4614	  4614#	  4616	  4617	  4640	  4640#	  4642	  4643
	  4666	  4666#	  4668	  4669	  4692	  4692#	  4694	  4695	  4718	  4718#	  4720	  4721	  4744	  4744#
	  4746	  4747	  4770	  4770#	  4772	  4773	  4796	  4796#	  4798	  4799	  4822	  4822#	  4824	  4825
	  4848	  4848#	  4850	  4851	  4874	  4874#	  4876	  4877	  4900	  4900#	  4902	  4903	  4926	  4926#
	  4928	  4929	  4952	  4952#	  4954	  4955	  4978	  4978#	  4980	  4981	  5214#	  5236	  5236#	  5237
	  5237#	  5238	  5239	  5254	  5254#	  5255	  5256	  5257	  5272	  5272#	  5273	  5274	  5275	  5290
	  5290#	  5291	  5292	  5293	  5308	  5308#	  5309	  5310	  5311	  5326	  5326#	  5327	  5328	  5329
	  5344	  5344#	  5345	  5346	  5347	  5362	  5362#	  5363	  5364	  5365	  5380	  5380#	  5381	  5382
	  5383	  5398	  5398#	  5399	  5400	  5401	  5416	  5416#	  5417	  5418	  5419	  5434	  5434#	  5435
	  5436	  5437	  5452	  5452#	  5453	  5454	  5455	  5470	  5470#	  5471	  5472	  5473	  5488	  5488#
	  5489	  5490	  5491	  5506	  5506#	  5507	  5508	  5509	  5524	  5524#	  5525	  5526	  5527	  5542
	  5542#	  5543	  5544	  5545	  5560	  5560#	  5561	  5562	  5563	  5578	  5578#	  5579	  5580	  5581
	  5596	  5596#	  5597	  5598	  5599	  5614	  5614#	  5615	  5616	  5617	  5632	  5632#	  5633	  5634
	  5635	  5650	  5650#	  5651	  5652	  5653	  5668	  5668#	  5669	  5670	  5671	  5686	  5686#	  5687
	  5688	  5689	  5704	  5704#	  5705	  5706	  5707	  5722	  5722#	  5723	  5724	  5725	  5740	  5740#
	  5741	  5742	  5743	  5758	  5758#	  5759	  5760	  5761	  5776	  5776#	  5777	  5778	  5779	  5794
	  5794#	  5795	  5796	  5797	  5812	  5812#	  5813	  5814	  5815	  5830	  5830#	  5831	  5832	  5833
	  5848	  5848#	  5849	  5850	  5851	  5866	  5866#	  5867	  5868	  5869	  6235#	  6269	  6269#	  6270
	  6270#	  6271	  6296	  6296#	  6297	  6298	  6323	  6323#	  6324	  6325	  6350	  6350#	  6351	  6352
	  6377	  6377#	  6378	  6379	  6404	  6404#	  6405	  6406	  6431	  6431#	  6432	  6433	  6458	  6458#
	  6459	  6460	  6485	  6485#	  6486	  6487	  6512	  6512#	  6513	  6514	  6539	  6539#	  6540	  6541
	  6566	  6566#	  6567	  6568	  6593	  6593#	  6594	  6595	  6620	  6620#	  6621	  6622	  6647	  6647#
	  6648	  6649	  6674	  6674#	  6675	  6676	  6701	  6701#	  6702	  6703	  6728	  6728#	  6729	  6730
	  6746#	  6775	  6775#	  6776	  6776#	  6777	  6797	  6797#	  6798	  6799	  6819	  6819#	  6820	  6821
	  6841	  6841#	  6842	  6843	  6863	  6863#	  6864	  6865	  6885	  6885#	  6886	  6887	  6907	  6907#
	  6908	  6909	  6929	  6929#	  6930	  6931	  6951	  6951#	  6952	  6953	  6973	  6973#	  6974	  6975
	  6995	  6995#	  6996	  6997	  7017	  7017#	  7018	  7019	  7039	  7039#	  7040	  7041	  7061	  7061#
	  7062	  7063	  7083	  7083#	  7084	  7085	  7105	  7105#	  7106	  7107	  7127	  7127#	  7128	  7129
	  7149	  7149#	  7150	  7151	  7163#	  7185	  7185#	  7186	  7186#	  7188	  7203	  7203#	  7204	  7206
	  7221	  7221#	  7222	  7224	  7239	  7239#	  7240	  7242	  7257	  7257#	  7258	  7260	  7275	  7275#
	  7276	  7278	  7293	  7293#	  7294	  7296	  7311	  7311#	  7312	  7314	  7329	  7329#	  7330	  7332
	  7347	  7347#	  7348	  7350	  7365	  7365#	  7366	  7368	  7383	  7383#	  7384	  7386	  7401	  7401#
	  7402	  7404	  7419	  7419#	  7420	  7422	  7437	  7437#	  7438	  7440	  7455	  7455#	  7456	  7458
	  7473	  7473#	  7474	  7476	  7491	  7491#	  7492	  7494	  7509	  7509#	  7510	  7512	  7527	  7527#
	  7528	  7530	  7545	  7545#	  7546	  7548	  7563	  7563#	  7564	  7566	  7581	  7581#	  7582	  7584
	  7599	  7599#	  7600	  7602	  7617	  7617#	  7618	  7620	  7635	  7635#	  7636	  7638	  7653	  7653#    SEQ 0272
	  7654	  7656	  7671	  7671#	  7672	  7674	  7689	  7689#	  7690	  7692	  7707	  7707#	  7708	  7710
	  7725	  7725#	  7726	  7728	  7743	  7743#	  7744	  7746	  7761	  7761#	  7762	  7764	  7779	  7779#
	  7780	  7782	  7797	  7797#	  7798	  7800	  7815	  7815#	  7816	  7818	  7828#	  7850	  7850#	  7851
	  7851#	  7852	  7868	  7868#	  7869	  7870	  7886	  7886#	  7887	  7888	  7904	  7904#	  7905	  7906
	  7922	  7922#	  7923	  7924	  7940	  7940#	  7941	  7942	  7958	  7958#	  7959	  7960	  7976	  7976#
	  7977	  7978	  7994	  7994#	  7995	  7996	  8012	  8012#	  8013	  8014	  8030	  8030#	  8031	  8032
	  8048	  8048#	  8049	  8050	  8066	  8066#	  8067	  8068	  8084	  8084#	  8085	  8086	  8102	  8102#
	  8103	  8104	  8120	  8120#	  8121	  8122	  8138	  8138#	  8139	  8140	  8156	  8156#	  8157	  8158
	  8174	  8174#	  8175	  8176	  8192	  8192#	  8193	  8194	  8210	  8210#	  8211	  8212	  8228	  8228#
	  8229	  8230	  8246	  8246#	  8247	  8248	  8264	  8264#	  8265	  8266	  8282	  8282#	  8283	  8284
	  8300	  8300#	  8301	  8302	  8318	  8318#	  8319	  8320	  8336	  8336#	  8337	  8338	  8354	  8354#
	  8355	  8356	  8372	  8372#	  8373	  8374	  8390	  8390#	  8391	  8392	  8408	  8408#	  8409	  8410
	  8426	  8426#	  8427	  8428	  8444	  8444#	  8445	  8446	  8462	  8462#	  8463	  8464	  8480	  8480#
	  8481	  8482	  8497#	  8522	  8522#	  8523	  8523#	  8524	  8526	  8542	  8542#	  8543	  8544	  8546
	  8562	  8562#	  8563	  8564	  8566	  8582	  8582#	  8583	  8584	  8586	  8602	  8602#	  8603	  8604
	  8606	  8622	  8622#	  8623	  8624	  8626	  8642	  8642#	  8643	  8644	  8646	  8662	  8662#	  8663
	  8664	  8666	  8682	  8682#	  8683	  8684	  8686	  8702	  8702#	  8703	  8704	  8706	  8722	  8722#
	  8723	  8724	  8726	  8742	  8742#	  8743	  8744	  8746	  8762	  8762#	  8763	  8764	  8766	  8782
	  8782#	  8783	  8784	  8786	  8802	  8802#	  8803	  8804	  8806	  8822	  8822#	  8823	  8824	  8826
	  8842	  8842#	  8843	  8844	  8846	  8862	  8862#	  8863	  8864	  8866	  8876#	  8901	  8901#	  8902
	  8902#	  8903	  8905	  8921	  8921#	  8922	  8923	  8925	  8941	  8941#	  8942	  8943	  8945	  8961
	  8961#	  8962	  8963	  8965	  8981	  8981#	  8982	  8983	  8985	  9001	  9001#	  9002	  9003	  9005
	  9021	  9021#	  9022	  9023	  9025	  9041	  9041#	  9042	  9043	  9045	  9061	  9061#	  9062	  9063
	  9065	  9081	  9081#	  9082	  9083	  9085	  9101	  9101#	  9102	  9103	  9105	  9121	  9121#	  9122
	  9123	  9125	  9141	  9141#	  9142	  9143	  9145	  9161	  9161#	  9162	  9163	  9165	  9181	  9181#
	  9182	  9183	  9185	  9201	  9201#	  9202	  9203	  9205	  9221	  9221#	  9222	  9223	  9225	  9241
	  9241#	  9242	  9243	  9245	  9255#	  9289	  9289#	  9291	  9291#	  9293	  9295	  9314	  9314#	  9316
	  9318	  9320	  9339	  9339#	  9341	  9343	  9345	  9364	  9364#	  9366	  9368	  9370	  9389	  9389#
	  9391	  9393	  9395	  9414	  9414#	  9416	  9418	  9420	  9439	  9439#	  9441	  9443	  9445	  9464
	  9464#	  9466	  9468	  9470	  9489	  9489#	  9491	  9493	  9495	  9514	  9514#	  9516	  9518	  9520
	  9539	  9539#	  9541	  9543	  9545	  9564	  9564#	  9566	  9568	  9570	  9589	  9589#	  9591	  9593
	  9595	  9614	  9614#	  9616	  9618	  9620	  9639	  9639#	  9641	  9643	  9645	  9664	  9664#	  9666
	  9668	  9670	  9689	  9689#	  9691	  9693	  9695	  9714	  9714#	  9716	  9718	  9720	  9730#	  9764
	  9764#	  9766	  9766#	  9768	  9770	  9789	  9789#	  9791	  9793	  9795	  9814	  9814#	  9816	  9818
	  9820	  9839	  9839#	  9841	  9843	  9845	  9864	  9864#	  9866	  9868	  9870	  9889	  9889#	  9891
	  9893	  9895	  9914	  9914#	  9916	  9918	  9920	  9939	  9939#	  9941	  9943	  9945	  9964	  9964#
	  9966	  9968	  9970	  9989	  9989#	  9991	  9993	  9995	 10014	 10014#	 10016	 10018	 10020	 10039
	 10039#	 10041	 10043	 10045	 10064	 10064#	 10066	 10068	 10070	 10089	 10089#	 10091	 10093	 10095
	 10114	 10114#	 10116	 10118	 10120	 10139	 10139#	 10141	 10143	 10145	 10164	 10164#	 10166	 10168
	 10170	 10189	 10189#	 10191	 10193	 10195
$$420	   731#
$$421	   732#
$$422	   733#
$$423	   734#
$$424	   735#
$$425	   736#
$$426	   737#
$$427	   738#
$$430	   739#
$$431	   740#
$$432	   741#
$$433	   742#
$$434	   743#                                                                                                            SEQ 0273
$$435	   744#
$$436	   745#
$$437	   746#
$$500	   749#
$$501	   750#
$$502	   751#
$$503	   752#
$$BEGI	   717#
$$DTE0	   783	   822#
$$DTE1	   784	   824#
$$DTE2	   785	   838#
$$DTE3	   786	   840#
$$LOC	   714#	   753
$$MUUO	   637#
$$OUTE	   643#
$$STAR	   717	   718	   757#
$$TAX1	   655#
$$TAX2	   656#
$$TOGG	   649#
$$UUO	   626#
$ACC0	   464#
$BEGEN	   726#
$BEND1	   434#
$BEND2	   435#
$CHRIN	   525#
$CRLF	   527#
$DDT	   695#
$DEVCH	   351#
$DSKUP	   404#
$DTCHR	   707#
$DTCI	   701#
$DTCLK	   700#	   781
$DTCMD	   704#	   819	   835
$DTF11	   703#
$DTFLG	   699#	   780	   820	   825	   836	   841
$DTMTD	   708#
$DTMTI	   709#
$DTOPR	   706#	   782
$DTSEQ	   705#
$DTSWR	   711#
$DTT11	   702#
$DVCH1	   351#
$DVOFF	   521#
$EMODE	   402#
$ENDFX	   671#	   672
$FFF	   529#
$IBUF	   577#
$INEXT	   579#
$INNM	   578#
$ITRHL	   445#
$ITRX1	   446#
$LPAPE	 11279
$MMAP	   405#                                                                                                            SEQ 0274
$MODVL	   400#
$MODVU	   401#
$OBUF	   568#
$ONETM	   428#
$OUTEX	   570#
$OUTNM	   569#
$PAPER	   351
$PARER	   452#
$PNAME	   398#
$PSHER	   456#
$PVER	   399#
$RSRTX	   448#
$RSRTY	   449#
$SPAG1	   468#
$SPB1	   791	   797#
$SPBEN	   726	   795#
$SPBEX	   798	   806#
$SPBKL	   807	   813#
$SPBUS	   800#
$SPEC	   723	   790#
$SPKLD	   814	   831#
$START	   365#
$STD	   694#	   721#
$STKIL	   766#
$STKL	   775#
$STL	   696#
$STM	   697#	   723#
$SVAPR	   466#
$SVPAG	   467#
$SVPI	   465#
$SVUPC	   471#
$SVUUO	   470#
$TABF	   528#
$TTCHR	   524#
$TWCNT	   520#
$TYPNB	   526#
$UMODE	   403#
$UORTX	   443#
$USRHL	   447#
$UUOER	   444#	   485
$VTF	   530#
%ACTFL	   477#
%ACTUL	   478#
%COREC	   476#
%CORFL	   475#
%DISCR	   479#
%ERHI1	   618#
%ERHI2	   619#
%ERHI3	   620#
.JB41	   351#
.JBAPR	   351#
.JBCNI	   351#
.JBDDT	   351#                                                                                                            SEQ 0275
.JBFF	   351#
.JBOPC	   351#
.JBREL	   351#
.JBREN	   351#
.JBSA	   351#
.JBSYM	   351#
.JBTPC	   351#
.JBUSY	   351#
.JBUUO	   351#
.JBVER	   351#
CFLUSH	   268#
CINVAL	   267#                                                                                                            SEQ 0276
CLOKOP	   262#
CWRTBI	   269#
DROPDV	   229#
ENDUUO	   275#	   433
EOPUUO	   276#	   435
ERLOOP	   320#
ERLP1	   321#
ERLP2	   322#
ERRHLT	   164#
ERROR	   329#
ERROR1	   341#
ERUUO	   319#
EXIT	   803
FATAL	   163#
FRD36	   304#
FRD8	   305#
FREAD	   303#
FSELEC	   302#
GET	   147#
GO	   144#
HALT	   149#	   454	   731	   733	   734	   738	   752	   843	   896	   919	   940	   962	   979	   997
	  1054	  1084	  1114	  1144	  1174	  1204	  1234	  1264	  1294	  1324	  1354	  1384	  1414	  1444
	  1474	  1504	  1534	  1564	  1594	  1624	  1654	  1684	  1714	  1744	  1774	  1804	  1834	  1864
	  1894	  1924	  1954	  1984	  2014	  2044	  2074	  2104	  2125	  2182	  2208	  2234	  2260	  2286
	  2312	  2338	  2364	  2390	  2416	  2442	  2468	  2494	  2520	  2546	  2572	  2598	  2624	  2650
	  2676	  2702	  2728	  2754	  2780	  2806	  2832	  2858	  2884	  2910	  2936	  2962	  2988	  3014
	  3040	  3066	  3092	  3145	  3170	  3195	  3220	  3245	  3270	  3295	  3320	  3345	  3370	  3395
	  3420	  3445	  3470	  3495	  3520	  3545	  3570	  3595	  3620	  3645	  3670	  3695	  3720	  3745
	  3770	  3795	  3820	  3845	  3870	  3895	  3920	  3945	  3970	  3995	  4048	  4074	  4100	  4126
	  4152	  4178	  4204	  4230	  4256	  4282	  4308	  4334	  4360	  4386	  4412	  4438	  4464	  4490
	  4544	  4570	  4596	  4622	  4648	  4674	  4700	  4726	  4752	  4778	  4804	  4830	  4856	  4882
	  4908	  4934	  4960	  4986	  5005	  5022	  5039	  5055	  5072	  5089	  5105	  5122	  5139	  5155
	  5170	  5187	  5205	  5242	  5260	  5278	  5296	  5314	  5332	  5350	  5368	  5386	  5404	  5422
	  5440	  5458	  5476	  5494	  5512	  5530	  5548	  5566	  5584	  5602	  5620	  5638	  5656	  5674
	  5692	  5710	  5728	  5746	  5764	  5782	  5800	  5818	  5836	  5854	  5872	  5888	  5902	  5924
	  5942	  5961	  5983	  6006	  6029	  6052	  6066	  6088	  6103	  6125	  6140	  6156	  6176	  6197
	  6222	  6275	  6302	  6329	  6356	  6383	  6410	  6437	  6464	  6491	  6518	  6545	  6572	  6599
	  6626	  6653	  6680	  6707	  6734	  6781	  6803	  6825	  6847	  6869	  6891	  6913	  6935	  6957
	  6979	  7001	  7023	  7045	  7067	  7089	  7111	  7133	  7155	  7190	  7208	  7226	  7244	  7262
	  7280	  7298	  7316	  7334	  7352	  7370	  7388	  7406	  7424	  7442	  7460	  7478	  7496	  7514
	  7532	  7550	  7568	  7586	  7604	  7622	  7640	  7658	  7676	  7694	  7712	  7730	  7748	  7766
	  7784	  7802	  7820	  7855	  7873	  7891	  7909	  7927	  7945	  7963	  7981	  7999	  8017	  8035
	  8053	  8071	  8089	  8107	  8125	  8143	  8161	  8179	  8197	  8215	  8233	  8251	  8269	  8287
	  8305	  8323	  8341	  8359	  8377	  8395	  8413	  8431	  8449	  8467	  8485	  8528	  8548	  8568
	  8588	  8608	  8628	  8648	  8668	  8688	  8708	  8728	  8748	  8768	  8788	  8808	  8828	  8848
	  8868	  8907	  8927	  8947	  8967	  8987	  9007	  9027	  9047	  9067	  9087	  9107	  9127	  9147
	  9167	  9187	  9207	  9227	  9247	  9297	  9322	  9347	  9372	  9397	  9422	  9447	  9472	  9497
	  9522	  9547	  9572	  9597	  9622	  9647	  9672	  9697	  9722	  9772	  9797	  9822	  9847	  9872
	  9897	  9922	  9947	  9972	  9997	 10022	 10047	 10072	 10097	 10122	 10147	 10172	 10197	 10216
	 10240	 10260	 10278	 10294	 10309	 10330	 10350	 10372	 10386	 10402	 10424	 10442	 10466	 10489
	 10510	 10536	 10564	 10582	 10598	 10622	 10638	 10655	 10676	 10692	 10715	 10737	 10754	 10770
	 10787	 10803	 10827	 10849	 10865	 10880	 10896	 10912	 10939	 10959	 10975	 10990	 11006	 11022
	 11050	 11065	 11081	 11096	 11112	 11130	 11152	 11175	 11189	 11207	 11227	 11251	 11267             SEQ 0277
JEN	   151#
JRSTF	   150#
MAPADR	   285#
MAPCNK	   286#
MAPMEM	   282#
MAPPNT	   288#
MAPSET	   287#
MEMSEG	   284#
MEMZRO	   283#
MODPCP	   295#
MODPCU	   294#
MTROP	   263#
NAME	     9#	    11
PBELL	   238#
PCRL	   232#
PCRL2	   236#
PCRL2F	   237#
PCRLF	   233#
PFORCE	   240#
PGMINT	   157#
PJRST	   148#
PMSG	   242#
PMSGF	   245#
PNT1	   198#
PNT11	   212#
PNT11F	   213#
PNT1F	   199#
PNT2	   200#
PNT2F	   201#
PNT3	   202#
PNT3F	   203#
PNT4	   204#
PNT4F	   205#
PNT5	   206#
PNT5F	   207#
PNT6	   208#
PNT6F	   209#
PNT7	   210#
PNT7F	   211#
PNTA	   184#
PNTADF	   215#
PNTADR	   214#
PNTAF	   185#
PNTAL	   186#
PNTALF	   187#
PNTCHF	   197#
PNTCHR	   196#
PNTCI	   194#
PNTCIF	   195#
PNTCW	   230#
PNTCWF	   231#
PNTDCF	   223#
PNTDEC	   222#                                                                                                            SEQ 0278
PNTDS	   224#
PNTDSF	   225#
PNTHW	   218#
PNTHWF	   219#
PNTMGN	   309#
PNTMSF	   191#
PNTMSG	   190#
PNTNM	   226#
PNTOCF	   221#
PNTOCS	   220#
PNTOCT	   216#
PNTOTF	   217#
PNTSIX	   227#
PNTSXF	   228#
PSIXL	   188#
PSIXLF	   189#
PSIXM	   192#
PSIXMF	   193#
PSP	   234#
PSPF	   235#
PUT	   146#
REPTUO	   323#
RTN	   145#	   441
S	    75#	    77	    81	   110	   112	   121	   124	   139	   140	   142	   153	   155	   159	   161
	   166	   170	   315	   317	   351	   356	   362	   389	   391	   409	   411	   429	   431	   460
	   462	   480	   482	   500	   502	   510	   512	   533	   538	   564	   566	   573	   575	   581
	   583	   589	   591	   595	   597	   602	   604	   608	   610	   614	   616	   622	   624	   627
	   629	   633	   635	   639	   641	   645	   647	   651	   653	   658	   663	   667	   669
SIXBTZ	   251#
STOP	    44#	   895	   918	   939	   961	   978	   996	  1053	  1083	  1113	  1143	  1173	  1203	  1233
	  1263	  1293	  1323	  1353	  1383	  1413	  1443	  1473	  1503	  1533	  1563	  1593	  1623	  1653
	  1683	  1713	  1743	  1773	  1803	  1833	  1863	  1893	  1923	  1953	  1983	  2013	  2043	  2073
	  2103	  2124	  2181	  2207	  2233	  2259	  2285	  2311	  2337	  2363	  2389	  2415	  2441	  2467
	  2493	  2519	  2545	  2571	  2597	  2623	  2649	  2675	  2701	  2727	  2753	  2779	  2805	  2831
	  2857	  2883	  2909	  2935	  2961	  2987	  3013	  3039	  3065	  3091	  3144	  3169	  3194	  3219
	  3244	  3269	  3294	  3319	  3344	  3369	  3394	  3419	  3444	  3469	  3494	  3519	  3544	  3569
	  3594	  3619	  3644	  3669	  3694	  3719	  3744	  3769	  3794	  3819	  3844	  3869	  3894	  3919
	  3944	  3969	  3994	  4047	  4073	  4099	  4125	  4151	  4177	  4203	  4229	  4255	  4281	  4307
	  4333	  4359	  4385	  4411	  4437	  4463	  4489	  4543	  4569	  4595	  4621	  4647	  4673	  4699
	  4725	  4751	  4777	  4803	  4829	  4855	  4881	  4907	  4933	  4959	  4985	  5004	  5021	  5038
	  5054	  5071	  5088	  5104	  5121	  5138	  5154	  5169	  5186	  5204	  5241	  5259	  5277	  5295
	  5313	  5331	  5349	  5367	  5385	  5403	  5421	  5439	  5457	  5475	  5493	  5511	  5529	  5547
	  5565	  5583	  5601	  5619	  5637	  5655	  5673	  5691	  5709	  5727	  5745	  5763	  5781	  5799
	  5817	  5835	  5853	  5871	  5887	  5901	  5923	  5941	  5960	  5982	  6005	  6028	  6051	  6065
	  6087	  6102	  6124	  6139	  6155	  6175	  6196	  6221	  6274	  6301	  6328	  6355	  6382	  6409
	  6436	  6463	  6490	  6517	  6544	  6571	  6598	  6625	  6652	  6679	  6706	  6733	  6780	  6802
	  6824	  6846	  6868	  6890	  6912	  6934	  6956	  6978	  7000	  7022	  7044	  7066	  7088	  7110
	  7132	  7154	  7189	  7207	  7225	  7243	  7261	  7279	  7297	  7315	  7333	  7351	  7369	  7387
	  7405	  7423	  7441	  7459	  7477	  7495	  7513	  7531	  7549	  7567	  7585	  7603	  7621	  7639
	  7657	  7675	  7693	  7711	  7729	  7747	  7765	  7783	  7801	  7819	  7854	  7872	  7890	  7908
	  7926	  7944	  7962	  7980	  7998	  8016	  8034	  8052	  8070	  8088	  8106	  8124	  8142	  8160
	  8178	  8196	  8214	  8232	  8250	  8268	  8286	  8304	  8322	  8340	  8358	  8376	  8394	  8412
	  8430	  8448	  8466	  8484	  8527	  8547	  8567	  8587	  8607	  8627	  8647	  8667	  8687	  8707     SEQ 0279
	  8727	  8747	  8767	  8787	  8807	  8827	  8847	  8867	  8906	  8926	  8946	  8966	  8986	  9006
	  9026	  9046	  9066	  9086	  9106	  9126	  9146	  9166	  9186	  9206	  9226	  9246	  9296	  9321
	  9346	  9371	  9396	  9421	  9446	  9471	  9496	  9521	  9546	  9571	  9596	  9621	  9646	  9671
	  9696	  9721	  9771	  9796	  9821	  9846	  9871	  9896	  9921	  9946	  9971	  9996	 10021	 10046
	 10071	 10096	 10121	 10146	 10171	 10196	 10215	 10239	 10259	 10277	 10293	 10308	 10329	 10349
	 10371	 10385	 10401	 10423	 10441	 10465	 10488	 10509	 10535	 10563	 10581	 10597	 10621	 10637
	 10654	 10675	 10691	 10714	 10736	 10753	 10769	 10786	 10802	 10826	 10848	 10864	 10879	 10895
	 10911	 10938	 10958	 10974	 10989	 11005	 11021	 11049	 11064	 11080	 11095	 11111	 11129	 11151
	 11174	 11188	 11206	 11226	 11250	 11266
SWITCH	   257#
TTALTM	   179#
TTICHR	   172#
TTICNV	   177#
TTIDEC	   176#
TTINO	   174#
TTIOCT	   175#
TTIYES	   173#
TTLOOK	   178#
TTSIXB	   180#
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 1
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0280


*030001 JRST	0,030600
INITIAL
C(AC)=000000 000000 
C(E)=402000 030037 
FINAL

C(E)=402000 030037 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030001 030001 0   0   254000030600 0            254000030600 
IT1	030001 0      0   0   254000030600 0            254000030600 
AT3	030001 0      0   0   000000030600 0            254000030600 
AT6	030001 0      0   0   000000030600 0            254000030600 
FT1A	030001 0      0   0   000000030600 0            254000030600 
FT9	030002 0      0   0   000000030600 0            254000030600 
ET0	0      030002 0   0   000000030600 0            254000030600 
ST1A	0      030002 0   0   000000030600 0            254000030600 
ST9	0      030002 0   0   000000030600 0            254000030600 


*030600 SETZM	0,030037
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   402000030037 0            000000030037 
IT1	0      0      0   0   402000030037 0            000000030037 
AT3	0      0      0   0   000000030037 0            402000030037 
AT6	0      030037 0   0   000000030037 0            402000030037 
FT1A	0      030037 0   0   000000030037 0            000000030037 
FT9	030601 030037 0   0   000000030037 0            000000030037 
ET0	030601 030037 0   0   0            0            000000030037 
ST6	030601 030037 0   0   0            0            000000030037 
ST6A	030601 030037 0   0   0            0            000000030037 
ST9	030601 030037 0   0   0            0            000000030037 


*030601 JSP	0,030602
INITIAL
C(AC)=000000 000000 
FINAL
C(AC)=000000 030602 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030601 030601 0   0   265000030602 0            000000030602 
IT1	030601 0      0   0   265000030602 0            000000030602 
AT3	030601 0      0   0   000000030602 0            265000030602 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 2
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0281

AT6	030601 030602 0   0   000000030602 0            265000030602 
FT1A	030601 030602 0   0   000000030602 0            000000030602 
FT9	030602 030602 0   0   000000030602 0            000000030602 
ET0	030602 030602 0   0   000000030602 0            000000030602 
ST1	030602 030602 0   0   000000030602 0            000000030602 
ST2	030602 030602 0   0   000000030602 0            000000030602 
ST9	030602 030602 0   0   000000030602 0            000000030602 


*030602 TLNE	0,010000
INITIAL
C(AC)=000000 030602 
FINAL
C(AC)=000000 030602 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030602 030602 0   0   603000010000 0            0            
IT1	030602 0      0   0   603000010000 0            0            
AT3	030602 0      0   0   000000010000 0            603000010000 
AT6	030602 0      0   0   000000010000 0            603000010000 
FT1A	030602 0      0   0   000000010000 0            000000010000 
FT2	030602 0      0   0   0            0            000000010000 
FT2RQ	030602 0      0   0   000000030602 0            000000010000 
FT3	030602 0      0   0   000000030602 0            000000010000 
FT9	030603 0      0   0   000000030602 0            000000010000 
ET0	030603 0      0   0   030602000000 0            000000010000 
ET1	030603 0      0   0   030602000000 0            0            
ET2	030604 0      0   0   000000030602 0            0            
ST1A	030604 0      0   0   000000030602 0            0            
ST9	030604 0      0   0   000000030602 0            0            


*030604 SKIPN	0,030042
INITIAL
C(AC)=000000 030602 
C(E)=777777 777777 
FINAL
C(AC)=000000 030602 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030604 030604 0   0   336000030042 0            777777777777 
IT1	030604 0      0   0   336000030042 0            777777777777 
AT3	030604 0      0   0   000000030042 0            336000030042 
AT6	030604 030042 0   0   000000030042 0            336000030042 
FT0	030604 030042 0   0   777777777777 0            336000030042 
FT1A	030604 030042 0   0   777777777777 0            777777777777 
FT9	030605 030042 0   0   777777777777 0            777777777777 
ET0	030606 030042 0   0   777777777777 0            777777777777 
ST1A	030606 030042 0   0   777777777777 0            777777777777 
ST9	030606 030042 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 3
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0282

*030606 SKIPE	0,030037
INITIAL
C(AC)=000000 030602 
C(E)=000000 000000 
FINAL
C(AC)=000000 030602 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030606 030606 0   0   332000030037 0            0            
IT1	030606 0      0   0   332000030037 0            0            
AT3	030606 0      0   0   000000030037 0            332000030037 
AT6	030606 030037 0   0   000000030037 0            332000030037 
FT0	030606 030037 0   0   0            0            332000030037 
FT1A	030606 030037 0   0   0            0            0            
FT9	030607 030037 0   0   0            0            0            
ET0	030610 030037 0   0   0            0            0            
ST1A	030610 030037 0   0   0            0            0            
ST9	030610 030037 0   0   0            0            0            


*030610 SKIPN	0,030044
INITIAL
C(AC)=000000 030602 
C(E)=777777 777777 
FINAL
C(AC)=000000 030602 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030610 030610 0   0   336000030044 0            777777777777 
IT1	030610 0      0   0   336000030044 0            777777777777 
AT3	030610 0      0   0   000000030044 0            336000030044 
AT6	030610 030044 0   0   000000030044 0            336000030044 
FT0	030610 030044 0   0   777777777777 0            336000030044 
FT1A	030610 030044 0   0   777777777777 0            777777777777 
FT9	030611 030044 0   0   777777777777 0            777777777777 
ET0	030612 030044 0   0   777777777777 0            777777777777 
ST1A	030612 030044 0   0   777777777777 0            777777777777 
ST9	030612 030044 0   0   777777777777 0            777777777777 


*030612 SETZM	0,030516
INITIAL
C(AC)=000000 030602 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030612 030612 0   0   402000030516 0            000000030516 
IT1	030612 0      0   0   402000030516 0            000000030516 
AT3	030612 0      0   0   000000030516 0            402000030516 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 4
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0283

AT6	030612 030516 0   0   000000030516 0            402000030516 
FT1A	030612 030516 0   0   000000030516 0            000000030516 
FT9	030613 030516 0   0   000000030516 0            000000030516 
ET0	030613 030516 0   0   0            0            000000030516 
ST6	030613 030516 0   0   0            0            000000030516 
ST6A	030613 030516 0   0   0            0            000000030516 
ST9	030613 030516 0   0   0            0            000000030516 


*030613 SETZM	0,030041
INITIAL
C(AC)=000000 030602 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030613 030613 0   0   402000030041 0            000000030041 
IT1	030613 0      0   0   402000030041 0            000000030041 
AT3	030613 0      0   0   000000030041 0            402000030041 
AT6	030613 030041 0   0   000000030041 0            402000030041 
FT1A	030613 030041 0   0   000000030041 0            000000030041 
FT9	030614 030041 0   0   000000030041 0            000000030041 
ET0	030614 030041 0   0   0            0            000000030041 
ST6	030614 030041 0   0   0            0            000000030041 
ST6A	030614 030041 0   0   0            0            000000030041 
ST9	030614 030041 0   0   0            0            000000030041 


*030614 MOVE 	1,035410
INITIAL
C(AC)=000000 000000 
C(E)=000001 000001 
FINAL
C(AC)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030614 030614 0   0   200040035410 0            000001000001 
IT1	030614 0      0   0   200040035410 0            000001000001 
AT3	030614 0      0   0   000000035410 0            200040035410 
AT6	030614 035410 0   0   000000035410 0            200040035410 
FT0	030614 035410 0   0   000001000001 0            200040035410 
FT1A	030614 035410 0   0   000001000001 0            000001000001 
FT9	030615 035410 0   0   000001000001 0            000001000001 
ET0	030615 035410 0   0   000001000001 0            000001000001 
ST1	030615 035410 0   0   000001000001 0            000001000001 
ST2	030615 035410 0   0   000001000001 0            000001000001 
ST9	030615 035410 0   0   000001000001 0            000001000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 5
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0284

*030615 BLT	1,000001
INITIAL
C(AC)=000001 000001 
FINAL
C(AC)=000001 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030615 030615 0   0   251040000001 0            000000000001 
IT1	030615 0      0   0   251040000001 0            000000000001 
AT3	030615 0      0   0   000000000001 0            251040000001 
AT6	030615 000001 0   0   000000000001 0            251040000001 
FT1A	030615 000001 0   0   000000000001 0            000000000001 
FT2	030615 000001 0   0   0            0            000000000001 
FT2RQ	030615 000001 0   0   000001000001 0            000000000001 
FT3	030615 000001 0   0   000001000001 0            000000000001 
FT6	030615 000001 0   0   000001000001 0            000000000001 
FT7	030615 000001 0   0   000001000001 000001000001 000000000001 
FT4RQ	030615 000001 0   0   000001000001 000001000001 000000000001 
FT4A	030615 000001 0   0   000001000001 000001000001 000000000001 
FT9	030615 000001 0   0   000001000001 000001000001 000000000001 
ET0	030615 000001 0   0   000001000001 000001000001 000000000001 
ET1	030615 000001 0   0   000001000001 000001000001 000000000001 
ET2	030615 000001 0   0   000001000001 000002000002 000000000001 
BLTT1	030615 000001 0   0   000000000002 000002000002 000000000001 
BLTT2	030616 000001 0   0   000000000002 000002000002 000000000001 
ST9	030616 000001 0   0   000000000002 000002000002 000000000001 


*030616 CAMN	1,035410
INITIAL
C(AC)=000001 000001 
C(E)=000001 000001 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030616 030616 0   0   316040035410 0            000001000001 
IT1	030616 0      0   0   316040035410 0            000001000001 
AT3	030616 0      0   0   000000035410 0            316040035410 
AT6	030616 035410 0   0   000000035410 0            316040035410 
FT0	030616 035410 0   0   000001000001 0            316040035410 
FT1A	030616 035410 0   0   000001000001 0            000001000001 
FT2	030616 035410 0   0   0            0            000001000001 
FT2RQ	030616 035410 0   0   000001000001 0            000001000001 
FT3	030616 035410 0   0   000001000001 0            000001000001 
FT9	030617 035410 0   0   000001000001 0            000001000001 
ET0	030617 035410 0   0   0            0            000001000001 
ST1A	030617 035410 0   0   0            0            000001000001 
ST9	030617 035410 0   0   0            0            000001000001 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 6
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0285

*030617 JRST	0,030712
INITIAL
C(AC)=000000 030602 
C(E)=402000 030037 
FINAL

C(E)=402000 030037 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030617 030617 0   0   254000030712 0            254000030712 
IT1	030617 0      0   0   254000030712 0            254000030712 
AT3	030617 0      0   0   000000030712 0            254000030712 
AT6	030617 030712 0   0   000000030712 0            254000030712 
FT1A	030617 030712 0   0   000000030712 0            254000030712 
FT9	030620 030712 0   0   000000030712 0            254000030712 
ET0	030712 030620 0   0   000000030712 0            254000030712 
ST1A	030712 030620 0   0   000000030712 0            254000030712 
ST9	030712 030620 0   0   000000030712 0            254000030712 


*030712 SETZM	0,030037
INITIAL
C(AC)=000000 030602 
C(E)=000000 000000 
FINAL

C(E)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030712 030712 0   0   402000030037 0            000000030037 
IT1	030712 0      0   0   402000030037 0            000000030037 
AT3	030712 0      0   0   000000030037 0            402000030037 
AT6	030712 030037 0   0   000000030037 0            402000030037 
FT1A	030712 030037 0   0   000000030037 0            000000030037 
FT9	030713 030037 0   0   000000030037 0            000000030037 
ET0	030713 030037 0   0   0            0            000000030037 
ST6	030713 030037 0   0   0            0            000000030037 
ST6A	030713 030037 0   0   0            0            000000030037 
ST9	030713 030037 0   0   0            0            000000030037 


*030713 JSP	0,030714
INITIAL
C(AC)=000000 030602 
FINAL
C(AC)=000000 030714 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030713 030713 0   0   265000030714 0            000000030714 
IT1	030713 0      0   0   265000030714 0            000000030714 
AT3	030713 0      0   0   000000030714 0            265000030714 
AT6	030713 030714 0   0   000000030714 0            265000030714 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 7
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0286

FT1A	030713 030714 0   0   000000030714 0            000000030714 
FT9	030714 030714 0   0   000000030714 0            000000030714 
ET0	030714 030714 0   0   000000030714 0            000000030714 
ST1	030714 030714 0   0   000000030714 0            000000030714 
ST2	030714 030714 0   0   000000030714 0            000000030714 
ST9	030714 030714 0   0   000000030714 0            000000030714 


*030714 TLNE	0,010000
INITIAL
C(AC)=000000 030714 
FINAL
C(AC)=000000 030714 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030714 030714 0   0   603000010000 0            0            
IT1	030714 0      0   0   603000010000 0            0            
AT3	030714 0      0   0   000000010000 0            603000010000 
AT6	030714 0      0   0   000000010000 0            603000010000 
FT1A	030714 0      0   0   000000010000 0            000000010000 
FT2	030714 0      0   0   0            0            000000010000 
FT2RQ	030714 0      0   0   000000030714 0            000000010000 
FT3	030714 0      0   0   000000030714 0            000000010000 
FT9	030715 0      0   0   000000030714 0            000000010000 
ET0	030715 0      0   0   030714000000 0            000000010000 
ET1	030715 0      0   0   030714000000 0            0            
ET2	030716 0      0   0   000000030714 0            0            
ST1A	030716 0      0   0   000000030714 0            0            
ST9	030716 0      0   0   000000030714 0            0            


*030716 SKIPN	0,030042
INITIAL
C(AC)=000000 030714 
C(E)=777777 777777 
FINAL
C(AC)=000000 030714 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030716 030716 0   0   336000030042 0            777777777777 
IT1	030716 0      0   0   336000030042 0            777777777777 
AT3	030716 0      0   0   000000030042 0            336000030042 
AT6	030716 030042 0   0   000000030042 0            336000030042 
FT0	030716 030042 0   0   777777777777 0            336000030042 
FT1A	030716 030042 0   0   777777777777 0            777777777777 
FT9	030717 030042 0   0   777777777777 0            777777777777 
ET0	030720 030042 0   0   777777777777 0            777777777777 
ST1A	030720 030042 0   0   777777777777 0            777777777777 
ST9	030720 030042 0   0   777777777777 0            777777777777 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 8
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0287

*030720 SKIPN	0,030037
INITIAL
C(AC)=000000 030714 
C(E)=000000 000000 
FINAL
C(AC)=000000 030714 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030720 030720 0   0   336000030037 0            0            
IT1	030720 0      0   0   336000030037 0            0            
AT3	030720 0      0   0   000000030037 0            336000030037 
AT6	030720 030037 0   0   000000030037 0            336000030037 
FT0	030720 030037 0   0   0            0            336000030037 
FT1A	030720 030037 0   0   0            0            0            
FT9	030721 030037 0   0   0            0            0            
ET0	030721 030037 0   0   0            0            0            
ST1A	030721 030037 0   0   0            0            0            
ST9	030721 030037 0   0   0            0            0            


*030721 JRST	0,030742
INITIAL
C(AC)=000000 030714 
C(E)=200000 035412 
FINAL

C(E)=200000 035412 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030721 030721 0   0   254000030742 0            254000030742 
IT1	030721 0      0   0   254000030742 0            254000030742 
AT3	030721 0      0   0   000000030742 0            254000030742 
AT6	030721 030742 0   0   000000030742 0            254000030742 
FT1A	030721 030742 0   0   000000030742 0            254000030742 
FT9	030722 030742 0   0   000000030742 0            254000030742 
ET0	030742 030722 0   0   000000030742 0            254000030742 
ST1A	030742 030722 0   0   000000030742 0            254000030742 
ST9	030742 030722 0   0   000000030742 0            254000030742 


*030742 MOVE 	0,035412
INITIAL
C(AC)=000000 030714 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030742 030742 0   0   200000035412 0            0            
IT1	030742 0      0   0   200000035412 0            0            
AT3	030742 0      0   0   000000035412 0            200000035412 
AT6	030742 035412 0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 9
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0288

FT0	030742 035412 0   0   0            0            200000035412 
FT1A	030742 035412 0   0   0            0            0            
FT9	030743 035412 0   0   0            0            0            
ET0	030743 035412 0   0   0            0            0            
ST1	030743 035412 0   0   0            0            0            
ST2	030743 035412 0   0   0            0            0            
ST9	030743 035412 0   0   0            0            0            


*030743 ADD 	0,035413
INITIAL
C(AC)=000000 000000 
C(E)=123456 765432 
FINAL
C(AC)=123456 765432 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030743 030743 0   0   270000035413 0            123456765432 
IT1	030743 0      0   0   270000035413 0            123456765432 
AT3	030743 0      0   0   000000035413 0            270000035413 
AT6	030743 035413 0   0   000000035413 0            270000035413 
FT0	030743 035413 0   0   123456765432 0            270000035413 
FT1A	030743 035413 0   0   123456765432 0            123456765432 
FT2	030743 035413 0   0   0            0            123456765432 
FT2RQ	030743 035413 0   0   0            0            123456765432 
FT3	030743 035413 0   0   0            0            123456765432 
FT9	030744 035413 0   0   0            0            123456765432 
ET0	030744 035413 0   0   123456765432 0            123456765432 
ST1	030744 035413 0   0   123456765432 0            123456765432 
ST2	030744 035413 0   0   123456765432 0            123456765432 
ST9	030744 035413 0   0   123456765432 0            123456765432 


*030744 SKIPN	0,000000
INITIAL
C(AC)=123456 765432 
C(E)=123456 765432 
FINAL
C(AC)=123456 765432 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030744 030744 0   0   336000000000 0            123456765432 
IT1	030744 0      0   0   336000000000 0            123456765432 
AT3	030744 0      0   0   0            0            336000000000 
AT6	030744 0      0   0   0            0            336000000000 
FT0	030744 0      0   0   123456765432 0            336000000000 
FT1A	030744 0      0   0   123456765432 0            123456765432 
FT9	030745 0      0   0   123456765432 0            123456765432 
ET0	030746 0      0   0   123456765432 0            123456765432 
ST1A	030746 0      0   0   123456765432 0            123456765432 
ST9	030746 0      0   0   123456765432 0            123456765432 

PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 10
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0289


*030746 JUMPA	0,030747
INITIAL
C(AC)=123456 765432 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030746 030746 0   0   324000030747 0            000000030747 
IT1	030746 0      0   0   324000030747 0            000000030747 
AT3	030746 0      0   0   000000030747 0            324000030747 
AT6	030746 030747 0   0   000000030747 0            324000030747 
FT1A	030746 030747 0   0   000000030747 0            000000030747 
FT2	030746 030747 0   0   0            0            000000030747 
FT2RQ	030746 030747 0   0   123456765432 0            000000030747 
FT3	030746 030747 0   0   123456765432 0            000000030747 
FT9	030747 030747 0   0   123456765432 0            000000030747 
ET0	030747 030747 0   0   123456765432 0            000000030747 
ST1A	030747 030747 0   0   123456765432 0            000000030747 
ST9	030747 030747 0   0   123456765432 0            000000030747 


*030747 MOVE 	0,035413
INITIAL
C(AC)=123456 765432 
C(E)=123456 765432 
FINAL
C(AC)=123456 765432 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030747 030747 0   0   200000035413 0            123456765432 
IT1	030747 0      0   0   200000035413 0            123456765432 
AT3	030747 0      0   0   000000035413 0            200000035413 
AT6	030747 035413 0   0   000000035413 0            200000035413 
FT0	030747 035413 0   0   123456765432 0            200000035413 
FT1A	030747 035413 0   0   123456765432 0            123456765432 
FT9	030750 035413 0   0   123456765432 0            123456765432 
ET0	030750 035413 0   0   123456765432 0            123456765432 
ST1	030750 035413 0   0   123456765432 0            123456765432 
ST2	030750 035413 0   0   123456765432 0            123456765432 
ST9	030750 035413 0   0   123456765432 0            123456765432 


*030750 ADD 	0,035412
INITIAL
C(AC)=123456 765432 
C(E)=000000 000000 
FINAL
C(AC)=123456 765432 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030750 030750 0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 11
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0290

IT1	030750 0      0   0   270000035412 0            0            
AT3	030750 0      0   0   000000035412 0            270000035412 
AT6	030750 035412 0   0   000000035412 0            270000035412 
FT0	030750 035412 0   0   0            0            270000035412 
FT1A	030750 035412 0   0   0            0            0            
FT2	030750 035412 0   0   0            0            0            
FT2RQ	030750 035412 0   0   123456765432 0            0            
FT3	030750 035412 0   0   123456765432 0            0            
FT9	030751 035412 0   0   123456765432 0            0            
ET0	030751 035412 0   0   123456765432 0            0            
ST1	030751 035412 0   0   123456765432 0            0            
ST2	030751 035412 0   0   123456765432 0            0            
ST9	030751 035412 0   0   123456765432 0            0            


*030751 SKIPN	0,000000
INITIAL
C(AC)=123456 765432 
C(E)=123456 765432 
FINAL
C(AC)=123456 765432 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030751 030751 0   0   336000000000 0            123456765432 
IT1	030751 0      0   0   336000000000 0            123456765432 
AT3	030751 0      0   0   0            0            336000000000 
AT6	030751 0      0   0   0            0            336000000000 
FT0	030751 0      0   0   123456765432 0            336000000000 
FT1A	030751 0      0   0   123456765432 0            123456765432 
FT9	030752 0      0   0   123456765432 0            123456765432 
ET0	030753 0      0   0   123456765432 0            123456765432 
ST1A	030753 0      0   0   123456765432 0            123456765432 
ST9	030753 0      0   0   123456765432 0            123456765432 


*030753 JUMPA	0,030754
INITIAL
C(AC)=123456 765432 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030753 030753 0   0   324000030754 0            000000030754 
IT1	030753 0      0   0   324000030754 0            000000030754 
AT3	030753 0      0   0   000000030754 0            324000030754 
AT6	030753 030754 0   0   000000030754 0            324000030754 
FT1A	030753 030754 0   0   000000030754 0            000000030754 
FT2	030753 030754 0   0   0            0            000000030754 
FT2RQ	030753 030754 0   0   123456765432 0            000000030754 
FT3	030753 030754 0   0   123456765432 0            000000030754 
FT9	030754 030754 0   0   123456765432 0            000000030754 
ET0	030754 030754 0   0   123456765432 0            000000030754 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 12
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0291

ST1A	030754 030754 0   0   123456765432 0            000000030754 
ST9	030754 030754 0   0   123456765432 0            000000030754 


*030754 MOVE 	0,035414
INITIAL
C(AC)=123456 765432 
C(E)=123456 000000 
FINAL
C(AC)=123456 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030754 030754 0   0   200000035414 0            123456000000 
IT1	030754 0      0   0   200000035414 0            123456000000 
AT3	030754 0      0   0   000000035414 0            200000035414 
AT6	030754 035414 0   0   000000035414 0            200000035414 
FT0	030754 035414 0   0   123456000000 0            200000035414 
FT1A	030754 035414 0   0   123456000000 0            123456000000 
FT9	030755 035414 0   0   123456000000 0            123456000000 
ET0	030755 035414 0   0   123456000000 0            123456000000 
ST1	030755 035414 0   0   123456000000 0            123456000000 
ST2	030755 035414 0   0   123456000000 0            123456000000 
ST9	030755 035414 0   0   123456000000 0            123456000000 


*030755 ADD 	0,035412
INITIAL
C(AC)=123456 000000 
C(E)=000000 000000 
FINAL
C(AC)=123456 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030755 030755 0   0   270000035412 0            0            
IT1	030755 0      0   0   270000035412 0            0            
AT3	030755 0      0   0   000000035412 0            270000035412 
AT6	030755 035412 0   0   000000035412 0            270000035412 
FT0	030755 035412 0   0   0            0            270000035412 
FT1A	030755 035412 0   0   0            0            0            
FT2	030755 035412 0   0   0            0            0            
FT2RQ	030755 035412 0   0   123456000000 0            0            
FT3	030755 035412 0   0   123456000000 0            0            
FT9	030756 035412 0   0   123456000000 0            0            
ET0	030756 035412 0   0   123456000000 0            0            
ST1	030756 035412 0   0   123456000000 0            0            
ST2	030756 035412 0   0   123456000000 0            0            
ST9	030756 035412 0   0   123456000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 13
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0292

*030756 SKIPN	0,000000
INITIAL
C(AC)=123456 000000 
C(E)=123456 000000 
FINAL
C(AC)=123456 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030756 030756 0   0   336000000000 0            123456000000 
IT1	030756 0      0   0   336000000000 0            123456000000 
AT3	030756 0      0   0   0            0            336000000000 
AT6	030756 0      0   0   0            0            336000000000 
FT0	030756 0      0   0   123456000000 0            336000000000 
FT1A	030756 0      0   0   123456000000 0            123456000000 
FT9	030757 0      0   0   123456000000 0            123456000000 
ET0	030760 0      0   0   123456000000 0            123456000000 
ST1A	030760 0      0   0   123456000000 0            123456000000 
ST9	030760 0      0   0   123456000000 0            123456000000 


*030760 JUMPA	0,030761
INITIAL
C(AC)=123456 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030760 030760 0   0   324000030761 0            000000030761 
IT1	030760 0      0   0   324000030761 0            000000030761 
AT3	030760 0      0   0   000000030761 0            324000030761 
AT6	030760 030761 0   0   000000030761 0            324000030761 
FT1A	030760 030761 0   0   000000030761 0            000000030761 
FT2	030760 030761 0   0   0            0            000000030761 
FT2RQ	030760 030761 0   0   123456000000 0            000000030761 
FT3	030760 030761 0   0   123456000000 0            000000030761 
FT9	030761 030761 0   0   123456000000 0            000000030761 
ET0	030761 030761 0   0   123456000000 0            000000030761 
ST1A	030761 030761 0   0   123456000000 0            000000030761 
ST9	030761 030761 0   0   123456000000 0            000000030761 


*030761 MOVE 	0,035415
INITIAL
C(AC)=123456 000000 
C(E)=000000 123456 
FINAL
C(AC)=000000 123456 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030761 030761 0   0   200000035415 0            000000123456 
IT1	030761 0      0   0   200000035415 0            000000123456 
AT3	030761 0      0   0   000000035415 0            200000035415 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 14
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0293

AT6	030761 035415 0   0   000000035415 0            200000035415 
FT0	030761 035415 0   0   000000123456 0            200000035415 
FT1A	030761 035415 0   0   000000123456 0            000000123456 
FT9	030762 035415 0   0   000000123456 0            000000123456 
ET0	030762 035415 0   0   000000123456 0            000000123456 
ST1	030762 035415 0   0   000000123456 0            000000123456 
ST2	030762 035415 0   0   000000123456 0            000000123456 
ST9	030762 035415 0   0   000000123456 0            000000123456 


*030762 ADD 	0,035412
INITIAL
C(AC)=000000 123456 
C(E)=000000 000000 
FINAL
C(AC)=000000 123456 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030762 030762 0   0   270000035412 0            0            
IT1	030762 0      0   0   270000035412 0            0            
AT3	030762 0      0   0   000000035412 0            270000035412 
AT6	030762 035412 0   0   000000035412 0            270000035412 
FT0	030762 035412 0   0   0            0            270000035412 
FT1A	030762 035412 0   0   0            0            0            
FT2	030762 035412 0   0   0            0            0            
FT2RQ	030762 035412 0   0   000000123456 0            0            
FT3	030762 035412 0   0   000000123456 0            0            
FT9	030763 035412 0   0   000000123456 0            0            
ET0	030763 035412 0   0   000000123456 0            0            
ST1	030763 035412 0   0   000000123456 0            0            
ST2	030763 035412 0   0   000000123456 0            0            
ST9	030763 035412 0   0   000000123456 0            0            


*030763 SKIPN	0,000000
INITIAL
C(AC)=000000 123456 
C(E)=000000 123456 
FINAL
C(AC)=000000 123456 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030763 030763 0   0   336000000000 0            000000123456 
IT1	030763 0      0   0   336000000000 0            000000123456 
AT3	030763 0      0   0   0            0            336000000000 
AT6	030763 0      0   0   0            0            336000000000 
FT0	030763 0      0   0   000000123456 0            336000000000 
FT1A	030763 0      0   0   000000123456 0            000000123456 
FT9	030764 0      0   0   000000123456 0            000000123456 
ET0	030765 0      0   0   000000123456 0            000000123456 
ST1A	030765 0      0   0   000000123456 0            000000123456 
ST9	030765 0      0   0   000000123456 0            000000123456 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 15
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0294



*030765 JUMPA	0,030766
INITIAL
C(AC)=000000 123456 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030765 030765 0   0   324000030766 0            000000030766 
IT1	030765 0      0   0   324000030766 0            000000030766 
AT3	030765 0      0   0   000000030766 0            324000030766 
AT6	030765 030766 0   0   000000030766 0            324000030766 
FT1A	030765 030766 0   0   000000030766 0            000000030766 
FT2	030765 030766 0   0   0            0            000000030766 
FT2RQ	030765 030766 0   0   000000123456 0            000000030766 
FT3	030765 030766 0   0   000000123456 0            000000030766 
FT9	030766 030766 0   0   000000123456 0            000000030766 
ET0	030766 030766 0   0   000000123456 0            000000030766 
ST1A	030766 030766 0   0   000000123456 0            000000030766 
ST9	030766 030766 0   0   000000123456 0            000000030766 


*030766 MOVE 	0,035412
INITIAL
C(AC)=000000 123456 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030766 030766 0   0   200000035412 0            0            
IT1	030766 0      0   0   200000035412 0            0            
AT3	030766 0      0   0   000000035412 0            200000035412 
AT6	030766 035412 0   0   000000035412 0            200000035412 
FT0	030766 035412 0   0   0            0            200000035412 
FT1A	030766 035412 0   0   0            0            0            
FT9	030767 035412 0   0   0            0            0            
ET0	030767 035412 0   0   0            0            0            
ST1	030767 035412 0   0   0            0            0            
ST2	030767 035412 0   0   0            0            0            
ST9	030767 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 16
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0295

*030767 ADD 	0,035414
INITIAL
C(AC)=000000 000000 
C(E)=123456 000000 
FINAL
C(AC)=123456 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030767 030767 0   0   270000035414 0            123456000000 
IT1	030767 0      0   0   270000035414 0            123456000000 
AT3	030767 0      0   0   000000035414 0            270000035414 
AT6	030767 035414 0   0   000000035414 0            270000035414 
FT0	030767 035414 0   0   123456000000 0            270000035414 
FT1A	030767 035414 0   0   123456000000 0            123456000000 
FT2	030767 035414 0   0   0            0            123456000000 
FT2RQ	030767 035414 0   0   0            0            123456000000 
FT3	030767 035414 0   0   0            0            123456000000 
FT9	030770 035414 0   0   0            0            123456000000 
ET0	030770 035414 0   0   123456000000 0            123456000000 
ST1	030770 035414 0   0   123456000000 0            123456000000 
ST2	030770 035414 0   0   123456000000 0            123456000000 
ST9	030770 035414 0   0   123456000000 0            123456000000 


*030770 SKIPN	0,000000
INITIAL
C(AC)=123456 000000 
C(E)=123456 000000 
FINAL
C(AC)=123456 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030770 030770 0   0   336000000000 0            123456000000 
IT1	030770 0      0   0   336000000000 0            123456000000 
AT3	030770 0      0   0   0            0            336000000000 
AT6	030770 0      0   0   0            0            336000000000 
FT0	030770 0      0   0   123456000000 0            336000000000 
FT1A	030770 0      0   0   123456000000 0            123456000000 
FT9	030771 0      0   0   123456000000 0            123456000000 
ET0	030772 0      0   0   123456000000 0            123456000000 
ST1A	030772 0      0   0   123456000000 0            123456000000 
ST9	030772 0      0   0   123456000000 0            123456000000 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 17
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0296

*030772 JUMPA	0,030773
INITIAL
C(AC)=123456 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030772 030772 0   0   324000030773 0            000000030773 
IT1	030772 0      0   0   324000030773 0            000000030773 
AT3	030772 0      0   0   000000030773 0            324000030773 
AT6	030772 030773 0   0   000000030773 0            324000030773 
FT1A	030772 030773 0   0   000000030773 0            000000030773 
FT2	030772 030773 0   0   0            0            000000030773 
FT2RQ	030772 030773 0   0   123456000000 0            000000030773 
FT3	030772 030773 0   0   123456000000 0            000000030773 
FT9	030773 030773 0   0   123456000000 0            000000030773 
ET0	030773 030773 0   0   123456000000 0            000000030773 
ST1A	030773 030773 0   0   123456000000 0            000000030773 
ST9	030773 030773 0   0   123456000000 0            000000030773 


*030773 MOVE 	0,035412
INITIAL
C(AC)=123456 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030773 030773 0   0   200000035412 0            0            
IT1	030773 0      0   0   200000035412 0            0            
AT3	030773 0      0   0   000000035412 0            200000035412 
AT6	030773 035412 0   0   000000035412 0            200000035412 
FT0	030773 035412 0   0   0            0            200000035412 
FT1A	030773 035412 0   0   0            0            0            
FT9	030774 035412 0   0   0            0            0            
ET0	030774 035412 0   0   0            0            0            
ST1	030774 035412 0   0   0            0            0            
ST2	030774 035412 0   0   0            0            0            
ST9	030774 035412 0   0   0            0            0            


*030774 ADD 	0,035415
INITIAL
C(AC)=000000 000000 
C(E)=000000 123456 
FINAL
C(AC)=000000 123456 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030774 030774 0   0   270000035415 0            000000123456 
IT1	030774 0      0   0   270000035415 0            000000123456 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 18
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0297

AT3	030774 0      0   0   000000035415 0            270000035415 
AT6	030774 035415 0   0   000000035415 0            270000035415 
FT0	030774 035415 0   0   000000123456 0            270000035415 
FT1A	030774 035415 0   0   000000123456 0            000000123456 
FT2	030774 035415 0   0   0            0            000000123456 
FT2RQ	030774 035415 0   0   0            0            000000123456 
FT3	030774 035415 0   0   0            0            000000123456 
FT9	030775 035415 0   0   0            0            000000123456 
ET0	030775 035415 0   0   000000123456 0            000000123456 
ST1	030775 035415 0   0   000000123456 0            000000123456 
ST2	030775 035415 0   0   000000123456 0            000000123456 
ST9	030775 035415 0   0   000000123456 0            000000123456 


*030775 SKIPN	0,000000
INITIAL
C(AC)=000000 123456 
C(E)=000000 123456 
FINAL
C(AC)=000000 123456 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030775 030775 0   0   336000000000 0            000000123456 
IT1	030775 0      0   0   336000000000 0            000000123456 
AT3	030775 0      0   0   0            0            336000000000 
AT6	030775 0      0   0   0            0            336000000000 
FT0	030775 0      0   0   000000123456 0            336000000000 
FT1A	030775 0      0   0   000000123456 0            000000123456 
FT9	030776 0      0   0   000000123456 0            000000123456 
ET0	030777 0      0   0   000000123456 0            000000123456 
ST1A	030777 0      0   0   000000123456 0            000000123456 
ST9	030777 0      0   0   000000123456 0            000000123456 


*030777 JUMPA	0,031000
INITIAL
C(AC)=000000 123456 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	030777 030777 0   0   324000031000 0            000000031000 
IT1	030777 0      0   0   324000031000 0            000000031000 
AT3	030777 0      0   0   000000031000 0            324000031000 
AT6	030777 0      0   0   000000031000 0            324000031000 
FT1A	030777 0      0   0   000000031000 0            000000031000 
FT2	030777 0      0   0   0            0            000000031000 
FT2RQ	030777 0      0   0   000000123456 0            000000031000 
FT3	030777 0      0   0   000000123456 0            000000031000 
FT9	0      0      0   0   000000123456 0            000000031000 
ET0	0      0      0   0   000000123456 0            000000031000 
ST1A	0      0      0   0   000000123456 0            000000031000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 19
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0298

ST9	0      0      0   0   000000123456 0            000000031000 


*031000 MOVE 	0,035416
INITIAL
C(AC)=000000 123456 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200000035416 0            000000000001 
IT1	0      0      0   0   200000035416 0            000000000001 
AT3	0      0      0   0   000000035416 0            200000035416 
AT6	0      035416 0   0   000000035416 0            200000035416 
FT0	0      035416 0   0   000000000001 0            200000035416 
FT1A	0      035416 0   0   000000000001 0            000000000001 
FT9	031001 035416 0   0   000000000001 0            000000000001 
ET0	031001 035416 0   0   000000000001 0            000000000001 
ST1	031001 035416 0   0   000000000001 0            000000000001 
ST2	031001 035416 0   0   000000000001 0            000000000001 
ST9	031001 035416 0   0   000000000001 0            000000000001 


*031001 ADD 	0,035412
INITIAL
C(AC)=000000 000001 
C(E)=000000 000000 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031001 031001 0   0   270000035412 0            0            
IT1	031001 0      0   0   270000035412 0            0            
AT3	031001 0      0   0   000000035412 0            270000035412 
AT6	031001 035412 0   0   000000035412 0            270000035412 
FT0	031001 035412 0   0   0            0            270000035412 
FT1A	031001 035412 0   0   0            0            0            
FT2	031001 035412 0   0   0            0            0            
FT2RQ	031001 035412 0   0   000000000001 0            0            
FT3	031001 035412 0   0   000000000001 0            0            
FT9	031002 035412 0   0   000000000001 0            0            
ET0	031002 035412 0   0   000000000001 0            0            
ST1	031002 035412 0   0   000000000001 0            0            
ST2	031002 035412 0   0   000000000001 0            0            
ST9	031002 035412 0   0   000000000001 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 20
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0299

*031002 EQV 	0,035416
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031002 031002 0   0   444000035416 0            000000000001 
IT1	031002 0      0   0   444000035416 0            000000000001 
AT3	031002 0      0   0   000000035416 0            444000035416 
AT6	031002 035416 0   0   000000035416 0            444000035416 
FT0	031002 035416 0   0   000000000001 0            444000035416 
FT1A	031002 035416 0   0   000000000001 0            000000000001 
FT2	031002 035416 0   0   0            0            000000000001 
FT2RQ	031002 035416 0   0   000000000001 0            000000000001 
FT3	031002 035416 0   0   000000000001 0            000000000001 
FT9	031003 035416 0   0   000000000001 0            000000000001 
ET0	031003 035416 0   0   777777777777 0            000000000001 
ST1	031003 035416 0   0   777777777777 0            000000000001 
ST2	031003 035416 0   0   777777777777 0            000000000001 
ST9	031003 035416 0   0   777777777777 0            000000000001 


*031003 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031003 031003 0   0   444000035412 0            0            
IT1	031003 0      0   0   444000035412 0            0            
AT3	031003 0      0   0   000000035412 0            444000035412 
AT6	031003 035412 0   0   000000035412 0            444000035412 
FT0	031003 035412 0   0   0            0            444000035412 
FT1A	031003 035412 0   0   0            0            0            
FT2	031003 035412 0   0   0            0            0            
FT2RQ	031003 035412 0   0   777777777777 0            0            
FT3	031003 035412 0   0   777777777777 0            0            
FT9	031004 035412 0   0   777777777777 0            0            
ET0	031004 035412 0   0   0            0            0            
ST1	031004 035412 0   0   0            0            0            
ST2	031004 035412 0   0   0            0            0            
ST9	031004 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 21
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0300

*031004 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031004 031004 0   0   332000000000 0            0            
IT1	031004 0      0   0   332000000000 0            0            
AT3	031004 0      0   0   0            0            332000000000 
AT6	031004 0      0   0   0            0            332000000000 
FT0	031004 0      0   0   0            0            332000000000 
FT1A	031004 0      0   0   0            0            0            
FT9	031005 0      0   0   0            0            0            
ET0	031006 0      0   0   0            0            0            
ST1A	031006 0      0   0   0            0            0            
ST9	031006 0      0   0   0            0            0            


*031006 JUMPA	0,031007
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031006 031006 0   0   324000031007 0            000000031007 
IT1	031006 0      0   0   324000031007 0            000000031007 
AT3	031006 0      0   0   000000031007 0            324000031007 
AT6	031006 031007 0   0   000000031007 0            324000031007 
FT1A	031006 031007 0   0   000000031007 0            000000031007 
FT2	031006 031007 0   0   0            0            000000031007 
FT2RQ	031006 031007 0   0   0            0            000000031007 
FT3	031006 031007 0   0   0            0            000000031007 
FT9	031007 031007 0   0   0            0            000000031007 
ET0	031007 031007 0   0   0            0            000000031007 
ST1A	031007 031007 0   0   0            0            000000031007 
ST9	031007 031007 0   0   0            0            000000031007 


*031007 MOVE 	0,035417
INITIAL
C(AC)=000000 000000 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031007 031007 0   0   200000035417 0            000000000002 
IT1	031007 0      0   0   200000035417 0            000000000002 
AT3	031007 0      0   0   000000035417 0            200000035417 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 22
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0301

AT6	031007 035417 0   0   000000035417 0            200000035417 
FT0	031007 035417 0   0   000000000002 0            200000035417 
FT1A	031007 035417 0   0   000000000002 0            000000000002 
FT9	031010 035417 0   0   000000000002 0            000000000002 
ET0	031010 035417 0   0   000000000002 0            000000000002 
ST1	031010 035417 0   0   000000000002 0            000000000002 
ST2	031010 035417 0   0   000000000002 0            000000000002 
ST9	031010 035417 0   0   000000000002 0            000000000002 


*031010 ADD 	0,035412
INITIAL
C(AC)=000000 000002 
C(E)=000000 000000 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031010 031010 0   0   270000035412 0            0            
IT1	031010 0      0   0   270000035412 0            0            
AT3	031010 0      0   0   000000035412 0            270000035412 
AT6	031010 035412 0   0   000000035412 0            270000035412 
FT0	031010 035412 0   0   0            0            270000035412 
FT1A	031010 035412 0   0   0            0            0            
FT2	031010 035412 0   0   0            0            0            
FT2RQ	031010 035412 0   0   000000000002 0            0            
FT3	031010 035412 0   0   000000000002 0            0            
FT9	031011 035412 0   0   000000000002 0            0            
ET0	031011 035412 0   0   000000000002 0            0            
ST1	031011 035412 0   0   000000000002 0            0            
ST2	031011 035412 0   0   000000000002 0            0            
ST9	031011 035412 0   0   000000000002 0            0            


*031011 EQV 	0,035417
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031011 031011 0   0   444000035417 0            000000000002 
IT1	031011 0      0   0   444000035417 0            000000000002 
AT3	031011 0      0   0   000000035417 0            444000035417 
AT6	031011 035417 0   0   000000035417 0            444000035417 
FT0	031011 035417 0   0   000000000002 0            444000035417 
FT1A	031011 035417 0   0   000000000002 0            000000000002 
FT2	031011 035417 0   0   0            0            000000000002 
FT2RQ	031011 035417 0   0   000000000002 0            000000000002 
FT3	031011 035417 0   0   000000000002 0            000000000002 
FT9	031012 035417 0   0   000000000002 0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 23
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0302

ET0	031012 035417 0   0   777777777777 0            000000000002 
ST1	031012 035417 0   0   777777777777 0            000000000002 
ST2	031012 035417 0   0   777777777777 0            000000000002 
ST9	031012 035417 0   0   777777777777 0            000000000002 


*031012 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031012 031012 0   0   444000035412 0            0            
IT1	031012 0      0   0   444000035412 0            0            
AT3	031012 0      0   0   000000035412 0            444000035412 
AT6	031012 035412 0   0   000000035412 0            444000035412 
FT0	031012 035412 0   0   0            0            444000035412 
FT1A	031012 035412 0   0   0            0            0            
FT2	031012 035412 0   0   0            0            0            
FT2RQ	031012 035412 0   0   777777777777 0            0            
FT3	031012 035412 0   0   777777777777 0            0            
FT9	031013 035412 0   0   777777777777 0            0            
ET0	031013 035412 0   0   0            0            0            
ST1	031013 035412 0   0   0            0            0            
ST2	031013 035412 0   0   0            0            0            
ST9	031013 035412 0   0   0            0            0            


*031013 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031013 031013 0   0   332000000000 0            0            
IT1	031013 0      0   0   332000000000 0            0            
AT3	031013 0      0   0   0            0            332000000000 
AT6	031013 0      0   0   0            0            332000000000 
FT0	031013 0      0   0   0            0            332000000000 
FT1A	031013 0      0   0   0            0            0            
FT9	031014 0      0   0   0            0            0            
ET0	031015 0      0   0   0            0            0            
ST1A	031015 0      0   0   0            0            0            
ST9	031015 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 24
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0303

*031015 JUMPA	0,031016
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031015 031015 0   0   324000031016 0            000000031016 
IT1	031015 0      0   0   324000031016 0            000000031016 
AT3	031015 0      0   0   000000031016 0            324000031016 
AT6	031015 031016 0   0   000000031016 0            324000031016 
FT1A	031015 031016 0   0   000000031016 0            000000031016 
FT2	031015 031016 0   0   0            0            000000031016 
FT2RQ	031015 031016 0   0   0            0            000000031016 
FT3	031015 031016 0   0   0            0            000000031016 
FT9	031016 031016 0   0   0            0            000000031016 
ET0	031016 031016 0   0   0            0            000000031016 
ST1A	031016 031016 0   0   0            0            000000031016 
ST9	031016 031016 0   0   0            0            000000031016 


*031016 MOVE 	0,035420
INITIAL
C(AC)=000000 000000 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031016 031016 0   0   200000035420 0            000000000004 
IT1	031016 0      0   0   200000035420 0            000000000004 
AT3	031016 0      0   0   000000035420 0            200000035420 
AT6	031016 035420 0   0   000000035420 0            200000035420 
FT0	031016 035420 0   0   000000000004 0            200000035420 
FT1A	031016 035420 0   0   000000000004 0            000000000004 
FT9	031017 035420 0   0   000000000004 0            000000000004 
ET0	031017 035420 0   0   000000000004 0            000000000004 
ST1	031017 035420 0   0   000000000004 0            000000000004 
ST2	031017 035420 0   0   000000000004 0            000000000004 
ST9	031017 035420 0   0   000000000004 0            000000000004 


*031017 ADD 	0,035412
INITIAL
C(AC)=000000 000004 
C(E)=000000 000000 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031017 031017 0   0   270000035412 0            0            
IT1	031017 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 25
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0304

AT3	031017 0      0   0   000000035412 0            270000035412 
AT6	031017 035412 0   0   000000035412 0            270000035412 
FT0	031017 035412 0   0   0            0            270000035412 
FT1A	031017 035412 0   0   0            0            0            
FT2	031017 035412 0   0   0            0            0            
FT2RQ	031017 035412 0   0   000000000004 0            0            
FT3	031017 035412 0   0   000000000004 0            0            
FT9	031020 035412 0   0   000000000004 0            0            
ET0	031020 035412 0   0   000000000004 0            0            
ST1	031020 035412 0   0   000000000004 0            0            
ST2	031020 035412 0   0   000000000004 0            0            
ST9	031020 035412 0   0   000000000004 0            0            


*031020 EQV 	0,035420
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031020 031020 0   0   444000035420 0            000000000004 
IT1	031020 0      0   0   444000035420 0            000000000004 
AT3	031020 0      0   0   000000035420 0            444000035420 
AT6	031020 035420 0   0   000000035420 0            444000035420 
FT0	031020 035420 0   0   000000000004 0            444000035420 
FT1A	031020 035420 0   0   000000000004 0            000000000004 
FT2	031020 035420 0   0   0            0            000000000004 
FT2RQ	031020 035420 0   0   000000000004 0            000000000004 
FT3	031020 035420 0   0   000000000004 0            000000000004 
FT9	031021 035420 0   0   000000000004 0            000000000004 
ET0	031021 035420 0   0   777777777777 0            000000000004 
ST1	031021 035420 0   0   777777777777 0            000000000004 
ST2	031021 035420 0   0   777777777777 0            000000000004 
ST9	031021 035420 0   0   777777777777 0            000000000004 


*031021 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031021 031021 0   0   444000035412 0            0            
IT1	031021 0      0   0   444000035412 0            0            
AT3	031021 0      0   0   000000035412 0            444000035412 
AT6	031021 035412 0   0   000000035412 0            444000035412 
FT0	031021 035412 0   0   0            0            444000035412 
FT1A	031021 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 26
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0305

FT2	031021 035412 0   0   0            0            0            
FT2RQ	031021 035412 0   0   777777777777 0            0            
FT3	031021 035412 0   0   777777777777 0            0            
FT9	031022 035412 0   0   777777777777 0            0            
ET0	031022 035412 0   0   0            0            0            
ST1	031022 035412 0   0   0            0            0            
ST2	031022 035412 0   0   0            0            0            
ST9	031022 035412 0   0   0            0            0            


*031022 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031022 031022 0   0   332000000000 0            0            
IT1	031022 0      0   0   332000000000 0            0            
AT3	031022 0      0   0   0            0            332000000000 
AT6	031022 0      0   0   0            0            332000000000 
FT0	031022 0      0   0   0            0            332000000000 
FT1A	031022 0      0   0   0            0            0            
FT9	031023 0      0   0   0            0            0            
ET0	031024 0      0   0   0            0            0            
ST1A	031024 0      0   0   0            0            0            
ST9	031024 0      0   0   0            0            0            


*031024 JUMPA	0,031025
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031024 031024 0   0   324000031025 0            000000031025 
IT1	031024 0      0   0   324000031025 0            000000031025 
AT3	031024 0      0   0   000000031025 0            324000031025 
AT6	031024 031025 0   0   000000031025 0            324000031025 
FT1A	031024 031025 0   0   000000031025 0            000000031025 
FT2	031024 031025 0   0   0            0            000000031025 
FT2RQ	031024 031025 0   0   0            0            000000031025 
FT3	031024 031025 0   0   0            0            000000031025 
FT9	031025 031025 0   0   0            0            000000031025 
ET0	031025 031025 0   0   0            0            000000031025 
ST1A	031025 031025 0   0   0            0            000000031025 
ST9	031025 031025 0   0   0            0            000000031025 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 27
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0306

*031025 MOVE 	0,035421
INITIAL
C(AC)=000000 000000 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031025 031025 0   0   200000035421 0            000000000010 
IT1	031025 0      0   0   200000035421 0            000000000010 
AT3	031025 0      0   0   000000035421 0            200000035421 
AT6	031025 035421 0   0   000000035421 0            200000035421 
FT0	031025 035421 0   0   000000000010 0            200000035421 
FT1A	031025 035421 0   0   000000000010 0            000000000010 
FT9	031026 035421 0   0   000000000010 0            000000000010 
ET0	031026 035421 0   0   000000000010 0            000000000010 
ST1	031026 035421 0   0   000000000010 0            000000000010 
ST2	031026 035421 0   0   000000000010 0            000000000010 
ST9	031026 035421 0   0   000000000010 0            000000000010 


*031026 ADD 	0,035412
INITIAL
C(AC)=000000 000010 
C(E)=000000 000000 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031026 031026 0   0   270000035412 0            0            
IT1	031026 0      0   0   270000035412 0            0            
AT3	031026 0      0   0   000000035412 0            270000035412 
AT6	031026 035412 0   0   000000035412 0            270000035412 
FT0	031026 035412 0   0   0            0            270000035412 
FT1A	031026 035412 0   0   0            0            0            
FT2	031026 035412 0   0   0            0            0            
FT2RQ	031026 035412 0   0   000000000010 0            0            
FT3	031026 035412 0   0   000000000010 0            0            
FT9	031027 035412 0   0   000000000010 0            0            
ET0	031027 035412 0   0   000000000010 0            0            
ST1	031027 035412 0   0   000000000010 0            0            
ST2	031027 035412 0   0   000000000010 0            0            
ST9	031027 035412 0   0   000000000010 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 28
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0307

*031027 EQV 	0,035421
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031027 031027 0   0   444000035421 0            000000000010 
IT1	031027 0      0   0   444000035421 0            000000000010 
AT3	031027 0      0   0   000000035421 0            444000035421 
AT6	031027 035421 0   0   000000035421 0            444000035421 
FT0	031027 035421 0   0   000000000010 0            444000035421 
FT1A	031027 035421 0   0   000000000010 0            000000000010 
FT2	031027 035421 0   0   0            0            000000000010 
FT2RQ	031027 035421 0   0   000000000010 0            000000000010 
FT3	031027 035421 0   0   000000000010 0            000000000010 
FT9	031030 035421 0   0   000000000010 0            000000000010 
ET0	031030 035421 0   0   777777777777 0            000000000010 
ST1	031030 035421 0   0   777777777777 0            000000000010 
ST2	031030 035421 0   0   777777777777 0            000000000010 
ST9	031030 035421 0   0   777777777777 0            000000000010 


*031030 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031030 031030 0   0   444000035412 0            0            
IT1	031030 0      0   0   444000035412 0            0            
AT3	031030 0      0   0   000000035412 0            444000035412 
AT6	031030 035412 0   0   000000035412 0            444000035412 
FT0	031030 035412 0   0   0            0            444000035412 
FT1A	031030 035412 0   0   0            0            0            
FT2	031030 035412 0   0   0            0            0            
FT2RQ	031030 035412 0   0   777777777777 0            0            
FT3	031030 035412 0   0   777777777777 0            0            
FT9	031031 035412 0   0   777777777777 0            0            
ET0	031031 035412 0   0   0            0            0            
ST1	031031 035412 0   0   0            0            0            
ST2	031031 035412 0   0   0            0            0            
ST9	031031 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 29
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0308

*031031 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031031 031031 0   0   332000000000 0            0            
IT1	031031 0      0   0   332000000000 0            0            
AT3	031031 0      0   0   0            0            332000000000 
AT6	031031 0      0   0   0            0            332000000000 
FT0	031031 0      0   0   0            0            332000000000 
FT1A	031031 0      0   0   0            0            0            
FT9	031032 0      0   0   0            0            0            
ET0	031033 0      0   0   0            0            0            
ST1A	031033 0      0   0   0            0            0            
ST9	031033 0      0   0   0            0            0            


*031033 JUMPA	0,031034
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031033 031033 0   0   324000031034 0            000000031034 
IT1	031033 0      0   0   324000031034 0            000000031034 
AT3	031033 0      0   0   000000031034 0            324000031034 
AT6	031033 031034 0   0   000000031034 0            324000031034 
FT1A	031033 031034 0   0   000000031034 0            000000031034 
FT2	031033 031034 0   0   0            0            000000031034 
FT2RQ	031033 031034 0   0   0            0            000000031034 
FT3	031033 031034 0   0   0            0            000000031034 
FT9	031034 031034 0   0   0            0            000000031034 
ET0	031034 031034 0   0   0            0            000000031034 
ST1A	031034 031034 0   0   0            0            000000031034 
ST9	031034 031034 0   0   0            0            000000031034 


*031034 MOVE 	0,035422
INITIAL
C(AC)=000000 000000 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031034 031034 0   0   200000035422 0            000000000020 
IT1	031034 0      0   0   200000035422 0            000000000020 
AT3	031034 0      0   0   000000035422 0            200000035422 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 30
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0309

AT6	031034 035422 0   0   000000035422 0            200000035422 
FT0	031034 035422 0   0   000000000020 0            200000035422 
FT1A	031034 035422 0   0   000000000020 0            000000000020 
FT9	031035 035422 0   0   000000000020 0            000000000020 
ET0	031035 035422 0   0   000000000020 0            000000000020 
ST1	031035 035422 0   0   000000000020 0            000000000020 
ST2	031035 035422 0   0   000000000020 0            000000000020 
ST9	031035 035422 0   0   000000000020 0            000000000020 


*031035 ADD 	0,035412
INITIAL
C(AC)=000000 000020 
C(E)=000000 000000 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031035 031035 0   0   270000035412 0            0            
IT1	031035 0      0   0   270000035412 0            0            
AT3	031035 0      0   0   000000035412 0            270000035412 
AT6	031035 035412 0   0   000000035412 0            270000035412 
FT0	031035 035412 0   0   0            0            270000035412 
FT1A	031035 035412 0   0   0            0            0            
FT2	031035 035412 0   0   0            0            0            
FT2RQ	031035 035412 0   0   000000000020 0            0            
FT3	031035 035412 0   0   000000000020 0            0            
FT9	031036 035412 0   0   000000000020 0            0            
ET0	031036 035412 0   0   000000000020 0            0            
ST1	031036 035412 0   0   000000000020 0            0            
ST2	031036 035412 0   0   000000000020 0            0            
ST9	031036 035412 0   0   000000000020 0            0            


*031036 EQV 	0,035422
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031036 031036 0   0   444000035422 0            000000000020 
IT1	031036 0      0   0   444000035422 0            000000000020 
AT3	031036 0      0   0   000000035422 0            444000035422 
AT6	031036 035422 0   0   000000035422 0            444000035422 
FT0	031036 035422 0   0   000000000020 0            444000035422 
FT1A	031036 035422 0   0   000000000020 0            000000000020 
FT2	031036 035422 0   0   0            0            000000000020 
FT2RQ	031036 035422 0   0   000000000020 0            000000000020 
FT3	031036 035422 0   0   000000000020 0            000000000020 
FT9	031037 035422 0   0   000000000020 0            000000000020 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 31
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0310

ET0	031037 035422 0   0   777777777777 0            000000000020 
ST1	031037 035422 0   0   777777777777 0            000000000020 
ST2	031037 035422 0   0   777777777777 0            000000000020 
ST9	031037 035422 0   0   777777777777 0            000000000020 


*031037 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031037 031037 0   0   444000035412 0            0            
IT1	031037 0      0   0   444000035412 0            0            
AT3	031037 0      0   0   000000035412 0            444000035412 
AT6	031037 035412 0   0   000000035412 0            444000035412 
FT0	031037 035412 0   0   0            0            444000035412 
FT1A	031037 035412 0   0   0            0            0            
FT2	031037 035412 0   0   0            0            0            
FT2RQ	031037 035412 0   0   777777777777 0            0            
FT3	031037 035412 0   0   777777777777 0            0            
FT9	031040 035412 0   0   777777777777 0            0            
ET0	031040 035412 0   0   0            0            0            
ST1	031040 035412 0   0   0            0            0            
ST2	031040 035412 0   0   0            0            0            
ST9	031040 035412 0   0   0            0            0            


*031040 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031040 031040 0   0   332000000000 0            0            
IT1	031040 0      0   0   332000000000 0            0            
AT3	031040 0      0   0   0            0            332000000000 
AT6	031040 0      0   0   0            0            332000000000 
FT0	031040 0      0   0   0            0            332000000000 
FT1A	031040 0      0   0   0            0            0            
FT9	031041 0      0   0   0            0            0            
ET0	031042 0      0   0   0            0            0            
ST1A	031042 0      0   0   0            0            0            
ST9	031042 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 32
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0311

*031042 JUMPA	0,031043
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031042 031042 0   0   324000031043 0            000000031043 
IT1	031042 0      0   0   324000031043 0            000000031043 
AT3	031042 0      0   0   000000031043 0            324000031043 
AT6	031042 031043 0   0   000000031043 0            324000031043 
FT1A	031042 031043 0   0   000000031043 0            000000031043 
FT2	031042 031043 0   0   0            0            000000031043 
FT2RQ	031042 031043 0   0   0            0            000000031043 
FT3	031042 031043 0   0   0            0            000000031043 
FT9	031043 031043 0   0   0            0            000000031043 
ET0	031043 031043 0   0   0            0            000000031043 
ST1A	031043 031043 0   0   0            0            000000031043 
ST9	031043 031043 0   0   0            0            000000031043 


*031043 MOVE 	0,035423
INITIAL
C(AC)=000000 000000 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031043 031043 0   0   200000035423 0            000000000040 
IT1	031043 0      0   0   200000035423 0            000000000040 
AT3	031043 0      0   0   000000035423 0            200000035423 
AT6	031043 035423 0   0   000000035423 0            200000035423 
FT0	031043 035423 0   0   000000000040 0            200000035423 
FT1A	031043 035423 0   0   000000000040 0            000000000040 
FT9	031044 035423 0   0   000000000040 0            000000000040 
ET0	031044 035423 0   0   000000000040 0            000000000040 
ST1	031044 035423 0   0   000000000040 0            000000000040 
ST2	031044 035423 0   0   000000000040 0            000000000040 
ST9	031044 035423 0   0   000000000040 0            000000000040 


*031044 ADD 	0,035412
INITIAL
C(AC)=000000 000040 
C(E)=000000 000000 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031044 031044 0   0   270000035412 0            0            
IT1	031044 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 33
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0312

AT3	031044 0      0   0   000000035412 0            270000035412 
AT6	031044 035412 0   0   000000035412 0            270000035412 
FT0	031044 035412 0   0   0            0            270000035412 
FT1A	031044 035412 0   0   0            0            0            
FT2	031044 035412 0   0   0            0            0            
FT2RQ	031044 035412 0   0   000000000040 0            0            
FT3	031044 035412 0   0   000000000040 0            0            
FT9	031045 035412 0   0   000000000040 0            0            
ET0	031045 035412 0   0   000000000040 0            0            
ST1	031045 035412 0   0   000000000040 0            0            
ST2	031045 035412 0   0   000000000040 0            0            
ST9	031045 035412 0   0   000000000040 0            0            


*031045 EQV 	0,035423
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031045 031045 0   0   444000035423 0            000000000040 
IT1	031045 0      0   0   444000035423 0            000000000040 
AT3	031045 0      0   0   000000035423 0            444000035423 
AT6	031045 035423 0   0   000000035423 0            444000035423 
FT0	031045 035423 0   0   000000000040 0            444000035423 
FT1A	031045 035423 0   0   000000000040 0            000000000040 
FT2	031045 035423 0   0   0            0            000000000040 
FT2RQ	031045 035423 0   0   000000000040 0            000000000040 
FT3	031045 035423 0   0   000000000040 0            000000000040 
FT9	031046 035423 0   0   000000000040 0            000000000040 
ET0	031046 035423 0   0   777777777777 0            000000000040 
ST1	031046 035423 0   0   777777777777 0            000000000040 
ST2	031046 035423 0   0   777777777777 0            000000000040 
ST9	031046 035423 0   0   777777777777 0            000000000040 


*031046 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031046 031046 0   0   444000035412 0            0            
IT1	031046 0      0   0   444000035412 0            0            
AT3	031046 0      0   0   000000035412 0            444000035412 
AT6	031046 035412 0   0   000000035412 0            444000035412 
FT0	031046 035412 0   0   0            0            444000035412 
FT1A	031046 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 34
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0313

FT2	031046 035412 0   0   0            0            0            
FT2RQ	031046 035412 0   0   777777777777 0            0            
FT3	031046 035412 0   0   777777777777 0            0            
FT9	031047 035412 0   0   777777777777 0            0            
ET0	031047 035412 0   0   0            0            0            
ST1	031047 035412 0   0   0            0            0            
ST2	031047 035412 0   0   0            0            0            
ST9	031047 035412 0   0   0            0            0            


*031047 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031047 031047 0   0   332000000000 0            0            
IT1	031047 0      0   0   332000000000 0            0            
AT3	031047 0      0   0   0            0            332000000000 
AT6	031047 0      0   0   0            0            332000000000 
FT0	031047 0      0   0   0            0            332000000000 
FT1A	031047 0      0   0   0            0            0            
FT9	031050 0      0   0   0            0            0            
ET0	031051 0      0   0   0            0            0            
ST1A	031051 0      0   0   0            0            0            
ST9	031051 0      0   0   0            0            0            


*031051 JUMPA	0,031052
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031051 031051 0   0   324000031052 0            000000031052 
IT1	031051 0      0   0   324000031052 0            000000031052 
AT3	031051 0      0   0   000000031052 0            324000031052 
AT6	031051 031052 0   0   000000031052 0            324000031052 
FT1A	031051 031052 0   0   000000031052 0            000000031052 
FT2	031051 031052 0   0   0            0            000000031052 
FT2RQ	031051 031052 0   0   0            0            000000031052 
FT3	031051 031052 0   0   0            0            000000031052 
FT9	031052 031052 0   0   0            0            000000031052 
ET0	031052 031052 0   0   0            0            000000031052 
ST1A	031052 031052 0   0   0            0            000000031052 
ST9	031052 031052 0   0   0            0            000000031052 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 35
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0314

*031052 MOVE 	0,035424
INITIAL
C(AC)=000000 000000 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031052 031052 0   0   200000035424 0            000000000100 
IT1	031052 0      0   0   200000035424 0            000000000100 
AT3	031052 0      0   0   000000035424 0            200000035424 
AT6	031052 035424 0   0   000000035424 0            200000035424 
FT0	031052 035424 0   0   000000000100 0            200000035424 
FT1A	031052 035424 0   0   000000000100 0            000000000100 
FT9	031053 035424 0   0   000000000100 0            000000000100 
ET0	031053 035424 0   0   000000000100 0            000000000100 
ST1	031053 035424 0   0   000000000100 0            000000000100 
ST2	031053 035424 0   0   000000000100 0            000000000100 
ST9	031053 035424 0   0   000000000100 0            000000000100 


*031053 ADD 	0,035412
INITIAL
C(AC)=000000 000100 
C(E)=000000 000000 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031053 031053 0   0   270000035412 0            0            
IT1	031053 0      0   0   270000035412 0            0            
AT3	031053 0      0   0   000000035412 0            270000035412 
AT6	031053 035412 0   0   000000035412 0            270000035412 
FT0	031053 035412 0   0   0            0            270000035412 
FT1A	031053 035412 0   0   0            0            0            
FT2	031053 035412 0   0   0            0            0            
FT2RQ	031053 035412 0   0   000000000100 0            0            
FT3	031053 035412 0   0   000000000100 0            0            
FT9	031054 035412 0   0   000000000100 0            0            
ET0	031054 035412 0   0   000000000100 0            0            
ST1	031054 035412 0   0   000000000100 0            0            
ST2	031054 035412 0   0   000000000100 0            0            
ST9	031054 035412 0   0   000000000100 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 36
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0315

*031054 EQV 	0,035424
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031054 031054 0   0   444000035424 0            000000000100 
IT1	031054 0      0   0   444000035424 0            000000000100 
AT3	031054 0      0   0   000000035424 0            444000035424 
AT6	031054 035424 0   0   000000035424 0            444000035424 
FT0	031054 035424 0   0   000000000100 0            444000035424 
FT1A	031054 035424 0   0   000000000100 0            000000000100 
FT2	031054 035424 0   0   0            0            000000000100 
FT2RQ	031054 035424 0   0   000000000100 0            000000000100 
FT3	031054 035424 0   0   000000000100 0            000000000100 
FT9	031055 035424 0   0   000000000100 0            000000000100 
ET0	031055 035424 0   0   777777777777 0            000000000100 
ST1	031055 035424 0   0   777777777777 0            000000000100 
ST2	031055 035424 0   0   777777777777 0            000000000100 
ST9	031055 035424 0   0   777777777777 0            000000000100 


*031055 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031055 031055 0   0   444000035412 0            0            
IT1	031055 0      0   0   444000035412 0            0            
AT3	031055 0      0   0   000000035412 0            444000035412 
AT6	031055 035412 0   0   000000035412 0            444000035412 
FT0	031055 035412 0   0   0            0            444000035412 
FT1A	031055 035412 0   0   0            0            0            
FT2	031055 035412 0   0   0            0            0            
FT2RQ	031055 035412 0   0   777777777777 0            0            
FT3	031055 035412 0   0   777777777777 0            0            
FT9	031056 035412 0   0   777777777777 0            0            
ET0	031056 035412 0   0   0            0            0            
ST1	031056 035412 0   0   0            0            0            
ST2	031056 035412 0   0   0            0            0            
ST9	031056 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 37
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0316

*031056 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031056 031056 0   0   332000000000 0            0            
IT1	031056 0      0   0   332000000000 0            0            
AT3	031056 0      0   0   0            0            332000000000 
AT6	031056 0      0   0   0            0            332000000000 
FT0	031056 0      0   0   0            0            332000000000 
FT1A	031056 0      0   0   0            0            0            
FT9	031057 0      0   0   0            0            0            
ET0	031060 0      0   0   0            0            0            
ST1A	031060 0      0   0   0            0            0            
ST9	031060 0      0   0   0            0            0            


*031060 JUMPA	0,031061
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031060 031060 0   0   324000031061 0            000000031061 
IT1	031060 0      0   0   324000031061 0            000000031061 
AT3	031060 0      0   0   000000031061 0            324000031061 
AT6	031060 031061 0   0   000000031061 0            324000031061 
FT1A	031060 031061 0   0   000000031061 0            000000031061 
FT2	031060 031061 0   0   0            0            000000031061 
FT2RQ	031060 031061 0   0   0            0            000000031061 
FT3	031060 031061 0   0   0            0            000000031061 
FT9	031061 031061 0   0   0            0            000000031061 
ET0	031061 031061 0   0   0            0            000000031061 
ST1A	031061 031061 0   0   0            0            000000031061 
ST9	031061 031061 0   0   0            0            000000031061 


*031061 MOVE 	0,035425
INITIAL
C(AC)=000000 000000 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031061 031061 0   0   200000035425 0            000000000200 
IT1	031061 0      0   0   200000035425 0            000000000200 
AT3	031061 0      0   0   000000035425 0            200000035425 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 38
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0317

AT6	031061 035425 0   0   000000035425 0            200000035425 
FT0	031061 035425 0   0   000000000200 0            200000035425 
FT1A	031061 035425 0   0   000000000200 0            000000000200 
FT9	031062 035425 0   0   000000000200 0            000000000200 
ET0	031062 035425 0   0   000000000200 0            000000000200 
ST1	031062 035425 0   0   000000000200 0            000000000200 
ST2	031062 035425 0   0   000000000200 0            000000000200 
ST9	031062 035425 0   0   000000000200 0            000000000200 


*031062 ADD 	0,035412
INITIAL
C(AC)=000000 000200 
C(E)=000000 000000 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031062 031062 0   0   270000035412 0            0            
IT1	031062 0      0   0   270000035412 0            0            
AT3	031062 0      0   0   000000035412 0            270000035412 
AT6	031062 035412 0   0   000000035412 0            270000035412 
FT0	031062 035412 0   0   0            0            270000035412 
FT1A	031062 035412 0   0   0            0            0            
FT2	031062 035412 0   0   0            0            0            
FT2RQ	031062 035412 0   0   000000000200 0            0            
FT3	031062 035412 0   0   000000000200 0            0            
FT9	031063 035412 0   0   000000000200 0            0            
ET0	031063 035412 0   0   000000000200 0            0            
ST1	031063 035412 0   0   000000000200 0            0            
ST2	031063 035412 0   0   000000000200 0            0            
ST9	031063 035412 0   0   000000000200 0            0            


*031063 EQV 	0,035425
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031063 031063 0   0   444000035425 0            000000000200 
IT1	031063 0      0   0   444000035425 0            000000000200 
AT3	031063 0      0   0   000000035425 0            444000035425 
AT6	031063 035425 0   0   000000035425 0            444000035425 
FT0	031063 035425 0   0   000000000200 0            444000035425 
FT1A	031063 035425 0   0   000000000200 0            000000000200 
FT2	031063 035425 0   0   0            0            000000000200 
FT2RQ	031063 035425 0   0   000000000200 0            000000000200 
FT3	031063 035425 0   0   000000000200 0            000000000200 
FT9	031064 035425 0   0   000000000200 0            000000000200 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 39
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0318

ET0	031064 035425 0   0   777777777777 0            000000000200 
ST1	031064 035425 0   0   777777777777 0            000000000200 
ST2	031064 035425 0   0   777777777777 0            000000000200 
ST9	031064 035425 0   0   777777777777 0            000000000200 


*031064 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031064 031064 0   0   444000035412 0            0            
IT1	031064 0      0   0   444000035412 0            0            
AT3	031064 0      0   0   000000035412 0            444000035412 
AT6	031064 035412 0   0   000000035412 0            444000035412 
FT0	031064 035412 0   0   0            0            444000035412 
FT1A	031064 035412 0   0   0            0            0            
FT2	031064 035412 0   0   0            0            0            
FT2RQ	031064 035412 0   0   777777777777 0            0            
FT3	031064 035412 0   0   777777777777 0            0            
FT9	031065 035412 0   0   777777777777 0            0            
ET0	031065 035412 0   0   0            0            0            
ST1	031065 035412 0   0   0            0            0            
ST2	031065 035412 0   0   0            0            0            
ST9	031065 035412 0   0   0            0            0            


*031065 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031065 031065 0   0   332000000000 0            0            
IT1	031065 0      0   0   332000000000 0            0            
AT3	031065 0      0   0   0            0            332000000000 
AT6	031065 0      0   0   0            0            332000000000 
FT0	031065 0      0   0   0            0            332000000000 
FT1A	031065 0      0   0   0            0            0            
FT9	031066 0      0   0   0            0            0            
ET0	031067 0      0   0   0            0            0            
ST1A	031067 0      0   0   0            0            0            
ST9	031067 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 40
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0319

*031067 JUMPA	0,031070
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031067 031067 0   0   324000031070 0            000000031070 
IT1	031067 0      0   0   324000031070 0            000000031070 
AT3	031067 0      0   0   000000031070 0            324000031070 
AT6	031067 031070 0   0   000000031070 0            324000031070 
FT1A	031067 031070 0   0   000000031070 0            000000031070 
FT2	031067 031070 0   0   0            0            000000031070 
FT2RQ	031067 031070 0   0   0            0            000000031070 
FT3	031067 031070 0   0   0            0            000000031070 
FT9	031070 031070 0   0   0            0            000000031070 
ET0	031070 031070 0   0   0            0            000000031070 
ST1A	031070 031070 0   0   0            0            000000031070 
ST9	031070 031070 0   0   0            0            000000031070 


*031070 MOVE 	0,035426
INITIAL
C(AC)=000000 000000 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031070 031070 0   0   200000035426 0            000000000400 
IT1	031070 0      0   0   200000035426 0            000000000400 
AT3	031070 0      0   0   000000035426 0            200000035426 
AT6	031070 035426 0   0   000000035426 0            200000035426 
FT0	031070 035426 0   0   000000000400 0            200000035426 
FT1A	031070 035426 0   0   000000000400 0            000000000400 
FT9	031071 035426 0   0   000000000400 0            000000000400 
ET0	031071 035426 0   0   000000000400 0            000000000400 
ST1	031071 035426 0   0   000000000400 0            000000000400 
ST2	031071 035426 0   0   000000000400 0            000000000400 
ST9	031071 035426 0   0   000000000400 0            000000000400 


*031071 ADD 	0,035412
INITIAL
C(AC)=000000 000400 
C(E)=000000 000000 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031071 031071 0   0   270000035412 0            0            
IT1	031071 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 41
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0320

AT3	031071 0      0   0   000000035412 0            270000035412 
AT6	031071 035412 0   0   000000035412 0            270000035412 
FT0	031071 035412 0   0   0            0            270000035412 
FT1A	031071 035412 0   0   0            0            0            
FT2	031071 035412 0   0   0            0            0            
FT2RQ	031071 035412 0   0   000000000400 0            0            
FT3	031071 035412 0   0   000000000400 0            0            
FT9	031072 035412 0   0   000000000400 0            0            
ET0	031072 035412 0   0   000000000400 0            0            
ST1	031072 035412 0   0   000000000400 0            0            
ST2	031072 035412 0   0   000000000400 0            0            
ST9	031072 035412 0   0   000000000400 0            0            


*031072 EQV 	0,035426
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031072 031072 0   0   444000035426 0            000000000400 
IT1	031072 0      0   0   444000035426 0            000000000400 
AT3	031072 0      0   0   000000035426 0            444000035426 
AT6	031072 035426 0   0   000000035426 0            444000035426 
FT0	031072 035426 0   0   000000000400 0            444000035426 
FT1A	031072 035426 0   0   000000000400 0            000000000400 
FT2	031072 035426 0   0   0            0            000000000400 
FT2RQ	031072 035426 0   0   000000000400 0            000000000400 
FT3	031072 035426 0   0   000000000400 0            000000000400 
FT9	031073 035426 0   0   000000000400 0            000000000400 
ET0	031073 035426 0   0   777777777777 0            000000000400 
ST1	031073 035426 0   0   777777777777 0            000000000400 
ST2	031073 035426 0   0   777777777777 0            000000000400 
ST9	031073 035426 0   0   777777777777 0            000000000400 


*031073 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031073 031073 0   0   444000035412 0            0            
IT1	031073 0      0   0   444000035412 0            0            
AT3	031073 0      0   0   000000035412 0            444000035412 
AT6	031073 035412 0   0   000000035412 0            444000035412 
FT0	031073 035412 0   0   0            0            444000035412 
FT1A	031073 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 42
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0321

FT2	031073 035412 0   0   0            0            0            
FT2RQ	031073 035412 0   0   777777777777 0            0            
FT3	031073 035412 0   0   777777777777 0            0            
FT9	031074 035412 0   0   777777777777 0            0            
ET0	031074 035412 0   0   0            0            0            
ST1	031074 035412 0   0   0            0            0            
ST2	031074 035412 0   0   0            0            0            
ST9	031074 035412 0   0   0            0            0            


*031074 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031074 031074 0   0   332000000000 0            0            
IT1	031074 0      0   0   332000000000 0            0            
AT3	031074 0      0   0   0            0            332000000000 
AT6	031074 0      0   0   0            0            332000000000 
FT0	031074 0      0   0   0            0            332000000000 
FT1A	031074 0      0   0   0            0            0            
FT9	031075 0      0   0   0            0            0            
ET0	031076 0      0   0   0            0            0            
ST1A	031076 0      0   0   0            0            0            
ST9	031076 0      0   0   0            0            0            


*031076 JUMPA	0,031077
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031076 031076 0   0   324000031077 0            000000031077 
IT1	031076 0      0   0   324000031077 0            000000031077 
AT3	031076 0      0   0   000000031077 0            324000031077 
AT6	031076 031077 0   0   000000031077 0            324000031077 
FT1A	031076 031077 0   0   000000031077 0            000000031077 
FT2	031076 031077 0   0   0            0            000000031077 
FT2RQ	031076 031077 0   0   0            0            000000031077 
FT3	031076 031077 0   0   0            0            000000031077 
FT9	031077 031077 0   0   0            0            000000031077 
ET0	031077 031077 0   0   0            0            000000031077 
ST1A	031077 031077 0   0   0            0            000000031077 
ST9	031077 031077 0   0   0            0            000000031077 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 43
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0322

*031077 MOVE 	0,035427
INITIAL
C(AC)=000000 000000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031077 031077 0   0   200000035427 0            000000001000 
IT1	031077 0      0   0   200000035427 0            000000001000 
AT3	031077 0      0   0   000000035427 0            200000035427 
AT6	031077 035427 0   0   000000035427 0            200000035427 
FT0	031077 035427 0   0   000000001000 0            200000035427 
FT1A	031077 035427 0   0   000000001000 0            000000001000 
FT9	0      035427 0   0   000000001000 0            000000001000 
ET0	0      035427 0   0   000000001000 0            000000001000 
ST1	0      035427 0   0   000000001000 0            000000001000 
ST2	0      035427 0   0   000000001000 0            000000001000 
ST9	0      035427 0   0   000000001000 0            000000001000 


*031100 ADD 	0,035412
INITIAL
C(AC)=000000 001000 
C(E)=000000 000000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   270000035412 0            0            
IT1	0      0      0   0   270000035412 0            0            
AT3	0      0      0   0   000000035412 0            270000035412 
AT6	0      035412 0   0   000000035412 0            270000035412 
FT0	0      035412 0   0   0            0            270000035412 
FT1A	0      035412 0   0   0            0            0            
FT2	0      035412 0   0   0            0            0            
FT2RQ	0      035412 0   0   000000001000 0            0            
FT3	0      035412 0   0   000000001000 0            0            
FT9	031101 035412 0   0   000000001000 0            0            
ET0	031101 035412 0   0   000000001000 0            0            
ST1	031101 035412 0   0   000000001000 0            0            
ST2	031101 035412 0   0   000000001000 0            0            
ST9	031101 035412 0   0   000000001000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 44
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0323

*031101 EQV 	0,035427
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031101 031101 0   0   444000035427 0            000000001000 
IT1	031101 0      0   0   444000035427 0            000000001000 
AT3	031101 0      0   0   000000035427 0            444000035427 
AT6	031101 035427 0   0   000000035427 0            444000035427 
FT0	031101 035427 0   0   000000001000 0            444000035427 
FT1A	031101 035427 0   0   000000001000 0            000000001000 
FT2	031101 035427 0   0   0            0            000000001000 
FT2RQ	031101 035427 0   0   000000001000 0            000000001000 
FT3	031101 035427 0   0   000000001000 0            000000001000 
FT9	031102 035427 0   0   000000001000 0            000000001000 
ET0	031102 035427 0   0   777777777777 0            000000001000 
ST1	031102 035427 0   0   777777777777 0            000000001000 
ST2	031102 035427 0   0   777777777777 0            000000001000 
ST9	031102 035427 0   0   777777777777 0            000000001000 


*031102 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031102 031102 0   0   444000035412 0            0            
IT1	031102 0      0   0   444000035412 0            0            
AT3	031102 0      0   0   000000035412 0            444000035412 
AT6	031102 035412 0   0   000000035412 0            444000035412 
FT0	031102 035412 0   0   0            0            444000035412 
FT1A	031102 035412 0   0   0            0            0            
FT2	031102 035412 0   0   0            0            0            
FT2RQ	031102 035412 0   0   777777777777 0            0            
FT3	031102 035412 0   0   777777777777 0            0            
FT9	031103 035412 0   0   777777777777 0            0            
ET0	031103 035412 0   0   0            0            0            
ST1	031103 035412 0   0   0            0            0            
ST2	031103 035412 0   0   0            0            0            
ST9	031103 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 45
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0324

*031103 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031103 031103 0   0   332000000000 0            0            
IT1	031103 0      0   0   332000000000 0            0            
AT3	031103 0      0   0   0            0            332000000000 
AT6	031103 0      0   0   0            0            332000000000 
FT0	031103 0      0   0   0            0            332000000000 
FT1A	031103 0      0   0   0            0            0            
FT9	031104 0      0   0   0            0            0            
ET0	031105 0      0   0   0            0            0            
ST1A	031105 0      0   0   0            0            0            
ST9	031105 0      0   0   0            0            0            


*031105 JUMPA	0,031106
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031105 031105 0   0   324000031106 0            000000031106 
IT1	031105 0      0   0   324000031106 0            000000031106 
AT3	031105 0      0   0   000000031106 0            324000031106 
AT6	031105 031106 0   0   000000031106 0            324000031106 
FT1A	031105 031106 0   0   000000031106 0            000000031106 
FT2	031105 031106 0   0   0            0            000000031106 
FT2RQ	031105 031106 0   0   0            0            000000031106 
FT3	031105 031106 0   0   0            0            000000031106 
FT9	031106 031106 0   0   0            0            000000031106 
ET0	031106 031106 0   0   0            0            000000031106 
ST1A	031106 031106 0   0   0            0            000000031106 
ST9	031106 031106 0   0   0            0            000000031106 


*031106 MOVE 	0,035430
INITIAL
C(AC)=000000 000000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031106 031106 0   0   200000035430 0            000000002000 
IT1	031106 0      0   0   200000035430 0            000000002000 
AT3	031106 0      0   0   000000035430 0            200000035430 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 46
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0325

AT6	031106 035430 0   0   000000035430 0            200000035430 
FT0	031106 035430 0   0   000000002000 0            200000035430 
FT1A	031106 035430 0   0   000000002000 0            000000002000 
FT9	031107 035430 0   0   000000002000 0            000000002000 
ET0	031107 035430 0   0   000000002000 0            000000002000 
ST1	031107 035430 0   0   000000002000 0            000000002000 
ST2	031107 035430 0   0   000000002000 0            000000002000 
ST9	031107 035430 0   0   000000002000 0            000000002000 


*031107 ADD 	0,035412
INITIAL
C(AC)=000000 002000 
C(E)=000000 000000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031107 031107 0   0   270000035412 0            0            
IT1	031107 0      0   0   270000035412 0            0            
AT3	031107 0      0   0   000000035412 0            270000035412 
AT6	031107 035412 0   0   000000035412 0            270000035412 
FT0	031107 035412 0   0   0            0            270000035412 
FT1A	031107 035412 0   0   0            0            0            
FT2	031107 035412 0   0   0            0            0            
FT2RQ	031107 035412 0   0   000000002000 0            0            
FT3	031107 035412 0   0   000000002000 0            0            
FT9	031110 035412 0   0   000000002000 0            0            
ET0	031110 035412 0   0   000000002000 0            0            
ST1	031110 035412 0   0   000000002000 0            0            
ST2	031110 035412 0   0   000000002000 0            0            
ST9	031110 035412 0   0   000000002000 0            0            


*031110 EQV 	0,035430
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031110 031110 0   0   444000035430 0            000000002000 
IT1	031110 0      0   0   444000035430 0            000000002000 
AT3	031110 0      0   0   000000035430 0            444000035430 
AT6	031110 035430 0   0   000000035430 0            444000035430 
FT0	031110 035430 0   0   000000002000 0            444000035430 
FT1A	031110 035430 0   0   000000002000 0            000000002000 
FT2	031110 035430 0   0   0            0            000000002000 
FT2RQ	031110 035430 0   0   000000002000 0            000000002000 
FT3	031110 035430 0   0   000000002000 0            000000002000 
FT9	031111 035430 0   0   000000002000 0            000000002000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 47
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0326

ET0	031111 035430 0   0   777777777777 0            000000002000 
ST1	031111 035430 0   0   777777777777 0            000000002000 
ST2	031111 035430 0   0   777777777777 0            000000002000 
ST9	031111 035430 0   0   777777777777 0            000000002000 


*031111 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031111 031111 0   0   444000035412 0            0            
IT1	031111 0      0   0   444000035412 0            0            
AT3	031111 0      0   0   000000035412 0            444000035412 
AT6	031111 035412 0   0   000000035412 0            444000035412 
FT0	031111 035412 0   0   0            0            444000035412 
FT1A	031111 035412 0   0   0            0            0            
FT2	031111 035412 0   0   0            0            0            
FT2RQ	031111 035412 0   0   777777777777 0            0            
FT3	031111 035412 0   0   777777777777 0            0            
FT9	031112 035412 0   0   777777777777 0            0            
ET0	031112 035412 0   0   0            0            0            
ST1	031112 035412 0   0   0            0            0            
ST2	031112 035412 0   0   0            0            0            
ST9	031112 035412 0   0   0            0            0            


*031112 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031112 031112 0   0   332000000000 0            0            
IT1	031112 0      0   0   332000000000 0            0            
AT3	031112 0      0   0   0            0            332000000000 
AT6	031112 0      0   0   0            0            332000000000 
FT0	031112 0      0   0   0            0            332000000000 
FT1A	031112 0      0   0   0            0            0            
FT9	031113 0      0   0   0            0            0            
ET0	031114 0      0   0   0            0            0            
ST1A	031114 0      0   0   0            0            0            
ST9	031114 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 48
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0327

*031114 JUMPA	0,031115
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031114 031114 0   0   324000031115 0            000000031115 
IT1	031114 0      0   0   324000031115 0            000000031115 
AT3	031114 0      0   0   000000031115 0            324000031115 
AT6	031114 031115 0   0   000000031115 0            324000031115 
FT1A	031114 031115 0   0   000000031115 0            000000031115 
FT2	031114 031115 0   0   0            0            000000031115 
FT2RQ	031114 031115 0   0   0            0            000000031115 
FT3	031114 031115 0   0   0            0            000000031115 
FT9	031115 031115 0   0   0            0            000000031115 
ET0	031115 031115 0   0   0            0            000000031115 
ST1A	031115 031115 0   0   0            0            000000031115 
ST9	031115 031115 0   0   0            0            000000031115 


*031115 MOVE 	0,035431
INITIAL
C(AC)=000000 000000 
C(E)=000000 004000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031115 031115 0   0   200000035431 0            000000004000 
IT1	031115 0      0   0   200000035431 0            000000004000 
AT3	031115 0      0   0   000000035431 0            200000035431 
AT6	031115 035431 0   0   000000035431 0            200000035431 
FT0	031115 035431 0   0   000000004000 0            200000035431 
FT1A	031115 035431 0   0   000000004000 0            000000004000 
FT9	031116 035431 0   0   000000004000 0            000000004000 
ET0	031116 035431 0   0   000000004000 0            000000004000 
ST1	031116 035431 0   0   000000004000 0            000000004000 
ST2	031116 035431 0   0   000000004000 0            000000004000 
ST9	031116 035431 0   0   000000004000 0            000000004000 


*031116 ADD 	0,035412
INITIAL
C(AC)=000000 004000 
C(E)=000000 000000 
FINAL
C(AC)=000000 004000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031116 031116 0   0   270000035412 0            0            
IT1	031116 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 49
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0328

AT3	031116 0      0   0   000000035412 0            270000035412 
AT6	031116 035412 0   0   000000035412 0            270000035412 
FT0	031116 035412 0   0   0            0            270000035412 
FT1A	031116 035412 0   0   0            0            0            
FT2	031116 035412 0   0   0            0            0            
FT2RQ	031116 035412 0   0   000000004000 0            0            
FT3	031116 035412 0   0   000000004000 0            0            
FT9	031117 035412 0   0   000000004000 0            0            
ET0	031117 035412 0   0   000000004000 0            0            
ST1	031117 035412 0   0   000000004000 0            0            
ST2	031117 035412 0   0   000000004000 0            0            
ST9	031117 035412 0   0   000000004000 0            0            


*031117 EQV 	0,035431
INITIAL
C(AC)=000000 004000 
C(E)=000000 004000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031117 031117 0   0   444000035431 0            000000004000 
IT1	031117 0      0   0   444000035431 0            000000004000 
AT3	031117 0      0   0   000000035431 0            444000035431 
AT6	031117 035431 0   0   000000035431 0            444000035431 
FT0	031117 035431 0   0   000000004000 0            444000035431 
FT1A	031117 035431 0   0   000000004000 0            000000004000 
FT2	031117 035431 0   0   0            0            000000004000 
FT2RQ	031117 035431 0   0   000000004000 0            000000004000 
FT3	031117 035431 0   0   000000004000 0            000000004000 
FT9	031120 035431 0   0   000000004000 0            000000004000 
ET0	031120 035431 0   0   777777777777 0            000000004000 
ST1	031120 035431 0   0   777777777777 0            000000004000 
ST2	031120 035431 0   0   777777777777 0            000000004000 
ST9	031120 035431 0   0   777777777777 0            000000004000 


*031120 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031120 031120 0   0   444000035412 0            0            
IT1	031120 0      0   0   444000035412 0            0            
AT3	031120 0      0   0   000000035412 0            444000035412 
AT6	031120 035412 0   0   000000035412 0            444000035412 
FT0	031120 035412 0   0   0            0            444000035412 
FT1A	031120 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 50
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0329

FT2	031120 035412 0   0   0            0            0            
FT2RQ	031120 035412 0   0   777777777777 0            0            
FT3	031120 035412 0   0   777777777777 0            0            
FT9	031121 035412 0   0   777777777777 0            0            
ET0	031121 035412 0   0   0            0            0            
ST1	031121 035412 0   0   0            0            0            
ST2	031121 035412 0   0   0            0            0            
ST9	031121 035412 0   0   0            0            0            


*031121 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031121 031121 0   0   332000000000 0            0            
IT1	031121 0      0   0   332000000000 0            0            
AT3	031121 0      0   0   0            0            332000000000 
AT6	031121 0      0   0   0            0            332000000000 
FT0	031121 0      0   0   0            0            332000000000 
FT1A	031121 0      0   0   0            0            0            
FT9	031122 0      0   0   0            0            0            
ET0	031123 0      0   0   0            0            0            
ST1A	031123 0      0   0   0            0            0            
ST9	031123 0      0   0   0            0            0            


*031123 JUMPA	0,031124
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031123 031123 0   0   324000031124 0            000000031124 
IT1	031123 0      0   0   324000031124 0            000000031124 
AT3	031123 0      0   0   000000031124 0            324000031124 
AT6	031123 031124 0   0   000000031124 0            324000031124 
FT1A	031123 031124 0   0   000000031124 0            000000031124 
FT2	031123 031124 0   0   0            0            000000031124 
FT2RQ	031123 031124 0   0   0            0            000000031124 
FT3	031123 031124 0   0   0            0            000000031124 
FT9	031124 031124 0   0   0            0            000000031124 
ET0	031124 031124 0   0   0            0            000000031124 
ST1A	031124 031124 0   0   0            0            000000031124 
ST9	031124 031124 0   0   0            0            000000031124 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 51
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0330

*031124 MOVE 	0,035432
INITIAL
C(AC)=000000 000000 
C(E)=000000 010000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031124 031124 0   0   200000035432 0            000000010000 
IT1	031124 0      0   0   200000035432 0            000000010000 
AT3	031124 0      0   0   000000035432 0            200000035432 
AT6	031124 035432 0   0   000000035432 0            200000035432 
FT0	031124 035432 0   0   000000010000 0            200000035432 
FT1A	031124 035432 0   0   000000010000 0            000000010000 
FT9	031125 035432 0   0   000000010000 0            000000010000 
ET0	031125 035432 0   0   000000010000 0            000000010000 
ST1	031125 035432 0   0   000000010000 0            000000010000 
ST2	031125 035432 0   0   000000010000 0            000000010000 
ST9	031125 035432 0   0   000000010000 0            000000010000 


*031125 ADD 	0,035412
INITIAL
C(AC)=000000 010000 
C(E)=000000 000000 
FINAL
C(AC)=000000 010000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031125 031125 0   0   270000035412 0            0            
IT1	031125 0      0   0   270000035412 0            0            
AT3	031125 0      0   0   000000035412 0            270000035412 
AT6	031125 035412 0   0   000000035412 0            270000035412 
FT0	031125 035412 0   0   0            0            270000035412 
FT1A	031125 035412 0   0   0            0            0            
FT2	031125 035412 0   0   0            0            0            
FT2RQ	031125 035412 0   0   000000010000 0            0            
FT3	031125 035412 0   0   000000010000 0            0            
FT9	031126 035412 0   0   000000010000 0            0            
ET0	031126 035412 0   0   000000010000 0            0            
ST1	031126 035412 0   0   000000010000 0            0            
ST2	031126 035412 0   0   000000010000 0            0            
ST9	031126 035412 0   0   000000010000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 52
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0331

*031126 EQV 	0,035432
INITIAL
C(AC)=000000 010000 
C(E)=000000 010000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031126 031126 0   0   444000035432 0            000000010000 
IT1	031126 0      0   0   444000035432 0            000000010000 
AT3	031126 0      0   0   000000035432 0            444000035432 
AT6	031126 035432 0   0   000000035432 0            444000035432 
FT0	031126 035432 0   0   000000010000 0            444000035432 
FT1A	031126 035432 0   0   000000010000 0            000000010000 
FT2	031126 035432 0   0   0            0            000000010000 
FT2RQ	031126 035432 0   0   000000010000 0            000000010000 
FT3	031126 035432 0   0   000000010000 0            000000010000 
FT9	031127 035432 0   0   000000010000 0            000000010000 
ET0	031127 035432 0   0   777777777777 0            000000010000 
ST1	031127 035432 0   0   777777777777 0            000000010000 
ST2	031127 035432 0   0   777777777777 0            000000010000 
ST9	031127 035432 0   0   777777777777 0            000000010000 


*031127 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031127 031127 0   0   444000035412 0            0            
IT1	031127 0      0   0   444000035412 0            0            
AT3	031127 0      0   0   000000035412 0            444000035412 
AT6	031127 035412 0   0   000000035412 0            444000035412 
FT0	031127 035412 0   0   0            0            444000035412 
FT1A	031127 035412 0   0   0            0            0            
FT2	031127 035412 0   0   0            0            0            
FT2RQ	031127 035412 0   0   777777777777 0            0            
FT3	031127 035412 0   0   777777777777 0            0            
FT9	031130 035412 0   0   777777777777 0            0            
ET0	031130 035412 0   0   0            0            0            
ST1	031130 035412 0   0   0            0            0            
ST2	031130 035412 0   0   0            0            0            
ST9	031130 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 53
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0332

*031130 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031130 031130 0   0   332000000000 0            0            
IT1	031130 0      0   0   332000000000 0            0            
AT3	031130 0      0   0   0            0            332000000000 
AT6	031130 0      0   0   0            0            332000000000 
FT0	031130 0      0   0   0            0            332000000000 
FT1A	031130 0      0   0   0            0            0            
FT9	031131 0      0   0   0            0            0            
ET0	031132 0      0   0   0            0            0            
ST1A	031132 0      0   0   0            0            0            
ST9	031132 0      0   0   0            0            0            


*031132 JUMPA	0,031133
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031132 031132 0   0   324000031133 0            000000031133 
IT1	031132 0      0   0   324000031133 0            000000031133 
AT3	031132 0      0   0   000000031133 0            324000031133 
AT6	031132 031133 0   0   000000031133 0            324000031133 
FT1A	031132 031133 0   0   000000031133 0            000000031133 
FT2	031132 031133 0   0   0            0            000000031133 
FT2RQ	031132 031133 0   0   0            0            000000031133 
FT3	031132 031133 0   0   0            0            000000031133 
FT9	031133 031133 0   0   0            0            000000031133 
ET0	031133 031133 0   0   0            0            000000031133 
ST1A	031133 031133 0   0   0            0            000000031133 
ST9	031133 031133 0   0   0            0            000000031133 


*031133 MOVE 	0,035433
INITIAL
C(AC)=000000 000000 
C(E)=000000 020000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031133 031133 0   0   200000035433 0            000000020000 
IT1	031133 0      0   0   200000035433 0            000000020000 
AT3	031133 0      0   0   000000035433 0            200000035433 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 54
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0333

AT6	031133 035433 0   0   000000035433 0            200000035433 
FT0	031133 035433 0   0   000000020000 0            200000035433 
FT1A	031133 035433 0   0   000000020000 0            000000020000 
FT9	031134 035433 0   0   000000020000 0            000000020000 
ET0	031134 035433 0   0   000000020000 0            000000020000 
ST1	031134 035433 0   0   000000020000 0            000000020000 
ST2	031134 035433 0   0   000000020000 0            000000020000 
ST9	031134 035433 0   0   000000020000 0            000000020000 


*031134 ADD 	0,035412
INITIAL
C(AC)=000000 020000 
C(E)=000000 000000 
FINAL
C(AC)=000000 020000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031134 031134 0   0   270000035412 0            0            
IT1	031134 0      0   0   270000035412 0            0            
AT3	031134 0      0   0   000000035412 0            270000035412 
AT6	031134 035412 0   0   000000035412 0            270000035412 
FT0	031134 035412 0   0   0            0            270000035412 
FT1A	031134 035412 0   0   0            0            0            
FT2	031134 035412 0   0   0            0            0            
FT2RQ	031134 035412 0   0   000000020000 0            0            
FT3	031134 035412 0   0   000000020000 0            0            
FT9	031135 035412 0   0   000000020000 0            0            
ET0	031135 035412 0   0   000000020000 0            0            
ST1	031135 035412 0   0   000000020000 0            0            
ST2	031135 035412 0   0   000000020000 0            0            
ST9	031135 035412 0   0   000000020000 0            0            


*031135 EQV 	0,035433
INITIAL
C(AC)=000000 020000 
C(E)=000000 020000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031135 031135 0   0   444000035433 0            000000020000 
IT1	031135 0      0   0   444000035433 0            000000020000 
AT3	031135 0      0   0   000000035433 0            444000035433 
AT6	031135 035433 0   0   000000035433 0            444000035433 
FT0	031135 035433 0   0   000000020000 0            444000035433 
FT1A	031135 035433 0   0   000000020000 0            000000020000 
FT2	031135 035433 0   0   0            0            000000020000 
FT2RQ	031135 035433 0   0   000000020000 0            000000020000 
FT3	031135 035433 0   0   000000020000 0            000000020000 
FT9	031136 035433 0   0   000000020000 0            000000020000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 55
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0334

ET0	031136 035433 0   0   777777777777 0            000000020000 
ST1	031136 035433 0   0   777777777777 0            000000020000 
ST2	031136 035433 0   0   777777777777 0            000000020000 
ST9	031136 035433 0   0   777777777777 0            000000020000 


*031136 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031136 031136 0   0   444000035412 0            0            
IT1	031136 0      0   0   444000035412 0            0            
AT3	031136 0      0   0   000000035412 0            444000035412 
AT6	031136 035412 0   0   000000035412 0            444000035412 
FT0	031136 035412 0   0   0            0            444000035412 
FT1A	031136 035412 0   0   0            0            0            
FT2	031136 035412 0   0   0            0            0            
FT2RQ	031136 035412 0   0   777777777777 0            0            
FT3	031136 035412 0   0   777777777777 0            0            
FT9	031137 035412 0   0   777777777777 0            0            
ET0	031137 035412 0   0   0            0            0            
ST1	031137 035412 0   0   0            0            0            
ST2	031137 035412 0   0   0            0            0            
ST9	031137 035412 0   0   0            0            0            


*031137 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031137 031137 0   0   332000000000 0            0            
IT1	031137 0      0   0   332000000000 0            0            
AT3	031137 0      0   0   0            0            332000000000 
AT6	031137 0      0   0   0            0            332000000000 
FT0	031137 0      0   0   0            0            332000000000 
FT1A	031137 0      0   0   0            0            0            
FT9	031140 0      0   0   0            0            0            
ET0	031141 0      0   0   0            0            0            
ST1A	031141 0      0   0   0            0            0            
ST9	031141 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 56
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0335

*031141 JUMPA	0,031142
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031141 031141 0   0   324000031142 0            000000031142 
IT1	031141 0      0   0   324000031142 0            000000031142 
AT3	031141 0      0   0   000000031142 0            324000031142 
AT6	031141 031142 0   0   000000031142 0            324000031142 
FT1A	031141 031142 0   0   000000031142 0            000000031142 
FT2	031141 031142 0   0   0            0            000000031142 
FT2RQ	031141 031142 0   0   0            0            000000031142 
FT3	031141 031142 0   0   0            0            000000031142 
FT9	031142 031142 0   0   0            0            000000031142 
ET0	031142 031142 0   0   0            0            000000031142 
ST1A	031142 031142 0   0   0            0            000000031142 
ST9	031142 031142 0   0   0            0            000000031142 


*031142 MOVE 	0,035434
INITIAL
C(AC)=000000 000000 
C(E)=000000 040000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031142 031142 0   0   200000035434 0            000000040000 
IT1	031142 0      0   0   200000035434 0            000000040000 
AT3	031142 0      0   0   000000035434 0            200000035434 
AT6	031142 035434 0   0   000000035434 0            200000035434 
FT0	031142 035434 0   0   000000040000 0            200000035434 
FT1A	031142 035434 0   0   000000040000 0            000000040000 
FT9	031143 035434 0   0   000000040000 0            000000040000 
ET0	031143 035434 0   0   000000040000 0            000000040000 
ST1	031143 035434 0   0   000000040000 0            000000040000 
ST2	031143 035434 0   0   000000040000 0            000000040000 
ST9	031143 035434 0   0   000000040000 0            000000040000 


*031143 ADD 	0,035412
INITIAL
C(AC)=000000 040000 
C(E)=000000 000000 
FINAL
C(AC)=000000 040000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031143 031143 0   0   270000035412 0            0            
IT1	031143 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 57
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0336

AT3	031143 0      0   0   000000035412 0            270000035412 
AT6	031143 035412 0   0   000000035412 0            270000035412 
FT0	031143 035412 0   0   0            0            270000035412 
FT1A	031143 035412 0   0   0            0            0            
FT2	031143 035412 0   0   0            0            0            
FT2RQ	031143 035412 0   0   000000040000 0            0            
FT3	031143 035412 0   0   000000040000 0            0            
FT9	031144 035412 0   0   000000040000 0            0            
ET0	031144 035412 0   0   000000040000 0            0            
ST1	031144 035412 0   0   000000040000 0            0            
ST2	031144 035412 0   0   000000040000 0            0            
ST9	031144 035412 0   0   000000040000 0            0            


*031144 EQV 	0,035434
INITIAL
C(AC)=000000 040000 
C(E)=000000 040000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031144 031144 0   0   444000035434 0            000000040000 
IT1	031144 0      0   0   444000035434 0            000000040000 
AT3	031144 0      0   0   000000035434 0            444000035434 
AT6	031144 035434 0   0   000000035434 0            444000035434 
FT0	031144 035434 0   0   000000040000 0            444000035434 
FT1A	031144 035434 0   0   000000040000 0            000000040000 
FT2	031144 035434 0   0   0            0            000000040000 
FT2RQ	031144 035434 0   0   000000040000 0            000000040000 
FT3	031144 035434 0   0   000000040000 0            000000040000 
FT9	031145 035434 0   0   000000040000 0            000000040000 
ET0	031145 035434 0   0   777777777777 0            000000040000 
ST1	031145 035434 0   0   777777777777 0            000000040000 
ST2	031145 035434 0   0   777777777777 0            000000040000 
ST9	031145 035434 0   0   777777777777 0            000000040000 


*031145 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031145 031145 0   0   444000035412 0            0            
IT1	031145 0      0   0   444000035412 0            0            
AT3	031145 0      0   0   000000035412 0            444000035412 
AT6	031145 035412 0   0   000000035412 0            444000035412 
FT0	031145 035412 0   0   0            0            444000035412 
FT1A	031145 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 58
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0337

FT2	031145 035412 0   0   0            0            0            
FT2RQ	031145 035412 0   0   777777777777 0            0            
FT3	031145 035412 0   0   777777777777 0            0            
FT9	031146 035412 0   0   777777777777 0            0            
ET0	031146 035412 0   0   0            0            0            
ST1	031146 035412 0   0   0            0            0            
ST2	031146 035412 0   0   0            0            0            
ST9	031146 035412 0   0   0            0            0            


*031146 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031146 031146 0   0   332000000000 0            0            
IT1	031146 0      0   0   332000000000 0            0            
AT3	031146 0      0   0   0            0            332000000000 
AT6	031146 0      0   0   0            0            332000000000 
FT0	031146 0      0   0   0            0            332000000000 
FT1A	031146 0      0   0   0            0            0            
FT9	031147 0      0   0   0            0            0            
ET0	031150 0      0   0   0            0            0            
ST1A	031150 0      0   0   0            0            0            
ST9	031150 0      0   0   0            0            0            


*031150 JUMPA	0,031151
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031150 031150 0   0   324000031151 0            000000031151 
IT1	031150 0      0   0   324000031151 0            000000031151 
AT3	031150 0      0   0   000000031151 0            324000031151 
AT6	031150 031151 0   0   000000031151 0            324000031151 
FT1A	031150 031151 0   0   000000031151 0            000000031151 
FT2	031150 031151 0   0   0            0            000000031151 
FT2RQ	031150 031151 0   0   0            0            000000031151 
FT3	031150 031151 0   0   0            0            000000031151 
FT9	031151 031151 0   0   0            0            000000031151 
ET0	031151 031151 0   0   0            0            000000031151 
ST1A	031151 031151 0   0   0            0            000000031151 
ST9	031151 031151 0   0   0            0            000000031151 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 59
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0338

*031151 MOVE 	0,035435
INITIAL
C(AC)=000000 000000 
C(E)=000000 100000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031151 031151 0   0   200000035435 0            000000100000 
IT1	031151 0      0   0   200000035435 0            000000100000 
AT3	031151 0      0   0   000000035435 0            200000035435 
AT6	031151 035435 0   0   000000035435 0            200000035435 
FT0	031151 035435 0   0   000000100000 0            200000035435 
FT1A	031151 035435 0   0   000000100000 0            000000100000 
FT9	031152 035435 0   0   000000100000 0            000000100000 
ET0	031152 035435 0   0   000000100000 0            000000100000 
ST1	031152 035435 0   0   000000100000 0            000000100000 
ST2	031152 035435 0   0   000000100000 0            000000100000 
ST9	031152 035435 0   0   000000100000 0            000000100000 


*031152 ADD 	0,035412
INITIAL
C(AC)=000000 100000 
C(E)=000000 000000 
FINAL
C(AC)=000000 100000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031152 031152 0   0   270000035412 0            0            
IT1	031152 0      0   0   270000035412 0            0            
AT3	031152 0      0   0   000000035412 0            270000035412 
AT6	031152 035412 0   0   000000035412 0            270000035412 
FT0	031152 035412 0   0   0            0            270000035412 
FT1A	031152 035412 0   0   0            0            0            
FT2	031152 035412 0   0   0            0            0            
FT2RQ	031152 035412 0   0   000000100000 0            0            
FT3	031152 035412 0   0   000000100000 0            0            
FT9	031153 035412 0   0   000000100000 0            0            
ET0	031153 035412 0   0   000000100000 0            0            
ST1	031153 035412 0   0   000000100000 0            0            
ST2	031153 035412 0   0   000000100000 0            0            
ST9	031153 035412 0   0   000000100000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 60
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0339

*031153 EQV 	0,035435
INITIAL
C(AC)=000000 100000 
C(E)=000000 100000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031153 031153 0   0   444000035435 0            000000100000 
IT1	031153 0      0   0   444000035435 0            000000100000 
AT3	031153 0      0   0   000000035435 0            444000035435 
AT6	031153 035435 0   0   000000035435 0            444000035435 
FT0	031153 035435 0   0   000000100000 0            444000035435 
FT1A	031153 035435 0   0   000000100000 0            000000100000 
FT2	031153 035435 0   0   0            0            000000100000 
FT2RQ	031153 035435 0   0   000000100000 0            000000100000 
FT3	031153 035435 0   0   000000100000 0            000000100000 
FT9	031154 035435 0   0   000000100000 0            000000100000 
ET0	031154 035435 0   0   777777777777 0            000000100000 
ST1	031154 035435 0   0   777777777777 0            000000100000 
ST2	031154 035435 0   0   777777777777 0            000000100000 
ST9	031154 035435 0   0   777777777777 0            000000100000 


*031154 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031154 031154 0   0   444000035412 0            0            
IT1	031154 0      0   0   444000035412 0            0            
AT3	031154 0      0   0   000000035412 0            444000035412 
AT6	031154 035412 0   0   000000035412 0            444000035412 
FT0	031154 035412 0   0   0            0            444000035412 
FT1A	031154 035412 0   0   0            0            0            
FT2	031154 035412 0   0   0            0            0            
FT2RQ	031154 035412 0   0   777777777777 0            0            
FT3	031154 035412 0   0   777777777777 0            0            
FT9	031155 035412 0   0   777777777777 0            0            
ET0	031155 035412 0   0   0            0            0            
ST1	031155 035412 0   0   0            0            0            
ST2	031155 035412 0   0   0            0            0            
ST9	031155 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 61
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0340

*031155 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031155 031155 0   0   332000000000 0            0            
IT1	031155 0      0   0   332000000000 0            0            
AT3	031155 0      0   0   0            0            332000000000 
AT6	031155 0      0   0   0            0            332000000000 
FT0	031155 0      0   0   0            0            332000000000 
FT1A	031155 0      0   0   0            0            0            
FT9	031156 0      0   0   0            0            0            
ET0	031157 0      0   0   0            0            0            
ST1A	031157 0      0   0   0            0            0            
ST9	031157 0      0   0   0            0            0            


*031157 JUMPA	0,031160
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031157 031157 0   0   324000031160 0            000000031160 
IT1	031157 0      0   0   324000031160 0            000000031160 
AT3	031157 0      0   0   000000031160 0            324000031160 
AT6	031157 031160 0   0   000000031160 0            324000031160 
FT1A	031157 031160 0   0   000000031160 0            000000031160 
FT2	031157 031160 0   0   0            0            000000031160 
FT2RQ	031157 031160 0   0   0            0            000000031160 
FT3	031157 031160 0   0   0            0            000000031160 
FT9	031160 031160 0   0   0            0            000000031160 
ET0	031160 031160 0   0   0            0            000000031160 
ST1A	031160 031160 0   0   0            0            000000031160 
ST9	031160 031160 0   0   0            0            000000031160 


*031160 MOVE 	0,035436
INITIAL
C(AC)=000000 000000 
C(E)=000000 200000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031160 031160 0   0   200000035436 0            000000200000 
IT1	031160 0      0   0   200000035436 0            000000200000 
AT3	031160 0      0   0   000000035436 0            200000035436 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 62
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0341

AT6	031160 035436 0   0   000000035436 0            200000035436 
FT0	031160 035436 0   0   000000200000 0            200000035436 
FT1A	031160 035436 0   0   000000200000 0            000000200000 
FT9	031161 035436 0   0   000000200000 0            000000200000 
ET0	031161 035436 0   0   000000200000 0            000000200000 
ST1	031161 035436 0   0   000000200000 0            000000200000 
ST2	031161 035436 0   0   000000200000 0            000000200000 
ST9	031161 035436 0   0   000000200000 0            000000200000 


*031161 ADD 	0,035412
INITIAL
C(AC)=000000 200000 
C(E)=000000 000000 
FINAL
C(AC)=000000 200000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031161 031161 0   0   270000035412 0            0            
IT1	031161 0      0   0   270000035412 0            0            
AT3	031161 0      0   0   000000035412 0            270000035412 
AT6	031161 035412 0   0   000000035412 0            270000035412 
FT0	031161 035412 0   0   0            0            270000035412 
FT1A	031161 035412 0   0   0            0            0            
FT2	031161 035412 0   0   0            0            0            
FT2RQ	031161 035412 0   0   000000200000 0            0            
FT3	031161 035412 0   0   000000200000 0            0            
FT9	031162 035412 0   0   000000200000 0            0            
ET0	031162 035412 0   0   000000200000 0            0            
ST1	031162 035412 0   0   000000200000 0            0            
ST2	031162 035412 0   0   000000200000 0            0            
ST9	031162 035412 0   0   000000200000 0            0            


*031162 EQV 	0,035436
INITIAL
C(AC)=000000 200000 
C(E)=000000 200000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031162 031162 0   0   444000035436 0            000000200000 
IT1	031162 0      0   0   444000035436 0            000000200000 
AT3	031162 0      0   0   000000035436 0            444000035436 
AT6	031162 035436 0   0   000000035436 0            444000035436 
FT0	031162 035436 0   0   000000200000 0            444000035436 
FT1A	031162 035436 0   0   000000200000 0            000000200000 
FT2	031162 035436 0   0   0            0            000000200000 
FT2RQ	031162 035436 0   0   000000200000 0            000000200000 
FT3	031162 035436 0   0   000000200000 0            000000200000 
FT9	031163 035436 0   0   000000200000 0            000000200000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 63
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0342

ET0	031163 035436 0   0   777777777777 0            000000200000 
ST1	031163 035436 0   0   777777777777 0            000000200000 
ST2	031163 035436 0   0   777777777777 0            000000200000 
ST9	031163 035436 0   0   777777777777 0            000000200000 


*031163 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031163 031163 0   0   444000035412 0            0            
IT1	031163 0      0   0   444000035412 0            0            
AT3	031163 0      0   0   000000035412 0            444000035412 
AT6	031163 035412 0   0   000000035412 0            444000035412 
FT0	031163 035412 0   0   0            0            444000035412 
FT1A	031163 035412 0   0   0            0            0            
FT2	031163 035412 0   0   0            0            0            
FT2RQ	031163 035412 0   0   777777777777 0            0            
FT3	031163 035412 0   0   777777777777 0            0            
FT9	031164 035412 0   0   777777777777 0            0            
ET0	031164 035412 0   0   0            0            0            
ST1	031164 035412 0   0   0            0            0            
ST2	031164 035412 0   0   0            0            0            
ST9	031164 035412 0   0   0            0            0            


*031164 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031164 031164 0   0   332000000000 0            0            
IT1	031164 0      0   0   332000000000 0            0            
AT3	031164 0      0   0   0            0            332000000000 
AT6	031164 0      0   0   0            0            332000000000 
FT0	031164 0      0   0   0            0            332000000000 
FT1A	031164 0      0   0   0            0            0            
FT9	031165 0      0   0   0            0            0            
ET0	031166 0      0   0   0            0            0            
ST1A	031166 0      0   0   0            0            0            
ST9	031166 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 64
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0343

*031166 JUMPA	0,031167
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031166 031166 0   0   324000031167 0            000000031167 
IT1	031166 0      0   0   324000031167 0            000000031167 
AT3	031166 0      0   0   000000031167 0            324000031167 
AT6	031166 031167 0   0   000000031167 0            324000031167 
FT1A	031166 031167 0   0   000000031167 0            000000031167 
FT2	031166 031167 0   0   0            0            000000031167 
FT2RQ	031166 031167 0   0   0            0            000000031167 
FT3	031166 031167 0   0   0            0            000000031167 
FT9	031167 031167 0   0   0            0            000000031167 
ET0	031167 031167 0   0   0            0            000000031167 
ST1A	031167 031167 0   0   0            0            000000031167 
ST9	031167 031167 0   0   0            0            000000031167 


*031167 MOVE 	0,035437
INITIAL
C(AC)=000000 000000 
C(E)=000000 400000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031167 031167 0   0   200000035437 0            000000400000 
IT1	031167 0      0   0   200000035437 0            000000400000 
AT3	031167 0      0   0   000000035437 0            200000035437 
AT6	031167 035437 0   0   000000035437 0            200000035437 
FT0	031167 035437 0   0   000000400000 0            200000035437 
FT1A	031167 035437 0   0   000000400000 0            000000400000 
FT9	031170 035437 0   0   000000400000 0            000000400000 
ET0	031170 035437 0   0   000000400000 0            000000400000 
ST1	031170 035437 0   0   000000400000 0            000000400000 
ST2	031170 035437 0   0   000000400000 0            000000400000 
ST9	031170 035437 0   0   000000400000 0            000000400000 


*031170 ADD 	0,035412
INITIAL
C(AC)=000000 400000 
C(E)=000000 000000 
FINAL
C(AC)=000000 400000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031170 031170 0   0   270000035412 0            0            
IT1	031170 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 65
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0344

AT3	031170 0      0   0   000000035412 0            270000035412 
AT6	031170 035412 0   0   000000035412 0            270000035412 
FT0	031170 035412 0   0   0            0            270000035412 
FT1A	031170 035412 0   0   0            0            0            
FT2	031170 035412 0   0   0            0            0            
FT2RQ	031170 035412 0   0   000000400000 0            0            
FT3	031170 035412 0   0   000000400000 0            0            
FT9	031171 035412 0   0   000000400000 0            0            
ET0	031171 035412 0   0   000000400000 0            0            
ST1	031171 035412 0   0   000000400000 0            0            
ST2	031171 035412 0   0   000000400000 0            0            
ST9	031171 035412 0   0   000000400000 0            0            


*031171 EQV 	0,035437
INITIAL
C(AC)=000000 400000 
C(E)=000000 400000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031171 031171 0   0   444000035437 0            000000400000 
IT1	031171 0      0   0   444000035437 0            000000400000 
AT3	031171 0      0   0   000000035437 0            444000035437 
AT6	031171 035437 0   0   000000035437 0            444000035437 
FT0	031171 035437 0   0   000000400000 0            444000035437 
FT1A	031171 035437 0   0   000000400000 0            000000400000 
FT2	031171 035437 0   0   0            0            000000400000 
FT2RQ	031171 035437 0   0   000000400000 0            000000400000 
FT3	031171 035437 0   0   000000400000 0            000000400000 
FT9	031172 035437 0   0   000000400000 0            000000400000 
ET0	031172 035437 0   0   777777777777 0            000000400000 
ST1	031172 035437 0   0   777777777777 0            000000400000 
ST2	031172 035437 0   0   777777777777 0            000000400000 
ST9	031172 035437 0   0   777777777777 0            000000400000 


*031172 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031172 031172 0   0   444000035412 0            0            
IT1	031172 0      0   0   444000035412 0            0            
AT3	031172 0      0   0   000000035412 0            444000035412 
AT6	031172 035412 0   0   000000035412 0            444000035412 
FT0	031172 035412 0   0   0            0            444000035412 
FT1A	031172 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 66
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0345

FT2	031172 035412 0   0   0            0            0            
FT2RQ	031172 035412 0   0   777777777777 0            0            
FT3	031172 035412 0   0   777777777777 0            0            
FT9	031173 035412 0   0   777777777777 0            0            
ET0	031173 035412 0   0   0            0            0            
ST1	031173 035412 0   0   0            0            0            
ST2	031173 035412 0   0   0            0            0            
ST9	031173 035412 0   0   0            0            0            


*031173 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031173 031173 0   0   332000000000 0            0            
IT1	031173 0      0   0   332000000000 0            0            
AT3	031173 0      0   0   0            0            332000000000 
AT6	031173 0      0   0   0            0            332000000000 
FT0	031173 0      0   0   0            0            332000000000 
FT1A	031173 0      0   0   0            0            0            
FT9	031174 0      0   0   0            0            0            
ET0	031175 0      0   0   0            0            0            
ST1A	031175 0      0   0   0            0            0            
ST9	031175 0      0   0   0            0            0            


*031175 JUMPA	0,031176
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031175 031175 0   0   324000031176 0            000000031176 
IT1	031175 0      0   0   324000031176 0            000000031176 
AT3	031175 0      0   0   000000031176 0            324000031176 
AT6	031175 031176 0   0   000000031176 0            324000031176 
FT1A	031175 031176 0   0   000000031176 0            000000031176 
FT2	031175 031176 0   0   0            0            000000031176 
FT2RQ	031175 031176 0   0   0            0            000000031176 
FT3	031175 031176 0   0   0            0            000000031176 
FT9	031176 031176 0   0   0            0            000000031176 
ET0	031176 031176 0   0   0            0            000000031176 
ST1A	031176 031176 0   0   0            0            000000031176 
ST9	031176 031176 0   0   0            0            000000031176 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 67
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0346

*031176 MOVE 	0,035440
INITIAL
C(AC)=000000 000000 
C(E)=000001 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031176 031176 0   0   200000035440 0            000001000000 
IT1	031176 0      0   0   200000035440 0            000001000000 
AT3	031176 0      0   0   000000035440 0            200000035440 
AT6	031176 035440 0   0   000000035440 0            200000035440 
FT0	031176 035440 0   0   000001000000 0            200000035440 
FT1A	031176 035440 0   0   000001000000 0            000001000000 
FT9	031177 035440 0   0   000001000000 0            000001000000 
ET0	031177 035440 0   0   000001000000 0            000001000000 
ST1	031177 035440 0   0   000001000000 0            000001000000 
ST2	031177 035440 0   0   000001000000 0            000001000000 
ST9	031177 035440 0   0   000001000000 0            000001000000 


*031177 ADD 	0,035412
INITIAL
C(AC)=000001 000000 
C(E)=000000 000000 
FINAL
C(AC)=000001 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031177 031177 0   0   270000035412 0            0            
IT1	031177 0      0   0   270000035412 0            0            
AT3	031177 0      0   0   000000035412 0            270000035412 
AT6	031177 035412 0   0   000000035412 0            270000035412 
FT0	031177 035412 0   0   0            0            270000035412 
FT1A	031177 035412 0   0   0            0            0            
FT2	031177 035412 0   0   0            0            0            
FT2RQ	031177 035412 0   0   000001000000 0            0            
FT3	031177 035412 0   0   000001000000 0            0            
FT9	0      035412 0   0   000001000000 0            0            
ET0	0      035412 0   0   000001000000 0            0            
ST1	0      035412 0   0   000001000000 0            0            
ST2	0      035412 0   0   000001000000 0            0            
ST9	0      035412 0   0   000001000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 68
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0347

*031200 EQV 	0,035440
INITIAL
C(AC)=000001 000000 
C(E)=000001 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   444000035440 0            000001000000 
IT1	0      0      0   0   444000035440 0            000001000000 
AT3	0      0      0   0   000000035440 0            444000035440 
AT6	0      035440 0   0   000000035440 0            444000035440 
FT0	0      035440 0   0   000001000000 0            444000035440 
FT1A	0      035440 0   0   000001000000 0            000001000000 
FT2	0      035440 0   0   0            0            000001000000 
FT2RQ	0      035440 0   0   000001000000 0            000001000000 
FT3	0      035440 0   0   000001000000 0            000001000000 
FT9	031201 035440 0   0   000001000000 0            000001000000 
ET0	031201 035440 0   0   777777777777 0            000001000000 
ST1	031201 035440 0   0   777777777777 0            000001000000 
ST2	031201 035440 0   0   777777777777 0            000001000000 
ST9	031201 035440 0   0   777777777777 0            000001000000 


*031201 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031201 031201 0   0   444000035412 0            0            
IT1	031201 0      0   0   444000035412 0            0            
AT3	031201 0      0   0   000000035412 0            444000035412 
AT6	031201 035412 0   0   000000035412 0            444000035412 
FT0	031201 035412 0   0   0            0            444000035412 
FT1A	031201 035412 0   0   0            0            0            
FT2	031201 035412 0   0   0            0            0            
FT2RQ	031201 035412 0   0   777777777777 0            0            
FT3	031201 035412 0   0   777777777777 0            0            
FT9	031202 035412 0   0   777777777777 0            0            
ET0	031202 035412 0   0   0            0            0            
ST1	031202 035412 0   0   0            0            0            
ST2	031202 035412 0   0   0            0            0            
ST9	031202 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 69
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0348

*031202 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031202 031202 0   0   332000000000 0            0            
IT1	031202 0      0   0   332000000000 0            0            
AT3	031202 0      0   0   0            0            332000000000 
AT6	031202 0      0   0   0            0            332000000000 
FT0	031202 0      0   0   0            0            332000000000 
FT1A	031202 0      0   0   0            0            0            
FT9	031203 0      0   0   0            0            0            
ET0	031204 0      0   0   0            0            0            
ST1A	031204 0      0   0   0            0            0            
ST9	031204 0      0   0   0            0            0            


*031204 JUMPA	0,031205
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031204 031204 0   0   324000031205 0            000000031205 
IT1	031204 0      0   0   324000031205 0            000000031205 
AT3	031204 0      0   0   000000031205 0            324000031205 
AT6	031204 031205 0   0   000000031205 0            324000031205 
FT1A	031204 031205 0   0   000000031205 0            000000031205 
FT2	031204 031205 0   0   0            0            000000031205 
FT2RQ	031204 031205 0   0   0            0            000000031205 
FT3	031204 031205 0   0   0            0            000000031205 
FT9	031205 031205 0   0   0            0            000000031205 
ET0	031205 031205 0   0   0            0            000000031205 
ST1A	031205 031205 0   0   0            0            000000031205 
ST9	031205 031205 0   0   0            0            000000031205 


*031205 MOVE 	0,035441
INITIAL
C(AC)=000000 000000 
C(E)=000002 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031205 031205 0   0   200000035441 0            000002000000 
IT1	031205 0      0   0   200000035441 0            000002000000 
AT3	031205 0      0   0   000000035441 0            200000035441 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 70
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0349

AT6	031205 035441 0   0   000000035441 0            200000035441 
FT0	031205 035441 0   0   000002000000 0            200000035441 
FT1A	031205 035441 0   0   000002000000 0            000002000000 
FT9	031206 035441 0   0   000002000000 0            000002000000 
ET0	031206 035441 0   0   000002000000 0            000002000000 
ST1	031206 035441 0   0   000002000000 0            000002000000 
ST2	031206 035441 0   0   000002000000 0            000002000000 
ST9	031206 035441 0   0   000002000000 0            000002000000 


*031206 ADD 	0,035412
INITIAL
C(AC)=000002 000000 
C(E)=000000 000000 
FINAL
C(AC)=000002 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031206 031206 0   0   270000035412 0            0            
IT1	031206 0      0   0   270000035412 0            0            
AT3	031206 0      0   0   000000035412 0            270000035412 
AT6	031206 035412 0   0   000000035412 0            270000035412 
FT0	031206 035412 0   0   0            0            270000035412 
FT1A	031206 035412 0   0   0            0            0            
FT2	031206 035412 0   0   0            0            0            
FT2RQ	031206 035412 0   0   000002000000 0            0            
FT3	031206 035412 0   0   000002000000 0            0            
FT9	031207 035412 0   0   000002000000 0            0            
ET0	031207 035412 0   0   000002000000 0            0            
ST1	031207 035412 0   0   000002000000 0            0            
ST2	031207 035412 0   0   000002000000 0            0            
ST9	031207 035412 0   0   000002000000 0            0            


*031207 EQV 	0,035441
INITIAL
C(AC)=000002 000000 
C(E)=000002 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031207 031207 0   0   444000035441 0            000002000000 
IT1	031207 0      0   0   444000035441 0            000002000000 
AT3	031207 0      0   0   000000035441 0            444000035441 
AT6	031207 035441 0   0   000000035441 0            444000035441 
FT0	031207 035441 0   0   000002000000 0            444000035441 
FT1A	031207 035441 0   0   000002000000 0            000002000000 
FT2	031207 035441 0   0   0            0            000002000000 
FT2RQ	031207 035441 0   0   000002000000 0            000002000000 
FT3	031207 035441 0   0   000002000000 0            000002000000 
FT9	031210 035441 0   0   000002000000 0            000002000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 71
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0350

ET0	031210 035441 0   0   777777777777 0            000002000000 
ST1	031210 035441 0   0   777777777777 0            000002000000 
ST2	031210 035441 0   0   777777777777 0            000002000000 
ST9	031210 035441 0   0   777777777777 0            000002000000 


*031210 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031210 031210 0   0   444000035412 0            0            
IT1	031210 0      0   0   444000035412 0            0            
AT3	031210 0      0   0   000000035412 0            444000035412 
AT6	031210 035412 0   0   000000035412 0            444000035412 
FT0	031210 035412 0   0   0            0            444000035412 
FT1A	031210 035412 0   0   0            0            0            
FT2	031210 035412 0   0   0            0            0            
FT2RQ	031210 035412 0   0   777777777777 0            0            
FT3	031210 035412 0   0   777777777777 0            0            
FT9	031211 035412 0   0   777777777777 0            0            
ET0	031211 035412 0   0   0            0            0            
ST1	031211 035412 0   0   0            0            0            
ST2	031211 035412 0   0   0            0            0            
ST9	031211 035412 0   0   0            0            0            


*031211 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031211 031211 0   0   332000000000 0            0            
IT1	031211 0      0   0   332000000000 0            0            
AT3	031211 0      0   0   0            0            332000000000 
AT6	031211 0      0   0   0            0            332000000000 
FT0	031211 0      0   0   0            0            332000000000 
FT1A	031211 0      0   0   0            0            0            
FT9	031212 0      0   0   0            0            0            
ET0	031213 0      0   0   0            0            0            
ST1A	031213 0      0   0   0            0            0            
ST9	031213 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 72
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0351

*031213 JUMPA	0,031214
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031213 031213 0   0   324000031214 0            000000031214 
IT1	031213 0      0   0   324000031214 0            000000031214 
AT3	031213 0      0   0   000000031214 0            324000031214 
AT6	031213 031214 0   0   000000031214 0            324000031214 
FT1A	031213 031214 0   0   000000031214 0            000000031214 
FT2	031213 031214 0   0   0            0            000000031214 
FT2RQ	031213 031214 0   0   0            0            000000031214 
FT3	031213 031214 0   0   0            0            000000031214 
FT9	031214 031214 0   0   0            0            000000031214 
ET0	031214 031214 0   0   0            0            000000031214 
ST1A	031214 031214 0   0   0            0            000000031214 
ST9	031214 031214 0   0   0            0            000000031214 


*031214 MOVE 	0,035442
INITIAL
C(AC)=000000 000000 
C(E)=000004 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031214 031214 0   0   200000035442 0            000004000000 
IT1	031214 0      0   0   200000035442 0            000004000000 
AT3	031214 0      0   0   000000035442 0            200000035442 
AT6	031214 035442 0   0   000000035442 0            200000035442 
FT0	031214 035442 0   0   000004000000 0            200000035442 
FT1A	031214 035442 0   0   000004000000 0            000004000000 
FT9	031215 035442 0   0   000004000000 0            000004000000 
ET0	031215 035442 0   0   000004000000 0            000004000000 
ST1	031215 035442 0   0   000004000000 0            000004000000 
ST2	031215 035442 0   0   000004000000 0            000004000000 
ST9	031215 035442 0   0   000004000000 0            000004000000 


*031215 ADD 	0,035412
INITIAL
C(AC)=000004 000000 
C(E)=000000 000000 
FINAL
C(AC)=000004 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031215 031215 0   0   270000035412 0            0            
IT1	031215 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 73
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0352

AT3	031215 0      0   0   000000035412 0            270000035412 
AT6	031215 035412 0   0   000000035412 0            270000035412 
FT0	031215 035412 0   0   0            0            270000035412 
FT1A	031215 035412 0   0   0            0            0            
FT2	031215 035412 0   0   0            0            0            
FT2RQ	031215 035412 0   0   000004000000 0            0            
FT3	031215 035412 0   0   000004000000 0            0            
FT9	031216 035412 0   0   000004000000 0            0            
ET0	031216 035412 0   0   000004000000 0            0            
ST1	031216 035412 0   0   000004000000 0            0            
ST2	031216 035412 0   0   000004000000 0            0            
ST9	031216 035412 0   0   000004000000 0            0            


*031216 EQV 	0,035442
INITIAL
C(AC)=000004 000000 
C(E)=000004 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031216 031216 0   0   444000035442 0            000004000000 
IT1	031216 0      0   0   444000035442 0            000004000000 
AT3	031216 0      0   0   000000035442 0            444000035442 
AT6	031216 035442 0   0   000000035442 0            444000035442 
FT0	031216 035442 0   0   000004000000 0            444000035442 
FT1A	031216 035442 0   0   000004000000 0            000004000000 
FT2	031216 035442 0   0   0            0            000004000000 
FT2RQ	031216 035442 0   0   000004000000 0            000004000000 
FT3	031216 035442 0   0   000004000000 0            000004000000 
FT9	031217 035442 0   0   000004000000 0            000004000000 
ET0	031217 035442 0   0   777777777777 0            000004000000 
ST1	031217 035442 0   0   777777777777 0            000004000000 
ST2	031217 035442 0   0   777777777777 0            000004000000 
ST9	031217 035442 0   0   777777777777 0            000004000000 


*031217 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031217 031217 0   0   444000035412 0            0            
IT1	031217 0      0   0   444000035412 0            0            
AT3	031217 0      0   0   000000035412 0            444000035412 
AT6	031217 035412 0   0   000000035412 0            444000035412 
FT0	031217 035412 0   0   0            0            444000035412 
FT1A	031217 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 74
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0353

FT2	031217 035412 0   0   0            0            0            
FT2RQ	031217 035412 0   0   777777777777 0            0            
FT3	031217 035412 0   0   777777777777 0            0            
FT9	031220 035412 0   0   777777777777 0            0            
ET0	031220 035412 0   0   0            0            0            
ST1	031220 035412 0   0   0            0            0            
ST2	031220 035412 0   0   0            0            0            
ST9	031220 035412 0   0   0            0            0            


*031220 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031220 031220 0   0   332000000000 0            0            
IT1	031220 0      0   0   332000000000 0            0            
AT3	031220 0      0   0   0            0            332000000000 
AT6	031220 0      0   0   0            0            332000000000 
FT0	031220 0      0   0   0            0            332000000000 
FT1A	031220 0      0   0   0            0            0            
FT9	031221 0      0   0   0            0            0            
ET0	031222 0      0   0   0            0            0            
ST1A	031222 0      0   0   0            0            0            
ST9	031222 0      0   0   0            0            0            


*031222 JUMPA	0,031223
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031222 031222 0   0   324000031223 0            000000031223 
IT1	031222 0      0   0   324000031223 0            000000031223 
AT3	031222 0      0   0   000000031223 0            324000031223 
AT6	031222 031223 0   0   000000031223 0            324000031223 
FT1A	031222 031223 0   0   000000031223 0            000000031223 
FT2	031222 031223 0   0   0            0            000000031223 
FT2RQ	031222 031223 0   0   0            0            000000031223 
FT3	031222 031223 0   0   0            0            000000031223 
FT9	031223 031223 0   0   0            0            000000031223 
ET0	031223 031223 0   0   0            0            000000031223 
ST1A	031223 031223 0   0   0            0            000000031223 
ST9	031223 031223 0   0   0            0            000000031223 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 75
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0354

*031223 MOVE 	0,035443
INITIAL
C(AC)=000000 000000 
C(E)=000010 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031223 031223 0   0   200000035443 0            000010000000 
IT1	031223 0      0   0   200000035443 0            000010000000 
AT3	031223 0      0   0   000000035443 0            200000035443 
AT6	031223 035443 0   0   000000035443 0            200000035443 
FT0	031223 035443 0   0   000010000000 0            200000035443 
FT1A	031223 035443 0   0   000010000000 0            000010000000 
FT9	031224 035443 0   0   000010000000 0            000010000000 
ET0	031224 035443 0   0   000010000000 0            000010000000 
ST1	031224 035443 0   0   000010000000 0            000010000000 
ST2	031224 035443 0   0   000010000000 0            000010000000 
ST9	031224 035443 0   0   000010000000 0            000010000000 


*031224 ADD 	0,035412
INITIAL
C(AC)=000010 000000 
C(E)=000000 000000 
FINAL
C(AC)=000010 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031224 031224 0   0   270000035412 0            0            
IT1	031224 0      0   0   270000035412 0            0            
AT3	031224 0      0   0   000000035412 0            270000035412 
AT6	031224 035412 0   0   000000035412 0            270000035412 
FT0	031224 035412 0   0   0            0            270000035412 
FT1A	031224 035412 0   0   0            0            0            
FT2	031224 035412 0   0   0            0            0            
FT2RQ	031224 035412 0   0   000010000000 0            0            
FT3	031224 035412 0   0   000010000000 0            0            
FT9	031225 035412 0   0   000010000000 0            0            
ET0	031225 035412 0   0   000010000000 0            0            
ST1	031225 035412 0   0   000010000000 0            0            
ST2	031225 035412 0   0   000010000000 0            0            
ST9	031225 035412 0   0   000010000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 76
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0355

*031225 EQV 	0,035443
INITIAL
C(AC)=000010 000000 
C(E)=000010 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031225 031225 0   0   444000035443 0            000010000000 
IT1	031225 0      0   0   444000035443 0            000010000000 
AT3	031225 0      0   0   000000035443 0            444000035443 
AT6	031225 035443 0   0   000000035443 0            444000035443 
FT0	031225 035443 0   0   000010000000 0            444000035443 
FT1A	031225 035443 0   0   000010000000 0            000010000000 
FT2	031225 035443 0   0   0            0            000010000000 
FT2RQ	031225 035443 0   0   000010000000 0            000010000000 
FT3	031225 035443 0   0   000010000000 0            000010000000 
FT9	031226 035443 0   0   000010000000 0            000010000000 
ET0	031226 035443 0   0   777777777777 0            000010000000 
ST1	031226 035443 0   0   777777777777 0            000010000000 
ST2	031226 035443 0   0   777777777777 0            000010000000 
ST9	031226 035443 0   0   777777777777 0            000010000000 


*031226 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031226 031226 0   0   444000035412 0            0            
IT1	031226 0      0   0   444000035412 0            0            
AT3	031226 0      0   0   000000035412 0            444000035412 
AT6	031226 035412 0   0   000000035412 0            444000035412 
FT0	031226 035412 0   0   0            0            444000035412 
FT1A	031226 035412 0   0   0            0            0            
FT2	031226 035412 0   0   0            0            0            
FT2RQ	031226 035412 0   0   777777777777 0            0            
FT3	031226 035412 0   0   777777777777 0            0            
FT9	031227 035412 0   0   777777777777 0            0            
ET0	031227 035412 0   0   0            0            0            
ST1	031227 035412 0   0   0            0            0            
ST2	031227 035412 0   0   0            0            0            
ST9	031227 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 77
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0356

*031227 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031227 031227 0   0   332000000000 0            0            
IT1	031227 0      0   0   332000000000 0            0            
AT3	031227 0      0   0   0            0            332000000000 
AT6	031227 0      0   0   0            0            332000000000 
FT0	031227 0      0   0   0            0            332000000000 
FT1A	031227 0      0   0   0            0            0            
FT9	031230 0      0   0   0            0            0            
ET0	031231 0      0   0   0            0            0            
ST1A	031231 0      0   0   0            0            0            
ST9	031231 0      0   0   0            0            0            


*031231 JUMPA	0,031232
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031231 031231 0   0   324000031232 0            000000031232 
IT1	031231 0      0   0   324000031232 0            000000031232 
AT3	031231 0      0   0   000000031232 0            324000031232 
AT6	031231 031232 0   0   000000031232 0            324000031232 
FT1A	031231 031232 0   0   000000031232 0            000000031232 
FT2	031231 031232 0   0   0            0            000000031232 
FT2RQ	031231 031232 0   0   0            0            000000031232 
FT3	031231 031232 0   0   0            0            000000031232 
FT9	031232 031232 0   0   0            0            000000031232 
ET0	031232 031232 0   0   0            0            000000031232 
ST1A	031232 031232 0   0   0            0            000000031232 
ST9	031232 031232 0   0   0            0            000000031232 


*031232 MOVE 	0,035444
INITIAL
C(AC)=000000 000000 
C(E)=000020 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031232 031232 0   0   200000035444 0            000020000000 
IT1	031232 0      0   0   200000035444 0            000020000000 
AT3	031232 0      0   0   000000035444 0            200000035444 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 78
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0357

AT6	031232 035444 0   0   000000035444 0            200000035444 
FT0	031232 035444 0   0   000020000000 0            200000035444 
FT1A	031232 035444 0   0   000020000000 0            000020000000 
FT9	031233 035444 0   0   000020000000 0            000020000000 
ET0	031233 035444 0   0   000020000000 0            000020000000 
ST1	031233 035444 0   0   000020000000 0            000020000000 
ST2	031233 035444 0   0   000020000000 0            000020000000 
ST9	031233 035444 0   0   000020000000 0            000020000000 


*031233 ADD 	0,035412
INITIAL
C(AC)=000020 000000 
C(E)=000000 000000 
FINAL
C(AC)=000020 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031233 031233 0   0   270000035412 0            0            
IT1	031233 0      0   0   270000035412 0            0            
AT3	031233 0      0   0   000000035412 0            270000035412 
AT6	031233 035412 0   0   000000035412 0            270000035412 
FT0	031233 035412 0   0   0            0            270000035412 
FT1A	031233 035412 0   0   0            0            0            
FT2	031233 035412 0   0   0            0            0            
FT2RQ	031233 035412 0   0   000020000000 0            0            
FT3	031233 035412 0   0   000020000000 0            0            
FT9	031234 035412 0   0   000020000000 0            0            
ET0	031234 035412 0   0   000020000000 0            0            
ST1	031234 035412 0   0   000020000000 0            0            
ST2	031234 035412 0   0   000020000000 0            0            
ST9	031234 035412 0   0   000020000000 0            0            


*031234 EQV 	0,035444
INITIAL
C(AC)=000020 000000 
C(E)=000020 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031234 031234 0   0   444000035444 0            000020000000 
IT1	031234 0      0   0   444000035444 0            000020000000 
AT3	031234 0      0   0   000000035444 0            444000035444 
AT6	031234 035444 0   0   000000035444 0            444000035444 
FT0	031234 035444 0   0   000020000000 0            444000035444 
FT1A	031234 035444 0   0   000020000000 0            000020000000 
FT2	031234 035444 0   0   0            0            000020000000 
FT2RQ	031234 035444 0   0   000020000000 0            000020000000 
FT3	031234 035444 0   0   000020000000 0            000020000000 
FT9	031235 035444 0   0   000020000000 0            000020000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 79
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0358

ET0	031235 035444 0   0   777777777777 0            000020000000 
ST1	031235 035444 0   0   777777777777 0            000020000000 
ST2	031235 035444 0   0   777777777777 0            000020000000 
ST9	031235 035444 0   0   777777777777 0            000020000000 


*031235 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031235 031235 0   0   444000035412 0            0            
IT1	031235 0      0   0   444000035412 0            0            
AT3	031235 0      0   0   000000035412 0            444000035412 
AT6	031235 035412 0   0   000000035412 0            444000035412 
FT0	031235 035412 0   0   0            0            444000035412 
FT1A	031235 035412 0   0   0            0            0            
FT2	031235 035412 0   0   0            0            0            
FT2RQ	031235 035412 0   0   777777777777 0            0            
FT3	031235 035412 0   0   777777777777 0            0            
FT9	031236 035412 0   0   777777777777 0            0            
ET0	031236 035412 0   0   0            0            0            
ST1	031236 035412 0   0   0            0            0            
ST2	031236 035412 0   0   0            0            0            
ST9	031236 035412 0   0   0            0            0            


*031236 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031236 031236 0   0   332000000000 0            0            
IT1	031236 0      0   0   332000000000 0            0            
AT3	031236 0      0   0   0            0            332000000000 
AT6	031236 0      0   0   0            0            332000000000 
FT0	031236 0      0   0   0            0            332000000000 
FT1A	031236 0      0   0   0            0            0            
FT9	031237 0      0   0   0            0            0            
ET0	031240 0      0   0   0            0            0            
ST1A	031240 0      0   0   0            0            0            
ST9	031240 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 80
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0359

*031240 JUMPA	0,031241
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031240 031240 0   0   324000031241 0            000000031241 
IT1	031240 0      0   0   324000031241 0            000000031241 
AT3	031240 0      0   0   000000031241 0            324000031241 
AT6	031240 031241 0   0   000000031241 0            324000031241 
FT1A	031240 031241 0   0   000000031241 0            000000031241 
FT2	031240 031241 0   0   0            0            000000031241 
FT2RQ	031240 031241 0   0   0            0            000000031241 
FT3	031240 031241 0   0   0            0            000000031241 
FT9	031241 031241 0   0   0            0            000000031241 
ET0	031241 031241 0   0   0            0            000000031241 
ST1A	031241 031241 0   0   0            0            000000031241 
ST9	031241 031241 0   0   0            0            000000031241 


*031241 MOVE 	0,035445
INITIAL
C(AC)=000000 000000 
C(E)=000040 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031241 031241 0   0   200000035445 0            000040000000 
IT1	031241 0      0   0   200000035445 0            000040000000 
AT3	031241 0      0   0   000000035445 0            200000035445 
AT6	031241 035445 0   0   000000035445 0            200000035445 
FT0	031241 035445 0   0   000040000000 0            200000035445 
FT1A	031241 035445 0   0   000040000000 0            000040000000 
FT9	031242 035445 0   0   000040000000 0            000040000000 
ET0	031242 035445 0   0   000040000000 0            000040000000 
ST1	031242 035445 0   0   000040000000 0            000040000000 
ST2	031242 035445 0   0   000040000000 0            000040000000 
ST9	031242 035445 0   0   000040000000 0            000040000000 


*031242 ADD 	0,035412
INITIAL
C(AC)=000040 000000 
C(E)=000000 000000 
FINAL
C(AC)=000040 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031242 031242 0   0   270000035412 0            0            
IT1	031242 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 81
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0360

AT3	031242 0      0   0   000000035412 0            270000035412 
AT6	031242 035412 0   0   000000035412 0            270000035412 
FT0	031242 035412 0   0   0            0            270000035412 
FT1A	031242 035412 0   0   0            0            0            
FT2	031242 035412 0   0   0            0            0            
FT2RQ	031242 035412 0   0   000040000000 0            0            
FT3	031242 035412 0   0   000040000000 0            0            
FT9	031243 035412 0   0   000040000000 0            0            
ET0	031243 035412 0   0   000040000000 0            0            
ST1	031243 035412 0   0   000040000000 0            0            
ST2	031243 035412 0   0   000040000000 0            0            
ST9	031243 035412 0   0   000040000000 0            0            


*031243 EQV 	0,035445
INITIAL
C(AC)=000040 000000 
C(E)=000040 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031243 031243 0   0   444000035445 0            000040000000 
IT1	031243 0      0   0   444000035445 0            000040000000 
AT3	031243 0      0   0   000000035445 0            444000035445 
AT6	031243 035445 0   0   000000035445 0            444000035445 
FT0	031243 035445 0   0   000040000000 0            444000035445 
FT1A	031243 035445 0   0   000040000000 0            000040000000 
FT2	031243 035445 0   0   0            0            000040000000 
FT2RQ	031243 035445 0   0   000040000000 0            000040000000 
FT3	031243 035445 0   0   000040000000 0            000040000000 
FT9	031244 035445 0   0   000040000000 0            000040000000 
ET0	031244 035445 0   0   777777777777 0            000040000000 
ST1	031244 035445 0   0   777777777777 0            000040000000 
ST2	031244 035445 0   0   777777777777 0            000040000000 
ST9	031244 035445 0   0   777777777777 0            000040000000 


*031244 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031244 031244 0   0   444000035412 0            0            
IT1	031244 0      0   0   444000035412 0            0            
AT3	031244 0      0   0   000000035412 0            444000035412 
AT6	031244 035412 0   0   000000035412 0            444000035412 
FT0	031244 035412 0   0   0            0            444000035412 
FT1A	031244 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 82
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0361

FT2	031244 035412 0   0   0            0            0            
FT2RQ	031244 035412 0   0   777777777777 0            0            
FT3	031244 035412 0   0   777777777777 0            0            
FT9	031245 035412 0   0   777777777777 0            0            
ET0	031245 035412 0   0   0            0            0            
ST1	031245 035412 0   0   0            0            0            
ST2	031245 035412 0   0   0            0            0            
ST9	031245 035412 0   0   0            0            0            


*031245 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031245 031245 0   0   332000000000 0            0            
IT1	031245 0      0   0   332000000000 0            0            
AT3	031245 0      0   0   0            0            332000000000 
AT6	031245 0      0   0   0            0            332000000000 
FT0	031245 0      0   0   0            0            332000000000 
FT1A	031245 0      0   0   0            0            0            
FT9	031246 0      0   0   0            0            0            
ET0	031247 0      0   0   0            0            0            
ST1A	031247 0      0   0   0            0            0            
ST9	031247 0      0   0   0            0            0            


*031247 JUMPA	0,031250
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031247 031247 0   0   324000031250 0            000000031250 
IT1	031247 0      0   0   324000031250 0            000000031250 
AT3	031247 0      0   0   000000031250 0            324000031250 
AT6	031247 031250 0   0   000000031250 0            324000031250 
FT1A	031247 031250 0   0   000000031250 0            000000031250 
FT2	031247 031250 0   0   0            0            000000031250 
FT2RQ	031247 031250 0   0   0            0            000000031250 
FT3	031247 031250 0   0   0            0            000000031250 
FT9	031250 031250 0   0   0            0            000000031250 
ET0	031250 031250 0   0   0            0            000000031250 
ST1A	031250 031250 0   0   0            0            000000031250 
ST9	031250 031250 0   0   0            0            000000031250 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 83
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0362

*031250 MOVE 	0,035446
INITIAL
C(AC)=000000 000000 
C(E)=000100 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031250 031250 0   0   200000035446 0            000100000000 
IT1	031250 0      0   0   200000035446 0            000100000000 
AT3	031250 0      0   0   000000035446 0            200000035446 
AT6	031250 035446 0   0   000000035446 0            200000035446 
FT0	031250 035446 0   0   000100000000 0            200000035446 
FT1A	031250 035446 0   0   000100000000 0            000100000000 
FT9	031251 035446 0   0   000100000000 0            000100000000 
ET0	031251 035446 0   0   000100000000 0            000100000000 
ST1	031251 035446 0   0   000100000000 0            000100000000 
ST2	031251 035446 0   0   000100000000 0            000100000000 
ST9	031251 035446 0   0   000100000000 0            000100000000 


*031251 ADD 	0,035412
INITIAL
C(AC)=000100 000000 
C(E)=000000 000000 
FINAL
C(AC)=000100 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031251 031251 0   0   270000035412 0            0            
IT1	031251 0      0   0   270000035412 0            0            
AT3	031251 0      0   0   000000035412 0            270000035412 
AT6	031251 035412 0   0   000000035412 0            270000035412 
FT0	031251 035412 0   0   0            0            270000035412 
FT1A	031251 035412 0   0   0            0            0            
FT2	031251 035412 0   0   0            0            0            
FT2RQ	031251 035412 0   0   000100000000 0            0            
FT3	031251 035412 0   0   000100000000 0            0            
FT9	031252 035412 0   0   000100000000 0            0            
ET0	031252 035412 0   0   000100000000 0            0            
ST1	031252 035412 0   0   000100000000 0            0            
ST2	031252 035412 0   0   000100000000 0            0            
ST9	031252 035412 0   0   000100000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 84
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0363

*031252 EQV 	0,035446
INITIAL
C(AC)=000100 000000 
C(E)=000100 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031252 031252 0   0   444000035446 0            000100000000 
IT1	031252 0      0   0   444000035446 0            000100000000 
AT3	031252 0      0   0   000000035446 0            444000035446 
AT6	031252 035446 0   0   000000035446 0            444000035446 
FT0	031252 035446 0   0   000100000000 0            444000035446 
FT1A	031252 035446 0   0   000100000000 0            000100000000 
FT2	031252 035446 0   0   0            0            000100000000 
FT2RQ	031252 035446 0   0   000100000000 0            000100000000 
FT3	031252 035446 0   0   000100000000 0            000100000000 
FT9	031253 035446 0   0   000100000000 0            000100000000 
ET0	031253 035446 0   0   777777777777 0            000100000000 
ST1	031253 035446 0   0   777777777777 0            000100000000 
ST2	031253 035446 0   0   777777777777 0            000100000000 
ST9	031253 035446 0   0   777777777777 0            000100000000 


*031253 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031253 031253 0   0   444000035412 0            0            
IT1	031253 0      0   0   444000035412 0            0            
AT3	031253 0      0   0   000000035412 0            444000035412 
AT6	031253 035412 0   0   000000035412 0            444000035412 
FT0	031253 035412 0   0   0            0            444000035412 
FT1A	031253 035412 0   0   0            0            0            
FT2	031253 035412 0   0   0            0            0            
FT2RQ	031253 035412 0   0   777777777777 0            0            
FT3	031253 035412 0   0   777777777777 0            0            
FT9	031254 035412 0   0   777777777777 0            0            
ET0	031254 035412 0   0   0            0            0            
ST1	031254 035412 0   0   0            0            0            
ST2	031254 035412 0   0   0            0            0            
ST9	031254 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 85
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0364

*031254 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031254 031254 0   0   332000000000 0            0            
IT1	031254 0      0   0   332000000000 0            0            
AT3	031254 0      0   0   0            0            332000000000 
AT6	031254 0      0   0   0            0            332000000000 
FT0	031254 0      0   0   0            0            332000000000 
FT1A	031254 0      0   0   0            0            0            
FT9	031255 0      0   0   0            0            0            
ET0	031256 0      0   0   0            0            0            
ST1A	031256 0      0   0   0            0            0            
ST9	031256 0      0   0   0            0            0            


*031256 JUMPA	0,031257
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031256 031256 0   0   324000031257 0            000000031257 
IT1	031256 0      0   0   324000031257 0            000000031257 
AT3	031256 0      0   0   000000031257 0            324000031257 
AT6	031256 031257 0   0   000000031257 0            324000031257 
FT1A	031256 031257 0   0   000000031257 0            000000031257 
FT2	031256 031257 0   0   0            0            000000031257 
FT2RQ	031256 031257 0   0   0            0            000000031257 
FT3	031256 031257 0   0   0            0            000000031257 
FT9	031257 031257 0   0   0            0            000000031257 
ET0	031257 031257 0   0   0            0            000000031257 
ST1A	031257 031257 0   0   0            0            000000031257 
ST9	031257 031257 0   0   0            0            000000031257 


*031257 MOVE 	0,035447
INITIAL
C(AC)=000000 000000 
C(E)=000200 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031257 031257 0   0   200000035447 0            000200000000 
IT1	031257 0      0   0   200000035447 0            000200000000 
AT3	031257 0      0   0   000000035447 0            200000035447 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 86
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0365

AT6	031257 035447 0   0   000000035447 0            200000035447 
FT0	031257 035447 0   0   000200000000 0            200000035447 
FT1A	031257 035447 0   0   000200000000 0            000200000000 
FT9	031260 035447 0   0   000200000000 0            000200000000 
ET0	031260 035447 0   0   000200000000 0            000200000000 
ST1	031260 035447 0   0   000200000000 0            000200000000 
ST2	031260 035447 0   0   000200000000 0            000200000000 
ST9	031260 035447 0   0   000200000000 0            000200000000 


*031260 ADD 	0,035412
INITIAL
C(AC)=000200 000000 
C(E)=000000 000000 
FINAL
C(AC)=000200 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031260 031260 0   0   270000035412 0            0            
IT1	031260 0      0   0   270000035412 0            0            
AT3	031260 0      0   0   000000035412 0            270000035412 
AT6	031260 035412 0   0   000000035412 0            270000035412 
FT0	031260 035412 0   0   0            0            270000035412 
FT1A	031260 035412 0   0   0            0            0            
FT2	031260 035412 0   0   0            0            0            
FT2RQ	031260 035412 0   0   000200000000 0            0            
FT3	031260 035412 0   0   000200000000 0            0            
FT9	031261 035412 0   0   000200000000 0            0            
ET0	031261 035412 0   0   000200000000 0            0            
ST1	031261 035412 0   0   000200000000 0            0            
ST2	031261 035412 0   0   000200000000 0            0            
ST9	031261 035412 0   0   000200000000 0            0            


*031261 EQV 	0,035447
INITIAL
C(AC)=000200 000000 
C(E)=000200 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031261 031261 0   0   444000035447 0            000200000000 
IT1	031261 0      0   0   444000035447 0            000200000000 
AT3	031261 0      0   0   000000035447 0            444000035447 
AT6	031261 035447 0   0   000000035447 0            444000035447 
FT0	031261 035447 0   0   000200000000 0            444000035447 
FT1A	031261 035447 0   0   000200000000 0            000200000000 
FT2	031261 035447 0   0   0            0            000200000000 
FT2RQ	031261 035447 0   0   000200000000 0            000200000000 
FT3	031261 035447 0   0   000200000000 0            000200000000 
FT9	031262 035447 0   0   000200000000 0            000200000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 87
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0366

ET0	031262 035447 0   0   777777777777 0            000200000000 
ST1	031262 035447 0   0   777777777777 0            000200000000 
ST2	031262 035447 0   0   777777777777 0            000200000000 
ST9	031262 035447 0   0   777777777777 0            000200000000 


*031262 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031262 031262 0   0   444000035412 0            0            
IT1	031262 0      0   0   444000035412 0            0            
AT3	031262 0      0   0   000000035412 0            444000035412 
AT6	031262 035412 0   0   000000035412 0            444000035412 
FT0	031262 035412 0   0   0            0            444000035412 
FT1A	031262 035412 0   0   0            0            0            
FT2	031262 035412 0   0   0            0            0            
FT2RQ	031262 035412 0   0   777777777777 0            0            
FT3	031262 035412 0   0   777777777777 0            0            
FT9	031263 035412 0   0   777777777777 0            0            
ET0	031263 035412 0   0   0            0            0            
ST1	031263 035412 0   0   0            0            0            
ST2	031263 035412 0   0   0            0            0            
ST9	031263 035412 0   0   0            0            0            


*031263 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031263 031263 0   0   332000000000 0            0            
IT1	031263 0      0   0   332000000000 0            0            
AT3	031263 0      0   0   0            0            332000000000 
AT6	031263 0      0   0   0            0            332000000000 
FT0	031263 0      0   0   0            0            332000000000 
FT1A	031263 0      0   0   0            0            0            
FT9	031264 0      0   0   0            0            0            
ET0	031265 0      0   0   0            0            0            
ST1A	031265 0      0   0   0            0            0            
ST9	031265 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 88
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0367

*031265 JUMPA	0,031266
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031265 031265 0   0   324000031266 0            000000031266 
IT1	031265 0      0   0   324000031266 0            000000031266 
AT3	031265 0      0   0   000000031266 0            324000031266 
AT6	031265 031266 0   0   000000031266 0            324000031266 
FT1A	031265 031266 0   0   000000031266 0            000000031266 
FT2	031265 031266 0   0   0            0            000000031266 
FT2RQ	031265 031266 0   0   0            0            000000031266 
FT3	031265 031266 0   0   0            0            000000031266 
FT9	031266 031266 0   0   0            0            000000031266 
ET0	031266 031266 0   0   0            0            000000031266 
ST1A	031266 031266 0   0   0            0            000000031266 
ST9	031266 031266 0   0   0            0            000000031266 


*031266 MOVE 	0,035450
INITIAL
C(AC)=000000 000000 
C(E)=000400 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031266 031266 0   0   200000035450 0            000400000000 
IT1	031266 0      0   0   200000035450 0            000400000000 
AT3	031266 0      0   0   000000035450 0            200000035450 
AT6	031266 035450 0   0   000000035450 0            200000035450 
FT0	031266 035450 0   0   000400000000 0            200000035450 
FT1A	031266 035450 0   0   000400000000 0            000400000000 
FT9	031267 035450 0   0   000400000000 0            000400000000 
ET0	031267 035450 0   0   000400000000 0            000400000000 
ST1	031267 035450 0   0   000400000000 0            000400000000 
ST2	031267 035450 0   0   000400000000 0            000400000000 
ST9	031267 035450 0   0   000400000000 0            000400000000 


*031267 ADD 	0,035412
INITIAL
C(AC)=000400 000000 
C(E)=000000 000000 
FINAL
C(AC)=000400 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031267 031267 0   0   270000035412 0            0            
IT1	031267 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 89
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0368

AT3	031267 0      0   0   000000035412 0            270000035412 
AT6	031267 035412 0   0   000000035412 0            270000035412 
FT0	031267 035412 0   0   0            0            270000035412 
FT1A	031267 035412 0   0   0            0            0            
FT2	031267 035412 0   0   0            0            0            
FT2RQ	031267 035412 0   0   000400000000 0            0            
FT3	031267 035412 0   0   000400000000 0            0            
FT9	031270 035412 0   0   000400000000 0            0            
ET0	031270 035412 0   0   000400000000 0            0            
ST1	031270 035412 0   0   000400000000 0            0            
ST2	031270 035412 0   0   000400000000 0            0            
ST9	031270 035412 0   0   000400000000 0            0            


*031270 EQV 	0,035450
INITIAL
C(AC)=000400 000000 
C(E)=000400 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031270 031270 0   0   444000035450 0            000400000000 
IT1	031270 0      0   0   444000035450 0            000400000000 
AT3	031270 0      0   0   000000035450 0            444000035450 
AT6	031270 035450 0   0   000000035450 0            444000035450 
FT0	031270 035450 0   0   000400000000 0            444000035450 
FT1A	031270 035450 0   0   000400000000 0            000400000000 
FT2	031270 035450 0   0   0            0            000400000000 
FT2RQ	031270 035450 0   0   000400000000 0            000400000000 
FT3	031270 035450 0   0   000400000000 0            000400000000 
FT9	031271 035450 0   0   000400000000 0            000400000000 
ET0	031271 035450 0   0   777777777777 0            000400000000 
ST1	031271 035450 0   0   777777777777 0            000400000000 
ST2	031271 035450 0   0   777777777777 0            000400000000 
ST9	031271 035450 0   0   777777777777 0            000400000000 


*031271 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031271 031271 0   0   444000035412 0            0            
IT1	031271 0      0   0   444000035412 0            0            
AT3	031271 0      0   0   000000035412 0            444000035412 
AT6	031271 035412 0   0   000000035412 0            444000035412 
FT0	031271 035412 0   0   0            0            444000035412 
FT1A	031271 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 90
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0369

FT2	031271 035412 0   0   0            0            0            
FT2RQ	031271 035412 0   0   777777777777 0            0            
FT3	031271 035412 0   0   777777777777 0            0            
FT9	031272 035412 0   0   777777777777 0            0            
ET0	031272 035412 0   0   0            0            0            
ST1	031272 035412 0   0   0            0            0            
ST2	031272 035412 0   0   0            0            0            
ST9	031272 035412 0   0   0            0            0            


*031272 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031272 031272 0   0   332000000000 0            0            
IT1	031272 0      0   0   332000000000 0            0            
AT3	031272 0      0   0   0            0            332000000000 
AT6	031272 0      0   0   0            0            332000000000 
FT0	031272 0      0   0   0            0            332000000000 
FT1A	031272 0      0   0   0            0            0            
FT9	031273 0      0   0   0            0            0            
ET0	031274 0      0   0   0            0            0            
ST1A	031274 0      0   0   0            0            0            
ST9	031274 0      0   0   0            0            0            


*031274 JUMPA	0,031275
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031274 031274 0   0   324000031275 0            000000031275 
IT1	031274 0      0   0   324000031275 0            000000031275 
AT3	031274 0      0   0   000000031275 0            324000031275 
AT6	031274 031275 0   0   000000031275 0            324000031275 
FT1A	031274 031275 0   0   000000031275 0            000000031275 
FT2	031274 031275 0   0   0            0            000000031275 
FT2RQ	031274 031275 0   0   0            0            000000031275 
FT3	031274 031275 0   0   0            0            000000031275 
FT9	031275 031275 0   0   0            0            000000031275 
ET0	031275 031275 0   0   0            0            000000031275 
ST1A	031275 031275 0   0   0            0            000000031275 
ST9	031275 031275 0   0   0            0            000000031275 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 91
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0370

*031275 MOVE 	0,035451
INITIAL
C(AC)=000000 000000 
C(E)=001000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031275 031275 0   0   200000035451 0            001000000000 
IT1	031275 0      0   0   200000035451 0            001000000000 
AT3	031275 0      0   0   000000035451 0            200000035451 
AT6	031275 035451 0   0   000000035451 0            200000035451 
FT0	031275 035451 0   0   001000000000 0            200000035451 
FT1A	031275 035451 0   0   001000000000 0            001000000000 
FT9	031276 035451 0   0   001000000000 0            001000000000 
ET0	031276 035451 0   0   001000000000 0            001000000000 
ST1	031276 035451 0   0   001000000000 0            001000000000 
ST2	031276 035451 0   0   001000000000 0            001000000000 
ST9	031276 035451 0   0   001000000000 0            001000000000 


*031276 ADD 	0,035412
INITIAL
C(AC)=001000 000000 
C(E)=000000 000000 
FINAL
C(AC)=001000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031276 031276 0   0   270000035412 0            0            
IT1	031276 0      0   0   270000035412 0            0            
AT3	031276 0      0   0   000000035412 0            270000035412 
AT6	031276 035412 0   0   000000035412 0            270000035412 
FT0	031276 035412 0   0   0            0            270000035412 
FT1A	031276 035412 0   0   0            0            0            
FT2	031276 035412 0   0   0            0            0            
FT2RQ	031276 035412 0   0   001000000000 0            0            
FT3	031276 035412 0   0   001000000000 0            0            
FT9	031277 035412 0   0   001000000000 0            0            
ET0	031277 035412 0   0   001000000000 0            0            
ST1	031277 035412 0   0   001000000000 0            0            
ST2	031277 035412 0   0   001000000000 0            0            
ST9	031277 035412 0   0   001000000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 92
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0371

*031277 EQV 	0,035451
INITIAL
C(AC)=001000 000000 
C(E)=001000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031277 031277 0   0   444000035451 0            001000000000 
IT1	031277 0      0   0   444000035451 0            001000000000 
AT3	031277 0      0   0   000000035451 0            444000035451 
AT6	031277 035451 0   0   000000035451 0            444000035451 
FT0	031277 035451 0   0   001000000000 0            444000035451 
FT1A	031277 035451 0   0   001000000000 0            001000000000 
FT2	031277 035451 0   0   0            0            001000000000 
FT2RQ	031277 035451 0   0   001000000000 0            001000000000 
FT3	031277 035451 0   0   001000000000 0            001000000000 
FT9	0      035451 0   0   001000000000 0            001000000000 
ET0	0      035451 0   0   777777777777 0            001000000000 
ST1	0      035451 0   0   777777777777 0            001000000000 
ST2	0      035451 0   0   777777777777 0            001000000000 
ST9	0      035451 0   0   777777777777 0            001000000000 


*031300 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   444000035412 0            0            
IT1	0      0      0   0   444000035412 0            0            
AT3	0      0      0   0   000000035412 0            444000035412 
AT6	0      035412 0   0   000000035412 0            444000035412 
FT0	0      035412 0   0   0            0            444000035412 
FT1A	0      035412 0   0   0            0            0            
FT2	0      035412 0   0   0            0            0            
FT2RQ	0      035412 0   0   777777777777 0            0            
FT3	0      035412 0   0   777777777777 0            0            
FT9	031301 035412 0   0   777777777777 0            0            
ET0	031301 035412 0   0   0            0            0            
ST1	031301 035412 0   0   0            0            0            
ST2	031301 035412 0   0   0            0            0            
ST9	031301 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 93
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0372

*031301 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031301 031301 0   0   332000000000 0            0            
IT1	031301 0      0   0   332000000000 0            0            
AT3	031301 0      0   0   0            0            332000000000 
AT6	031301 0      0   0   0            0            332000000000 
FT0	031301 0      0   0   0            0            332000000000 
FT1A	031301 0      0   0   0            0            0            
FT9	031302 0      0   0   0            0            0            
ET0	031303 0      0   0   0            0            0            
ST1A	031303 0      0   0   0            0            0            
ST9	031303 0      0   0   0            0            0            


*031303 JUMPA	0,031304
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031303 031303 0   0   324000031304 0            000000031304 
IT1	031303 0      0   0   324000031304 0            000000031304 
AT3	031303 0      0   0   000000031304 0            324000031304 
AT6	031303 031304 0   0   000000031304 0            324000031304 
FT1A	031303 031304 0   0   000000031304 0            000000031304 
FT2	031303 031304 0   0   0            0            000000031304 
FT2RQ	031303 031304 0   0   0            0            000000031304 
FT3	031303 031304 0   0   0            0            000000031304 
FT9	031304 031304 0   0   0            0            000000031304 
ET0	031304 031304 0   0   0            0            000000031304 
ST1A	031304 031304 0   0   0            0            000000031304 
ST9	031304 031304 0   0   0            0            000000031304 


*031304 MOVE 	0,035452
INITIAL
C(AC)=000000 000000 
C(E)=002000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031304 031304 0   0   200000035452 0            002000000000 
IT1	031304 0      0   0   200000035452 0            002000000000 
AT3	031304 0      0   0   000000035452 0            200000035452 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 94
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0373

AT6	031304 035452 0   0   000000035452 0            200000035452 
FT0	031304 035452 0   0   002000000000 0            200000035452 
FT1A	031304 035452 0   0   002000000000 0            002000000000 
FT9	031305 035452 0   0   002000000000 0            002000000000 
ET0	031305 035452 0   0   002000000000 0            002000000000 
ST1	031305 035452 0   0   002000000000 0            002000000000 
ST2	031305 035452 0   0   002000000000 0            002000000000 
ST9	031305 035452 0   0   002000000000 0            002000000000 


*031305 ADD 	0,035412
INITIAL
C(AC)=002000 000000 
C(E)=000000 000000 
FINAL
C(AC)=002000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031305 031305 0   0   270000035412 0            0            
IT1	031305 0      0   0   270000035412 0            0            
AT3	031305 0      0   0   000000035412 0            270000035412 
AT6	031305 035412 0   0   000000035412 0            270000035412 
FT0	031305 035412 0   0   0            0            270000035412 
FT1A	031305 035412 0   0   0            0            0            
FT2	031305 035412 0   0   0            0            0            
FT2RQ	031305 035412 0   0   002000000000 0            0            
FT3	031305 035412 0   0   002000000000 0            0            
FT9	031306 035412 0   0   002000000000 0            0            
ET0	031306 035412 0   0   002000000000 0            0            
ST1	031306 035412 0   0   002000000000 0            0            
ST2	031306 035412 0   0   002000000000 0            0            
ST9	031306 035412 0   0   002000000000 0            0            


*031306 EQV 	0,035452
INITIAL
C(AC)=002000 000000 
C(E)=002000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031306 031306 0   0   444000035452 0            002000000000 
IT1	031306 0      0   0   444000035452 0            002000000000 
AT3	031306 0      0   0   000000035452 0            444000035452 
AT6	031306 035452 0   0   000000035452 0            444000035452 
FT0	031306 035452 0   0   002000000000 0            444000035452 
FT1A	031306 035452 0   0   002000000000 0            002000000000 
FT2	031306 035452 0   0   0            0            002000000000 
FT2RQ	031306 035452 0   0   002000000000 0            002000000000 
FT3	031306 035452 0   0   002000000000 0            002000000000 
FT9	031307 035452 0   0   002000000000 0            002000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 95
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0374

ET0	031307 035452 0   0   777777777777 0            002000000000 
ST1	031307 035452 0   0   777777777777 0            002000000000 
ST2	031307 035452 0   0   777777777777 0            002000000000 
ST9	031307 035452 0   0   777777777777 0            002000000000 


*031307 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031307 031307 0   0   444000035412 0            0            
IT1	031307 0      0   0   444000035412 0            0            
AT3	031307 0      0   0   000000035412 0            444000035412 
AT6	031307 035412 0   0   000000035412 0            444000035412 
FT0	031307 035412 0   0   0            0            444000035412 
FT1A	031307 035412 0   0   0            0            0            
FT2	031307 035412 0   0   0            0            0            
FT2RQ	031307 035412 0   0   777777777777 0            0            
FT3	031307 035412 0   0   777777777777 0            0            
FT9	031310 035412 0   0   777777777777 0            0            
ET0	031310 035412 0   0   0            0            0            
ST1	031310 035412 0   0   0            0            0            
ST2	031310 035412 0   0   0            0            0            
ST9	031310 035412 0   0   0            0            0            


*031310 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031310 031310 0   0   332000000000 0            0            
IT1	031310 0      0   0   332000000000 0            0            
AT3	031310 0      0   0   0            0            332000000000 
AT6	031310 0      0   0   0            0            332000000000 
FT0	031310 0      0   0   0            0            332000000000 
FT1A	031310 0      0   0   0            0            0            
FT9	031311 0      0   0   0            0            0            
ET0	031312 0      0   0   0            0            0            
ST1A	031312 0      0   0   0            0            0            
ST9	031312 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 96
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0375

*031312 JUMPA	0,031313
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031312 031312 0   0   324000031313 0            000000031313 
IT1	031312 0      0   0   324000031313 0            000000031313 
AT3	031312 0      0   0   000000031313 0            324000031313 
AT6	031312 031313 0   0   000000031313 0            324000031313 
FT1A	031312 031313 0   0   000000031313 0            000000031313 
FT2	031312 031313 0   0   0            0            000000031313 
FT2RQ	031312 031313 0   0   0            0            000000031313 
FT3	031312 031313 0   0   0            0            000000031313 
FT9	031313 031313 0   0   0            0            000000031313 
ET0	031313 031313 0   0   0            0            000000031313 
ST1A	031313 031313 0   0   0            0            000000031313 
ST9	031313 031313 0   0   0            0            000000031313 


*031313 MOVE 	0,035453
INITIAL
C(AC)=000000 000000 
C(E)=004000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031313 031313 0   0   200000035453 0            004000000000 
IT1	031313 0      0   0   200000035453 0            004000000000 
AT3	031313 0      0   0   000000035453 0            200000035453 
AT6	031313 035453 0   0   000000035453 0            200000035453 
FT0	031313 035453 0   0   004000000000 0            200000035453 
FT1A	031313 035453 0   0   004000000000 0            004000000000 
FT9	031314 035453 0   0   004000000000 0            004000000000 
ET0	031314 035453 0   0   004000000000 0            004000000000 
ST1	031314 035453 0   0   004000000000 0            004000000000 
ST2	031314 035453 0   0   004000000000 0            004000000000 
ST9	031314 035453 0   0   004000000000 0            004000000000 


*031314 ADD 	0,035412
INITIAL
C(AC)=004000 000000 
C(E)=000000 000000 
FINAL
C(AC)=004000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031314 031314 0   0   270000035412 0            0            
IT1	031314 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 97
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0376

AT3	031314 0      0   0   000000035412 0            270000035412 
AT6	031314 035412 0   0   000000035412 0            270000035412 
FT0	031314 035412 0   0   0            0            270000035412 
FT1A	031314 035412 0   0   0            0            0            
FT2	031314 035412 0   0   0            0            0            
FT2RQ	031314 035412 0   0   004000000000 0            0            
FT3	031314 035412 0   0   004000000000 0            0            
FT9	031315 035412 0   0   004000000000 0            0            
ET0	031315 035412 0   0   004000000000 0            0            
ST1	031315 035412 0   0   004000000000 0            0            
ST2	031315 035412 0   0   004000000000 0            0            
ST9	031315 035412 0   0   004000000000 0            0            


*031315 EQV 	0,035453
INITIAL
C(AC)=004000 000000 
C(E)=004000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031315 031315 0   0   444000035453 0            004000000000 
IT1	031315 0      0   0   444000035453 0            004000000000 
AT3	031315 0      0   0   000000035453 0            444000035453 
AT6	031315 035453 0   0   000000035453 0            444000035453 
FT0	031315 035453 0   0   004000000000 0            444000035453 
FT1A	031315 035453 0   0   004000000000 0            004000000000 
FT2	031315 035453 0   0   0            0            004000000000 
FT2RQ	031315 035453 0   0   004000000000 0            004000000000 
FT3	031315 035453 0   0   004000000000 0            004000000000 
FT9	031316 035453 0   0   004000000000 0            004000000000 
ET0	031316 035453 0   0   777777777777 0            004000000000 
ST1	031316 035453 0   0   777777777777 0            004000000000 
ST2	031316 035453 0   0   777777777777 0            004000000000 
ST9	031316 035453 0   0   777777777777 0            004000000000 


*031316 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031316 031316 0   0   444000035412 0            0            
IT1	031316 0      0   0   444000035412 0            0            
AT3	031316 0      0   0   000000035412 0            444000035412 
AT6	031316 035412 0   0   000000035412 0            444000035412 
FT0	031316 035412 0   0   0            0            444000035412 
FT1A	031316 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 98
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0377

FT2	031316 035412 0   0   0            0            0            
FT2RQ	031316 035412 0   0   777777777777 0            0            
FT3	031316 035412 0   0   777777777777 0            0            
FT9	031317 035412 0   0   777777777777 0            0            
ET0	031317 035412 0   0   0            0            0            
ST1	031317 035412 0   0   0            0            0            
ST2	031317 035412 0   0   0            0            0            
ST9	031317 035412 0   0   0            0            0            


*031317 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031317 031317 0   0   332000000000 0            0            
IT1	031317 0      0   0   332000000000 0            0            
AT3	031317 0      0   0   0            0            332000000000 
AT6	031317 0      0   0   0            0            332000000000 
FT0	031317 0      0   0   0            0            332000000000 
FT1A	031317 0      0   0   0            0            0            
FT9	031320 0      0   0   0            0            0            
ET0	031321 0      0   0   0            0            0            
ST1A	031321 0      0   0   0            0            0            
ST9	031321 0      0   0   0            0            0            


*031321 JUMPA	0,031322
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031321 031321 0   0   324000031322 0            000000031322 
IT1	031321 0      0   0   324000031322 0            000000031322 
AT3	031321 0      0   0   000000031322 0            324000031322 
AT6	031321 031322 0   0   000000031322 0            324000031322 
FT1A	031321 031322 0   0   000000031322 0            000000031322 
FT2	031321 031322 0   0   0            0            000000031322 
FT2RQ	031321 031322 0   0   0            0            000000031322 
FT3	031321 031322 0   0   0            0            000000031322 
FT9	031322 031322 0   0   0            0            000000031322 
ET0	031322 031322 0   0   0            0            000000031322 
ST1A	031322 031322 0   0   0            0            000000031322 
ST9	031322 031322 0   0   0            0            000000031322 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 99
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0378

*031322 MOVE 	0,035454
INITIAL
C(AC)=000000 000000 
C(E)=010000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031322 031322 0   0   200000035454 0            010000000000 
IT1	031322 0      0   0   200000035454 0            010000000000 
AT3	031322 0      0   0   000000035454 0            200000035454 
AT6	031322 035454 0   0   000000035454 0            200000035454 
FT0	031322 035454 0   0   010000000000 0            200000035454 
FT1A	031322 035454 0   0   010000000000 0            010000000000 
FT9	031323 035454 0   0   010000000000 0            010000000000 
ET0	031323 035454 0   0   010000000000 0            010000000000 
ST1	031323 035454 0   0   010000000000 0            010000000000 
ST2	031323 035454 0   0   010000000000 0            010000000000 
ST9	031323 035454 0   0   010000000000 0            010000000000 


*031323 ADD 	0,035412
INITIAL
C(AC)=010000 000000 
C(E)=000000 000000 
FINAL
C(AC)=010000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031323 031323 0   0   270000035412 0            0            
IT1	031323 0      0   0   270000035412 0            0            
AT3	031323 0      0   0   000000035412 0            270000035412 
AT6	031323 035412 0   0   000000035412 0            270000035412 
FT0	031323 035412 0   0   0            0            270000035412 
FT1A	031323 035412 0   0   0            0            0            
FT2	031323 035412 0   0   0            0            0            
FT2RQ	031323 035412 0   0   010000000000 0            0            
FT3	031323 035412 0   0   010000000000 0            0            
FT9	031324 035412 0   0   010000000000 0            0            
ET0	031324 035412 0   0   010000000000 0            0            
ST1	031324 035412 0   0   010000000000 0            0            
ST2	031324 035412 0   0   010000000000 0            0            
ST9	031324 035412 0   0   010000000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 100
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0379

*031324 EQV 	0,035454
INITIAL
C(AC)=010000 000000 
C(E)=010000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031324 031324 0   0   444000035454 0            010000000000 
IT1	031324 0      0   0   444000035454 0            010000000000 
AT3	031324 0      0   0   000000035454 0            444000035454 
AT6	031324 035454 0   0   000000035454 0            444000035454 
FT0	031324 035454 0   0   010000000000 0            444000035454 
FT1A	031324 035454 0   0   010000000000 0            010000000000 
FT2	031324 035454 0   0   0            0            010000000000 
FT2RQ	031324 035454 0   0   010000000000 0            010000000000 
FT3	031324 035454 0   0   010000000000 0            010000000000 
FT9	031325 035454 0   0   010000000000 0            010000000000 
ET0	031325 035454 0   0   777777777777 0            010000000000 
ST1	031325 035454 0   0   777777777777 0            010000000000 
ST2	031325 035454 0   0   777777777777 0            010000000000 
ST9	031325 035454 0   0   777777777777 0            010000000000 


*031325 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031325 031325 0   0   444000035412 0            0            
IT1	031325 0      0   0   444000035412 0            0            
AT3	031325 0      0   0   000000035412 0            444000035412 
AT6	031325 035412 0   0   000000035412 0            444000035412 
FT0	031325 035412 0   0   0            0            444000035412 
FT1A	031325 035412 0   0   0            0            0            
FT2	031325 035412 0   0   0            0            0            
FT2RQ	031325 035412 0   0   777777777777 0            0            
FT3	031325 035412 0   0   777777777777 0            0            
FT9	031326 035412 0   0   777777777777 0            0            
ET0	031326 035412 0   0   0            0            0            
ST1	031326 035412 0   0   0            0            0            
ST2	031326 035412 0   0   0            0            0            
ST9	031326 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 101
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0380

*031326 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031326 031326 0   0   332000000000 0            0            
IT1	031326 0      0   0   332000000000 0            0            
AT3	031326 0      0   0   0            0            332000000000 
AT6	031326 0      0   0   0            0            332000000000 
FT0	031326 0      0   0   0            0            332000000000 
FT1A	031326 0      0   0   0            0            0            
FT9	031327 0      0   0   0            0            0            
ET0	031330 0      0   0   0            0            0            
ST1A	031330 0      0   0   0            0            0            
ST9	031330 0      0   0   0            0            0            


*031330 JUMPA	0,031331
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031330 031330 0   0   324000031331 0            000000031331 
IT1	031330 0      0   0   324000031331 0            000000031331 
AT3	031330 0      0   0   000000031331 0            324000031331 
AT6	031330 031331 0   0   000000031331 0            324000031331 
FT1A	031330 031331 0   0   000000031331 0            000000031331 
FT2	031330 031331 0   0   0            0            000000031331 
FT2RQ	031330 031331 0   0   0            0            000000031331 
FT3	031330 031331 0   0   0            0            000000031331 
FT9	031331 031331 0   0   0            0            000000031331 
ET0	031331 031331 0   0   0            0            000000031331 
ST1A	031331 031331 0   0   0            0            000000031331 
ST9	031331 031331 0   0   0            0            000000031331 


*031331 MOVE 	0,035455
INITIAL
C(AC)=000000 000000 
C(E)=020000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031331 031331 0   0   200000035455 0            020000000000 
IT1	031331 0      0   0   200000035455 0            020000000000 
AT3	031331 0      0   0   000000035455 0            200000035455 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 102
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0381

AT6	031331 035455 0   0   000000035455 0            200000035455 
FT0	031331 035455 0   0   020000000000 0            200000035455 
FT1A	031331 035455 0   0   020000000000 0            020000000000 
FT9	031332 035455 0   0   020000000000 0            020000000000 
ET0	031332 035455 0   0   020000000000 0            020000000000 
ST1	031332 035455 0   0   020000000000 0            020000000000 
ST2	031332 035455 0   0   020000000000 0            020000000000 
ST9	031332 035455 0   0   020000000000 0            020000000000 


*031332 ADD 	0,035412
INITIAL
C(AC)=020000 000000 
C(E)=000000 000000 
FINAL
C(AC)=020000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031332 031332 0   0   270000035412 0            0            
IT1	031332 0      0   0   270000035412 0            0            
AT3	031332 0      0   0   000000035412 0            270000035412 
AT6	031332 035412 0   0   000000035412 0            270000035412 
FT0	031332 035412 0   0   0            0            270000035412 
FT1A	031332 035412 0   0   0            0            0            
FT2	031332 035412 0   0   0            0            0            
FT2RQ	031332 035412 0   0   020000000000 0            0            
FT3	031332 035412 0   0   020000000000 0            0            
FT9	031333 035412 0   0   020000000000 0            0            
ET0	031333 035412 0   0   020000000000 0            0            
ST1	031333 035412 0   0   020000000000 0            0            
ST2	031333 035412 0   0   020000000000 0            0            
ST9	031333 035412 0   0   020000000000 0            0            


*031333 EQV 	0,035455
INITIAL
C(AC)=020000 000000 
C(E)=020000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031333 031333 0   0   444000035455 0            020000000000 
IT1	031333 0      0   0   444000035455 0            020000000000 
AT3	031333 0      0   0   000000035455 0            444000035455 
AT6	031333 035455 0   0   000000035455 0            444000035455 
FT0	031333 035455 0   0   020000000000 0            444000035455 
FT1A	031333 035455 0   0   020000000000 0            020000000000 
FT2	031333 035455 0   0   0            0            020000000000 
FT2RQ	031333 035455 0   0   020000000000 0            020000000000 
FT3	031333 035455 0   0   020000000000 0            020000000000 
FT9	031334 035455 0   0   020000000000 0            020000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 103
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0382

ET0	031334 035455 0   0   777777777777 0            020000000000 
ST1	031334 035455 0   0   777777777777 0            020000000000 
ST2	031334 035455 0   0   777777777777 0            020000000000 
ST9	031334 035455 0   0   777777777777 0            020000000000 


*031334 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031334 031334 0   0   444000035412 0            0            
IT1	031334 0      0   0   444000035412 0            0            
AT3	031334 0      0   0   000000035412 0            444000035412 
AT6	031334 035412 0   0   000000035412 0            444000035412 
FT0	031334 035412 0   0   0            0            444000035412 
FT1A	031334 035412 0   0   0            0            0            
FT2	031334 035412 0   0   0            0            0            
FT2RQ	031334 035412 0   0   777777777777 0            0            
FT3	031334 035412 0   0   777777777777 0            0            
FT9	031335 035412 0   0   777777777777 0            0            
ET0	031335 035412 0   0   0            0            0            
ST1	031335 035412 0   0   0            0            0            
ST2	031335 035412 0   0   0            0            0            
ST9	031335 035412 0   0   0            0            0            


*031335 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031335 031335 0   0   332000000000 0            0            
IT1	031335 0      0   0   332000000000 0            0            
AT3	031335 0      0   0   0            0            332000000000 
AT6	031335 0      0   0   0            0            332000000000 
FT0	031335 0      0   0   0            0            332000000000 
FT1A	031335 0      0   0   0            0            0            
FT9	031336 0      0   0   0            0            0            
ET0	031337 0      0   0   0            0            0            
ST1A	031337 0      0   0   0            0            0            
ST9	031337 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 104
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0383

*031337 JUMPA	0,031340
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031337 031337 0   0   324000031340 0            000000031340 
IT1	031337 0      0   0   324000031340 0            000000031340 
AT3	031337 0      0   0   000000031340 0            324000031340 
AT6	031337 031340 0   0   000000031340 0            324000031340 
FT1A	031337 031340 0   0   000000031340 0            000000031340 
FT2	031337 031340 0   0   0            0            000000031340 
FT2RQ	031337 031340 0   0   0            0            000000031340 
FT3	031337 031340 0   0   0            0            000000031340 
FT9	031340 031340 0   0   0            0            000000031340 
ET0	031340 031340 0   0   0            0            000000031340 
ST1A	031340 031340 0   0   0            0            000000031340 
ST9	031340 031340 0   0   0            0            000000031340 


*031340 MOVE 	0,035456
INITIAL
C(AC)=000000 000000 
C(E)=040000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031340 031340 0   0   200000035456 0            040000000000 
IT1	031340 0      0   0   200000035456 0            040000000000 
AT3	031340 0      0   0   000000035456 0            200000035456 
AT6	031340 035456 0   0   000000035456 0            200000035456 
FT0	031340 035456 0   0   040000000000 0            200000035456 
FT1A	031340 035456 0   0   040000000000 0            040000000000 
FT9	031341 035456 0   0   040000000000 0            040000000000 
ET0	031341 035456 0   0   040000000000 0            040000000000 
ST1	031341 035456 0   0   040000000000 0            040000000000 
ST2	031341 035456 0   0   040000000000 0            040000000000 
ST9	031341 035456 0   0   040000000000 0            040000000000 


*031341 ADD 	0,035412
INITIAL
C(AC)=040000 000000 
C(E)=000000 000000 
FINAL
C(AC)=040000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031341 031341 0   0   270000035412 0            0            
IT1	031341 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 105
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0384

AT3	031341 0      0   0   000000035412 0            270000035412 
AT6	031341 035412 0   0   000000035412 0            270000035412 
FT0	031341 035412 0   0   0            0            270000035412 
FT1A	031341 035412 0   0   0            0            0            
FT2	031341 035412 0   0   0            0            0            
FT2RQ	031341 035412 0   0   040000000000 0            0            
FT3	031341 035412 0   0   040000000000 0            0            
FT9	031342 035412 0   0   040000000000 0            0            
ET0	031342 035412 0   0   040000000000 0            0            
ST1	031342 035412 0   0   040000000000 0            0            
ST2	031342 035412 0   0   040000000000 0            0            
ST9	031342 035412 0   0   040000000000 0            0            


*031342 EQV 	0,035456
INITIAL
C(AC)=040000 000000 
C(E)=040000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031342 031342 0   0   444000035456 0            040000000000 
IT1	031342 0      0   0   444000035456 0            040000000000 
AT3	031342 0      0   0   000000035456 0            444000035456 
AT6	031342 035456 0   0   000000035456 0            444000035456 
FT0	031342 035456 0   0   040000000000 0            444000035456 
FT1A	031342 035456 0   0   040000000000 0            040000000000 
FT2	031342 035456 0   0   0            0            040000000000 
FT2RQ	031342 035456 0   0   040000000000 0            040000000000 
FT3	031342 035456 0   0   040000000000 0            040000000000 
FT9	031343 035456 0   0   040000000000 0            040000000000 
ET0	031343 035456 0   0   777777777777 0            040000000000 
ST1	031343 035456 0   0   777777777777 0            040000000000 
ST2	031343 035456 0   0   777777777777 0            040000000000 
ST9	031343 035456 0   0   777777777777 0            040000000000 


*031343 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031343 031343 0   0   444000035412 0            0            
IT1	031343 0      0   0   444000035412 0            0            
AT3	031343 0      0   0   000000035412 0            444000035412 
AT6	031343 035412 0   0   000000035412 0            444000035412 
FT0	031343 035412 0   0   0            0            444000035412 
FT1A	031343 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 106
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0385

FT2	031343 035412 0   0   0            0            0            
FT2RQ	031343 035412 0   0   777777777777 0            0            
FT3	031343 035412 0   0   777777777777 0            0            
FT9	031344 035412 0   0   777777777777 0            0            
ET0	031344 035412 0   0   0            0            0            
ST1	031344 035412 0   0   0            0            0            
ST2	031344 035412 0   0   0            0            0            
ST9	031344 035412 0   0   0            0            0            


*031344 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031344 031344 0   0   332000000000 0            0            
IT1	031344 0      0   0   332000000000 0            0            
AT3	031344 0      0   0   0            0            332000000000 
AT6	031344 0      0   0   0            0            332000000000 
FT0	031344 0      0   0   0            0            332000000000 
FT1A	031344 0      0   0   0            0            0            
FT9	031345 0      0   0   0            0            0            
ET0	031346 0      0   0   0            0            0            
ST1A	031346 0      0   0   0            0            0            
ST9	031346 0      0   0   0            0            0            


*031346 JUMPA	0,031347
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031346 031346 0   0   324000031347 0            000000031347 
IT1	031346 0      0   0   324000031347 0            000000031347 
AT3	031346 0      0   0   000000031347 0            324000031347 
AT6	031346 031347 0   0   000000031347 0            324000031347 
FT1A	031346 031347 0   0   000000031347 0            000000031347 
FT2	031346 031347 0   0   0            0            000000031347 
FT2RQ	031346 031347 0   0   0            0            000000031347 
FT3	031346 031347 0   0   0            0            000000031347 
FT9	031347 031347 0   0   0            0            000000031347 
ET0	031347 031347 0   0   0            0            000000031347 
ST1A	031347 031347 0   0   0            0            000000031347 
ST9	031347 031347 0   0   0            0            000000031347 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 107
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0386

*031347 MOVE 	0,035457
INITIAL
C(AC)=000000 000000 
C(E)=100000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031347 031347 0   0   200000035457 0            100000000000 
IT1	031347 0      0   0   200000035457 0            100000000000 
AT3	031347 0      0   0   000000035457 0            200000035457 
AT6	031347 035457 0   0   000000035457 0            200000035457 
FT0	031347 035457 0   0   100000000000 0            200000035457 
FT1A	031347 035457 0   0   100000000000 0            100000000000 
FT9	031350 035457 0   0   100000000000 0            100000000000 
ET0	031350 035457 0   0   100000000000 0            100000000000 
ST1	031350 035457 0   0   100000000000 0            100000000000 
ST2	031350 035457 0   0   100000000000 0            100000000000 
ST9	031350 035457 0   0   100000000000 0            100000000000 


*031350 ADD 	0,035412
INITIAL
C(AC)=100000 000000 
C(E)=000000 000000 
FINAL
C(AC)=100000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031350 031350 0   0   270000035412 0            0            
IT1	031350 0      0   0   270000035412 0            0            
AT3	031350 0      0   0   000000035412 0            270000035412 
AT6	031350 035412 0   0   000000035412 0            270000035412 
FT0	031350 035412 0   0   0            0            270000035412 
FT1A	031350 035412 0   0   0            0            0            
FT2	031350 035412 0   0   0            0            0            
FT2RQ	031350 035412 0   0   100000000000 0            0            
FT3	031350 035412 0   0   100000000000 0            0            
FT9	031351 035412 0   0   100000000000 0            0            
ET0	031351 035412 0   0   100000000000 0            0            
ST1	031351 035412 0   0   100000000000 0            0            
ST2	031351 035412 0   0   100000000000 0            0            
ST9	031351 035412 0   0   100000000000 0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 108
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0387

*031351 EQV 	0,035457
INITIAL
C(AC)=100000 000000 
C(E)=100000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031351 031351 0   0   444000035457 0            100000000000 
IT1	031351 0      0   0   444000035457 0            100000000000 
AT3	031351 0      0   0   000000035457 0            444000035457 
AT6	031351 035457 0   0   000000035457 0            444000035457 
FT0	031351 035457 0   0   100000000000 0            444000035457 
FT1A	031351 035457 0   0   100000000000 0            100000000000 
FT2	031351 035457 0   0   0            0            100000000000 
FT2RQ	031351 035457 0   0   100000000000 0            100000000000 
FT3	031351 035457 0   0   100000000000 0            100000000000 
FT9	031352 035457 0   0   100000000000 0            100000000000 
ET0	031352 035457 0   0   777777777777 0            100000000000 
ST1	031352 035457 0   0   777777777777 0            100000000000 
ST2	031352 035457 0   0   777777777777 0            100000000000 
ST9	031352 035457 0   0   777777777777 0            100000000000 


*031352 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031352 031352 0   0   444000035412 0            0            
IT1	031352 0      0   0   444000035412 0            0            
AT3	031352 0      0   0   000000035412 0            444000035412 
AT6	031352 035412 0   0   000000035412 0            444000035412 
FT0	031352 035412 0   0   0            0            444000035412 
FT1A	031352 035412 0   0   0            0            0            
FT2	031352 035412 0   0   0            0            0            
FT2RQ	031352 035412 0   0   777777777777 0            0            
FT3	031352 035412 0   0   777777777777 0            0            
FT9	031353 035412 0   0   777777777777 0            0            
ET0	031353 035412 0   0   0            0            0            
ST1	031353 035412 0   0   0            0            0            
ST2	031353 035412 0   0   0            0            0            
ST9	031353 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 109
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0388

*031353 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031353 031353 0   0   332000000000 0            0            
IT1	031353 0      0   0   332000000000 0            0            
AT3	031353 0      0   0   0            0            332000000000 
AT6	031353 0      0   0   0            0            332000000000 
FT0	031353 0      0   0   0            0            332000000000 
FT1A	031353 0      0   0   0            0            0            
FT9	031354 0      0   0   0            0            0            
ET0	031355 0      0   0   0            0            0            
ST1A	031355 0      0   0   0            0            0            
ST9	031355 0      0   0   0            0            0            


*031355 JUMPA	0,031356
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031355 031355 0   0   324000031356 0            000000031356 
IT1	031355 0      0   0   324000031356 0            000000031356 
AT3	031355 0      0   0   000000031356 0            324000031356 
AT6	031355 031356 0   0   000000031356 0            324000031356 
FT1A	031355 031356 0   0   000000031356 0            000000031356 
FT2	031355 031356 0   0   0            0            000000031356 
FT2RQ	031355 031356 0   0   0            0            000000031356 
FT3	031355 031356 0   0   0            0            000000031356 
FT9	031356 031356 0   0   0            0            000000031356 
ET0	031356 031356 0   0   0            0            000000031356 
ST1A	031356 031356 0   0   0            0            000000031356 
ST9	031356 031356 0   0   0            0            000000031356 


*031356 MOVE 	0,035460
INITIAL
C(AC)=000000 000000 
C(E)=200000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031356 031356 0   0   200000035460 0            200000000000 
IT1	031356 0      0   0   200000035460 0            200000000000 
AT3	031356 0      0   0   000000035460 0            200000035460 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 110
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0389

AT6	031356 035460 0   0   000000035460 0            200000035460 
FT0	031356 035460 0   0   200000000000 0            200000035460 
FT1A	031356 035460 0   0   200000000000 0            200000000000 
FT9	031357 035460 0   0   200000000000 0            200000000000 
ET0	031357 035460 0   0   200000000000 0            200000000000 
ST1	031357 035460 0   0   200000000000 0            200000000000 
ST2	031357 035460 0   0   200000000000 0            200000000000 
ST9	031357 035460 0   0   200000000000 0            200000000000 


*031357 ADD 	0,035412
INITIAL
C(AC)=200000 000000 
C(E)=000000 000000 
FINAL
C(AC)=200000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031357 031357 0   0   270000035412 0            0            
IT1	031357 0      0   0   270000035412 0            0            
AT3	031357 0      0   0   000000035412 0            270000035412 
AT6	031357 035412 0   0   000000035412 0            270000035412 
FT0	031357 035412 0   0   0            0            270000035412 
FT1A	031357 035412 0   0   0            0            0            
FT2	031357 035412 0   0   0            0            0            
FT2RQ	031357 035412 0   0   200000000000 0            0            
FT3	031357 035412 0   0   200000000000 0            0            
FT9	031360 035412 0   0   200000000000 0            0            
ET0	031360 035412 0   0   200000000000 0            0            
ST1	031360 035412 0   0   200000000000 0            0            
ST2	031360 035412 0   0   200000000000 0            0            
ST9	031360 035412 0   0   200000000000 0            0            


*031360 EQV 	0,035460
INITIAL
C(AC)=200000 000000 
C(E)=200000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031360 031360 0   0   444000035460 0            200000000000 
IT1	031360 0      0   0   444000035460 0            200000000000 
AT3	031360 0      0   0   000000035460 0            444000035460 
AT6	031360 035460 0   0   000000035460 0            444000035460 
FT0	031360 035460 0   0   200000000000 0            444000035460 
FT1A	031360 035460 0   0   200000000000 0            200000000000 
FT2	031360 035460 0   0   0            0            200000000000 
FT2RQ	031360 035460 0   0   200000000000 0            200000000000 
FT3	031360 035460 0   0   200000000000 0            200000000000 
FT9	031361 035460 0   0   200000000000 0            200000000000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 111
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0390

ET0	031361 035460 0   0   777777777777 0            200000000000 
ST1	031361 035460 0   0   777777777777 0            200000000000 
ST2	031361 035460 0   0   777777777777 0            200000000000 
ST9	031361 035460 0   0   777777777777 0            200000000000 


*031361 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031361 031361 0   0   444000035412 0            0            
IT1	031361 0      0   0   444000035412 0            0            
AT3	031361 0      0   0   000000035412 0            444000035412 
AT6	031361 035412 0   0   000000035412 0            444000035412 
FT0	031361 035412 0   0   0            0            444000035412 
FT1A	031361 035412 0   0   0            0            0            
FT2	031361 035412 0   0   0            0            0            
FT2RQ	031361 035412 0   0   777777777777 0            0            
FT3	031361 035412 0   0   777777777777 0            0            
FT9	031362 035412 0   0   777777777777 0            0            
ET0	031362 035412 0   0   0            0            0            
ST1	031362 035412 0   0   0            0            0            
ST2	031362 035412 0   0   0            0            0            
ST9	031362 035412 0   0   0            0            0            


*031362 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031362 031362 0   0   332000000000 0            0            
IT1	031362 0      0   0   332000000000 0            0            
AT3	031362 0      0   0   0            0            332000000000 
AT6	031362 0      0   0   0            0            332000000000 
FT0	031362 0      0   0   0            0            332000000000 
FT1A	031362 0      0   0   0            0            0            
FT9	031363 0      0   0   0            0            0            
ET0	031364 0      0   0   0            0            0            
ST1A	031364 0      0   0   0            0            0            
ST9	031364 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 112
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0391

*031364 JUMPA	0,031365
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031364 031364 0   0   324000031365 0            000000031365 
IT1	031364 0      0   0   324000031365 0            000000031365 
AT3	031364 0      0   0   000000031365 0            324000031365 
AT6	031364 031365 0   0   000000031365 0            324000031365 
FT1A	031364 031365 0   0   000000031365 0            000000031365 
FT2	031364 031365 0   0   0            0            000000031365 
FT2RQ	031364 031365 0   0   0            0            000000031365 
FT3	031364 031365 0   0   0            0            000000031365 
FT9	031365 031365 0   0   0            0            000000031365 
ET0	031365 031365 0   0   0            0            000000031365 
ST1A	031365 031365 0   0   0            0            000000031365 
ST9	031365 031365 0   0   0            0            000000031365 


*031365 MOVE 	0,035461
INITIAL
C(AC)=000000 000000 
C(E)=400000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031365 031365 0   0   200000035461 0            400000000000 
IT1	031365 0      0   0   200000035461 0            400000000000 
AT3	031365 0      0   0   000000035461 0            200000035461 
AT6	031365 035461 0   0   000000035461 0            200000035461 
FT0	031365 035461 0   0   400000000000 0            200000035461 
FT1A	031365 035461 0   0   400000000000 0            400000000000 
FT9	031366 035461 0   0   400000000000 0            400000000000 
ET0	031366 035461 0   0   400000000000 0            400000000000 
ST1	031366 035461 0   0   400000000000 0            400000000000 
ST2	031366 035461 0   0   400000000000 0            400000000000 
ST9	031366 035461 0   0   400000000000 0            400000000000 


*031366 ADD 	0,035412
INITIAL
C(AC)=400000 000000 
C(E)=000000 000000 
FINAL
C(AC)=400000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031366 031366 0   0   270000035412 0            0            
IT1	031366 0      0   0   270000035412 0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 113
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0392

AT3	031366 0      0   0   000000035412 0            270000035412 
AT6	031366 035412 0   0   000000035412 0            270000035412 
FT0	031366 035412 0   0   0            0            270000035412 
FT1A	031366 035412 0   0   0            0            0            
FT2	031366 035412 0   0   0            0            0            
FT2RQ	031366 035412 0   0   400000000000 0            0            
FT3	031366 035412 0   0   400000000000 0            0            
FT9	031367 035412 0   0   400000000000 0            0            
ET0	031367 035412 0   0   400000000000 0            0            
ST1	031367 035412 0   0   400000000000 0            0            
ST2	031367 035412 0   0   400000000000 0            0            
ST9	031367 035412 0   0   400000000000 0            0            


*031367 EQV 	0,035461
INITIAL
C(AC)=400000 000000 
C(E)=400000 000000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031367 031367 0   0   444000035461 0            400000000000 
IT1	031367 0      0   0   444000035461 0            400000000000 
AT3	031367 0      0   0   000000035461 0            444000035461 
AT6	031367 035461 0   0   000000035461 0            444000035461 
FT0	031367 035461 0   0   400000000000 0            444000035461 
FT1A	031367 035461 0   0   400000000000 0            400000000000 
FT2	031367 035461 0   0   0            0            400000000000 
FT2RQ	031367 035461 0   0   400000000000 0            400000000000 
FT3	031367 035461 0   0   400000000000 0            400000000000 
FT9	031370 035461 0   0   400000000000 0            400000000000 
ET0	031370 035461 0   0   777777777777 0            400000000000 
ST1	031370 035461 0   0   777777777777 0            400000000000 
ST2	031370 035461 0   0   777777777777 0            400000000000 
ST9	031370 035461 0   0   777777777777 0            400000000000 


*031370 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031370 031370 0   0   444000035412 0            0            
IT1	031370 0      0   0   444000035412 0            0            
AT3	031370 0      0   0   000000035412 0            444000035412 
AT6	031370 035412 0   0   000000035412 0            444000035412 
FT0	031370 035412 0   0   0            0            444000035412 
FT1A	031370 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 114
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0393

FT2	031370 035412 0   0   0            0            0            
FT2RQ	031370 035412 0   0   777777777777 0            0            
FT3	031370 035412 0   0   777777777777 0            0            
FT9	031371 035412 0   0   777777777777 0            0            
ET0	031371 035412 0   0   0            0            0            
ST1	031371 035412 0   0   0            0            0            
ST2	031371 035412 0   0   0            0            0            
ST9	031371 035412 0   0   0            0            0            


*031371 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031371 031371 0   0   332000000000 0            0            
IT1	031371 0      0   0   332000000000 0            0            
AT3	031371 0      0   0   0            0            332000000000 
AT6	031371 0      0   0   0            0            332000000000 
FT0	031371 0      0   0   0            0            332000000000 
FT1A	031371 0      0   0   0            0            0            
FT9	031372 0      0   0   0            0            0            
ET0	031373 0      0   0   0            0            0            
ST1A	031373 0      0   0   0            0            0            
ST9	031373 0      0   0   0            0            0            


*031373 JUMPA	0,031374
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031373 031373 0   0   324000031374 0            000000031374 
IT1	031373 0      0   0   324000031374 0            000000031374 
AT3	031373 0      0   0   000000031374 0            324000031374 
AT6	031373 031374 0   0   000000031374 0            324000031374 
FT1A	031373 031374 0   0   000000031374 0            000000031374 
FT2	031373 031374 0   0   0            0            000000031374 
FT2RQ	031373 031374 0   0   0            0            000000031374 
FT3	031373 031374 0   0   0            0            000000031374 
FT9	031374 031374 0   0   0            0            000000031374 
ET0	031374 031374 0   0   0            0            000000031374 
ST1A	031374 031374 0   0   0            0            000000031374 
ST9	031374 031374 0   0   0            0            000000031374 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 115
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0394

*031374 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031374 031374 0   0   200000035412 0            0            
IT1	031374 0      0   0   200000035412 0            0            
AT3	031374 0      0   0   000000035412 0            200000035412 
AT6	031374 035412 0   0   000000035412 0            200000035412 
FT0	031374 035412 0   0   0            0            200000035412 
FT1A	031374 035412 0   0   0            0            0            
FT9	031375 035412 0   0   0            0            0            
ET0	031375 035412 0   0   0            0            0            
ST1	031375 035412 0   0   0            0            0            
ST2	031375 035412 0   0   0            0            0            
ST9	031375 035412 0   0   0            0            0            


*031375 ADD 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031375 031375 0   0   270000035412 0            0            
IT1	031375 0      0   0   270000035412 0            0            
AT3	031375 0      0   0   000000035412 0            270000035412 
AT6	031375 035412 0   0   000000035412 0            270000035412 
FT0	031375 035412 0   0   0            0            270000035412 
FT1A	031375 035412 0   0   0            0            0            
FT2	031375 035412 0   0   0            0            0            
FT2RQ	031375 035412 0   0   0            0            0            
FT3	031375 035412 0   0   0            0            0            
FT9	031376 035412 0   0   0            0            0            
ET0	031376 035412 0   0   0            0            0            
ST1	031376 035412 0   0   0            0            0            
ST2	031376 035412 0   0   0            0            0            
ST9	031376 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 116
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0395

*031376 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031376 031376 0   0   332000000000 0            0            
IT1	031376 0      0   0   332000000000 0            0            
AT3	031376 0      0   0   0            0            332000000000 
AT6	031376 0      0   0   0            0            332000000000 
FT0	031376 0      0   0   0            0            332000000000 
FT1A	031376 0      0   0   0            0            0            
FT9	031377 0      0   0   0            0            0            
ET0	0      0      0   0   0            0            0            
ST1A	0      0      0   0   0            0            0            
ST9	0      0      0   0   0            0            0            


*031400 JUMPA	0,031401
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   324000031401 0            000000031401 
IT1	0      0      0   0   324000031401 0            000000031401 
AT3	0      0      0   0   000000031401 0            324000031401 
AT6	0      031401 0   0   000000031401 0            324000031401 
FT1A	0      031401 0   0   000000031401 0            000000031401 
FT2	0      031401 0   0   0            0            000000031401 
FT2RQ	0      031401 0   0   0            0            000000031401 
FT3	0      031401 0   0   0            0            000000031401 
FT9	031401 031401 0   0   0            0            000000031401 
ET0	031401 031401 0   0   0            0            000000031401 
ST1A	031401 031401 0   0   0            0            000000031401 
ST9	031401 031401 0   0   0            0            000000031401 


*031401 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031401 031401 0   0   200000035412 0            0            
IT1	031401 0      0   0   200000035412 0            0            
AT3	031401 0      0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 117
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0396

AT6	031401 035412 0   0   000000035412 0            200000035412 
FT0	031401 035412 0   0   0            0            200000035412 
FT1A	031401 035412 0   0   0            0            0            
FT9	031402 035412 0   0   0            0            0            
ET0	031402 035412 0   0   0            0            0            
ST1	031402 035412 0   0   0            0            0            
ST2	031402 035412 0   0   0            0            0            
ST9	031402 035412 0   0   0            0            0            


*031402 ADD 	0,035416
INITIAL
C(AC)=000000 000000 
C(E)=000000 000001 
FINAL
C(AC)=000000 000001 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031402 031402 0   0   270000035416 0            000000000001 
IT1	031402 0      0   0   270000035416 0            000000000001 
AT3	031402 0      0   0   000000035416 0            270000035416 
AT6	031402 035416 0   0   000000035416 0            270000035416 
FT0	031402 035416 0   0   000000000001 0            270000035416 
FT1A	031402 035416 0   0   000000000001 0            000000000001 
FT2	031402 035416 0   0   0            0            000000000001 
FT2RQ	031402 035416 0   0   0            0            000000000001 
FT3	031402 035416 0   0   0            0            000000000001 
FT9	031403 035416 0   0   0            0            000000000001 
ET0	031403 035416 0   0   000000000001 0            000000000001 
ST1	031403 035416 0   0   000000000001 0            000000000001 
ST2	031403 035416 0   0   000000000001 0            000000000001 
ST9	031403 035416 0   0   000000000001 0            000000000001 


*031403 EQV 	0,035416
INITIAL
C(AC)=000000 000001 
C(E)=000000 000001 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031403 031403 0   0   444000035416 0            000000000001 
IT1	031403 0      0   0   444000035416 0            000000000001 
AT3	031403 0      0   0   000000035416 0            444000035416 
AT6	031403 035416 0   0   000000035416 0            444000035416 
FT0	031403 035416 0   0   000000000001 0            444000035416 
FT1A	031403 035416 0   0   000000000001 0            000000000001 
FT2	031403 035416 0   0   0            0            000000000001 
FT2RQ	031403 035416 0   0   000000000001 0            000000000001 
FT3	031403 035416 0   0   000000000001 0            000000000001 
FT9	031404 035416 0   0   000000000001 0            000000000001 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 118
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0397

ET0	031404 035416 0   0   777777777777 0            000000000001 
ST1	031404 035416 0   0   777777777777 0            000000000001 
ST2	031404 035416 0   0   777777777777 0            000000000001 
ST9	031404 035416 0   0   777777777777 0            000000000001 


*031404 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031404 031404 0   0   444000035412 0            0            
IT1	031404 0      0   0   444000035412 0            0            
AT3	031404 0      0   0   000000035412 0            444000035412 
AT6	031404 035412 0   0   000000035412 0            444000035412 
FT0	031404 035412 0   0   0            0            444000035412 
FT1A	031404 035412 0   0   0            0            0            
FT2	031404 035412 0   0   0            0            0            
FT2RQ	031404 035412 0   0   777777777777 0            0            
FT3	031404 035412 0   0   777777777777 0            0            
FT9	031405 035412 0   0   777777777777 0            0            
ET0	031405 035412 0   0   0            0            0            
ST1	031405 035412 0   0   0            0            0            
ST2	031405 035412 0   0   0            0            0            
ST9	031405 035412 0   0   0            0            0            


*031405 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031405 031405 0   0   332000000000 0            0            
IT1	031405 0      0   0   332000000000 0            0            
AT3	031405 0      0   0   0            0            332000000000 
AT6	031405 0      0   0   0            0            332000000000 
FT0	031405 0      0   0   0            0            332000000000 
FT1A	031405 0      0   0   0            0            0            
FT9	031406 0      0   0   0            0            0            
ET0	031407 0      0   0   0            0            0            
ST1A	031407 0      0   0   0            0            0            
ST9	031407 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 119
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0398

*031407 JUMPA	0,031410
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031407 031407 0   0   324000031410 0            000000031410 
IT1	031407 0      0   0   324000031410 0            000000031410 
AT3	031407 0      0   0   000000031410 0            324000031410 
AT6	031407 031410 0   0   000000031410 0            324000031410 
FT1A	031407 031410 0   0   000000031410 0            000000031410 
FT2	031407 031410 0   0   0            0            000000031410 
FT2RQ	031407 031410 0   0   0            0            000000031410 
FT3	031407 031410 0   0   0            0            000000031410 
FT9	031410 031410 0   0   0            0            000000031410 
ET0	031410 031410 0   0   0            0            000000031410 
ST1A	031410 031410 0   0   0            0            000000031410 
ST9	031410 031410 0   0   0            0            000000031410 


*031410 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031410 031410 0   0   200000035412 0            0            
IT1	031410 0      0   0   200000035412 0            0            
AT3	031410 0      0   0   000000035412 0            200000035412 
AT6	031410 035412 0   0   000000035412 0            200000035412 
FT0	031410 035412 0   0   0            0            200000035412 
FT1A	031410 035412 0   0   0            0            0            
FT9	031411 035412 0   0   0            0            0            
ET0	031411 035412 0   0   0            0            0            
ST1	031411 035412 0   0   0            0            0            
ST2	031411 035412 0   0   0            0            0            
ST9	031411 035412 0   0   0            0            0            


*031411 ADD 	0,035417
INITIAL
C(AC)=000000 000000 
C(E)=000000 000002 
FINAL
C(AC)=000000 000002 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031411 031411 0   0   270000035417 0            000000000002 
IT1	031411 0      0   0   270000035417 0            000000000002 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 120
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0399

AT3	031411 0      0   0   000000035417 0            270000035417 
AT6	031411 035417 0   0   000000035417 0            270000035417 
FT0	031411 035417 0   0   000000000002 0            270000035417 
FT1A	031411 035417 0   0   000000000002 0            000000000002 
FT2	031411 035417 0   0   0            0            000000000002 
FT2RQ	031411 035417 0   0   0            0            000000000002 
FT3	031411 035417 0   0   0            0            000000000002 
FT9	031412 035417 0   0   0            0            000000000002 
ET0	031412 035417 0   0   000000000002 0            000000000002 
ST1	031412 035417 0   0   000000000002 0            000000000002 
ST2	031412 035417 0   0   000000000002 0            000000000002 
ST9	031412 035417 0   0   000000000002 0            000000000002 


*031412 EQV 	0,035417
INITIAL
C(AC)=000000 000002 
C(E)=000000 000002 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031412 031412 0   0   444000035417 0            000000000002 
IT1	031412 0      0   0   444000035417 0            000000000002 
AT3	031412 0      0   0   000000035417 0            444000035417 
AT6	031412 035417 0   0   000000035417 0            444000035417 
FT0	031412 035417 0   0   000000000002 0            444000035417 
FT1A	031412 035417 0   0   000000000002 0            000000000002 
FT2	031412 035417 0   0   0            0            000000000002 
FT2RQ	031412 035417 0   0   000000000002 0            000000000002 
FT3	031412 035417 0   0   000000000002 0            000000000002 
FT9	031413 035417 0   0   000000000002 0            000000000002 
ET0	031413 035417 0   0   777777777777 0            000000000002 
ST1	031413 035417 0   0   777777777777 0            000000000002 
ST2	031413 035417 0   0   777777777777 0            000000000002 
ST9	031413 035417 0   0   777777777777 0            000000000002 


*031413 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031413 031413 0   0   444000035412 0            0            
IT1	031413 0      0   0   444000035412 0            0            
AT3	031413 0      0   0   000000035412 0            444000035412 
AT6	031413 035412 0   0   000000035412 0            444000035412 
FT0	031413 035412 0   0   0            0            444000035412 
FT1A	031413 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 121
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0400

FT2	031413 035412 0   0   0            0            0            
FT2RQ	031413 035412 0   0   777777777777 0            0            
FT3	031413 035412 0   0   777777777777 0            0            
FT9	031414 035412 0   0   777777777777 0            0            
ET0	031414 035412 0   0   0            0            0            
ST1	031414 035412 0   0   0            0            0            
ST2	031414 035412 0   0   0            0            0            
ST9	031414 035412 0   0   0            0            0            


*031414 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031414 031414 0   0   332000000000 0            0            
IT1	031414 0      0   0   332000000000 0            0            
AT3	031414 0      0   0   0            0            332000000000 
AT6	031414 0      0   0   0            0            332000000000 
FT0	031414 0      0   0   0            0            332000000000 
FT1A	031414 0      0   0   0            0            0            
FT9	031415 0      0   0   0            0            0            
ET0	031416 0      0   0   0            0            0            
ST1A	031416 0      0   0   0            0            0            
ST9	031416 0      0   0   0            0            0            


*031416 JUMPA	0,031417
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031416 031416 0   0   324000031417 0            000000031417 
IT1	031416 0      0   0   324000031417 0            000000031417 
AT3	031416 0      0   0   000000031417 0            324000031417 
AT6	031416 031417 0   0   000000031417 0            324000031417 
FT1A	031416 031417 0   0   000000031417 0            000000031417 
FT2	031416 031417 0   0   0            0            000000031417 
FT2RQ	031416 031417 0   0   0            0            000000031417 
FT3	031416 031417 0   0   0            0            000000031417 
FT9	031417 031417 0   0   0            0            000000031417 
ET0	031417 031417 0   0   0            0            000000031417 
ST1A	031417 031417 0   0   0            0            000000031417 
ST9	031417 031417 0   0   0            0            000000031417 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 122
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0401

*031417 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031417 031417 0   0   200000035412 0            0            
IT1	031417 0      0   0   200000035412 0            0            
AT3	031417 0      0   0   000000035412 0            200000035412 
AT6	031417 035412 0   0   000000035412 0            200000035412 
FT0	031417 035412 0   0   0            0            200000035412 
FT1A	031417 035412 0   0   0            0            0            
FT9	031420 035412 0   0   0            0            0            
ET0	031420 035412 0   0   0            0            0            
ST1	031420 035412 0   0   0            0            0            
ST2	031420 035412 0   0   0            0            0            
ST9	031420 035412 0   0   0            0            0            


*031420 ADD 	0,035420
INITIAL
C(AC)=000000 000000 
C(E)=000000 000004 
FINAL
C(AC)=000000 000004 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031420 031420 0   0   270000035420 0            000000000004 
IT1	031420 0      0   0   270000035420 0            000000000004 
AT3	031420 0      0   0   000000035420 0            270000035420 
AT6	031420 035420 0   0   000000035420 0            270000035420 
FT0	031420 035420 0   0   000000000004 0            270000035420 
FT1A	031420 035420 0   0   000000000004 0            000000000004 
FT2	031420 035420 0   0   0            0            000000000004 
FT2RQ	031420 035420 0   0   0            0            000000000004 
FT3	031420 035420 0   0   0            0            000000000004 
FT9	031421 035420 0   0   0            0            000000000004 
ET0	031421 035420 0   0   000000000004 0            000000000004 
ST1	031421 035420 0   0   000000000004 0            000000000004 
ST2	031421 035420 0   0   000000000004 0            000000000004 
ST9	031421 035420 0   0   000000000004 0            000000000004 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 123
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0402

*031421 EQV 	0,035420
INITIAL
C(AC)=000000 000004 
C(E)=000000 000004 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031421 031421 0   0   444000035420 0            000000000004 
IT1	031421 0      0   0   444000035420 0            000000000004 
AT3	031421 0      0   0   000000035420 0            444000035420 
AT6	031421 035420 0   0   000000035420 0            444000035420 
FT0	031421 035420 0   0   000000000004 0            444000035420 
FT1A	031421 035420 0   0   000000000004 0            000000000004 
FT2	031421 035420 0   0   0            0            000000000004 
FT2RQ	031421 035420 0   0   000000000004 0            000000000004 
FT3	031421 035420 0   0   000000000004 0            000000000004 
FT9	031422 035420 0   0   000000000004 0            000000000004 
ET0	031422 035420 0   0   777777777777 0            000000000004 
ST1	031422 035420 0   0   777777777777 0            000000000004 
ST2	031422 035420 0   0   777777777777 0            000000000004 
ST9	031422 035420 0   0   777777777777 0            000000000004 


*031422 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031422 031422 0   0   444000035412 0            0            
IT1	031422 0      0   0   444000035412 0            0            
AT3	031422 0      0   0   000000035412 0            444000035412 
AT6	031422 035412 0   0   000000035412 0            444000035412 
FT0	031422 035412 0   0   0            0            444000035412 
FT1A	031422 035412 0   0   0            0            0            
FT2	031422 035412 0   0   0            0            0            
FT2RQ	031422 035412 0   0   777777777777 0            0            
FT3	031422 035412 0   0   777777777777 0            0            
FT9	031423 035412 0   0   777777777777 0            0            
ET0	031423 035412 0   0   0            0            0            
ST1	031423 035412 0   0   0            0            0            
ST2	031423 035412 0   0   0            0            0            
ST9	031423 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 124
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0403

*031423 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031423 031423 0   0   332000000000 0            0            
IT1	031423 0      0   0   332000000000 0            0            
AT3	031423 0      0   0   0            0            332000000000 
AT6	031423 0      0   0   0            0            332000000000 
FT0	031423 0      0   0   0            0            332000000000 
FT1A	031423 0      0   0   0            0            0            
FT9	031424 0      0   0   0            0            0            
ET0	031425 0      0   0   0            0            0            
ST1A	031425 0      0   0   0            0            0            
ST9	031425 0      0   0   0            0            0            


*031425 JUMPA	0,031426
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031425 031425 0   0   324000031426 0            000000031426 
IT1	031425 0      0   0   324000031426 0            000000031426 
AT3	031425 0      0   0   000000031426 0            324000031426 
AT6	031425 031426 0   0   000000031426 0            324000031426 
FT1A	031425 031426 0   0   000000031426 0            000000031426 
FT2	031425 031426 0   0   0            0            000000031426 
FT2RQ	031425 031426 0   0   0            0            000000031426 
FT3	031425 031426 0   0   0            0            000000031426 
FT9	031426 031426 0   0   0            0            000000031426 
ET0	031426 031426 0   0   0            0            000000031426 
ST1A	031426 031426 0   0   0            0            000000031426 
ST9	031426 031426 0   0   0            0            000000031426 


*031426 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031426 031426 0   0   200000035412 0            0            
IT1	031426 0      0   0   200000035412 0            0            
AT3	031426 0      0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 125
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0404

AT6	031426 035412 0   0   000000035412 0            200000035412 
FT0	031426 035412 0   0   0            0            200000035412 
FT1A	031426 035412 0   0   0            0            0            
FT9	031427 035412 0   0   0            0            0            
ET0	031427 035412 0   0   0            0            0            
ST1	031427 035412 0   0   0            0            0            
ST2	031427 035412 0   0   0            0            0            
ST9	031427 035412 0   0   0            0            0            


*031427 ADD 	0,035421
INITIAL
C(AC)=000000 000000 
C(E)=000000 000010 
FINAL
C(AC)=000000 000010 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031427 031427 0   0   270000035421 0            000000000010 
IT1	031427 0      0   0   270000035421 0            000000000010 
AT3	031427 0      0   0   000000035421 0            270000035421 
AT6	031427 035421 0   0   000000035421 0            270000035421 
FT0	031427 035421 0   0   000000000010 0            270000035421 
FT1A	031427 035421 0   0   000000000010 0            000000000010 
FT2	031427 035421 0   0   0            0            000000000010 
FT2RQ	031427 035421 0   0   0            0            000000000010 
FT3	031427 035421 0   0   0            0            000000000010 
FT9	031430 035421 0   0   0            0            000000000010 
ET0	031430 035421 0   0   000000000010 0            000000000010 
ST1	031430 035421 0   0   000000000010 0            000000000010 
ST2	031430 035421 0   0   000000000010 0            000000000010 
ST9	031430 035421 0   0   000000000010 0            000000000010 


*031430 EQV 	0,035421
INITIAL
C(AC)=000000 000010 
C(E)=000000 000010 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031430 031430 0   0   444000035421 0            000000000010 
IT1	031430 0      0   0   444000035421 0            000000000010 
AT3	031430 0      0   0   000000035421 0            444000035421 
AT6	031430 035421 0   0   000000035421 0            444000035421 
FT0	031430 035421 0   0   000000000010 0            444000035421 
FT1A	031430 035421 0   0   000000000010 0            000000000010 
FT2	031430 035421 0   0   0            0            000000000010 
FT2RQ	031430 035421 0   0   000000000010 0            000000000010 
FT3	031430 035421 0   0   000000000010 0            000000000010 
FT9	031431 035421 0   0   000000000010 0            000000000010 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 126
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0405

ET0	031431 035421 0   0   777777777777 0            000000000010 
ST1	031431 035421 0   0   777777777777 0            000000000010 
ST2	031431 035421 0   0   777777777777 0            000000000010 
ST9	031431 035421 0   0   777777777777 0            000000000010 


*031431 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031431 031431 0   0   444000035412 0            0            
IT1	031431 0      0   0   444000035412 0            0            
AT3	031431 0      0   0   000000035412 0            444000035412 
AT6	031431 035412 0   0   000000035412 0            444000035412 
FT0	031431 035412 0   0   0            0            444000035412 
FT1A	031431 035412 0   0   0            0            0            
FT2	031431 035412 0   0   0            0            0            
FT2RQ	031431 035412 0   0   777777777777 0            0            
FT3	031431 035412 0   0   777777777777 0            0            
FT9	031432 035412 0   0   777777777777 0            0            
ET0	031432 035412 0   0   0            0            0            
ST1	031432 035412 0   0   0            0            0            
ST2	031432 035412 0   0   0            0            0            
ST9	031432 035412 0   0   0            0            0            


*031432 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031432 031432 0   0   332000000000 0            0            
IT1	031432 0      0   0   332000000000 0            0            
AT3	031432 0      0   0   0            0            332000000000 
AT6	031432 0      0   0   0            0            332000000000 
FT0	031432 0      0   0   0            0            332000000000 
FT1A	031432 0      0   0   0            0            0            
FT9	031433 0      0   0   0            0            0            
ET0	031434 0      0   0   0            0            0            
ST1A	031434 0      0   0   0            0            0            
ST9	031434 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 127
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0406

*031434 JUMPA	0,031435
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031434 031434 0   0   324000031435 0            000000031435 
IT1	031434 0      0   0   324000031435 0            000000031435 
AT3	031434 0      0   0   000000031435 0            324000031435 
AT6	031434 031435 0   0   000000031435 0            324000031435 
FT1A	031434 031435 0   0   000000031435 0            000000031435 
FT2	031434 031435 0   0   0            0            000000031435 
FT2RQ	031434 031435 0   0   0            0            000000031435 
FT3	031434 031435 0   0   0            0            000000031435 
FT9	031435 031435 0   0   0            0            000000031435 
ET0	031435 031435 0   0   0            0            000000031435 
ST1A	031435 031435 0   0   0            0            000000031435 
ST9	031435 031435 0   0   0            0            000000031435 


*031435 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031435 031435 0   0   200000035412 0            0            
IT1	031435 0      0   0   200000035412 0            0            
AT3	031435 0      0   0   000000035412 0            200000035412 
AT6	031435 035412 0   0   000000035412 0            200000035412 
FT0	031435 035412 0   0   0            0            200000035412 
FT1A	031435 035412 0   0   0            0            0            
FT9	031436 035412 0   0   0            0            0            
ET0	031436 035412 0   0   0            0            0            
ST1	031436 035412 0   0   0            0            0            
ST2	031436 035412 0   0   0            0            0            
ST9	031436 035412 0   0   0            0            0            


*031436 ADD 	0,035422
INITIAL
C(AC)=000000 000000 
C(E)=000000 000020 
FINAL
C(AC)=000000 000020 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031436 031436 0   0   270000035422 0            000000000020 
IT1	031436 0      0   0   270000035422 0            000000000020 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 128
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0407

AT3	031436 0      0   0   000000035422 0            270000035422 
AT6	031436 035422 0   0   000000035422 0            270000035422 
FT0	031436 035422 0   0   000000000020 0            270000035422 
FT1A	031436 035422 0   0   000000000020 0            000000000020 
FT2	031436 035422 0   0   0            0            000000000020 
FT2RQ	031436 035422 0   0   0            0            000000000020 
FT3	031436 035422 0   0   0            0            000000000020 
FT9	031437 035422 0   0   0            0            000000000020 
ET0	031437 035422 0   0   000000000020 0            000000000020 
ST1	031437 035422 0   0   000000000020 0            000000000020 
ST2	031437 035422 0   0   000000000020 0            000000000020 
ST9	031437 035422 0   0   000000000020 0            000000000020 


*031437 EQV 	0,035422
INITIAL
C(AC)=000000 000020 
C(E)=000000 000020 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031437 031437 0   0   444000035422 0            000000000020 
IT1	031437 0      0   0   444000035422 0            000000000020 
AT3	031437 0      0   0   000000035422 0            444000035422 
AT6	031437 035422 0   0   000000035422 0            444000035422 
FT0	031437 035422 0   0   000000000020 0            444000035422 
FT1A	031437 035422 0   0   000000000020 0            000000000020 
FT2	031437 035422 0   0   0            0            000000000020 
FT2RQ	031437 035422 0   0   000000000020 0            000000000020 
FT3	031437 035422 0   0   000000000020 0            000000000020 
FT9	031440 035422 0   0   000000000020 0            000000000020 
ET0	031440 035422 0   0   777777777777 0            000000000020 
ST1	031440 035422 0   0   777777777777 0            000000000020 
ST2	031440 035422 0   0   777777777777 0            000000000020 
ST9	031440 035422 0   0   777777777777 0            000000000020 


*031440 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031440 031440 0   0   444000035412 0            0            
IT1	031440 0      0   0   444000035412 0            0            
AT3	031440 0      0   0   000000035412 0            444000035412 
AT6	031440 035412 0   0   000000035412 0            444000035412 
FT0	031440 035412 0   0   0            0            444000035412 
FT1A	031440 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 129
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0408

FT2	031440 035412 0   0   0            0            0            
FT2RQ	031440 035412 0   0   777777777777 0            0            
FT3	031440 035412 0   0   777777777777 0            0            
FT9	031441 035412 0   0   777777777777 0            0            
ET0	031441 035412 0   0   0            0            0            
ST1	031441 035412 0   0   0            0            0            
ST2	031441 035412 0   0   0            0            0            
ST9	031441 035412 0   0   0            0            0            


*031441 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031441 031441 0   0   332000000000 0            0            
IT1	031441 0      0   0   332000000000 0            0            
AT3	031441 0      0   0   0            0            332000000000 
AT6	031441 0      0   0   0            0            332000000000 
FT0	031441 0      0   0   0            0            332000000000 
FT1A	031441 0      0   0   0            0            0            
FT9	031442 0      0   0   0            0            0            
ET0	031443 0      0   0   0            0            0            
ST1A	031443 0      0   0   0            0            0            
ST9	031443 0      0   0   0            0            0            


*031443 JUMPA	0,031444
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031443 031443 0   0   324000031444 0            000000031444 
IT1	031443 0      0   0   324000031444 0            000000031444 
AT3	031443 0      0   0   000000031444 0            324000031444 
AT6	031443 031444 0   0   000000031444 0            324000031444 
FT1A	031443 031444 0   0   000000031444 0            000000031444 
FT2	031443 031444 0   0   0            0            000000031444 
FT2RQ	031443 031444 0   0   0            0            000000031444 
FT3	031443 031444 0   0   0            0            000000031444 
FT9	031444 031444 0   0   0            0            000000031444 
ET0	031444 031444 0   0   0            0            000000031444 
ST1A	031444 031444 0   0   0            0            000000031444 
ST9	031444 031444 0   0   0            0            000000031444 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 130
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0409

*031444 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031444 031444 0   0   200000035412 0            0            
IT1	031444 0      0   0   200000035412 0            0            
AT3	031444 0      0   0   000000035412 0            200000035412 
AT6	031444 035412 0   0   000000035412 0            200000035412 
FT0	031444 035412 0   0   0            0            200000035412 
FT1A	031444 035412 0   0   0            0            0            
FT9	031445 035412 0   0   0            0            0            
ET0	031445 035412 0   0   0            0            0            
ST1	031445 035412 0   0   0            0            0            
ST2	031445 035412 0   0   0            0            0            
ST9	031445 035412 0   0   0            0            0            


*031445 ADD 	0,035423
INITIAL
C(AC)=000000 000000 
C(E)=000000 000040 
FINAL
C(AC)=000000 000040 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031445 031445 0   0   270000035423 0            000000000040 
IT1	031445 0      0   0   270000035423 0            000000000040 
AT3	031445 0      0   0   000000035423 0            270000035423 
AT6	031445 035423 0   0   000000035423 0            270000035423 
FT0	031445 035423 0   0   000000000040 0            270000035423 
FT1A	031445 035423 0   0   000000000040 0            000000000040 
FT2	031445 035423 0   0   0            0            000000000040 
FT2RQ	031445 035423 0   0   0            0            000000000040 
FT3	031445 035423 0   0   0            0            000000000040 
FT9	031446 035423 0   0   0            0            000000000040 
ET0	031446 035423 0   0   000000000040 0            000000000040 
ST1	031446 035423 0   0   000000000040 0            000000000040 
ST2	031446 035423 0   0   000000000040 0            000000000040 
ST9	031446 035423 0   0   000000000040 0            000000000040 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 131
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0410

*031446 EQV 	0,035423
INITIAL
C(AC)=000000 000040 
C(E)=000000 000040 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031446 031446 0   0   444000035423 0            000000000040 
IT1	031446 0      0   0   444000035423 0            000000000040 
AT3	031446 0      0   0   000000035423 0            444000035423 
AT6	031446 035423 0   0   000000035423 0            444000035423 
FT0	031446 035423 0   0   000000000040 0            444000035423 
FT1A	031446 035423 0   0   000000000040 0            000000000040 
FT2	031446 035423 0   0   0            0            000000000040 
FT2RQ	031446 035423 0   0   000000000040 0            000000000040 
FT3	031446 035423 0   0   000000000040 0            000000000040 
FT9	031447 035423 0   0   000000000040 0            000000000040 
ET0	031447 035423 0   0   777777777777 0            000000000040 
ST1	031447 035423 0   0   777777777777 0            000000000040 
ST2	031447 035423 0   0   777777777777 0            000000000040 
ST9	031447 035423 0   0   777777777777 0            000000000040 


*031447 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031447 031447 0   0   444000035412 0            0            
IT1	031447 0      0   0   444000035412 0            0            
AT3	031447 0      0   0   000000035412 0            444000035412 
AT6	031447 035412 0   0   000000035412 0            444000035412 
FT0	031447 035412 0   0   0            0            444000035412 
FT1A	031447 035412 0   0   0            0            0            
FT2	031447 035412 0   0   0            0            0            
FT2RQ	031447 035412 0   0   777777777777 0            0            
FT3	031447 035412 0   0   777777777777 0            0            
FT9	031450 035412 0   0   777777777777 0            0            
ET0	031450 035412 0   0   0            0            0            
ST1	031450 035412 0   0   0            0            0            
ST2	031450 035412 0   0   0            0            0            
ST9	031450 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 132
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0411

*031450 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031450 031450 0   0   332000000000 0            0            
IT1	031450 0      0   0   332000000000 0            0            
AT3	031450 0      0   0   0            0            332000000000 
AT6	031450 0      0   0   0            0            332000000000 
FT0	031450 0      0   0   0            0            332000000000 
FT1A	031450 0      0   0   0            0            0            
FT9	031451 0      0   0   0            0            0            
ET0	031452 0      0   0   0            0            0            
ST1A	031452 0      0   0   0            0            0            
ST9	031452 0      0   0   0            0            0            


*031452 JUMPA	0,031453
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031452 031452 0   0   324000031453 0            000000031453 
IT1	031452 0      0   0   324000031453 0            000000031453 
AT3	031452 0      0   0   000000031453 0            324000031453 
AT6	031452 031453 0   0   000000031453 0            324000031453 
FT1A	031452 031453 0   0   000000031453 0            000000031453 
FT2	031452 031453 0   0   0            0            000000031453 
FT2RQ	031452 031453 0   0   0            0            000000031453 
FT3	031452 031453 0   0   0            0            000000031453 
FT9	031453 031453 0   0   0            0            000000031453 
ET0	031453 031453 0   0   0            0            000000031453 
ST1A	031453 031453 0   0   0            0            000000031453 
ST9	031453 031453 0   0   0            0            000000031453 


*031453 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031453 031453 0   0   200000035412 0            0            
IT1	031453 0      0   0   200000035412 0            0            
AT3	031453 0      0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 133
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0412

AT6	031453 035412 0   0   000000035412 0            200000035412 
FT0	031453 035412 0   0   0            0            200000035412 
FT1A	031453 035412 0   0   0            0            0            
FT9	031454 035412 0   0   0            0            0            
ET0	031454 035412 0   0   0            0            0            
ST1	031454 035412 0   0   0            0            0            
ST2	031454 035412 0   0   0            0            0            
ST9	031454 035412 0   0   0            0            0            


*031454 ADD 	0,035424
INITIAL
C(AC)=000000 000000 
C(E)=000000 000100 
FINAL
C(AC)=000000 000100 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031454 031454 0   0   270000035424 0            000000000100 
IT1	031454 0      0   0   270000035424 0            000000000100 
AT3	031454 0      0   0   000000035424 0            270000035424 
AT6	031454 035424 0   0   000000035424 0            270000035424 
FT0	031454 035424 0   0   000000000100 0            270000035424 
FT1A	031454 035424 0   0   000000000100 0            000000000100 
FT2	031454 035424 0   0   0            0            000000000100 
FT2RQ	031454 035424 0   0   0            0            000000000100 
FT3	031454 035424 0   0   0            0            000000000100 
FT9	031455 035424 0   0   0            0            000000000100 
ET0	031455 035424 0   0   000000000100 0            000000000100 
ST1	031455 035424 0   0   000000000100 0            000000000100 
ST2	031455 035424 0   0   000000000100 0            000000000100 
ST9	031455 035424 0   0   000000000100 0            000000000100 


*031455 EQV 	0,035424
INITIAL
C(AC)=000000 000100 
C(E)=000000 000100 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031455 031455 0   0   444000035424 0            000000000100 
IT1	031455 0      0   0   444000035424 0            000000000100 
AT3	031455 0      0   0   000000035424 0            444000035424 
AT6	031455 035424 0   0   000000035424 0            444000035424 
FT0	031455 035424 0   0   000000000100 0            444000035424 
FT1A	031455 035424 0   0   000000000100 0            000000000100 
FT2	031455 035424 0   0   0            0            000000000100 
FT2RQ	031455 035424 0   0   000000000100 0            000000000100 
FT3	031455 035424 0   0   000000000100 0            000000000100 
FT9	031456 035424 0   0   000000000100 0            000000000100 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 134
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0413

ET0	031456 035424 0   0   777777777777 0            000000000100 
ST1	031456 035424 0   0   777777777777 0            000000000100 
ST2	031456 035424 0   0   777777777777 0            000000000100 
ST9	031456 035424 0   0   777777777777 0            000000000100 


*031456 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031456 031456 0   0   444000035412 0            0            
IT1	031456 0      0   0   444000035412 0            0            
AT3	031456 0      0   0   000000035412 0            444000035412 
AT6	031456 035412 0   0   000000035412 0            444000035412 
FT0	031456 035412 0   0   0            0            444000035412 
FT1A	031456 035412 0   0   0            0            0            
FT2	031456 035412 0   0   0            0            0            
FT2RQ	031456 035412 0   0   777777777777 0            0            
FT3	031456 035412 0   0   777777777777 0            0            
FT9	031457 035412 0   0   777777777777 0            0            
ET0	031457 035412 0   0   0            0            0            
ST1	031457 035412 0   0   0            0            0            
ST2	031457 035412 0   0   0            0            0            
ST9	031457 035412 0   0   0            0            0            


*031457 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031457 031457 0   0   332000000000 0            0            
IT1	031457 0      0   0   332000000000 0            0            
AT3	031457 0      0   0   0            0            332000000000 
AT6	031457 0      0   0   0            0            332000000000 
FT0	031457 0      0   0   0            0            332000000000 
FT1A	031457 0      0   0   0            0            0            
FT9	031460 0      0   0   0            0            0            
ET0	031461 0      0   0   0            0            0            
ST1A	031461 0      0   0   0            0            0            
ST9	031461 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 135
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0414

*031461 JUMPA	0,031462
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031461 031461 0   0   324000031462 0            000000031462 
IT1	031461 0      0   0   324000031462 0            000000031462 
AT3	031461 0      0   0   000000031462 0            324000031462 
AT6	031461 031462 0   0   000000031462 0            324000031462 
FT1A	031461 031462 0   0   000000031462 0            000000031462 
FT2	031461 031462 0   0   0            0            000000031462 
FT2RQ	031461 031462 0   0   0            0            000000031462 
FT3	031461 031462 0   0   0            0            000000031462 
FT9	031462 031462 0   0   0            0            000000031462 
ET0	031462 031462 0   0   0            0            000000031462 
ST1A	031462 031462 0   0   0            0            000000031462 
ST9	031462 031462 0   0   0            0            000000031462 


*031462 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031462 031462 0   0   200000035412 0            0            
IT1	031462 0      0   0   200000035412 0            0            
AT3	031462 0      0   0   000000035412 0            200000035412 
AT6	031462 035412 0   0   000000035412 0            200000035412 
FT0	031462 035412 0   0   0            0            200000035412 
FT1A	031462 035412 0   0   0            0            0            
FT9	031463 035412 0   0   0            0            0            
ET0	031463 035412 0   0   0            0            0            
ST1	031463 035412 0   0   0            0            0            
ST2	031463 035412 0   0   0            0            0            
ST9	031463 035412 0   0   0            0            0            


*031463 ADD 	0,035425
INITIAL
C(AC)=000000 000000 
C(E)=000000 000200 
FINAL
C(AC)=000000 000200 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031463 031463 0   0   270000035425 0            000000000200 
IT1	031463 0      0   0   270000035425 0            000000000200 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 136
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0415

AT3	031463 0      0   0   000000035425 0            270000035425 
AT6	031463 035425 0   0   000000035425 0            270000035425 
FT0	031463 035425 0   0   000000000200 0            270000035425 
FT1A	031463 035425 0   0   000000000200 0            000000000200 
FT2	031463 035425 0   0   0            0            000000000200 
FT2RQ	031463 035425 0   0   0            0            000000000200 
FT3	031463 035425 0   0   0            0            000000000200 
FT9	031464 035425 0   0   0            0            000000000200 
ET0	031464 035425 0   0   000000000200 0            000000000200 
ST1	031464 035425 0   0   000000000200 0            000000000200 
ST2	031464 035425 0   0   000000000200 0            000000000200 
ST9	031464 035425 0   0   000000000200 0            000000000200 


*031464 EQV 	0,035425
INITIAL
C(AC)=000000 000200 
C(E)=000000 000200 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031464 031464 0   0   444000035425 0            000000000200 
IT1	031464 0      0   0   444000035425 0            000000000200 
AT3	031464 0      0   0   000000035425 0            444000035425 
AT6	031464 035425 0   0   000000035425 0            444000035425 
FT0	031464 035425 0   0   000000000200 0            444000035425 
FT1A	031464 035425 0   0   000000000200 0            000000000200 
FT2	031464 035425 0   0   0            0            000000000200 
FT2RQ	031464 035425 0   0   000000000200 0            000000000200 
FT3	031464 035425 0   0   000000000200 0            000000000200 
FT9	031465 035425 0   0   000000000200 0            000000000200 
ET0	031465 035425 0   0   777777777777 0            000000000200 
ST1	031465 035425 0   0   777777777777 0            000000000200 
ST2	031465 035425 0   0   777777777777 0            000000000200 
ST9	031465 035425 0   0   777777777777 0            000000000200 


*031465 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031465 031465 0   0   444000035412 0            0            
IT1	031465 0      0   0   444000035412 0            0            
AT3	031465 0      0   0   000000035412 0            444000035412 
AT6	031465 035412 0   0   000000035412 0            444000035412 
FT0	031465 035412 0   0   0            0            444000035412 
FT1A	031465 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 137
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0416

FT2	031465 035412 0   0   0            0            0            
FT2RQ	031465 035412 0   0   777777777777 0            0            
FT3	031465 035412 0   0   777777777777 0            0            
FT9	031466 035412 0   0   777777777777 0            0            
ET0	031466 035412 0   0   0            0            0            
ST1	031466 035412 0   0   0            0            0            
ST2	031466 035412 0   0   0            0            0            
ST9	031466 035412 0   0   0            0            0            


*031466 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031466 031466 0   0   332000000000 0            0            
IT1	031466 0      0   0   332000000000 0            0            
AT3	031466 0      0   0   0            0            332000000000 
AT6	031466 0      0   0   0            0            332000000000 
FT0	031466 0      0   0   0            0            332000000000 
FT1A	031466 0      0   0   0            0            0            
FT9	031467 0      0   0   0            0            0            
ET0	031470 0      0   0   0            0            0            
ST1A	031470 0      0   0   0            0            0            
ST9	031470 0      0   0   0            0            0            


*031470 JUMPA	0,031471
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031470 031470 0   0   324000031471 0            000000031471 
IT1	031470 0      0   0   324000031471 0            000000031471 
AT3	031470 0      0   0   000000031471 0            324000031471 
AT6	031470 031471 0   0   000000031471 0            324000031471 
FT1A	031470 031471 0   0   000000031471 0            000000031471 
FT2	031470 031471 0   0   0            0            000000031471 
FT2RQ	031470 031471 0   0   0            0            000000031471 
FT3	031470 031471 0   0   0            0            000000031471 
FT9	031471 031471 0   0   0            0            000000031471 
ET0	031471 031471 0   0   0            0            000000031471 
ST1A	031471 031471 0   0   0            0            000000031471 
ST9	031471 031471 0   0   0            0            000000031471 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 138
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0417

*031471 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031471 031471 0   0   200000035412 0            0            
IT1	031471 0      0   0   200000035412 0            0            
AT3	031471 0      0   0   000000035412 0            200000035412 
AT6	031471 035412 0   0   000000035412 0            200000035412 
FT0	031471 035412 0   0   0            0            200000035412 
FT1A	031471 035412 0   0   0            0            0            
FT9	031472 035412 0   0   0            0            0            
ET0	031472 035412 0   0   0            0            0            
ST1	031472 035412 0   0   0            0            0            
ST2	031472 035412 0   0   0            0            0            
ST9	031472 035412 0   0   0            0            0            


*031472 ADD 	0,035426
INITIAL
C(AC)=000000 000000 
C(E)=000000 000400 
FINAL
C(AC)=000000 000400 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031472 031472 0   0   270000035426 0            000000000400 
IT1	031472 0      0   0   270000035426 0            000000000400 
AT3	031472 0      0   0   000000035426 0            270000035426 
AT6	031472 035426 0   0   000000035426 0            270000035426 
FT0	031472 035426 0   0   000000000400 0            270000035426 
FT1A	031472 035426 0   0   000000000400 0            000000000400 
FT2	031472 035426 0   0   0            0            000000000400 
FT2RQ	031472 035426 0   0   0            0            000000000400 
FT3	031472 035426 0   0   0            0            000000000400 
FT9	031473 035426 0   0   0            0            000000000400 
ET0	031473 035426 0   0   000000000400 0            000000000400 
ST1	031473 035426 0   0   000000000400 0            000000000400 
ST2	031473 035426 0   0   000000000400 0            000000000400 
ST9	031473 035426 0   0   000000000400 0            000000000400 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 139
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0418

*031473 EQV 	0,035426
INITIAL
C(AC)=000000 000400 
C(E)=000000 000400 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031473 031473 0   0   444000035426 0            000000000400 
IT1	031473 0      0   0   444000035426 0            000000000400 
AT3	031473 0      0   0   000000035426 0            444000035426 
AT6	031473 035426 0   0   000000035426 0            444000035426 
FT0	031473 035426 0   0   000000000400 0            444000035426 
FT1A	031473 035426 0   0   000000000400 0            000000000400 
FT2	031473 035426 0   0   0            0            000000000400 
FT2RQ	031473 035426 0   0   000000000400 0            000000000400 
FT3	031473 035426 0   0   000000000400 0            000000000400 
FT9	031474 035426 0   0   000000000400 0            000000000400 
ET0	031474 035426 0   0   777777777777 0            000000000400 
ST1	031474 035426 0   0   777777777777 0            000000000400 
ST2	031474 035426 0   0   777777777777 0            000000000400 
ST9	031474 035426 0   0   777777777777 0            000000000400 


*031474 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031474 031474 0   0   444000035412 0            0            
IT1	031474 0      0   0   444000035412 0            0            
AT3	031474 0      0   0   000000035412 0            444000035412 
AT6	031474 035412 0   0   000000035412 0            444000035412 
FT0	031474 035412 0   0   0            0            444000035412 
FT1A	031474 035412 0   0   0            0            0            
FT2	031474 035412 0   0   0            0            0            
FT2RQ	031474 035412 0   0   777777777777 0            0            
FT3	031474 035412 0   0   777777777777 0            0            
FT9	031475 035412 0   0   777777777777 0            0            
ET0	031475 035412 0   0   0            0            0            
ST1	031475 035412 0   0   0            0            0            
ST2	031475 035412 0   0   0            0            0            
ST9	031475 035412 0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 140
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0419

*031475 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031475 031475 0   0   332000000000 0            0            
IT1	031475 0      0   0   332000000000 0            0            
AT3	031475 0      0   0   0            0            332000000000 
AT6	031475 0      0   0   0            0            332000000000 
FT0	031475 0      0   0   0            0            332000000000 
FT1A	031475 0      0   0   0            0            0            
FT9	031476 0      0   0   0            0            0            
ET0	031477 0      0   0   0            0            0            
ST1A	031477 0      0   0   0            0            0            
ST9	031477 0      0   0   0            0            0            


*031477 JUMPA	0,031500
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031477 031477 0   0   324000031500 0            000000031500 
IT1	031477 0      0   0   324000031500 0            000000031500 
AT3	031477 0      0   0   000000031500 0            324000031500 
AT6	031477 0      0   0   000000031500 0            324000031500 
FT1A	031477 0      0   0   000000031500 0            000000031500 
FT2	031477 0      0   0   0            0            000000031500 
FT2RQ	031477 0      0   0   0            0            000000031500 
FT3	031477 0      0   0   0            0            000000031500 
FT9	0      0      0   0   0            0            000000031500 
ET0	0      0      0   0   0            0            000000031500 
ST1A	0      0      0   0   0            0            000000031500 
ST9	0      0      0   0   0            0            000000031500 


*031500 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	0      0      0   0   200000035412 0            0            
IT1	0      0      0   0   200000035412 0            0            
AT3	0      0      0   0   000000035412 0            200000035412 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 141
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0420

AT6	0      035412 0   0   000000035412 0            200000035412 
FT0	0      035412 0   0   0            0            200000035412 
FT1A	0      035412 0   0   0            0            0            
FT9	031501 035412 0   0   0            0            0            
ET0	031501 035412 0   0   0            0            0            
ST1	031501 035412 0   0   0            0            0            
ST2	031501 035412 0   0   0            0            0            
ST9	031501 035412 0   0   0            0            0            


*031501 ADD 	0,035427
INITIAL
C(AC)=000000 000000 
C(E)=000000 001000 
FINAL
C(AC)=000000 001000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031501 031501 0   0   270000035427 0            000000001000 
IT1	031501 0      0   0   270000035427 0            000000001000 
AT3	031501 0      0   0   000000035427 0            270000035427 
AT6	031501 035427 0   0   000000035427 0            270000035427 
FT0	031501 035427 0   0   000000001000 0            270000035427 
FT1A	031501 035427 0   0   000000001000 0            000000001000 
FT2	031501 035427 0   0   0            0            000000001000 
FT2RQ	031501 035427 0   0   0            0            000000001000 
FT3	031501 035427 0   0   0            0            000000001000 
FT9	031502 035427 0   0   0            0            000000001000 
ET0	031502 035427 0   0   000000001000 0            000000001000 
ST1	031502 035427 0   0   000000001000 0            000000001000 
ST2	031502 035427 0   0   000000001000 0            000000001000 
ST9	031502 035427 0   0   000000001000 0            000000001000 


*031502 EQV 	0,035427
INITIAL
C(AC)=000000 001000 
C(E)=000000 001000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031502 031502 0   0   444000035427 0            000000001000 
IT1	031502 0      0   0   444000035427 0            000000001000 
AT3	031502 0      0   0   000000035427 0            444000035427 
AT6	031502 035427 0   0   000000035427 0            444000035427 
FT0	031502 035427 0   0   000000001000 0            444000035427 
FT1A	031502 035427 0   0   000000001000 0            000000001000 
FT2	031502 035427 0   0   0            0            000000001000 
FT2RQ	031502 035427 0   0   000000001000 0            000000001000 
FT3	031502 035427 0   0   000000001000 0            000000001000 
FT9	031503 035427 0   0   000000001000 0            000000001000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 142
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0421

ET0	031503 035427 0   0   777777777777 0            000000001000 
ST1	031503 035427 0   0   777777777777 0            000000001000 
ST2	031503 035427 0   0   777777777777 0            000000001000 
ST9	031503 035427 0   0   777777777777 0            000000001000 


*031503 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031503 031503 0   0   444000035412 0            0            
IT1	031503 0      0   0   444000035412 0            0            
AT3	031503 0      0   0   000000035412 0            444000035412 
AT6	031503 035412 0   0   000000035412 0            444000035412 
FT0	031503 035412 0   0   0            0            444000035412 
FT1A	031503 035412 0   0   0            0            0            
FT2	031503 035412 0   0   0            0            0            
FT2RQ	031503 035412 0   0   777777777777 0            0            
FT3	031503 035412 0   0   777777777777 0            0            
FT9	031504 035412 0   0   777777777777 0            0            
ET0	031504 035412 0   0   0            0            0            
ST1	031504 035412 0   0   0            0            0            
ST2	031504 035412 0   0   0            0            0            
ST9	031504 035412 0   0   0            0            0            


*031504 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031504 031504 0   0   332000000000 0            0            
IT1	031504 0      0   0   332000000000 0            0            
AT3	031504 0      0   0   0            0            332000000000 
AT6	031504 0      0   0   0            0            332000000000 
FT0	031504 0      0   0   0            0            332000000000 
FT1A	031504 0      0   0   0            0            0            
FT9	031505 0      0   0   0            0            0            
ET0	031506 0      0   0   0            0            0            
ST1A	031506 0      0   0   0            0            0            
ST9	031506 0      0   0   0            0            0            


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 143
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0422

*031506 JUMPA	0,031507
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031506 031506 0   0   324000031507 0            000000031507 
IT1	031506 0      0   0   324000031507 0            000000031507 
AT3	031506 0      0   0   000000031507 0            324000031507 
AT6	031506 031507 0   0   000000031507 0            324000031507 
FT1A	031506 031507 0   0   000000031507 0            000000031507 
FT2	031506 031507 0   0   0            0            000000031507 
FT2RQ	031506 031507 0   0   0            0            000000031507 
FT3	031506 031507 0   0   0            0            000000031507 
FT9	031507 031507 0   0   0            0            000000031507 
ET0	031507 031507 0   0   0            0            000000031507 
ST1A	031507 031507 0   0   0            0            000000031507 
ST9	031507 031507 0   0   0            0            000000031507 


*031507 MOVE 	0,035412
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031507 031507 0   0   200000035412 0            0            
IT1	031507 0      0   0   200000035412 0            0            
AT3	031507 0      0   0   000000035412 0            200000035412 
AT6	031507 035412 0   0   000000035412 0            200000035412 
FT0	031507 035412 0   0   0            0            200000035412 
FT1A	031507 035412 0   0   0            0            0            
FT9	031510 035412 0   0   0            0            0            
ET0	031510 035412 0   0   0            0            0            
ST1	031510 035412 0   0   0            0            0            
ST2	031510 035412 0   0   0            0            0            
ST9	031510 035412 0   0   0            0            0            


*031510 ADD 	0,035430
INITIAL
C(AC)=000000 000000 
C(E)=000000 002000 
FINAL
C(AC)=000000 002000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031510 031510 0   0   270000035430 0            000000002000 
IT1	031510 0      0   0   270000035430 0            000000002000 
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 144
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0423

AT3	031510 0      0   0   000000035430 0            270000035430 
AT6	031510 035430 0   0   000000035430 0            270000035430 
FT0	031510 035430 0   0   000000002000 0            270000035430 
FT1A	031510 035430 0   0   000000002000 0            000000002000 
FT2	031510 035430 0   0   0            0            000000002000 
FT2RQ	031510 035430 0   0   0            0            000000002000 
FT3	031510 035430 0   0   0            0            000000002000 
FT9	031511 035430 0   0   0            0            000000002000 
ET0	031511 035430 0   0   000000002000 0            000000002000 
ST1	031511 035430 0   0   000000002000 0            000000002000 
ST2	031511 035430 0   0   000000002000 0            000000002000 
ST9	031511 035430 0   0   000000002000 0            000000002000 


*031511 EQV 	0,035430
INITIAL
C(AC)=000000 002000 
C(E)=000000 002000 
FINAL
C(AC)=777777 777777 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031511 031511 0   0   444000035430 0            000000002000 
IT1	031511 0      0   0   444000035430 0            000000002000 
AT3	031511 0      0   0   000000035430 0            444000035430 
AT6	031511 035430 0   0   000000035430 0            444000035430 
FT0	031511 035430 0   0   000000002000 0            444000035430 
FT1A	031511 035430 0   0   000000002000 0            000000002000 
FT2	031511 035430 0   0   0            0            000000002000 
FT2RQ	031511 035430 0   0   000000002000 0            000000002000 
FT3	031511 035430 0   0   000000002000 0            000000002000 
FT9	031512 035430 0   0   000000002000 0            000000002000 
ET0	031512 035430 0   0   777777777777 0            000000002000 
ST1	031512 035430 0   0   777777777777 0            000000002000 
ST2	031512 035430 0   0   777777777777 0            000000002000 
ST9	031512 035430 0   0   777777777777 0            000000002000 


*031512 EQV 	0,035412
INITIAL
C(AC)=777777 777777 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031512 031512 0   0   444000035412 0            0            
IT1	031512 0      0   0   444000035412 0            0            
AT3	031512 0      0   0   000000035412 0            444000035412 
AT6	031512 035412 0   0   000000035412 0            444000035412 
FT0	031512 035412 0   0   0            0            444000035412 
FT1A	031512 035412 0   0   0            0            0            
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 145
DAKAB	000000 000000  000000 000000  000000 000000  030000  777777                                                        SEQ 0424

FT2	031512 035412 0   0   0            0            0            
FT2RQ	031512 035412 0   0   777777777777 0            0            
FT3	031512 035412 0   0   777777777777 0            0            
FT9	031513 035412 0   0   777777777777 0            0            
ET0	031513 035412 0   0   0            0            0            
ST1	031513 035412 0   0   0            0            0            
ST2	031513 035412 0   0   0            0            0            
ST9	031513 035412 0   0   0            0            0            


*031513 SKIPE	0,000000
INITIAL
C(AC)=000000 000000 
C(E)=000000 000000 
FINAL
C(AC)=000000 000000 

TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031513 031513 0   0   332000000000 0            0            
IT1	031513 0      0   0   332000000000 0            0            
AT3	031513 0      0   0   0            0            332000000000 
AT6	031513 0      0   0   0            0            332000000000 
FT0	031513 0      0   0   0            0            332000000000 
FT1A	031513 0      0   0   0            0            0            
FT9	031514 0      0   0   0            0            0            
ET0	031515 0      0   0   0            0            0            
ST1A	031515 0      0   0   0            0            0            
ST9	031515 0      0   0   0            0            0            


*031515 JUMPA	0,031516
INITIAL
C(AC)=000000 000000 
FINAL


TIME    PC     MA     SC  FE  AR           MQ           BR
IT0	031515 031515 0   0   324000031516 0            000000031516 
IT1	031515 0      0   0   324000031516 0            000000031516 
AT3	031515 0      0   0   000000031516 0            324000031516 
AT6	031515 031516 0   0   000000031516 0            324000031516 
FT1A	031515 031516 0   0   000000031516 0            000000031516 
FT2	031515 031516 0   0   0            0            000000031516 
FT2RQ	031515 031516 0   0   0            0            000000031516 
FT3	031515 031516 0   0   0            0            000000031516 
FT9	031516 031516 0   0   0            0            000000031516 
ET0	031516 031516 0   0   0            0            000000031516 
ST1A	031516 031516 0   0   0            0            000000031516 
ST9	031516 031516 0   0   0            0            000000031516 


PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC	KASIM VER 0.2  19-JAN-77   PAGE 146
DAKAB	000000 000000  000000 000000  000000 000000