Google
 

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





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


	PRODUCT CODE:	MAINDEC-10-DBKAB

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

	FUNCTION:	BASIC INSTRUCTIONS 1

	VERSION:	0.2

	DATE RELEASED:	AUGUST,1976

	MAINTAINED BY:	DIAGNOSTIC ENGINEERING GROUP

	AUTHOR:		JOHN R. KIRCHOFF

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


1.0	ABSTRACT

	THIS PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC IS THE
	SECOND IN A SERIES OF PDP-10 KI10 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 KI10 WITH A MINIMUM OF 32K OF MEMORY

	PAPER TAPE READER (KI10)
	DECTAPE (OPTIONAL)
	CONSOLE TELETYPE

2.2	STORAGE

	THE PROGRAM RUNS WITHIN 32K OF MEMORY.

2.3	PRELIMINARY PROGRAMS

	CONSOLE FUNCTIONS WORKING PROPERLY
	PAPER TAPE READ-IN WORKING PROPERLY (KI10)
	PREVIOUS PROCESSOR DIAGNOSTICS
							MAINDEC-10-DBKAB.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-DBKAB.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-DBKAB
                                                                                                                           SEQ 0006
************************************************************************

PRODUCT CODE:		MAINDEC-10-DBKAB

PRODUCT NAME:		BASIC INSTRUCTION DIAGNOSTIC #2

DATE RELEASED:		AUGUST,1976

VERSION:		0.2

UPDATE AUTHOR:		EDWARD G. PRENTICE

CHANGES MADE:

	1. UPGRADE TO ALLOW COMPATABILITY WITH THE SUBROUTINE PACKAGE.

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

ORIGINAL VERSION:	0.1

ORIGINAL AUTHOR:	RICHARD MALISKA

ORIGINAL RELEASE:	16-MAR-72

************************************************************************
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 1
DBKABT	MAC	30-JUL-76 12:16		DIAGNOSTIC PARAMETERS                                                              SEQ 0007

     1					;DBKAB
     2
     3
     4
     5
     6
     7
     8
     9
    10
    11						XLIST
    12						LIST
    13						NAME	\MCNVER,\DECVER^
    14
    15
    16					;COPYRIGHT 1972
    17					;DIGITAL EQUIPMENT CORPORATION
    18					;MAYNARD, MASS. 01754
    19
    20					;DICK MALISKA
    21
    22
    23					;ASSEMBLE AS DBKABT,BEGIN,DBKABM
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 2
DBKABT	MAC	30-JUL-76 12:16		DIAGNOSTIC PARAMETERS                                                              SEQ 0008

    24					SUBTTL	DIAGNOSTIC PARAMETERS
    25					;PARAMETER DEFINITIONS
    26			000001		EXCASB==1
    27			000001		USRASB==1
    28
    29					;FLAG DEFINITIONS
    30			010000		USERF=10000		;USER MODE FLAG
    31
    32
    33					;MACROS
    34
    35					; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1)
    36					;	 TO A (JUMPA .-X) TO CYCLE ON FAILING INSTRUCTION
    37
    38					DEFINE	STOP	(A)<
    39						HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
    40						JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
    41									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
    42									;IN THE SUBTEST) TO LOOP ON ERROR>
    43
    44					;SPECIAL FEATURE PARAMETERS
    45
    46			030742		SADR1=B00
    47			030742		SADR2=B00
    48			030742		SADR3=B00
    49			030742		SADR4=B00
    50		254000	030742		SADR5=JRST B00
    51		254000	030742		SADR6=JRST B00
    52		254000	030742		SADR7=JRST B00
    53		254000	030742		SADR8=JRST B00
    54		254000	030742		SADR9=JRST B00
    55		254000	030742		SADR10=JRST B00
    56		254000	030742		SADR11=JRST B00
    57
    58			000000		PAREA0=0
    59			000000		PAREA1=0
    60			000000		PAREA2=0
    61		444253	414200		PAREA3=SIXBIT/DBKAB/
    62		605664	000000		PAREA4=SIXBIT/PNT/
    63			000000		PAREA5=0
    64			000000		PAREA6=0
    65			001000		ITERAT==1000
    66			000001		PGMEND==1
    67						NOSYM
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 1
PARAM	KLM	26-FEB-76		*PARAM*	CONSOLE DATA SWITCH ASSIGNMENTS, FEB 26,1976                               SEQ 0009

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

   103					SUBTTL	*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976
   104
   105					S^;*********************************************************************^
   106					;*SPECIAL SUBPROGRAM LINKAGES
   107					S^;*********************************************************************^
   108
   109			027772		FSELNK=	27772	;FILE SELECT LINK
   110			027773		FRDLNK=	27773	;FILE READ LINK
   111			027774		LDLNK=	27774	;LOAD LINKAGE ADDRESS
   112			027775		DDTLNK=	27775	;DDT LINKAGE ADDRESS
   113			027776		MODLNK=	27776	;OPERATIONAL MODE CHECK LINKAGE ADDRESS
   114			027777		SUBLNK=	27777	;SUBROUTINE LINKAGE ADDRESS
   115
   116					S^;*********************************************************************^
   117					;*SPECIAL SUBROUTINE FATAL HALTS
   118					;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
   119					S^;*********************************************************************^
   120
   121					;ADDRESS   TAG	REASON
   122					;---------------------
   123
   124					; 1010 	NOEXEC	;PROGRAM NOT CODED FOR EXEC MODE OPERATION
   125					; 1011  PLERR	;FATAL PUSH LIST POINTER ERROR
   126					; 1012  PLERR1	;INITIAL PUSH LIST POINTER ERROR
   127					; 1013  MUOERR	;MUUO WITH LUUO HANDLER WIPED OUT
   128					; 1014  DTEBER	;DTE20 INTERRUPT WITHOUT DOORBELL
   129					; 1015  DTECER	;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
   130					; 1016  CPIERR	;CPU INITIALIZATION ERROR
   131					; 1017  EOPERR	;END OF PROGRAM ERROR
   132					; 1020  LUOERR	;INTERRUPT WITH LUUO HANDLER WIPED OUT
   133
   134					S^;*********************************************************************^
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 3
PARAM	KLM	26-FEB-76		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976                                 SEQ 0011

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

   177					;*TERMINAL OUTPUT UUO'S.
   178
   179		037000	000000		OPDEF	PNTA	[37B8!0B12!0]	;PRINT ASCII WORD
   180		037000	000001		OPDEF	PNTAF	[37B8!0B12!1]	;PRINT ASCII WORD FORCED
   181		037740	000000		OPDEF	PNTAL	[37B8!17B12!0]	;PRINT ASCIZ LINE
   182		037740	000001		OPDEF	PNTALF	[37B8!17B12!1]	;PRINT ASCIZ LINE FORCED
   183		037600	000003		OPDEF	PSIXL	[37B8!14B12!3]	;PRINT SIXBIT'Z LINE
   184		037640	000003		OPDEF	PSIXLF	[37B8!15B12!3]	;PRINT SIXBIT'Z LINE FORCED
   185		037000	000000		OPDEF	PNTMSG	[37B8!0B12!0]	;PRINT MESSAGE IMMEDIATE
   186		037040	000000		OPDEF	PNTMSF	[37B8!1B12!0]	;PRINT MESSAGE IMMEDIATE FORCED
   187		037100	000000		OPDEF	PSIXM	[37B8!2B12!0]	;PRINT SIXBIT'Z MSG IMMEDIATE
   188		037200	000000		OPDEF	PSIXMF	[37B8!4B12!0]	;PRINT SIXBIT'Z MSG IMM FORCED
   189		037000	000000		OPDEF	PNTCI	[37B8!0B12!0]	;PRINT CHARACTER IMMEDIATE
   190		037040	000000		OPDEF	PNTCIF	[37B8!1B12!0]	;PRINT CHARACTER IMMEDIATE FORCED
   191		037500	000000		OPDEF	PNTCHR	[37B8!12B12!0]	;PRINT CHARACTER
   192		037500	000001		OPDEF	PNTCHF	[37B8!12B12!1]	;PRINT CHARACTER FORCED
   193		037040	000000		OPDEF	PNT1	[37B8!1B12!0]	;PRINT ONE OCTAL DIGIT
   194		037040	000001		OPDEF	PNT1F	[37B8!1B12!1]	;PRINT 1 OCTAL DIGIT FORCED	
   195		037100	000000		OPDEF	PNT2	[37B8!2B12!0]	;PRINT TWO OCTAL DIGITS
   196		037100	000001		OPDEF	PNT2F	[37B8!2B12!1]	;PRINT 2 OCTAL DIGITS FORCED	
   197		037140	000000		OPDEF	PNT3	[37B8!3B12!0]	;PRINT THREE OCTAL DIGITS
   198		037140	000001		OPDEF	PNT3F	[37B8!3B12!1]	;PRINT THREE OCTAL DIGITS FORCED	
   199		037200	000000		OPDEF	PNT4	[37B8!4B12!0]	;PRINT FOUR OCTAL DIGITS
   200		037200	000001		OPDEF	PNT4F	[37B8!4B12!1]	;PRINT FOUR OCTAL DIGITS FORCED
   201		037240	000000		OPDEF	PNT5	[37B8!5B12!0]	;PRINT FIVE OCTAL DIGITS
   202		037240	000001		OPDEF	PNT5F	[37B8!5B12!1]	;PRINT FIVE OCTAL DIGITS FORCED
   203		037300	000000		OPDEF	PNT6	[37B8!6B12!0]	;PRINT SIX OCTAL DIGITS
   204		037300	000001		OPDEF	PNT6F	[37B8!6B12!1]	;PRINT SIX OCTAL DIGITS FORCED
   205		037340	000000		OPDEF	PNT7	[37B8!7B12!0]	;PRINT 7 OCTAL DIGITS
   206		037340	000001		OPDEF	PNT7F	[37B8!7B12!1]	;PRINT 7 OCTAL DIGITS FORCED
   207		037440	000000		OPDEF	PNT11	[37B8!11B12!0]	;PRINT 11 OCTAL DIGITS
   208		037440	000001		OPDEF	PNT11F	[37B8!11B12!1]	;PRINT 11 OCTAL DIGITS FORCED.
   209		037400	000000		OPDEF	PNTADR	[37B8!10B12!0]	;PRINT PHYSICAL ADDRESS
   210		037400	000001		OPDEF	PNTADF	[37B8!10B12!1]	;PRINT PHYSICAL ADDRESS FORCED
   211		037600	000000		OPDEF	PNTOCT  [37B8!14B12!0]	;PRINT FULL WORD OCTAL
   212		037600	000001		OPDEF	PNTOTF	[37B8!14B12!1]	;PRINT FULL WORD OCTAL FORCED
   213		037540	000000		OPDEF	PNTHW	[37B8!13B12!0]	;PRINT OCTAL HALF WORDS, 6 SP 6
   214		037540	000001		OPDEF	PNTHWF	[37B8!13B12!1]	;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
   215		037700	000003		OPDEF	PNTOCS	[37B8!16B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S
   216		037740	000003		OPDEF	PNTOCF	[37B8!17B12!3]	;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
   217		037640	000000		OPDEF	PNTDEC	[37B8!15B12!0]	;PRINT DECIMAL, SUPRESS LEADING 0'S
   218		037640	000001		OPDEF	PNTDCF	[37B8!15B12!1]	;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
   219		037700	000000		OPDEF	PNTDS	[37B8!16B12!0]	;PRINT DECIMAL, SPACES FOR LD 0'S
   220		037700	000001		OPDEF	PNTDSF	[37B8!16B12!1]	;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 5
PARAM	KLM	26-FEB-76		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976                                 SEQ 0013

   221		037200	000002		OPDEF	PNTNM	[37B8!4B12!2]	;PRINT PROGRAM NAME
   222		037000	000002		OPDEF	PNTSIX	[37B8!0B12!2]	;PRINT SIXBIT WORD
   223		037040	000002		OPDEF	PNTSXF	[37B8!1B12!2]	;PRINT SIXBIT WORD FORCED
   224		037240	000002		OPDEF	DROPDV	[37B8!5B12!2]	;CLOSE LOGICAL FILE, USER MODE
   225		037100	000002		OPDEF	PNTCW	[37B8!2B12!2]	;PRINT DF10 CONTROL WORD
   226		037140	000002		OPDEF	PNTCWF	[37B8!3B12!2]	;PRINT DF10 CONTROL WORD FORCED
   227		037000	030242		OPDEF	PCRL	[37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
   228		037040	030242		OPDEF	PCRLF	[37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
   229		037000	000040		OPDEF	PSP	[37B8!0B12!40]	;PRINT SPACE
   230		037040	000040		OPDEF	PSPF	[37B8!1B12!40]	;PRINT SPACE FORCED
   231		037000	030243		OPDEF	PCRL2	[37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
   232		037040	030243		OPDEF	PCRL2F	[37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
   233		037040	000007		OPDEF	PBELL	[37B8!1B12!7]	;PRINT TTY BELL
   234
   235		037040	000026		OPDEF	PFORCE	[37B8!1B12!26]	;PRINT FORCE, CONTROL O OVERRIDE
   236
   237					DEFINE	PMSG	(ARG),<
   238						PSIXM	[SIXBIT\ARG'_\]>
   239
   240					DEFINE	PMSGF	(ARG),<
   241						PSIXMF	[SIXBIT\ARG'_\]>
   242
   243					;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
   244					;*	CONSERVES CORE OVER ASCIZ
   245
   246					DEFINE	SIXBTZ	(ARG),<	[SIXBIT\ARG'_\]>
   247
   248					;*CONSOLE SWITCH INPUT UUO.
   249					;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
   250					;* USER MODE.
   251
   252		037400	000002		OPDEF	SWITCH	[37B8!10B12!2]	;INPUT CONSOLE SWITCHES
   253
   254					;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
   255					;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
   256
   257		037540	000004		OPDEF	CLOKOP	[37B8!13B12!4]	;CLOCK OPERATION UUO - PDP-11 CLOCK
   258		037200	000004		OPDEF	MTROP	[37B8!4B12!4]	;CLOCK OPERATION UUO - DK20 METER
   259
   260					;*KL10 ONLY CACHE OPERATION UUO'S
   261
   262		037040	000004		OPDEF	CINVAL	[37B8!1B12!4]	;CACHE INVALIDATE
   263		037100	000004		OPDEF	CFLUSH	[37B8!2B12!4]	;CACHE FLUSH
   264		037140	000004		OPDEF	CWRTBI	[37B8!3B12!4]	;CACHE WRITE-BACK & INVALIDATE
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 6
PARAM	KLM	26-FEB-76		*PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976                                 SEQ 0014

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

   308					SUBTTL	ERROR HANDLING UUO DEFINITIONS, JAN 5,1976
   309
   310					S^;*********************************************************************^
   311					;*ERROR HANDLER PARAMETERS
   312					S^;*********************************************************************^
   313
   314		036000	000000		OPDEF	ERUUO	[36B8]		;ERROR CALL UUO
   315		035000	000000		OPDEF	ERLOOP	[35B8]		;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
   316		035040	000000		OPDEF	ERLP1	[35B8!1B12]	;ERROR LOOP IF PC'S MATCH
   317		035100	000000		OPDEF	ERLP2	[35B8!2B12]	;ERROR LOOP IF ANY ERROR
   318		034000	000000		OPDEF	REPTUO	[34B8]		;REPEAT LOOP UUO
   319
   320					;*THE ERROR HANDLER MACROS
   321
   322					;*A MACRO TO REPORT AN ERROR AND LOOP
   323
   324						DEFINE	ERROR	(ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
   325						SALL
   326						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   327							   CORECT,,ACTUAL
   328							   [SIXBIT\D'_\],,ERR]
   329						XALL
   330					
   331						ERLOOP	ADR		;IF ERROR, LOOP TO ADR
   332					>
   333
   334					;*A MACRO TO REPORT AN ERROR AND NOT LOOP
   335
   336						DEFINE	ERROR1	(FORMAT,CORECT,ACTUAL,F,D,ERR)<
   337						SALL
   338						ERUUO	FORMAT,[T,,[SIXBIT\F'_\]
   339							   CORECT,,ACTUAL
   340							   [SIXBIT\D'_\],,ERR]
   341						XALL	>
   342
   343					>;END OF KLOLD CONDITIONAL
   344
   345						XLIST
   346						LIST
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 1
FIXED	KLM	26-FEB-76		*FIXED* FIXED CONTROL AND DISPATCH STORAGE, FEB 26,1976                            SEQ 0016

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

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

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

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

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

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

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

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

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

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

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

   839					SUBTTL	DIAGNOSTIC PARAMETERS
   840
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 2
DBKABM	MAC	30-APR-76 16:57		DIAGNOSTIC SECTION                                                                 SEQ 0028

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

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

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

   965					;THIS TEST VERIFIES THAT WHEN THE ADD INSTRUCTION IS USED TO ADD
   966					;A WORD CONTAINING A NON-ZERO POSITIVE NUMBER TO AN AC OF ALL ZEROS, THE
   967					;RESULT IS A NON-ZERO POSITIVE NUMBER IN THE AC.  FIRST, THE AC IS
   968					;INITIALIZED WITH A WORD OF ALL ZEROS ;THEN, A NON-ZERO POSITIVE NUMBER
   969					;IS ADDED TO THE AC.  THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
   970
   971	030766	200 00 0 00 035412 	A13300:	MOVE	[0]		;PRESET AC WITH ALL ZEROS
   972	030767	270 00 0 00 035414 		ADD	[123456,,0]	;*ADD OF A NON-ZERO NUMBER TO AN AC CONTAINING ALL ZEROS
   973									;SHOULD RESULT IN AN AC CONTAINING A NON-ZERO NUMBER
   974	030770	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) IS NON-ZERO
   975						STOP^
   976	030771	254 04 0 00 030772 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   977	030772	324 00 0 00 030773 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   978									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
   979									;IN THE SUBTEST) TO LOOP ON ERROR^
   980
   981					;**********
   982
   983					;THIS TEST VERIFIES THAT WHEN THE ADD INSTRUCTION IS USED TO ADD
   984					;A WORD CONTAINING A NON-ZERO POSITIVE NUMBER TO AN AC OF ALL ZEROS, THE
   985					;RESULT IS A NON-ZERO POSITIVE NUMBER IN THE AC.  FIRST, THE AC IS
   986					;INITIALIZED WITH A WORD OF ALL ZEROS ;THEN, A NON-ZERO POSITIVE NUMBER
   987					;IS ADDED TO THE AC.  THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
   988
   989	030773	200 00 0 00 035412 	A13400:	MOVE	[0]		;PRESET AC WITH ALL ZEROS
   990	030774	270 00 0 00 035415 		ADD	[123456]	;*ADD OF A NON-ZERO NUMBER TO AN AC CONTAINING ALL ZEROS
   991									;SHOULD RESULT IN AN AC CONTAINING A NON-ZERO NUMBER
   992	030775	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) IS NON-ZERO
   993						STOP^
   994	030776	254 04 0 00 030777 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   995	030777	324 00 0 00 031000 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   996									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
   997									;IN THE SUBTEST) TO LOOP ON ERROR^
   998
   999					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 6
DBKABM	MAC	30-APR-76 16:57		TEST OF THE ADD INSTRUCTION                                                        SEQ 0032

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

  1055
  1056					;ADDX; AD AR + EN [ADAP], F CYC ACT EN A[F1],
  1057					;IR ADDX [IR1], IR ADSUB [IR1]
  1058
  1059					;**********
  1060					PAGE
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 6-2
DBKABM	MAC	30-APR-76 16:57		TEST OF THE ADD INSTRUCTION                                                        SEQ 0034

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  2111
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 7
DBKABM	MAC	30-APR-76 16:57		TEST OF THE ADD INSTRUCTION                                                        SEQ 0070

  2112					;THIS TEST VERIFIES THAT THE ADDITION OF A WORD OF 
  2113					;ALL ZEROS TO AN AC OF ALL ZEROS RESULTS IN
  2114					;C(AC)=0. FIRST THE AC IS CLEARED; THEN, A WORD
  2115					;OF ALL ZEROS IS ADDED TO THE AC. THE RESULT IN
  2116					;THE AC IS THEN CHECKED TO INSURE THAT C(AC)=0
  2117
  2118	031374	200 00 0 00 035412 	A11100:	MOVE	[0]		;PRESET AC TO ZERO
  2119	031375	270 00 0 00 035412 		ADD	[0]		;*ADD OF ZERO TO ZERO SHOULD RESULT IN C(AC)=0
  2120	031376	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  2121						STOP^
  2122	031377	254 04 0 00 031400 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2123	031400	324 00 0 00 031401 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2124									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  2125									;IN THE SUBTEST) TO LOOP ON ERROR^
  2126
  2127					;FCE[F1], IR AD SUB [IR1]
  2128					;AD FM + EN [ADFP], AD FM + EN A [ADFP],
  2129					;F CYC ACT EN C[F1], IR ADSUB [IR1]
  2130
  2131					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 8
DBKABM	MAC	30-APR-76 16:57		TEST OF THE ADD INSTRUCTION                                                        SEQ 0071

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  3977					;AC WHOSE CONTENTS IS NON-ZERO. HENCE, IF A
  3978					;CARRY IS NOT GENERATED IN THE ADDITION PROCESS THE
  3979					;RESULT IN THE AC WILL BE ZERO AND THE TEST
  3980					;WILL FAIL. THIS TEST IS REPEATED 35 TIMES
  3981					;SO THAT A ONE WILL BE FLOATED THROUGH
  3982					;BITS 1 THRU 35 OF BOTH AC AND E
  3983			011243		SN=SN+1
  3984		200000	000000			ZZ=ZZ+ZZ
  3985						IFE	ZZ,<ZZ=1>
  3986	032353	200 00 0 00 035460 		MOVE	[ZZ]		;PRESET AC WITH A FLOATING ONE
  3987	032354	270 00 0 00 035460 		ADD	[ZZ]		;*ADD FLOATING ONE TO SAME SHOULD RESULT IN C(AC) NONZERO
  3988	032355	444 00 0 00 035461 		EQV	[ZZ+ZZ]		;RESULTS IN C(AC)=ALL ONES
  3989	032356	444 00 0 00 035412 		EQV	[0]		;RESULTS IN C(AC)=0
  3990	032357	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  3991						STOP^
  3992	032360	254 04 0 00 032361 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3993	032361	324 00 0 00 032362 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3994									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  3995									;IN THE SUBTEST) TO LOOP ON ERROR^
  3996
  3997					;**********
  3998
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 9
DBKABM	MAC	30-APR-76 16:57		TEST OF THE ADD INSTRUCTION                                                        SEQ 0106

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

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

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

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

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

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

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

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

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

  4494					PAGE
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 9-10
DBKABM	MAC	30-APR-76 16:57		TEST OF THE ADD INSTRUCTION                                                        SEQ 0116

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  5870	033256	324 00 0 00 033257 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5871									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5872									;IN THE SUBTEST) TO LOOP ON ERROR^
  5873
  5874					;**********
  5875
  5876					PAGE
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 14-14
DBKABM	MAC	30-APR-76 16:57		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0143

  5877					;THIS TEST VERIFIES THAT IF A WORD OF ALL
  5878					;ONES IS SUBTRACTED FROM ITSELF, THE RESULT
  5879					;IN THE AC IS ZERO.
  5880
  5881	033257	200 00 0 00 035524 	A12000:	MOVE	[-1]		;PRESET AC TO ALL ONES
  5882	033260	274 00 0 00 035524 		SUB	[-1]		;*SUB OF -1 FROM ITSELF SHOULD RESULT IN C(AC)=0
  5883	033261	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  5884						STOP^
  5885	033262	254 04 0 00 033263 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5886	033263	324 00 0 00 033264 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5887									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  5888									;IN THE SUBTEST) TO LOOP ON ERROR^
  5889
  5890					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 15
DBKABM	MAC	30-APR-76 16:57		TEST OF SUB AND COMPARE INSTRUCTIONS                                               SEQ 0144

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

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

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

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

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

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

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

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

  6210					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND
  6211					;ONLY WHEN C(AC) IS NOT EQUAL TO C(E)
  6212					;IN THIS CASE, C(AC)=0 AND C(E)=0;  HENCE CAMN SHOULD NOT SKIP.
  6213					;OTHERWISE, THE PROGRAM HALTS
  6214
  6215	033374	400 00 0 00 000000 	B1500:	SETZ			;PRELOAD AC WITH 0		
  6216	033375	316 00 0 00 035412 		CAMN	[0]		;*CAMN SHOULD NOT SKIP BECAUSE C(AC)=C(E).
  6217	033376	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF CAMN PASSES
  6218						STOP^
  6219	033377	254 04 0 00 033400 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6220	033400	324 00 0 00 033401 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6221									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6222									;IN THE SUBTEST) TO LOOP ON ERROR^
  6223
  6224					;*****     FAILURE ANALYSIS     *****
  6225					;C(AC0)		C(AC1)		FAILING SIGNAL
  6226
  6227					;				SW: FCE
  6228					;				FC: PC CHANGE
  6229
  6230					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 24
DBKABM	MAC	30-APR-76 16:57		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0153

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

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

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

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

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

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

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

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

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

  6726						IFE	ZZ,<ZZ=1>
  6727	033526	200 00 0 00 035437 		MOVE	[XWD ZZ]	;PRELOAD AC,E WITH A FLOATING 1
  6728	033527	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  6729	033530	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  6730						STOP^
  6731	033531	254 04 0 00 033532 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6732	033532	324 00 0 00 033533 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6733									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  6734									;IN THE SUBTEST) TO LOOP ON ERROR^
  6735
  6736					;*****     FAILURE ANALYSIS     *****
  6737					;C(AC0)		C(AC1)		FAILING SIGNAL
  6738
  6739					;				ET0: COND P
  6740
  6741					;**********
  6742
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 25
DBKABM	MAC	30-APR-76 16:57		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0163

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

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

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

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

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

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

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

  7128	033655	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  7129						STOP^
  7130	033656	254 04 0 00 033657 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7131	033657	324 00 0 00 033660 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7132									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7133									;IN THE SUBTEST) TO LOOP ON ERROR^
  7134
  7135					;**********
  7136
  7137
  7138					;THIS TEST VERIFIES THAT CAMN SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY
  7139					;WHEN C(AC) IS NOT EQUAL TO C(E).  IT ALSO VERIFIES THAT CAME
  7140					;SKIPS THE NEXT SEQUENTIAL INSTRUCTION WHEN AND ONLY WHEN
  7141					;C(AC)=C(E).  IN BOTH CASES AC=E;  HENCE, C(AC)=C(E)
  7142					;IF EITHER CAMN OR CAME FAILS, THE PROGRAM HALTS
  7143					;THIS TEST IS REPEATED 36 TIMES IN ORDER TO FLOAT A 1 THRU ALL 36 BITS
  7144
  7145			001644		SN=SN+1
  7146			400000			ZZ=ZZ+ZZ
  7147						IFE	ZZ,<ZZ=1>
  7148	033660	200 00 0 00 035461 		MOVE	[XWD ZZ,0]	;PRELOAD AC,E WITH A FLOATING 1
  7149	033661	316 00 0 00 000000 		CAMN			;*CAMN SHOLD NOT SKIP BECAUSE C(AC)=C(E)		
  7150	033662	312 00 0 00 000000 		CAME			;*CAME SHOULD SKIP BECAUSE C(AC)=C(E)		
  7151						STOP^
  7152	033663	254 04 0 00 033664 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7153	033664	324 00 0 00 033665 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7154									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7155									;IN THE SUBTEST) TO LOOP ON ERROR^
  7156
  7157					;**********
  7158
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 26
DBKABM	MAC	30-APR-76 16:57		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0171

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

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

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

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

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

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

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

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

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

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

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

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

  7819									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  7820									;IN THE SUBTEST) TO LOOP ON ERROR^
  7821
  7822					;**********
  7823
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 27
DBKABM	MAC	30-APR-76 16:57		TEST OF COMPARE (CAMX) INSTRUCTIONS                                                SEQ 0184

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

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

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

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

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

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

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

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

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

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

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

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

  8484									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
  8485									;IN THE SUBTEST) TO LOOP ON ERROR^
  8486
  8487					;**********
  8488
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 28
DBKABM	MAC	30-APR-76 16:57		TEST OF MOVS INSTRUCTION                                                           SEQ 0197

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 10256						STOP^
 10257	034777	254 04 0 00 035000 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10258	035000	324 00 0 00 035001 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10259									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10260									;IN THE SUBTEST) TO LOOP ON ERROR^
 10261
 10262					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 33
DBKABM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0231

 10263					SUBTTL	TEST OF BOOLEAN INSTRUCTIONS
 10264
 10265					;**********
 10266
 10267					;THIS TEST VERIFIES THAT SETCA IGNORES THE ADDRESS FIELD OF THE INSTUCTION WORD.
 10268					;IN THIS CASE C(AC)=0,,-1;  HENCE, THE RESULT IN THE AC SHOULD BE -1,,0
 10269					;IF THE RESULT IN THE AC IS -1,,0, THE TEST PASSES.
 10270
 10271	035001	201 00 0 00 777777 	B3000:	MOVEI	-1		;PRELOAD AC TO 0,,-1	
 10272	035002	450 00 0 00 035524 		SETCA	[-1]		;*SETCA SHOULD PUT -1,,0 INTO THE AC
 10273	035003	312 00 0 00 035502 		CAME	[-1,,0]		;PASS TEST IF C(AC)=-1,,0
 10274						STOP^
 10275	035004	254 04 0 00 035005 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10276	035005	324 00 0 00 035006 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10277									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10278									;IN THE SUBTEST) TO LOOP ON ERROR^
 10279
 10280					;**********
 10281
 10282					;THIS TEST VERIFIES THAT SETCA COMPLEMENTS C(AC), THEN PLACES THE
 10283					;RESULT IN THE AC.
 10284					;IN THIS CASE C(AC)=0,,-1;  HENCE, THE RESULT IN THE AC SHOULD BE -1,,0
 10285					;IF THE RESULT IN THE AC IS -1,,0, THE TEST PASSES
 10286
 10287	035006	201 00 0 00 777777 	B3100:	MOVEI	-1		;PRELOAD AC TO 0,,-1
 10288	035007	450 00 0 00 000000 		SETCA			;*SETCA SHOULD PUT -1,,0 INTO THE AC
 10289	035010	312 00 0 00 035502 		CAME	[-1,,0]		;PASS TEST IF C(AC) =-1,,0
 10290						STOP^
 10291	035011	254 04 0 00 035012 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10292	035012	324 00 0 00 035013 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10293									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10294									;IN THE SUBTEST) TO LOOP ON ERROR^
 10295
 10296					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 34
DBKABM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0232

 10297					;THIS TEST VERIFIES THAT SETCA COMPLEMENTS C(AC), THEN PLACES THE
 10298					;RESULT IN THE AC,
 10299					;IN THIS CASE C(AC)=0,,0  HENCE, THE RESULT IN THE AC SHOULD BE,-1
 10300					;IF THE RESULT IN THE AC IS -1,,-1, THE TEST PASSES
 10301
 10302	035013	201 00 0 00 000000 	B3200:	MOVEI	0		;PRELOAD AC TO 0,,0
 10303	035014	450 00 0 00 000000 		SETCA			;*SETCA SHOULD PUT -1,,-1 INTO THE AC
 10304	035015	312 00 0 00 035524 		CAME	[-1]		;PASS TEST IF C(AC) =-1,,-1
 10305						STOP^
 10306	035016	254 04 0 00 035017 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10307	035017	324 00 0 00 035020 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10308									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10309									;IN THE SUBTEST) TO LOOP ON ERROR^
 10310
 10311					;*****     FAILURE ANALYSIS     *****
 10312					;C(AC0)		C(AC1)		FAILING SIGNAL
 10313
 10314					;0				ET2: AR AD EN
 10315
 10316					;**********
 10317
 10318					;THIS TEST VERIFIES THAT SETCA COMPLEMENTS C(AC), THEN PLACES THE
 10319					;RESULT IN THE AC,
 10320					;IN THIS CASE C(AC)=-1,,-1;  HENCE, THE RESULT IN THE AC SHOULD BE 0,,0
 10321					;IF THE RESULT IN THE AC IS ZERO, THE TEST PASSES
 10322
 10323	035020	200 00 0 00 035524 	B3300:	MOVE	[-1]		;PRELOAD AC TO -1,,-1	
 10324	035021	450 00 0 00 000000 		SETCA			;*SETCA SHOULD PUT 0,,0 INTO THE AC
 10325	035022	312 00 0 00 035412 		CAME	[0]		;PASS TEST IF C(AC) IS ZERO
 10326						STOP^
 10327	035023	254 04 0 00 035024 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10328	035024	324 00 0 00 035025 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10329									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10330									;IN THE SUBTEST) TO LOOP ON ERROR^
 10331
 10332					;*****     FAILURE ANALYSIS     *****
 10333					;C(AC0)		C(AC1)		FAILING SIGNAL
 10334
 10335					;-1,,-1				FC: AD FM - EN
 10336
 10337					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 35
DBKABM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0233

 10338					;THIS TEST VERIFIES THAT SETCM COMPLEMENTS C(E), THEN PLACES THE
 10339					;RESULT IN THE AC.
 10340					;IN THIS CASE AC=E AND C(E)=C(AC)=0,,-1;  HENCE, THE RESULT IN THE AC SHOULD BE -1,,0
 10341					;IF THE RESULT IN THE AC IS -1,,0, THE TEST PASSES
 10342
 10343	035025	201 00 0 00 777777 	B3500:	MOVEI	-1		;PRELOAD AC TO 0,,-1
 10344	035026	460 00 0 00 000000 		SETCM			;*SETCM SHOULD PUT -1,,0 INTO THE AC
 10345	035027	312 00 0 00 035502 		CAME	[-1,,0]		;PASS TEST IF C(AC) =-1,,0
 10346						STOP^
 10347	035030	254 04 0 00 035031 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10348	035031	324 00 0 00 035032 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10349									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10350									;IN THE SUBTEST) TO LOOP ON ERROR^
 10351
 10352					;*****     FAILURE ANALYSIS     *****
 10353					;C(AC0)		C(AC1)		FAILING SIGNAL
 10354
 10355					;-1,,-1				SW: FCE
 10356					;-1,,-1				FC: AD AR - EN
 10357					;0,,-1				ET2: AR AD EN
 10358
 10359					;**********
 10360
 10361					;THIS TEST VERIFIES THAT SETCM COMPLEMENTS C(E), THEN PLACES THE
 10362					;RESULT IN THE AC.
 10363					;IN THIS CASE C(E)=-1,,-1;  HENCE, THE RESULT IN THE AC SHOULD BE 0,,0
 10364					;IF THE RESULT IN THE AC IS ZERO,THE TEST PASSES
 10365
 10366	035032	460 00 0 00 035524 	B3600:	SETCM	[-1]		;*SETCM SHOULD PUT 0 INTO THE AC	
 10367	035033	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC0)=0		
 10368						STOP^
 10369	035034	254 04 0 00 035035 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10370	035035	324 00 0 00 035036 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10371									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10372									;IN THE SUBTEST) TO LOOP ON ERROR^
 10373
 10374					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 36
DBKABM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0234

 10375					;THIS TEST VERIFIES THAT SETCM COMPLEMENTS C(E), THEN PLACES THE
 10376					;RESULT IN THE AC.
 10377					;IN THIS CASE C(E)=0,,0;  HENCE, THE RESULT IN THE AC SHOULD BE -1,,-1
 10378					;IF THE RESULT IN THE AC IS -1,,-1,THE TEST PASSES
 10379
 10380	035036	460 00 0 00 035412 	B3700:	SETCM	[0]		;*SETCM SHOULD PUT -1,,-1 INTO THE AC	
 10381	035037	312 00 0 00 035524 		CAME	[-1]		;PASS TEST IF C(AC)=-1,,-1	
 10382						STOP^
 10383	035040	254 04 0 00 035041 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10384	035041	324 00 0 00 035042 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10385									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10386									;IN THE SUBTEST) TO LOOP ON ERROR^
 10387
 10388					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 37
DBKABM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0235

 10389					;THIS TEST VERIFIES THAT SETO SETS C(AC) TO -1,,-1.  SETO IGNORES
 10390					;THE ADDRESS FIELD OF THE INSTRUCTION WORD.
 10391					;FIRST C(AC) IS SET TO 0,,0; THEN SETO IS EXECUTED.
 10392					;THE AC IS THEN CHECKED FOR ALL ONES.  IF C(AC) IS ALL ONES,
 10393					;THE TEST PASSES
 10394
 10395	035042	201 00 0 00 000000 	B4300:	MOVEI	0		;PRELOAD AC WITH 0,,0
 10396	035043	474 00 0 00 000000 		SETO			;*SETO SHOULD LOAD THE AC WITH -1,,-1
 10397	035044	312 00 0 00 035524 		CAME	[-1]		;PASS TEST IF C(AC)=-1,,-1
 10398						STOP^
 10399	035045	254 04 0 00 035046 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10400	035046	324 00 0 00 035047 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10401									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10402									;IN THE SUBTEST) TO LOOP ON ERROR^
 10403
 10404					;*****     FAILURE ANALYSIS     *****
 10405					;C(AC0)		C(AC1)		FAILING SIGNAL
 10406
 10407					;0				ET2: AR AD EN
 10408
 10409					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 38
DBKABM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0236

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

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

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

 10550					;THIS TEST VERIFIES THAT IOR CHANGES C(AC) TO THE LOGICAL
 10551					;INCLUSIVE OR OF C(AC) WITH C(E).
 10552					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE
 10553					;RESULT IN THE AC SHOULD BE -1,,-1
 10554					;THE AC IS CHECKED FOR ITS CONTENTS = ALL ONES
 10555					;IF C(AC)=-1, THE TEST PASSES
 10556
 10557	035105	474 00 0 00 000000 	B5200:	SETO			;PRELOAD AC WITH -1,,-1
 10558	035106	434 00 0 00 035524 		IOR	[-1]		;*IOR SHOULD PUT -1,,-1 INTO AC
 10559	035107	312 00 0 00 035524 		CAME	[-1]		;PASS TEST IF C(AC)=-1,,-1
 10560						STOP^
 10561	035110	254 04 0 00 035111 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10562	035111	324 00 0 00 035112 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10563									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10564									;IN THE SUBTEST) TO LOOP ON ERROR^
 10565
 10566					;**********
 10567
 10568					;THIS TEST VERIFIES THAT IOR CHANGES C(AC) TO THE LOGICAL
 10569					;INCLUSIVE OR OF C(AC) WITH C(E).
 10570					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE
 10571					;RESULT IN THE AC SHOULD BE -1,,-1
 10572					;THE AC IS CHECKED FOR ITS CONTENTS = ALL ONES
 10573					;IF C(AC)=-1,,-1, THE TEST PASSES
 10574
 10575	035112	474 00 0 00 000000 	B5300:	SETO			;PRELOAD AC WITH -1,,-1
 10576	035113	434 00 0 00 035412 		IOR	[0]		;*IOR SHOULD PUT -1,,-1 INTO AC
 10577	035114	312 00 0 00 035524 		CAME	[-1]		;PASS TEST IF C(AC)=-1,,-1
 10578						STOP^
 10579	035115	254 04 0 00 035116 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10580	035116	324 00 0 00 035117 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10581									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10582									;IN THE SUBTEST) TO LOOP ON ERROR^
 10583
 10584					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 42
DBKABM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0240

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

 10625					;THIS TEST VERIFIES THAT ANDCM CHANGES C(AC) TO THE LOGICAL AND
 10626					;OF C(AC) AND THE COMPLEMENT OF C(MEMORY).
 10627					;IN THIS CASE C(AC)=-1,,-1, AND C(E)=0.  HENCE, THE RESULT IN THE AC
 10628					;SHOULD BE ALL ONES.  THE AC IS CHECKED FOR -1,,-1.
 10629					;IF C(AC)=-1,,-1, THE TEST PASSES
 10630
 10631	035131	474 00 0 00 000000 	B5700:	SETO			;PRELOAD AC WITH 0		
 10632	035132	420 00 0 00 035412 		ANDCM	[0]		;*ANDCM SHOULD PLACE -1,,-1 IN THE AC
 10633	035133	312 00 0 00 035524 		CAME	[-1]		;IF C(AC)=-1,,-1, THE TEST PASSES
 10634						STOP^
 10635	035134	254 04 0 00 035135 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10636	035135	324 00 0 00 035136 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10637									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10638									;IN THE SUBTEST) TO LOOP ON ERROR^
 10639
 10640					;**********
 10641
 10642					;THIS TEST VERIFIES THAT ANDCM CHANGES C(AC) TO THE LOGICAL AND
 10643					;OF C(AC) AND THE COMPLEMENT OF C(MEMORY).
 10644					;IN THIS CASE, AC=E AND C(AC)=C(E)=0.  HENCE, THE RESULT IN THE AC
 10645					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.
 10646					;IF C(AC)=0, THE TEST PASSES
 10647
 10648	035136	201 00 0 00 000000 	B6000:	MOVEI	0		;PRELOAD AC WITH 0	
 10649	035137	420 00 0 00 000000 		ANDCM			;*ANDCM SHOULD PLACE 0 IN THE AC
 10650	035140	332 00 0 00 000000 		SKIPE			;IF C(AC)=0, THE TEST PASSES.
 10651						STOP^
 10652	035141	254 04 0 00 035142 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10653	035142	324 00 0 00 035143 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10654									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10655									;IN THE SUBTEST) TO LOOP ON ERROR^
 10656
 10657					;*****     FAILURE ANALYSIS     *****
 10658					;C(AC0)		C(AC1)		FAILING SIGNAL
 10659
 10660					;-1,,-1				FC: AD FM + EN
 10661
 10662					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 44
DBKABM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0242

 10663					;THIS TEST VERIFIES THAT ANDCM CHANGES C(AC) TO THE LOGICAL AND
 10664					;OF C(AC) AND THE COMPLEMENT OF C(MEMORY).
 10665					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1. HENCE, THE RESULT IN THE AC
 10666					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.
 10667					;IF C(AC)=0, THE TEST PASSES
 10668
 10669	035143	400 00 0 00 000000 	B6100:	SETZ			;PRELOAD AC WITH 0	
 10670	035144	420 00 0 00 035524 		ANDCM	[-1]		;*ANDCM SHOULD PLACE 0 IN THE AC	
 10671	035145	332 00 0 00 000000 		SKIPE			;IF C(AC)=0, THE TEST PASSES
 10672						STOP^
 10673	035146	254 04 0 00 035147 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10674	035147	324 00 0 00 035150 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10675									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10676									;IN THE SUBTEST) TO LOOP ON ERROR^
 10677
 10678					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 45
DBKABM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0243

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

 10724					;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION
 10725					;OF THE COMPLEMENT OF C(AC) AND C(E).
 10726					;IN THIS CASE AC=E=AC0 AND C(AC)=C(E)=0. HENCE, THE RESULT
 10727					;IN THE AC SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC=0,
 10728					;THE TEST PASSES.
 10729
 10730	035162	400 00 0 00 000000 	B6400:	SETZ			;CLEAR THE AC AND E		
 10731	035163	410 00 0 00 000000 		ANDCA			;*ANDCA SHOULD PLACE 0 IN THE AC
 10732	035164	332 00 0 00 000000 		SKIPE			;IF C(AC)=0, THE TEST PASSES
 10733						STOP^
 10734	035165	254 04 0 00 035166 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10735	035166	324 00 0 00 035167 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10736									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10737									;IN THE SUBTEST) TO LOOP ON ERROR^
 10738
 10739					;**********
 10740
 10741					;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION
 10742					;OF THE COMPLEMENT OF C(AC) AND C(E).
 10743					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 10744					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR ALL ONES.
 10745					;IF C(AC)=-1,,-1, THE TEST PASSES.
 10746
 10747	035167	400 00 0 00 000000 	B6500:	SETZ			;CLEAR THE AC		
 10748	035170	410 00 0 00 035524 		ANDCA	[-1]		;*ANDCA SHOULD PLACE ALL ONES IN THE AC
 10749	035171	312 00 0 00 035524 		CAME	[-1]		;IF C(AC)=ALL ONES, THE TEST PASSES.
 10750						STOP^
 10751	035172	254 04 0 00 035173 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10752	035173	324 00 0 00 035174 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10753									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10754									;IN THE SUBTEST) TO LOOP ON ERROR^
 10755
 10756					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 47
DBKABM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0245

 10757					;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION
 10758					;OF THE COMPLEMENT OF C(AC) AND C(E).
 10759					;IN THIS CASE AC=E=AC0 AND C(AC)=C(E)=-1,,-1. HENCE, THE RESULT
 10760					;IN THE AC SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0,
 10761					;THE TEST PASSES.
 10762
 10763	035174	474 00 0 00 000000 	B6600:	SETO			;PRESET AC TO ALL ONES		
 10764	035175	410 00 0 00 000000 		ANDCA			;*ANDCA SHOULD PLACE 0 IN THE AC
 10765	035176	332 00 0 00 000000 		SKIPE			;IF C(AC)=0, THE TEST PASSES
 10766						STOP^
 10767	035177	254 04 0 00 035200 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10768	035200	324 00 0 00 035201 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10769									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10770									;IN THE SUBTEST) TO LOOP ON ERROR^
 10771
 10772					;**********
 10773
 10774					;THIS TEST VERIFIES THAT ANDCA CHANGES C(AC) TO THE LOGICAL AND FUNCTION
 10775					;OF THE COMPLEMENT OF C(AC) AND C(E).
 10776					;IN THIS CASE C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
 10777					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0,
 10778					;THE TEST PASSES.
 10779
 10780	035201	474 00 0 00 000000 	B6700:	SETO			;PRESET AC TO ALL ONES		
 10781	035202	410 00 0 00 035412 		ANDCA	[0]		;*ANDCA SHOULD PLACE 0 IN THE AC
 10782	035203	332 00 0 00 000000 		SKIPE			;IF C(AC)=0, THE TEST PASSES.
 10783						STOP^
 10784	035204	254 04 0 00 035205 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10785	035205	324 00 0 00 035206 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10786									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10787									;IN THE SUBTEST) TO LOOP ON ERROR^
 10788
 10789					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 48
DBKABM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0246

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

 10835
 10836					;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION OF
 10837					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 10838					;IN THIS CASE AC=E AND C(AC)=C(E)=0.  HENCE, THE RESULT IN THE AC
 10839					;SHOULD BE ALL ONES.  THE AC IS CHECKED FOR ALL ONES.  IF C(AC)=-1,,-1,
 10840					;THE TEST PASSES.
 10841
 10842	035220	400 00 0 00 000000 	B7200:	SETZ			;PRELOAD AC,E WITH ZEROES
 10843	035221	440 00 0 00 000000 		ANDCB			;*ANDCB SHOULD PLACE ALL ONES IN THE AC
 10844	035222	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC) IS ALL ONES
 10845						STOP^
 10846	035223	254 04 0 00 035224 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10847	035224	324 00 0 00 035225 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10848									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10849									;IN THE SUBTEST) TO LOOP ON ERROR^
 10850
 10851					;**********
 10852
 10853					;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION OF
 10854					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 10855					;IN THIS CASE AC=E AND C(AC)=C(E)=-1,,-1.  HENCE THE RESULT IN THE AC
 10856					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES.
 10857
 10858	035225	474 00 0 00 000000 	B7300:	SETO			;PRELOAD AC,E WITH ONES
 10859	035226	440 00 0 00 000000 		ANDCB			;*ANDCB SHOULD PLACE ALL ZEROS IN THE AC
 10860	035227	332 00 0 00 000000 		SKIPE			;PASS IF C(AC)=0
 10861						STOP^
 10862	035230	254 04 0 00 035231 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10863	035231	324 00 0 00 035232 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10864									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10865									;IN THE SUBTEST) TO LOOP ON ERROR^
 10866
 10867					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 50
DBKABM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0248

 10868					;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION OF
 10869					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 10870					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 10871					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES.
 10872
 10873	035232	400 00 0 00 000000 	B7400:	SETZ			;PRELOAD AC WITH 0
 10874	035233	440 00 0 00 035524 		ANDCB	[-1]		;*ANDCB SHOULD PLACE 0 IN THE AC
 10875	035234	302 00 0 00 000000 		CAIE			;PASS IF C(AC)=0
 10876						STOP^
 10877	035235	254 04 0 00 035236 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10878	035236	324 00 0 00 035237 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10879									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10880									;IN THE SUBTEST) TO LOOP ON ERROR^
 10881
 10882					;**********
 10883
 10884					;THIS TEST VERIFIES THAT ANDCB CHANGES C(AC) TO THE LOGICAL AND FUNCTION OF
 10885					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 10886					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 10887					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES.
 10888
 10889	035237	474 00 0 00 000000 	B7500:	SETO			;PRELOAD AC WITH -1,,-1
 10890	035240	440 00 0 00 035412 		ANDCB	[0]		;*ANDCB SHOULD PLACE 0 IN THE AC
 10891	035241	302 00 0 00 000000 		CAIE			;PASS IF C(AC)=0
 10892						STOP^
 10893	035242	254 04 0 00 035243 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10894	035243	324 00 0 00 035244 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10895									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10896									;IN THE SUBTEST) TO LOOP ON ERROR^
 10897
 10898					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 51
DBKABM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0249

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

 10947					;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 10948					;THE COMPLEMENT OF C(AC) AND C(E).
 10949					;IN THIS CASE, AC=E AND C(AC)=C(E)=0.  HENCE, THE RESULT IN THE AC
 10950					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES.
 10951
 10952	035256	400 00 0 00 000000 	B10100:	SETZ			;PRELOAD AC,E WITH 0
 10953	035257	454 00 0 00 000000 		ORCA			;*ORCA SHOULD PLACE -1,,-1 IN THE AC
 10954	035260	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 10955						STOP^
 10956	035261	254 04 0 00 035262 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10957	035262	324 00 0 00 035263 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10958									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10959									;IN THE SUBTEST) TO LOOP ON ERROR^
 10960
 10961					;**********
 10962
 10963					;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OF FUNCTION OF
 10964					;THE COMPLEMENT OF C(AC) AND C(E).
 10965					;IN THIS CASE, AC=E AND C(AC)=C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 10966					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES.
 10967
 10968	035263	474 00 0 00 000000 	B10200:	SETO			;PRELOAD AC,E WITH 0
 10969	035264	454 00 0 00 000000 		ORCA			;*ORCA SHOULD PLACE -1,,-1 IN THE AC
 10970	035265	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 10971						STOP^
 10972	035266	254 04 0 00 035267 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10973	035267	324 00 0 00 035270 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10974									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10975									;IN THE SUBTEST) TO LOOP ON ERROR^
 10976
 10977					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 53
DBKABM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0251

 10978					;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 10979					;THE COMPLEMENT OF C(AC) AND C(E).
 10980					;IN THIS CASE C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESUTL IN THE AC
 10981					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES.
 10982
 10983	035270	400 00 0 00 000000 	B10300:	SETZ			;PRELOAD AC WITH 0
 10984	035271	454 00 0 00 035524 		ORCA	[-1]		;*ORCA SHOULD PLACE -1,,-1 IN THE AC
 10985	035272	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 10986						STOP^
 10987	035273	254 04 0 00 035274 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 10988	035274	324 00 0 00 035275 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 10989									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 10990									;IN THE SUBTEST) TO LOOP ON ERROR^
 10991
 10992					;**********
 10993
 10994					;THIS TEST VERIFIES THAT ORCA CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 10995					;THE COMPLEMENT OF C(AC) AND C(E).
 10996					;IN THIS CASE C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
 10997					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES.
 10998
 10999	035275	474 00 0 00 000000 	B10400:	SETO			;PRELOAD AC WITH -1,,-1
 11000	035276	454 00 0 00 035412 		ORCA	[0]		;*ORCA SHOULD PLACE 0 IN THE AC
 11001	035277	302 00 0 00 000000 		CAIE			;PASS IF C(AC)=0
 11002						STOP^
 11003	035300	254 04 0 00 035301 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11004	035301	324 00 0 00 035302 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11005									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11006									;IN THE SUBTEST) TO LOOP ON ERROR^
 11007
 11008					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 54
DBKABM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0252

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

 11053					;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 11054					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 11055					;IN THIS CASE, C(AC)=0 AND C(E)=0.  HENCE, THE RESULT IN THE AC
 11056					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)-1,,-1, THE TEST PASSES
 11057
 11058	035314	400 00 0 00 000000 	B11000:	SETZ			;PRELOAD AC WITH 0		
 11059	035315	470 00 0 00 035412 		ORCB	[0]		;*ORCB SHOULD PLACE -1,,-1 IN THE AC
 11060	035316	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 11061						STOP^
 11062	035317	254 04 0 00 035320 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11063	035320	324 00 0 00 035321 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11064									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11065									;IN THE SUBTEST) TO LOOP ON ERROR^
 11066
 11067					;**********
 11068
 11069					;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 11070					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 11071					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 11072					;SHOULD BE 0.  THE AC IS CHECKED FOR 0.  IF C(AC)=0, THE TEST PASSES
 11073
 11074	035321	474 00 0 00 000000 	B11100:	SETO			;PRELOAD AC WITH -1,,-1
 11075	035322	470 00 0 00 035524 		ORCB	[-1]		;*ORCB SHOULD PLACE 0 IN THE AC
 11076	035323	302 00 0 00 000000 		CAIE			;PASS IF C(AC)=0
 11077						STOP^
 11078	035324	254 04 0 00 035325 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11079	035325	324 00 0 00 035326 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11080									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11081									;IN THE SUBTEST) TO LOOP ON ERROR^
 11082
 11083					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 56
DBKABM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS                                                       SEQ 0254

 11084					;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 11085					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E)
 11086					;IN THIS CASE, C(AC)=0 AND C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC
 11087					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES
 11088
 11089	035326	400 00 0 00 000000 	B11200:	SETZ			;PRELOAD AC WITH 0		
 11090	035327	470 00 0 00 035524 		ORCB	[-1]		;*ORCB SHOULD PLACE -1,,-1 IN THE AC
 11091	035330	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 11092						STOP^
 11093	035331	254 04 0 00 035332 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11094	035332	324 00 0 00 035333 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11095									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11096									;IN THE SUBTEST) TO LOOP ON ERROR^
 11097
 11098					;**********
 11099
 11100					;THIS TEST VERIFIES THAT ORCB CHANGES C(AC) TO THE LOGICAL OR FUNCTION OF
 11101					;THE COMPLEMENT OF C(AC) AND THE COMPLEMENT OF C(E).
 11102					;IN THIS CASE, C(AC)=-1,,-1 AND C(E)=0.  HENCE, THE RESULT IN THE AC
 11103					;SHOULD BE -1,,-1.  THE AC IS CHECKED FOR -1,,-1.  IF C(AC)=-1,,-1, THE TEST PASSES
 11104
 11105	035333	474 00 0 00 000000 	B11300:	SETO			;PRELOAD AC WITH -1,,-1		
 11106	035334	470 00 0 00 035412 		ORCB	[0]		;*ORCB SHOULD PLACE -1,,-1 IN THE AC
 11107	035335	312 00 0 00 035524 		CAME	[-1]		;PASS IF C(AC)=-1,,-1
 11108						STOP^
 11109	035336	254 04 0 00 035337 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11110	035337	324 00 0 00 035340 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11111									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11112									;IN THE SUBTEST) TO LOOP ON ERROR^
 11113
 11114					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 57
DBKABM	MAC	30-APR-76 16:57		TEST OF MOVN INSTRUCTION                                                           SEQ 0255

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

 11163					;THIS TEST VERIFIES THAT MOVN PLACES THE NEGATIVE OF C(E) INTO THE AC.
 11164					;IN THIS CASE C(E) =707070,,707070.  HENCE, THE RESULT IN THE AC SHOULD BE
 11165					;070707,,070710.  THE AC IS CHECKED FOR 070707,,070710.  IF C(AC)=
 11166					;070707,,070710, THE TEST PASSES
 11167
 11168	035352	400 00 0 00 000000 	B11700:	SETZ			;PRELOAD AC WITH 0		
 11169	035353	210 00 0 00 035650 		MOVN	[707070707070]	;*MOVN SHOULD PLACE 070707,,070710 INTO THE AC
 11170	035354	312 00 0 00 035654 		CAME	[070707070710]	;PASS IF C(AC) 070707,,070710
 11171						STOP^
 11172	035355	254 04 0 00 035356 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11173	035356	324 00 0 00 035357 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11174									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11175									;IN THE SUBTEST) TO LOOP ON ERROR^
 11176
 11177					;**********
 11178
 11179					;THIS TEST VERIFIES THAT MOVN PLACES THE NEGATIVE OF C(E) INTO THE AC
 11180					;IN THIS CASE C(E)=-1,,-1.  HENCE, THE RESULT IN THE AC SHOULD BE 0,,1.
 11181					;THE AC IS CHECKED FOR 0,,1, THE NEGATIVE OF -1,,-1.  IF C(AC)=1, THIS TEST PASSES
 11182
 11183	035357	210 00 0 00 035524 	B12100:	MOVN	[-1]		;*MOVN SHOULD PLACE 0,,1 INTO THE AC	
 11184	035360	302 00 0 00 000001 		CAIE	1		;PASS OF C(AC)=0,,1
 11185						STOP^
 11186	035361	254 04 0 00 035362 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
 11187	035362	324 00 0 00 035363 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
 11188									;JUMPA X (X IS THE ADDRESS OF THE FIRST INSTRUCTION
 11189									;IN THE SUBTEST) TO LOOP ON ERROR^
 11190
 11191					;**********
DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER	MACRO %50A(432) 10:22  4-AUG-76 PAGE 59
DBKABM	MAC	30-APR-76 16:57		TEST OF MOVM INSTRUCTION                                                           SEQ 0257

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

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

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

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

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

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

NO ERRORS DETECTED

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

6K CORE USED

A10400	   887#
A10500	   910#                                                                                                            SEQ 0263
A10600	   931#
A10700	   953#
A11000	  1005#
A11100	  2118#
A11200	  3102#
A11300	  4003#
A11400	  4499#
A11500	  5179#
A11600	  5198#
A11700	  5213#
A12000	  5881#
A12100	  5895#
A12200	  5918#
A12300	  5936#
A12400	  5954#
A13200	  2137#
A13300	   971#
A13400	   989#
A13500	  4996#
A13600	  5013#
A13700	  5030#
A14000	  5046#
A14100	  5063#
A14200	  5080#
A14300	  5096#
A14400	  5113#
A14500	  5130#
A14600	  5146#
A14700	  5163#
ABORT	    78#
AC0	   673#
ALTMGO	   432#
ANXM	   346#
APR	   770	   771	   772
AROV	   346#
AROVU	   346#
AST	   547#
ATSIN	   548#
B00	    46	    47	    48	    49	    50	    51	    52	    53	    54	    55	    56	   851	   878#
B100	  5977#
B1000	  6117#
B10000	 10932#
B10100	 10952#
B10200	 10968#
B10300	 10983#
B10400	 10999#
B10500	 11015#
B10700	 11043#
B1100	  6133#
B11000	 11058#
B11100	 11074#
B11200	 11089#
B11300	 11105#                                                                                                            SEQ 0264
B11500	 11123#
B11600	 11145#
B11700	 11168#
B1200	  6149#
B12100	 11183#
B12200	 11200#
B12300	 11220#
B12400	 11244#
B12500	 11260#
B1300	  6170#
B1400	  6191#
B1500	  6215#
B1600	  6234#
B1700	  7162#
B200	  5998#
B2000	  7827#
B2100	  8496#
B2200	  8875#
B2300	  9255#
B2400	  9730#
B2500	 10210#
B2600	 10234#
B2700	 10254#
B300	  6023#
B3000	 10271#
B3100	 10287#
B3200	 10302#
B3300	 10323#
B3500	 10343#
B3600	 10366#
B3700	 10380#
B400	  6044#
B4300	 10395#
B4400	 10417#
B4500	 10435#
B4600	 10459#
B4700	 10482#
B500	  6060#
B5000	 10503#
B5100	 10529#
B5200	 10557#
B5300	 10575#
B5500	 10591#
B5600	 10615#
B5700	 10631#
B600	  6080#
B6000	 10648#
B6100	 10669#
B6200	 10685#
B6300	 10708#
B6400	 10730#
B6500	 10747#
B6600	 10763#                                                                                                            SEQ 0265
B6700	 10780#
B700	  6096#
B7000	 10796#
B7100	 10820#
B7200	 10842#
B7300	 10858#
B7400	 10873#
B7500	 10889#
B7600	 10905#
BEGEND	   428#	 11270
BEGIN	   292	   293	   359#	   716	   838	 11455
BEGIN1	   375#	   429
BELL	   551#
BIS	   346#
CCA	   346#
CHAIN	    98#
CHNOFF	   346#
CHNON	   346#
CLK	   346#
CLKCLR	   346#
CLKDIS	   346#
CLKENB	   346#
CLKU	   346#
CLOCKF	   414#
CNTLC	   431#
COMMA	   540#
CONSW	   415#
CPOPJ	   435#
CPOPJ1	   433#
CRLF	   227	   228	   535#
CRLF2	   231	   232	   537#
CRY0	   346#
CRY1	   346#
CSHFLG	   594#
CSHMEM	   595#
CYCL60	   588#
DCK	   346#
DDT	   675#
DDTLNK	   112#	   373
DDTSRT	   373#
DEBUG	 11446
DECVER	    12#	    12	    13	   394
DF22F	   499#
DIAGMN	   362#
DIAGNO	   674#
DIAMON	   676#
DING	    84#
DOLLAR	   554#
DONG11	   677#	   817	   833
DSKUPD	   399
DTE	   681#	   817	   819	   833	   835
DTE0	   682#
DTE1	   683#                                                                                                            SEQ 0266
DTE2	   684#
DTE3	   685#
END	 11454#
ENDFIX	   668#
ENDSLD	 11444#
ERMORE	   448#
ERRPC	   419#
ERRTLS	   420#
ERSTOP	    87#
EXCASB	    26#	   397
EXIOT	   346#
FOV	   346#
FOVU	   346#
FRDLNK	   110#
FSELNK	   109#
FXU	   346#
HYPEN	   545#
INHCSH	    95#
INHPAG	    92#
INXM	   346#
IOCLR	   346#
ITERAT	    65#	   392
ITRCH1	   452#
ITRCNT	   392#	   762	   791	   795	   803	   804	   808
JOB41	   346#
JOBAPR	   346#
JOBCNI	   346#
JOBDDT	   346#
JOBFF	   346#
JOBOPC	   346#
JOBREL	   346#
JOBREN	   346#
JOBSA	   346#
JOBSYM	   346#
JOBTPC	   346#
JOBUSY	   346#
JOBUUO	   346#
JOBVER	   346#
KA10	   346
KAHZ50	   100#
KAIFLG	   409#
KI10	   346
KL10	   346
KLFLG	   410#	   764	   782	   801
KLOLD	   307
KLTYP	   626#	   763	   774	   816	   818	   832	   834
LDLNK	   111#	   362	   364
LFP	   549#
LOOPER	    86#
LUUO	   346#
LUUO1	   479	   480
LUUO10	   479	   484
LUUO11	   479	   484                                                                                                     SEQ 0267
LUUO12	   479	   485
LUUO13	   479	   485
LUUO14	   479	   486
LUUO15	   479	   486
LUUO16	   479	   487
LUUO17	   479	   487
LUUO2	   479	   481
LUUO20	   479	   488
LUUO21	   479	   488
LUUO22	   479	   489
LUUO23	   479	   489
LUUO24	   479	   490
LUUO25	   479	   490
LUUO26	   479	   491
LUUO27	   479	   491
LUUO3	   479	   481
LUUO30	   479	   492
LUUO31	   479	   492
LUUO32	   479	   493
LUUO33	   479	   493
LUUO4	   479	   482
LUUO5	   479	   482
LUUO6	   479	   483
LUUO7	   479	   483
LUUOI	   346#
MAPNEW	   500#
MARGIN	   422#
MCNVER	    12#	    12	    13	   394
MEMLOW	   502#
MEMMAP	   400
MEMSIZ	   503#
MEMTOT	   501#
MINUS	   544#
MODDVC	    94#
MODDVL	   292	   292#	   395
MODDVU	   293	   293#	   396
MODLNK	   113#	   359
MONCTL	   412#	   811	   852
MONFLG	   411#	   756	   848
MONTEN	   413#	   761	   797	   826
MPVU	   346#
NB5300	 10549#
NOPNT	    82#
NXMU	   346#
OPRSEL	    96#
OPTIME	   514#
P	   139	   140	   141	   142	   346#	   434
PAG	   346#
PALERS	    88#
PARCLR	   346#
PARDIS	   346#
PAREA0	    58#
PAREA1	    59#	   390                                                                                                     SEQ 0268
PAREA2	    60#	   391
PAREA3	    61#	   388
PAREA4	    62#	   389
PAREA5	    63#	   401
PAREA6	    64#	   402
PAREA7	   401#
PAREA8	   402#
PARENB	   346#
PARU	   346#
PASCNT	   416#	   790
PDISF	   511#
PDLOVU	   346#
PERIOD	   541#
PFSTRT	   368#
PGMEND	    66#	 11453
PGMNAM	   393	   853	   856#
PI	   803
PICHN1	   346#
PICHN2	   346#
PICHN3	   346#
PICHN4	   346#
PICHN5	   346#
PICHN6	   346#
PICHN7	   346#
PICHNA	   346#
PICLR	   346#
PIOFF	   346#
PION	   346#
PLIST	   580#	   580
PLISTE	   580	   582#	   666
PLISTS	   581#
PLUS	   546#
PNTENB	   510#
PNTEXT	   389#
PNTFLG	   509#
PNTINH	   512#
PNTLPT	    83#
PNTNAM	   388#
PNTSPC	   513#
PVPAGI	   607#
PWFCLR	   346#
QUEST	   552#
RADIX	   555#
RADLSC	   557#
RADLSP	   556#
RANDBS	   390#
REENTR	   370#
RELIAB	    90#
REPT	   346#
REPT1	   346#
REPTU	   468#
REQSET	   346#
RESRT1	   445#                                                                                                            SEQ 0269
RESRT2	   446#
RETURN	   377#	   799	   806	   827
RSTART	    79#
RTP	   550#
RUNFLG	   417#
SADR1	    46#	   366
SADR10	    55#	   382
SADR11	    56#	   383
SADR2	    47#	   368
SADR3	    48#	   370
SADR4	    49#
SADR5	    50#	   431
SADR6	    51#	   432
SADR7	    52#	   379
SADR8	    53#	   380
SADR9	    54#	   381
SBINIT	   152	   376#
SCOPE	   469#
SFSTRT	   366#
SLASH	   553#
SN	  1002#	  1042	  1042#	  1072	  1072#	  1102	  1102#	  1132	  1132#	  1162	  1162#	  1192	  1192#	  1222
	  1222#	  1252	  1252#	  1282	  1282#	  1312	  1312#	  1342	  1342#	  1372	  1372#	  1402	  1402#	  1432
	  1432#	  1462	  1462#	  1492	  1492#	  1522	  1522#	  1552	  1552#	  1582	  1582#	  1612	  1612#	  1642
	  1642#	  1672	  1672#	  1702	  1702#	  1732	  1732#	  1762	  1762#	  1792	  1792#	  1822	  1822#	  1852
	  1852#	  1882	  1882#	  1912	  1912#	  1942	  1942#	  1972	  1972#	  2002	  2002#	  2032	  2032#	  2062
	  2062#	  2092	  2092#	  2134#	  2170	  2170#	  2196	  2196#	  2222	  2222#	  2248	  2248#	  2274	  2274#
	  2300	  2300#	  2326	  2326#	  2352	  2352#	  2378	  2378#	  2404	  2404#	  2430	  2430#	  2456	  2456#
	  2482	  2482#	  2508	  2508#	  2534	  2534#	  2560	  2560#	  2586	  2586#	  2612	  2612#	  2638	  2638#
	  2664	  2664#	  2690	  2690#	  2716	  2716#	  2742	  2742#	  2768	  2768#	  2794	  2794#	  2820	  2820#
	  2846	  2846#	  2872	  2872#	  2898	  2898#	  2924	  2924#	  2950	  2950#	  2976	  2976#	  3002	  3002#
	  3028	  3028#	  3054	  3054#	  3080	  3080#	  3099#	  3133	  3133#	  3158	  3158#	  3183	  3183#	  3208
	  3208#	  3233	  3233#	  3258	  3258#	  3283	  3283#	  3308	  3308#	  3333	  3333#	  3358	  3358#	  3383
	  3383#	  3408	  3408#	  3433	  3433#	  3458	  3458#	  3483	  3483#	  3508	  3508#	  3533	  3533#	  3558
	  3558#	  3583	  3583#	  3608	  3608#	  3633	  3633#	  3658	  3658#	  3683	  3683#	  3708	  3708#	  3733
	  3733#	  3758	  3758#	  3783	  3783#	  3808	  3808#	  3833	  3833#	  3858	  3858#	  3883	  3883#	  3908
	  3908#	  3933	  3933#	  3958	  3958#	  3983	  3983#	  3999#	  4035	  4035#	  4061	  4061#	  4087	  4087#
	  4113	  4113#	  4139	  4139#	  4165	  4165#	  4191	  4191#	  4217	  4217#	  4243	  4243#	  4269	  4269#
	  4295	  4295#	  4321	  4321#	  4347	  4347#	  4373	  4373#	  4399	  4399#	  4425	  4425#	  4451	  4451#
	  4477	  4477#	  4495#	  4531	  4531#	  4557	  4557#	  4583	  4583#	  4609	  4609#	  4635	  4635#	  4661
	  4661#	  4687	  4687#	  4713	  4713#	  4739	  4739#	  4765	  4765#	  4791	  4791#	  4817	  4817#	  4843
	  4843#	  4869	  4869#	  4895	  4895#	  4921	  4921#	  4947	  4947#	  4973	  4973#	  5210#	  5232	  5232#
	  5250	  5250#	  5268	  5268#	  5286	  5286#	  5304	  5304#	  5322	  5322#	  5340	  5340#	  5358	  5358#
	  5376	  5376#	  5394	  5394#	  5412	  5412#	  5430	  5430#	  5448	  5448#	  5466	  5466#	  5484	  5484#
	  5502	  5502#	  5520	  5520#	  5538	  5538#	  5556	  5556#	  5574	  5574#	  5592	  5592#	  5610	  5610#
	  5628	  5628#	  5646	  5646#	  5664	  5664#	  5682	  5682#	  5700	  5700#	  5718	  5718#	  5736	  5736#
	  5754	  5754#	  5772	  5772#	  5790	  5790#	  5808	  5808#	  5826	  5826#	  5844	  5844#	  5862	  5862#
	  6231#	  6265	  6265#	  6292	  6292#	  6319	  6319#	  6346	  6346#	  6373	  6373#	  6400	  6400#	  6427
	  6427#	  6454	  6454#	  6481	  6481#	  6508	  6508#	  6535	  6535#	  6562	  6562#	  6589	  6589#	  6616
	  6616#	  6643	  6643#	  6670	  6670#	  6697	  6697#	  6724	  6724#	  6771	  6771#	  6793	  6793#	  6815
	  6815#	  6837	  6837#	  6859	  6859#	  6881	  6881#	  6903	  6903#	  6925	  6925#	  6947	  6947#	  6969
	  6969#	  6991	  6991#	  7013	  7013#	  7035	  7035#	  7057	  7057#	  7079	  7079#	  7101	  7101#	  7123
	  7123#	  7145	  7145#	  7159#	  7181	  7181#	  7199	  7199#	  7217	  7217#	  7235	  7235#	  7253	  7253#
	  7271	  7271#	  7289	  7289#	  7307	  7307#	  7325	  7325#	  7343	  7343#	  7361	  7361#	  7379	  7379#    SEQ 0270
	  7397	  7397#	  7415	  7415#	  7433	  7433#	  7451	  7451#	  7469	  7469#	  7487	  7487#	  7505	  7505#
	  7523	  7523#	  7541	  7541#	  7559	  7559#	  7577	  7577#	  7595	  7595#	  7613	  7613#	  7631	  7631#
	  7649	  7649#	  7667	  7667#	  7685	  7685#	  7703	  7703#	  7721	  7721#	  7739	  7739#	  7757	  7757#
	  7775	  7775#	  7793	  7793#	  7811	  7811#	  7824#	  7846	  7846#	  7864	  7864#	  7882	  7882#	  7900
	  7900#	  7918	  7918#	  7936	  7936#	  7954	  7954#	  7972	  7972#	  7990	  7990#	  8008	  8008#	  8026
	  8026#	  8044	  8044#	  8062	  8062#	  8080	  8080#	  8098	  8098#	  8116	  8116#	  8134	  8134#	  8152
	  8152#	  8170	  8170#	  8188	  8188#	  8206	  8206#	  8224	  8224#	  8242	  8242#	  8260	  8260#	  8278
	  8278#	  8296	  8296#	  8314	  8314#	  8332	  8332#	  8350	  8350#	  8368	  8368#	  8386	  8386#	  8404
	  8404#	  8422	  8422#	  8440	  8440#	  8458	  8458#	  8476	  8476#	  8493#	  8518	  8518#	  8538	  8538#
	  8558	  8558#	  8578	  8578#	  8598	  8598#	  8618	  8618#	  8638	  8638#	  8658	  8658#	  8678	  8678#
	  8698	  8698#	  8718	  8718#	  8738	  8738#	  8758	  8758#	  8778	  8778#	  8798	  8798#	  8818	  8818#
	  8838	  8838#	  8858	  8858#	  8872#	  8897	  8897#	  8917	  8917#	  8937	  8937#	  8957	  8957#	  8977
	  8977#	  8997	  8997#	  9017	  9017#	  9037	  9037#	  9057	  9057#	  9077	  9077#	  9097	  9097#	  9117
	  9117#	  9137	  9137#	  9157	  9157#	  9177	  9177#	  9197	  9197#	  9217	  9217#	  9237	  9237#	  9251#
	  9285	  9285#	  9310	  9310#	  9335	  9335#	  9360	  9360#	  9385	  9385#	  9410	  9410#	  9435	  9435#
	  9460	  9460#	  9485	  9485#	  9510	  9510#	  9535	  9535#	  9560	  9560#	  9585	  9585#	  9610	  9610#
	  9635	  9635#	  9660	  9660#	  9685	  9685#	  9710	  9710#	  9726#	  9760	  9760#	  9785	  9785#	  9810
	  9810#	  9835	  9835#	  9860	  9860#	  9885	  9885#	  9910	  9910#	  9935	  9935#	  9960	  9960#	  9985
	  9985#	 10010	 10010#	 10035	 10035#	 10060	 10060#	 10085	 10085#	 10110	 10110#	 10135	 10135#	 10160
	 10160#	 10185	 10185#
SPACE	   542#
SRTDDT	   372#
START	   360	   759	   768	   783	   787	   844#
START1	   379#
START2	   380#
START3	   381#
START4	   382#
START5	   383#
STARTA	   375	   785	   796	   805	   812	   822	   854	   876#
SUBLNK	   114#	   376
SWTEXR	   391#
SYSEXR	   364#
TAB	   543#
TESTPC	   418#
TICKS	   421#
TOTALS	    80#
TTNBRF	   601#
TTYFIL	   517#
TTYSPD	   518#
TXTINH	    91#
USER	   408#	   752	   755	   757	   758	   792	   844#	   844	   847	   849	   850
USERF	    30#	   346#	   754	   846
USRASB	    27#	   398
USRCRF	   527#
USRLFF	   526#
UUODIS	   480#
UUOEXT	   436#
UUORTN	   437#
UUOSKP	   434#
YY	  4001#	  4036	  4036#	  4037	  4038	  4038#	  4041	  4062	  4062#	  4063	  4064	  4067	  4088	  4088#
	  4089	  4090	  4093	  4114	  4114#	  4115	  4116	  4119	  4140	  4140#	  4141	  4142	  4145	  4166
	  4166#	  4167	  4168	  4171	  4192	  4192#	  4193	  4194	  4197	  4218	  4218#	  4219	  4220	  4223
	  4244	  4244#	  4245	  4246	  4249	  4270	  4270#	  4271	  4272	  4275	  4296	  4296#	  4297	  4298     SEQ 0271
	  4301	  4322	  4322#	  4323	  4324	  4327	  4348	  4348#	  4349	  4350	  4353	  4374	  4374#	  4375
	  4376	  4379	  4400	  4400#	  4401	  4402	  4405	  4426	  4426#	  4427	  4428	  4431	  4452	  4452#
	  4453	  4454	  4457	  4478	  4478#	  4479	  4480	  4483	  4497#	  4532	  4532#	  4533	  4534	  4534#
	  4538	  4558	  4558#	  4559	  4560	  4564	  4584	  4584#	  4585	  4586	  4590	  4610	  4610#	  4611
	  4612	  4616	  4636	  4636#	  4637	  4638	  4642	  4662	  4662#	  4663	  4664	  4668	  4688	  4688#
	  4689	  4690	  4694	  4714	  4714#	  4715	  4716	  4720	  4740	  4740#	  4741	  4742	  4746	  4766
	  4766#	  4767	  4768	  4772	  4792	  4792#	  4793	  4794	  4798	  4818	  4818#	  4819	  4820	  4824
	  4844	  4844#	  4845	  4846	  4850	  4870	  4870#	  4871	  4872	  4876	  4896	  4896#	  4897	  4898
	  4902	  4922	  4922#	  4923	  4924	  4928	  4948	  4948#	  4949	  4950	  4954	  4974	  4974#	  4975
	  4976	  4980	  9253#	  9287	  9287#	  9289	  9289#	  9290	  9292	  9312	  9312#	  9314	  9315	  9317
	  9337	  9337#	  9339	  9340	  9342	  9362	  9362#	  9364	  9365	  9367	  9387	  9387#	  9389	  9390
	  9392	  9412	  9412#	  9414	  9415	  9417	  9437	  9437#	  9439	  9440	  9442	  9462	  9462#	  9464
	  9465	  9467	  9487	  9487#	  9489	  9490	  9492	  9512	  9512#	  9514	  9515	  9517	  9537	  9537#
	  9539	  9540	  9542	  9562	  9562#	  9564	  9565	  9567	  9587	  9587#	  9589	  9590	  9592	  9612
	  9612#	  9614	  9615	  9617	  9637	  9637#	  9639	  9640	  9642	  9662	  9662#	  9664	  9665	  9667
	  9687	  9687#	  9689	  9690	  9692	  9712	  9712#	  9714	  9715	  9717	  9728#	  9762	  9762#	  9764
	  9764#	  9765	  9767	  9787	  9787#	  9789	  9790	  9792	  9812	  9812#	  9814	  9815	  9817	  9837
	  9837#	  9839	  9840	  9842	  9862	  9862#	  9864	  9865	  9867	  9887	  9887#	  9889	  9890	  9892
	  9912	  9912#	  9914	  9915	  9917	  9937	  9937#	  9939	  9940	  9942	  9962	  9962#	  9964	  9965
	  9967	  9987	  9987#	  9989	  9990	  9992	 10012	 10012#	 10014	 10015	 10017	 10037	 10037#	 10039
	 10040	 10042	 10062	 10062#	 10064	 10065	 10067	 10087	 10087#	 10089	 10090	 10092	 10112	 10112#
	 10114	 10115	 10117	 10137	 10137#	 10139	 10140	 10142	 10162	 10162#	 10164	 10165	 10167	 10187
	 10187#	 10189	 10190	 10192
ZZ	  1003#	  1043	  1043#	  1044	  1044#	  1045	  1047	  1073	  1073#	  1074	  1075	  1077	  1103	  1103#
	  1104	  1105	  1107	  1133	  1133#	  1134	  1135	  1137	  1163	  1163#	  1164	  1165	  1167	  1193
	  1193#	  1194	  1195	  1197	  1223	  1223#	  1224	  1225	  1227	  1253	  1253#	  1254	  1255	  1257
	  1283	  1283#	  1284	  1285	  1287	  1313	  1313#	  1314	  1315	  1317	  1343	  1343#	  1344	  1345
	  1347	  1373	  1373#	  1374	  1375	  1377	  1403	  1403#	  1404	  1405	  1407	  1433	  1433#	  1434
	  1435	  1437	  1463	  1463#	  1464	  1465	  1467	  1493	  1493#	  1494	  1495	  1497	  1523	  1523#
	  1524	  1525	  1527	  1553	  1553#	  1554	  1555	  1557	  1583	  1583#	  1584	  1585	  1587	  1613
	  1613#	  1614	  1615	  1617	  1643	  1643#	  1644	  1645	  1647	  1673	  1673#	  1674	  1675	  1677
	  1703	  1703#	  1704	  1705	  1707	  1733	  1733#	  1734	  1735	  1737	  1763	  1763#	  1764	  1765
	  1767	  1793	  1793#	  1794	  1795	  1797	  1823	  1823#	  1824	  1825	  1827	  1853	  1853#	  1854
	  1855	  1857	  1883	  1883#	  1884	  1885	  1887	  1913	  1913#	  1914	  1915	  1917	  1943	  1943#
	  1944	  1945	  1947	  1973	  1973#	  1974	  1975	  1977	  2003	  2003#	  2004	  2005	  2007	  2033
	  2033#	  2034	  2035	  2037	  2063	  2063#	  2064	  2065	  2067	  2093	  2093#	  2094	  2095	  2097
	  2135#	  2171	  2171#	  2172	  2172#	  2174	  2175	  2197	  2197#	  2198	  2200	  2201	  2223	  2223#
	  2224	  2226	  2227	  2249	  2249#	  2250	  2252	  2253	  2275	  2275#	  2276	  2278	  2279	  2301
	  2301#	  2302	  2304	  2305	  2327	  2327#	  2328	  2330	  2331	  2353	  2353#	  2354	  2356	  2357
	  2379	  2379#	  2380	  2382	  2383	  2405	  2405#	  2406	  2408	  2409	  2431	  2431#	  2432	  2434
	  2435	  2457	  2457#	  2458	  2460	  2461	  2483	  2483#	  2484	  2486	  2487	  2509	  2509#	  2510
	  2512	  2513	  2535	  2535#	  2536	  2538	  2539	  2561	  2561#	  2562	  2564	  2565	  2587	  2587#
	  2588	  2590	  2591	  2613	  2613#	  2614	  2616	  2617	  2639	  2639#	  2640	  2642	  2643	  2665
	  2665#	  2666	  2668	  2669	  2691	  2691#	  2692	  2694	  2695	  2717	  2717#	  2718	  2720	  2721
	  2743	  2743#	  2744	  2746	  2747	  2769	  2769#	  2770	  2772	  2773	  2795	  2795#	  2796	  2798
	  2799	  2821	  2821#	  2822	  2824	  2825	  2847	  2847#	  2848	  2850	  2851	  2873	  2873#	  2874
	  2876	  2877	  2899	  2899#	  2900	  2902	  2903	  2925	  2925#	  2926	  2928	  2929	  2951	  2951#
	  2952	  2954	  2955	  2977	  2977#	  2978	  2980	  2981	  3003	  3003#	  3004	  3006	  3007	  3029
	  3029#	  3030	  3032	  3033	  3055	  3055#	  3056	  3058	  3059	  3081	  3081#	  3082	  3084	  3085
	  3100#	  3134	  3134#	  3135	  3135#	  3136	  3137	  3138	  3159	  3159#	  3160	  3161	  3162	  3163
	  3184	  3184#	  3185	  3186	  3187	  3188	  3209	  3209#	  3210	  3211	  3212	  3213	  3234	  3234#
	  3235	  3236	  3237	  3238	  3259	  3259#	  3260	  3261	  3262	  3263	  3284	  3284#	  3285	  3286
	  3287	  3288	  3309	  3309#	  3310	  3311	  3312	  3313	  3334	  3334#	  3335	  3336	  3337	  3338     SEQ 0272
	  3359	  3359#	  3360	  3361	  3362	  3363	  3384	  3384#	  3385	  3386	  3387	  3388	  3409	  3409#
	  3410	  3411	  3412	  3413	  3434	  3434#	  3435	  3436	  3437	  3438	  3459	  3459#	  3460	  3461
	  3462	  3463	  3484	  3484#	  3485	  3486	  3487	  3488	  3509	  3509#	  3510	  3511	  3512	  3513
	  3534	  3534#	  3535	  3536	  3537	  3538	  3559	  3559#	  3560	  3561	  3562	  3563	  3584	  3584#
	  3585	  3586	  3587	  3588	  3609	  3609#	  3610	  3611	  3612	  3613	  3634	  3634#	  3635	  3636
	  3637	  3638	  3659	  3659#	  3660	  3661	  3662	  3663	  3684	  3684#	  3685	  3686	  3687	  3688
	  3709	  3709#	  3710	  3711	  3712	  3713	  3734	  3734#	  3735	  3736	  3737	  3738	  3759	  3759#
	  3760	  3761	  3762	  3763	  3784	  3784#	  3785	  3786	  3787	  3788	  3809	  3809#	  3810	  3811
	  3812	  3813	  3834	  3834#	  3835	  3836	  3837	  3838	  3859	  3859#	  3860	  3861	  3862	  3863
	  3884	  3884#	  3885	  3886	  3887	  3888	  3909	  3909#	  3910	  3911	  3912	  3913	  3934	  3934#
	  3935	  3936	  3937	  3938	  3959	  3959#	  3960	  3961	  3962	  3963	  3984	  3984#	  3985	  3986
	  3987	  3988	  4000#	  4037	  4037#	  4039	  4039#	  4040	  4063	  4063#	  4065	  4066	  4089	  4089#
	  4091	  4092	  4115	  4115#	  4117	  4118	  4141	  4141#	  4143	  4144	  4167	  4167#	  4169	  4170
	  4193	  4193#	  4195	  4196	  4219	  4219#	  4221	  4222	  4245	  4245#	  4247	  4248	  4271	  4271#
	  4273	  4274	  4297	  4297#	  4299	  4300	  4323	  4323#	  4325	  4326	  4349	  4349#	  4351	  4352
	  4375	  4375#	  4377	  4378	  4401	  4401#	  4403	  4404	  4427	  4427#	  4429	  4430	  4453	  4453#
	  4455	  4456	  4479	  4479#	  4481	  4482	  4496#	  4533	  4533#	  4535	  4535#	  4536	  4559	  4559#
	  4561	  4562	  4585	  4585#	  4587	  4588	  4611	  4611#	  4613	  4614	  4637	  4637#	  4639	  4640
	  4663	  4663#	  4665	  4666	  4689	  4689#	  4691	  4692	  4715	  4715#	  4717	  4718	  4741	  4741#
	  4743	  4744	  4767	  4767#	  4769	  4770	  4793	  4793#	  4795	  4796	  4819	  4819#	  4821	  4822
	  4845	  4845#	  4847	  4848	  4871	  4871#	  4873	  4874	  4897	  4897#	  4899	  4900	  4923	  4923#
	  4925	  4926	  4949	  4949#	  4951	  4952	  4975	  4975#	  4977	  4978	  5211#	  5233	  5233#	  5234
	  5234#	  5235	  5236	  5251	  5251#	  5252	  5253	  5254	  5269	  5269#	  5270	  5271	  5272	  5287
	  5287#	  5288	  5289	  5290	  5305	  5305#	  5306	  5307	  5308	  5323	  5323#	  5324	  5325	  5326
	  5341	  5341#	  5342	  5343	  5344	  5359	  5359#	  5360	  5361	  5362	  5377	  5377#	  5378	  5379
	  5380	  5395	  5395#	  5396	  5397	  5398	  5413	  5413#	  5414	  5415	  5416	  5431	  5431#	  5432
	  5433	  5434	  5449	  5449#	  5450	  5451	  5452	  5467	  5467#	  5468	  5469	  5470	  5485	  5485#
	  5486	  5487	  5488	  5503	  5503#	  5504	  5505	  5506	  5521	  5521#	  5522	  5523	  5524	  5539
	  5539#	  5540	  5541	  5542	  5557	  5557#	  5558	  5559	  5560	  5575	  5575#	  5576	  5577	  5578
	  5593	  5593#	  5594	  5595	  5596	  5611	  5611#	  5612	  5613	  5614	  5629	  5629#	  5630	  5631
	  5632	  5647	  5647#	  5648	  5649	  5650	  5665	  5665#	  5666	  5667	  5668	  5683	  5683#	  5684
	  5685	  5686	  5701	  5701#	  5702	  5703	  5704	  5719	  5719#	  5720	  5721	  5722	  5737	  5737#
	  5738	  5739	  5740	  5755	  5755#	  5756	  5757	  5758	  5773	  5773#	  5774	  5775	  5776	  5791
	  5791#	  5792	  5793	  5794	  5809	  5809#	  5810	  5811	  5812	  5827	  5827#	  5828	  5829	  5830
	  5845	  5845#	  5846	  5847	  5848	  5863	  5863#	  5864	  5865	  5866	  6232#	  6266	  6266#	  6267
	  6267#	  6268	  6293	  6293#	  6294	  6295	  6320	  6320#	  6321	  6322	  6347	  6347#	  6348	  6349
	  6374	  6374#	  6375	  6376	  6401	  6401#	  6402	  6403	  6428	  6428#	  6429	  6430	  6455	  6455#
	  6456	  6457	  6482	  6482#	  6483	  6484	  6509	  6509#	  6510	  6511	  6536	  6536#	  6537	  6538
	  6563	  6563#	  6564	  6565	  6590	  6590#	  6591	  6592	  6617	  6617#	  6618	  6619	  6644	  6644#
	  6645	  6646	  6671	  6671#	  6672	  6673	  6698	  6698#	  6699	  6700	  6725	  6725#	  6726	  6727
	  6743#	  6772	  6772#	  6773	  6773#	  6774	  6794	  6794#	  6795	  6796	  6816	  6816#	  6817	  6818
	  6838	  6838#	  6839	  6840	  6860	  6860#	  6861	  6862	  6882	  6882#	  6883	  6884	  6904	  6904#
	  6905	  6906	  6926	  6926#	  6927	  6928	  6948	  6948#	  6949	  6950	  6970	  6970#	  6971	  6972
	  6992	  6992#	  6993	  6994	  7014	  7014#	  7015	  7016	  7036	  7036#	  7037	  7038	  7058	  7058#
	  7059	  7060	  7080	  7080#	  7081	  7082	  7102	  7102#	  7103	  7104	  7124	  7124#	  7125	  7126
	  7146	  7146#	  7147	  7148	  7160#	  7182	  7182#	  7183	  7183#	  7185	  7200	  7200#	  7201	  7203
	  7218	  7218#	  7219	  7221	  7236	  7236#	  7237	  7239	  7254	  7254#	  7255	  7257	  7272	  7272#
	  7273	  7275	  7290	  7290#	  7291	  7293	  7308	  7308#	  7309	  7311	  7326	  7326#	  7327	  7329
	  7344	  7344#	  7345	  7347	  7362	  7362#	  7363	  7365	  7380	  7380#	  7381	  7383	  7398	  7398#
	  7399	  7401	  7416	  7416#	  7417	  7419	  7434	  7434#	  7435	  7437	  7452	  7452#	  7453	  7455
	  7470	  7470#	  7471	  7473	  7488	  7488#	  7489	  7491	  7506	  7506#	  7507	  7509	  7524	  7524#
	  7525	  7527	  7542	  7542#	  7543	  7545	  7560	  7560#	  7561	  7563	  7578	  7578#	  7579	  7581
	  7596	  7596#	  7597	  7599	  7614	  7614#	  7615	  7617	  7632	  7632#	  7633	  7635	  7650	  7650#    SEQ 0273
	  7651	  7653	  7668	  7668#	  7669	  7671	  7686	  7686#	  7687	  7689	  7704	  7704#	  7705	  7707
	  7722	  7722#	  7723	  7725	  7740	  7740#	  7741	  7743	  7758	  7758#	  7759	  7761	  7776	  7776#
	  7777	  7779	  7794	  7794#	  7795	  7797	  7812	  7812#	  7813	  7815	  7825#	  7847	  7847#	  7848
	  7848#	  7849	  7865	  7865#	  7866	  7867	  7883	  7883#	  7884	  7885	  7901	  7901#	  7902	  7903
	  7919	  7919#	  7920	  7921	  7937	  7937#	  7938	  7939	  7955	  7955#	  7956	  7957	  7973	  7973#
	  7974	  7975	  7991	  7991#	  7992	  7993	  8009	  8009#	  8010	  8011	  8027	  8027#	  8028	  8029
	  8045	  8045#	  8046	  8047	  8063	  8063#	  8064	  8065	  8081	  8081#	  8082	  8083	  8099	  8099#
	  8100	  8101	  8117	  8117#	  8118	  8119	  8135	  8135#	  8136	  8137	  8153	  8153#	  8154	  8155
	  8171	  8171#	  8172	  8173	  8189	  8189#	  8190	  8191	  8207	  8207#	  8208	  8209	  8225	  8225#
	  8226	  8227	  8243	  8243#	  8244	  8245	  8261	  8261#	  8262	  8263	  8279	  8279#	  8280	  8281
	  8297	  8297#	  8298	  8299	  8315	  8315#	  8316	  8317	  8333	  8333#	  8334	  8335	  8351	  8351#
	  8352	  8353	  8369	  8369#	  8370	  8371	  8387	  8387#	  8388	  8389	  8405	  8405#	  8406	  8407
	  8423	  8423#	  8424	  8425	  8441	  8441#	  8442	  8443	  8459	  8459#	  8460	  8461	  8477	  8477#
	  8478	  8479	  8494#	  8519	  8519#	  8520	  8520#	  8521	  8523	  8539	  8539#	  8540	  8541	  8543
	  8559	  8559#	  8560	  8561	  8563	  8579	  8579#	  8580	  8581	  8583	  8599	  8599#	  8600	  8601
	  8603	  8619	  8619#	  8620	  8621	  8623	  8639	  8639#	  8640	  8641	  8643	  8659	  8659#	  8660
	  8661	  8663	  8679	  8679#	  8680	  8681	  8683	  8699	  8699#	  8700	  8701	  8703	  8719	  8719#
	  8720	  8721	  8723	  8739	  8739#	  8740	  8741	  8743	  8759	  8759#	  8760	  8761	  8763	  8779
	  8779#	  8780	  8781	  8783	  8799	  8799#	  8800	  8801	  8803	  8819	  8819#	  8820	  8821	  8823
	  8839	  8839#	  8840	  8841	  8843	  8859	  8859#	  8860	  8861	  8863	  8873#	  8898	  8898#	  8899
	  8899#	  8900	  8902	  8918	  8918#	  8919	  8920	  8922	  8938	  8938#	  8939	  8940	  8942	  8958
	  8958#	  8959	  8960	  8962	  8978	  8978#	  8979	  8980	  8982	  8998	  8998#	  8999	  9000	  9002
	  9018	  9018#	  9019	  9020	  9022	  9038	  9038#	  9039	  9040	  9042	  9058	  9058#	  9059	  9060
	  9062	  9078	  9078#	  9079	  9080	  9082	  9098	  9098#	  9099	  9100	  9102	  9118	  9118#	  9119
	  9120	  9122	  9138	  9138#	  9139	  9140	  9142	  9158	  9158#	  9159	  9160	  9162	  9178	  9178#
	  9179	  9180	  9182	  9198	  9198#	  9199	  9200	  9202	  9218	  9218#	  9219	  9220	  9222	  9238
	  9238#	  9239	  9240	  9242	  9252#	  9286	  9286#	  9288	  9288#	  9290	  9292	  9311	  9311#	  9313
	  9315	  9317	  9336	  9336#	  9338	  9340	  9342	  9361	  9361#	  9363	  9365	  9367	  9386	  9386#
	  9388	  9390	  9392	  9411	  9411#	  9413	  9415	  9417	  9436	  9436#	  9438	  9440	  9442	  9461
	  9461#	  9463	  9465	  9467	  9486	  9486#	  9488	  9490	  9492	  9511	  9511#	  9513	  9515	  9517
	  9536	  9536#	  9538	  9540	  9542	  9561	  9561#	  9563	  9565	  9567	  9586	  9586#	  9588	  9590
	  9592	  9611	  9611#	  9613	  9615	  9617	  9636	  9636#	  9638	  9640	  9642	  9661	  9661#	  9663
	  9665	  9667	  9686	  9686#	  9688	  9690	  9692	  9711	  9711#	  9713	  9715	  9717	  9727#	  9761
	  9761#	  9763	  9763#	  9765	  9767	  9786	  9786#	  9788	  9790	  9792	  9811	  9811#	  9813	  9815
	  9817	  9836	  9836#	  9838	  9840	  9842	  9861	  9861#	  9863	  9865	  9867	  9886	  9886#	  9888
	  9890	  9892	  9911	  9911#	  9913	  9915	  9917	  9936	  9936#	  9938	  9940	  9942	  9961	  9961#
	  9963	  9965	  9967	  9986	  9986#	  9988	  9990	  9992	 10011	 10011#	 10013	 10015	 10017	 10036
	 10036#	 10038	 10040	 10042	 10061	 10061#	 10063	 10065	 10067	 10086	 10086#	 10088	 10090	 10092
	 10111	 10111#	 10113	 10115	 10117	 10136	 10136#	 10138	 10140	 10142	 10161	 10161#	 10163	 10165
	 10167	 10186	 10186#	 10188	 10190	 10192
$$420	   726#
$$421	   727#
$$422	   728#
$$423	   729#
$$424	   730#
$$425	   731#
$$426	   732#
$$427	   733#
$$430	   734#
$$431	   735#
$$432	   736#
$$433	   737#
$$434	   738#                                                                                                            SEQ 0274
$$435	   739#
$$436	   740#
$$437	   741#
$$500	   744#
$$501	   745#
$$502	   746#
$$503	   747#
$$BEGI	   712#
$$DTE0	   778	   817#
$$DTE1	   779	   819#
$$DTE2	   780	   833#
$$DTE3	   781	   835#
$$LOC	   709#	   748
$$MUUO	   632#
$$OUTE	   638#
$$STAR	   712	   713	   752#
$$TAX1	   650#
$$TAX2	   651#
$$TOGG	   644#
$$UUO	   621#
$ACC0	   459#
$BEGEN	   721#
$BEND1	   429#
$BEND2	   430#
$CHRIN	   520#
$CRLF	   522#
$DDT	   690#
$DEVCH	   346#
$DSKUP	   399#
$DTCHR	   702#
$DTCI	   696#
$DTCLK	   695#	   776
$DTCMD	   699#	   814	   830
$DTF11	   698#
$DTFLG	   694#	   775	   815	   820	   831	   836
$DTMTD	   703#
$DTMTI	   704#
$DTOPR	   701#	   777
$DTSEQ	   700#
$DTSWR	   706#
$DTT11	   697#
$DVCH1	   346#
$DVOFF	   516#
$EMODE	   397#
$ENDFX	   666#	   667
$FFF	   524#
$IBUF	   572#
$INEXT	   574#
$INNM	   573#
$ITRHL	   440#
$ITRX1	   441#
$LPAPE	 11276
$MMAP	   400#                                                                                                            SEQ 0275
$MODVL	   395#
$MODVU	   396#
$OBUF	   563#
$ONETM	   423#
$OUTEX	   565#
$OUTNM	   564#
$PAPER	   346
$PARER	   447#
$PNAME	   393#
$PSHER	   451#
$PVER	   394#
$RSRTX	   443#
$RSRTY	   444#
$SPAG1	   463#
$SPB1	   786	   792#
$SPBEN	   721	   790#
$SPBEX	   793	   801#
$SPBKL	   802	   808#
$SPBUS	   795#
$SPEC	   718	   785#
$SPKLD	   809	   826#
$START	   360#
$STD	   689#	   716#
$STKIL	   761#
$STKL	   770#
$STL	   691#
$STM	   692#	   718#
$SVAPR	   461#
$SVPAG	   462#
$SVPI	   460#
$SVUPC	   466#
$SVUUO	   465#
$TABF	   523#
$TTCHR	   519#
$TWCNT	   515#
$TYPNB	   521#
$UMODE	   398#
$UORTX	   438#
$USRHL	   442#
$UUOER	   439#	   480
$VTF	   525#
%ACTFL	   472#
%ACTUL	   473#
%COREC	   471#
%CORFL	   470#
%DISCR	   474#
%ERHI1	   613#
%ERHI2	   614#
%ERHI3	   615#
.JB41	   346#
.JBAPR	   346#
.JBCNI	   346#
.JBDDT	   346#                                                                                                            SEQ 0276
.JBFF	   346#
.JBOPC	   346#
.JBREL	   346#
.JBREN	   346#
.JBSA	   346#
.JBSYM	   346#
.JBTPC	   346#
.JBUSY	   346#
.JBUUO	   346#
.JBVER	   346#

CFLUSH	   263#
CINVAL	   262#                                                                                                            SEQ 0277
CLOKOP	   257#
CWRTBI	   264#
DROPDV	   224#
ENDUUO	   270#	   428
EOPUUO	   271#	   430
ERLOOP	   315#
ERLP1	   316#
ERLP2	   317#
ERRHLT	   159#
ERROR	   324#
ERROR1	   336#
ERUUO	   314#
EXIT	   798
FATAL	   158#
FRD36	   299#
FRD8	   300#
FREAD	   298#
FSELEC	   297#
GET	   142#
GO	   139#
HALT	   144#	   449	   726	   728	   729	   733	   747	   838	   893	   916	   937	   959	   976	   994
	  1051	  1081	  1111	  1141	  1171	  1201	  1231	  1261	  1291	  1321	  1351	  1381	  1411	  1441
	  1471	  1501	  1531	  1561	  1591	  1621	  1651	  1681	  1711	  1741	  1771	  1801	  1831	  1861
	  1891	  1921	  1951	  1981	  2011	  2041	  2071	  2101	  2122	  2179	  2205	  2231	  2257	  2283
	  2309	  2335	  2361	  2387	  2413	  2439	  2465	  2491	  2517	  2543	  2569	  2595	  2621	  2647
	  2673	  2699	  2725	  2751	  2777	  2803	  2829	  2855	  2881	  2907	  2933	  2959	  2985	  3011
	  3037	  3063	  3089	  3142	  3167	  3192	  3217	  3242	  3267	  3292	  3317	  3342	  3367	  3392
	  3417	  3442	  3467	  3492	  3517	  3542	  3567	  3592	  3617	  3642	  3667	  3692	  3717	  3742
	  3767	  3792	  3817	  3842	  3867	  3892	  3917	  3942	  3967	  3992	  4045	  4071	  4097	  4123
	  4149	  4175	  4201	  4227	  4253	  4279	  4305	  4331	  4357	  4383	  4409	  4435	  4461	  4487
	  4541	  4567	  4593	  4619	  4645	  4671	  4697	  4723	  4749	  4775	  4801	  4827	  4853	  4879
	  4905	  4931	  4957	  4983	  5002	  5019	  5036	  5052	  5069	  5086	  5102	  5119	  5136	  5152
	  5167	  5184	  5202	  5239	  5257	  5275	  5293	  5311	  5329	  5347	  5365	  5383	  5401	  5419
	  5437	  5455	  5473	  5491	  5509	  5527	  5545	  5563	  5581	  5599	  5617	  5635	  5653	  5671
	  5689	  5707	  5725	  5743	  5761	  5779	  5797	  5815	  5833	  5851	  5869	  5885	  5899	  5921
	  5939	  5958	  5980	  6003	  6026	  6049	  6063	  6085	  6100	  6122	  6137	  6153	  6173	  6194
	  6219	  6272	  6299	  6326	  6353	  6380	  6407	  6434	  6461	  6488	  6515	  6542	  6569	  6596
	  6623	  6650	  6677	  6704	  6731	  6778	  6800	  6822	  6844	  6866	  6888	  6910	  6932	  6954
	  6976	  6998	  7020	  7042	  7064	  7086	  7108	  7130	  7152	  7187	  7205	  7223	  7241	  7259
	  7277	  7295	  7313	  7331	  7349	  7367	  7385	  7403	  7421	  7439	  7457	  7475	  7493	  7511
	  7529	  7547	  7565	  7583	  7601	  7619	  7637	  7655	  7673	  7691	  7709	  7727	  7745	  7763
	  7781	  7799	  7817	  7852	  7870	  7888	  7906	  7924	  7942	  7960	  7978	  7996	  8014	  8032
	  8050	  8068	  8086	  8104	  8122	  8140	  8158	  8176	  8194	  8212	  8230	  8248	  8266	  8284
	  8302	  8320	  8338	  8356	  8374	  8392	  8410	  8428	  8446	  8464	  8482	  8525	  8545	  8565
	  8585	  8605	  8625	  8645	  8665	  8685	  8705	  8725	  8745	  8765	  8785	  8805	  8825	  8845
	  8865	  8904	  8924	  8944	  8964	  8984	  9004	  9024	  9044	  9064	  9084	  9104	  9124	  9144
	  9164	  9184	  9204	  9224	  9244	  9294	  9319	  9344	  9369	  9394	  9419	  9444	  9469	  9494
	  9519	  9544	  9569	  9594	  9619	  9644	  9669	  9694	  9719	  9769	  9794	  9819	  9844	  9869
	  9894	  9919	  9944	  9969	  9994	 10019	 10044	 10069	 10094	 10119	 10144	 10169	 10194	 10213
	 10237	 10257	 10275	 10291	 10306	 10327	 10347	 10369	 10383	 10399	 10421	 10439	 10463	 10486
	 10507	 10533	 10561	 10579	 10595	 10619	 10635	 10652	 10673	 10689	 10712	 10734	 10751	 10767
	 10784	 10800	 10824	 10846	 10862	 10877	 10893	 10909	 10936	 10956	 10972	 10987	 11003	 11019
	 11047	 11062	 11078	 11093	 11109	 11127	 11149	 11172	 11186	 11204	 11224	 11248	 11264             SEQ 0278
JEN	   146#
JRSTF	   145#
MAPADR	   280#
MAPCNK	   281#
MAPMEM	   277#
MAPPNT	   283#
MAPSET	   282#
MEMSEG	   279#
MEMZRO	   278#
MODPCP	   290#
MODPCU	   289#
MTROP	   258#
NAME	    12#	    13
PBELL	   233#
PCRL	   227#
PCRL2	   231#
PCRL2F	   232#
PCRLF	   228#
PFORCE	   235#
PGMINT	   152#
PJRST	   143#
PMSG	   237#
PMSGF	   240#
PNT1	   193#
PNT11	   207#
PNT11F	   208#
PNT1F	   194#
PNT2	   195#
PNT2F	   196#
PNT3	   197#
PNT3F	   198#
PNT4	   199#
PNT4F	   200#
PNT5	   201#
PNT5F	   202#
PNT6	   203#
PNT6F	   204#
PNT7	   205#
PNT7F	   206#
PNTA	   179#
PNTADF	   210#
PNTADR	   209#
PNTAF	   180#
PNTAL	   181#
PNTALF	   182#
PNTCHF	   192#
PNTCHR	   191#
PNTCI	   189#
PNTCIF	   190#
PNTCW	   225#
PNTCWF	   226#
PNTDCF	   218#
PNTDEC	   217#                                                                                                            SEQ 0279
PNTDS	   219#
PNTDSF	   220#
PNTHW	   213#
PNTHWF	   214#
PNTMGN	   304#
PNTMSF	   186#
PNTMSG	   185#
PNTNM	   221#
PNTOCF	   216#
PNTOCS	   215#
PNTOCT	   211#
PNTOTF	   212#
PNTSIX	   222#
PNTSXF	   223#
PSIXL	   183#
PSIXLF	   184#
PSIXM	   187#
PSIXMF	   188#
PSP	   229#
PSPF	   230#
PUT	   141#
REPTUO	   318#
RTN	   140#	   436
S	    70#	    72	    76	   105	   107	   116	   119	   134	   135	   137	   148	   150	   154	   156
	   161	   165	   310	   312	   346	   351	   357	   384	   386	   404	   406	   424	   426	   455
	   457	   475	   477	   495	   497	   505	   507	   528	   533	   559	   561	   568	   570	   576
	   578	   584	   586	   590	   592	   597	   599	   603	   605	   609	   611	   617	   619	   622
	   624	   628	   630	   634	   636	   640	   642	   646	   648	   653	   658	   662	   664
SIXBTZ	   246#
STOP	    38#	   892	   915	   936	   958	   975	   993	  1050	  1080	  1110	  1140	  1170	  1200	  1230
	  1260	  1290	  1320	  1350	  1380	  1410	  1440	  1470	  1500	  1530	  1560	  1590	  1620	  1650
	  1680	  1710	  1740	  1770	  1800	  1830	  1860	  1890	  1920	  1950	  1980	  2010	  2040	  2070
	  2100	  2121	  2178	  2204	  2230	  2256	  2282	  2308	  2334	  2360	  2386	  2412	  2438	  2464
	  2490	  2516	  2542	  2568	  2594	  2620	  2646	  2672	  2698	  2724	  2750	  2776	  2802	  2828
	  2854	  2880	  2906	  2932	  2958	  2984	  3010	  3036	  3062	  3088	  3141	  3166	  3191	  3216
	  3241	  3266	  3291	  3316	  3341	  3366	  3391	  3416	  3441	  3466	  3491	  3516	  3541	  3566
	  3591	  3616	  3641	  3666	  3691	  3716	  3741	  3766	  3791	  3816	  3841	  3866	  3891	  3916
	  3941	  3966	  3991	  4044	  4070	  4096	  4122	  4148	  4174	  4200	  4226	  4252	  4278	  4304
	  4330	  4356	  4382	  4408	  4434	  4460	  4486	  4540	  4566	  4592	  4618	  4644	  4670	  4696
	  4722	  4748	  4774	  4800	  4826	  4852	  4878	  4904	  4930	  4956	  4982	  5001	  5018	  5035
	  5051	  5068	  5085	  5101	  5118	  5135	  5151	  5166	  5183	  5201	  5238	  5256	  5274	  5292
	  5310	  5328	  5346	  5364	  5382	  5400	  5418	  5436	  5454	  5472	  5490	  5508	  5526	  5544
	  5562	  5580	  5598	  5616	  5634	  5652	  5670	  5688	  5706	  5724	  5742	  5760	  5778	  5796
	  5814	  5832	  5850	  5868	  5884	  5898	  5920	  5938	  5957	  5979	  6002	  6025	  6048	  6062
	  6084	  6099	  6121	  6136	  6152	  6172	  6193	  6218	  6271	  6298	  6325	  6352	  6379	  6406
	  6433	  6460	  6487	  6514	  6541	  6568	  6595	  6622	  6649	  6676	  6703	  6730	  6777	  6799
	  6821	  6843	  6865	  6887	  6909	  6931	  6953	  6975	  6997	  7019	  7041	  7063	  7085	  7107
	  7129	  7151	  7186	  7204	  7222	  7240	  7258	  7276	  7294	  7312	  7330	  7348	  7366	  7384
	  7402	  7420	  7438	  7456	  7474	  7492	  7510	  7528	  7546	  7564	  7582	  7600	  7618	  7636
	  7654	  7672	  7690	  7708	  7726	  7744	  7762	  7780	  7798	  7816	  7851	  7869	  7887	  7905
	  7923	  7941	  7959	  7977	  7995	  8013	  8031	  8049	  8067	  8085	  8103	  8121	  8139	  8157
	  8175	  8193	  8211	  8229	  8247	  8265	  8283	  8301	  8319	  8337	  8355	  8373	  8391	  8409
	  8427	  8445	  8463	  8481	  8524	  8544	  8564	  8584	  8604	  8624	  8644	  8664	  8684	  8704     SEQ 0280
	  8724	  8744	  8764	  8784	  8804	  8824	  8844	  8864	  8903	  8923	  8943	  8963	  8983	  9003
	  9023	  9043	  9063	  9083	  9103	  9123	  9143	  9163	  9183	  9203	  9223	  9243	  9293	  9318
	  9343	  9368	  9393	  9418	  9443	  9468	  9493	  9518	  9543	  9568	  9593	  9618	  9643	  9668
	  9693	  9718	  9768	  9793	  9818	  9843	  9868	  9893	  9918	  9943	  9968	  9993	 10018	 10043
	 10068	 10093	 10118	 10143	 10168	 10193	 10212	 10236	 10256	 10274	 10290	 10305	 10326	 10346
	 10368	 10382	 10398	 10420	 10438	 10462	 10485	 10506	 10532	 10560	 10578	 10594	 10618	 10634
	 10651	 10672	 10688	 10711	 10733	 10750	 10766	 10783	 10799	 10823	 10845	 10861	 10876	 10892
	 10908	 10935	 10955	 10971	 10986	 11002	 11018	 11046	 11061	 11077	 11092	 11108	 11126	 11148
	 11171	 11185	 11203	 11223	 11247	 11263
SWITCH	   252#
TTALTM	   174#
TTICHR	   167#
TTICNV	   172#
TTIDEC	   171#
TTINO	   169#
TTIOCT	   170#
TTIYES	   168#
TTLOOK	   173#
TTSIXB	   175#
TTYINP	   176#
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC                                                         SEQ 0281
DBKAB	000000 000000  000000 000000  000000 000000  000000  777777 

*030001  JRST	0,030600

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030001 030001 030001 254000030600 777777777777 0                0            0            0            0   0   777 
IT1	*      *      030600 *            254000030600 0                0            0            0            0   0   *   
ET2	030600 030600 *      402000030037 777777777777 254000030600     0            0            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
E    =000000 030600 
----------

*030600  SETZM	0,030037

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030600 030600 030600 402000030037 254000030600 000000030002     0            254000030600 0            0   0   777 
IT1	*      *      030037 *            402000030037 *                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000030037     0            *            0            0   0   *   
FT6	*      030037 *      *            777777777777 *                0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     0            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                0            *            0            0   0   *   
ST5	030601 030601 030601 265000030602 *            0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(E) =000000 000000 
----------

*030601  JSP	0,030602

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030601 030601 030601 265000030602 777777777777 0                0            254000030600 0            0   0   777 
IT1	*      *      030602 *            265000030602 0                0            *            0            0   0   *   
ET2	*      *      777777 *            777777777777 000000030602     0            *            0            0   0   *   
ST1	*      *      030602 *            000000030602 *                000000030602 000000030602 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 030602 
FINAL
C(AC)=000000 030602 
----------

*030602  TLNE	0,010000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030602 030602 030602 603000010000 777777777777 000000030602     000000030602 000000030602 0            0   0   777 
IT1	*      *      010000 *            603000010000 *                *            *            0            0   0   *   
ET0	*      *      030603 *            000000010000 000000010000     *            *            0            0   0   *   
ET1	*      *      *      *            000000000000 010000000000     *            *            0            0   0   *   
ET2	030603 *      030604 *            777777777777 *                *            010000000000 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 030602 E    =000000 010000                                                                                    SEQ 0282
FINAL
C(AC)=000000 030602 
----------

*030604  SKIPN	0,030042

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030604 030604 030604 336000030042 777777777777 777777777777     000000030602 010000000000 0            0   0   777 
IT1	*      *      030042 *            336000030042 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000030042     *            *            0            0   0   *   
FT6	*      030042 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      030605 *            *            *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	030605 *      030606 *            *            *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 030602 C(E) =777777 777777 
FINAL
C(AC)=000000 030602 
----------

*030606  SKIPE	0,030037

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030606 030606 030606 332000030037 777777777777 777777777777     000000030602 010000000000 0            0   0   777 
IT1	*      *      030037 *            332000030037 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000030037     *            *            0            0   0   *   
FT6	*      030037 *      000000000000 777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      030607 0            000000000000 0                *            *            0            0   0   *   
ET2	*      *      *      0            0            0                *            *            0            0   0   *   
ST1	030607 *      030610 0            777777777777 0                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 030602 C(E) =000000 000000 
FINAL
C(AC)=000000 030602 
----------

*030610  SKIPN	0,030044

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030610 030610 030610 336000030044 777777777777 0                000000030602 010000000000 0            0   0   777 
IT1	*      *      030044 *            336000030044 0                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000030044     *            *            0            0   0   *   
FT6	*      030044 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      030611 *            *            *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	030611 *      030612 *            *            *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 030602 C(E) =777777 777777 
FINAL
C(AC)=000000 030602 
----------

*030612  SETZM	0,030516
                                                                                                                           SEQ 0283
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030612 030612 030612 402000030516 777777777777 777777777777     000000030602 010000000000 0            0   0   777 
IT1	*      *      030516 *            402000030516 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000030516     *            *            0            0   0   *   
FT6	*      030516 *      *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                *            *            0            0   0   *   
ST5	030613 030613 030613 402000030041 *            0                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 030602 C(E) =000000 000000 
FINAL
C(E) =000000 000000 
----------

*030613  SETZM	0,030041

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030613 030613 030613 402000030041 777777777777 0                000000030602 010000000000 0            0   0   777 
IT1	*      *      030041 *            402000030041 0                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000030041     *            *            0            0   0   *   
FT6	*      030041 *      *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                *            *            0            0   0   *   
ST5	030614 030614 030614 200040035410 *            0                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 030602 C(E) =000000 000000 
FINAL
C(E) =000000 000000 
----------

*030614  MOVE 	1,035410

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030614 030614 030614 200040035410 777777777777 0                000000030602 010000000000 0            0   0   777 
IT1	*      *      035410 *            200040035410 0                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000035410     0            *            0            0   0   *   
FT6	030615 030615 030615 251040000001 777777777777 000001000001     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000001000001 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000001 000001 
FINAL
C(AC)=000001 000001 
----------

*030615  BLT	1,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030615 030615 030615 251040000001 777777777777 000001000001     000001000001 010000000000 0            0   0   777 
IT1	*      *      000001 *            251040000001 *                *            *            0            0   0   *   
ET0	*      *      777777 *            000001777777 000000000001     *            *            0            0   0   *   
ET1	*      *      *      *            777777777777 000001777777     *            *            0            0   0   *   SEQ 0284
ET2	*      *      000000 *            000001000000 777777000001     *            *            0            0   0   *   
BLTT0	000000 *      030615 *            000000030615 000000030615     *            777777000001 0            0   0   *   
BLTT1	0      *      000001 *            777777000001 *                *            *            000000030615 0   0   *   
BLTT2	0      *      *      *            *            777777000001     *            *            *            0   0   *   
MEMST	0      *      *      *            777777777777 *                *            *            *            0   0   *   
BLTT3	0      000001 *      *            *            000001000001     *            *            *            0   0   *   
BLTT4	0      *      *      *            *            *                *            *            *            0   0   *   
MEMST	0      *      *      *            *            *                *            *            *            0   0   *   
ST1	0      *      *      *            *            *                *            *            *            0   0   *   
ST2	000001 *      *      000001000001 *            *                *            *            *            0   0   *   
BLTT1	*      *      000002 *            000000000002 *                *            *            *            0   0   *   
BLTT8	*      *      777777 *            777777777777 000000000002     *            *            *            0   0   *   
BLTT9	*      *      030615 *            000000030615 000000030615     *            *            777777777777 0   0   *   
ST1	030615 *      030616 *            777777777777 *                *            *            *            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000001 000001 E    =000000 000001 
FINAL
C(AC)=000001 000001 
----------

*030616  CAMN	1,035410

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030616 030616 030616 316040035410 777777777777 000000030615     000001000001 777777000001 777777777777 0   0   777 
IT1	*      *      035410 *            316040035410 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000035410     *            *            000000000000 0   0   *   
FT6	*      035410 *      000001000001 777777777777 000001000001     *            *            0            0   0   *   
ET0	*      *      030617 *            000000000000 *                *            *            0            0   0   *   
ET2	*      *      *      *            0            *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000001 000001 C(E) =000001 000001 
----------

*030617  JRST	0,030712

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030617 030617 030617 254000030712 777777777777 000001000001     000001000001 777777000001 0            0   0   777 
IT1	*      *      030712 *            254000030712 *                000000030602 *            0            0   0   *   
ET2	030712 030712 *      402000030037 777777777777 254000030712     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
E    =000000 030712 
----------

*030712  SETZM	0,030037

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030712 030712 030712 402000030037 254000030712 000000030620     000000030602 254000030712 0            0   0   777 
IT1	*      *      030037 *            402000030037 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000030037     *            *            0            0   0   *   
FT6	*      030037 *      *            777777777777 *                *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000000     *            *            0            0   0   *   
ST2	*      *      *      000000000000 *            0                *            *            0            0   0   *   SEQ 0285
ST5	030713 030713 030713 265000030714 *            0                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 030602 C(E) =000000 000000 
FINAL
C(E) =000000 000000 
----------

*030713  JSP	0,030714

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030713 030713 030713 265000030714 777777777777 0                000000030602 254000030712 0            0   0   777 
IT1	*      *      030714 *            265000030714 0                *            *            0            0   0   *   
ET2	*      *      777777 *            777777777777 000000030714     *            *            0            0   0   *   
ST1	*      *      030714 *            000000030714 *                000000030714 000000030714 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 030602 E    =000000 030714 
FINAL
C(AC)=000000 030714 
----------

*030714  TLNE	0,010000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030714 030714 030714 603000010000 777777777777 000000030714     000000030714 000000030714 0            0   0   777 
IT1	*      *      010000 *            603000010000 *                *            *            0            0   0   *   
ET0	*      *      030715 *            000000010000 000000010000     *            *            0            0   0   *   
ET1	*      *      *      *            000000000000 010000000000     *            *            0            0   0   *   
ET2	030715 *      030716 *            777777777777 *                *            010000000000 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 030714 E    =000000 010000 
FINAL
C(AC)=000000 030714 
----------

*030716  SKIPN	0,030042

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030716 030716 030716 336000030042 777777777777 777777777777     000000030714 010000000000 0            0   0   777 
IT1	*      *      030042 *            336000030042 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000030042     *            *            0            0   0   *   
FT6	*      030042 *      777777777777 777777777777 777777777777     *            *            0            0   0   *   
ET0	*      *      030717 *            *            *                *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	030717 *      030720 *            *            *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 030714 C(E) =777777 777777 
FINAL
C(AC)=000000 030714 
----------

*030720  SKIPN	0,030037
                                                                                                                           SEQ 0286
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030720 030720 030720 336000030037 777777777777 777777777777     000000030714 010000000000 0            0   0   777 
IT1	*      *      030037 *            336000030037 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000030037     *            *            0            0   0   *   
FT6	*      030037 *      000000000000 777777777777 000000000000     *            *            0            0   0   *   
ET0	*      *      030721 0            000000000000 0                *            *            0            0   0   *   
ET2	*      *      *      0            0            0                *            *            0            0   0   *   
ST1	*      *      *      0            777777777777 0                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 030714 C(E) =000000 000000 
FINAL
C(AC)=000000 030714 
----------

*030721  JRST	0,030742

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030721 030721 030721 254000030742 777777777777 0                000000030714 010000000000 0            0   0   777 
IT1	*      *      030742 *            254000030742 0                *            *            0            0   0   *   
ET2	030742 030742 *      200000035412 777777777777 254000030742     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
E    =000000 030742 
----------

*030742  MOVE 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030742 030742 030742 200000035412 254000030742 000000030722     000000030714 254000030742 0            0   0   777 
IT1	*      *      035412 *            200000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	030743 030743 030743 270000035413 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000030714 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 030714 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*030743  ADD 	0,035413

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030743 030743 030743 270000035413 777777777777 0                0            254000030742 0            0   0   777 
IT1	*      *      035413 *            270000035413 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035413     0            *            0            0   0   *   
FT6	030744 030744 030744 336000000000 777777777777 123456765432     0            *            0            0   0   *   
ET2	*      *      *      *            123456765432 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456765432 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =123456 765432 
FINAL
C(AC)=123456 765432                                                                                                        SEQ 0287
----------

*030744  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030744 030744 030744 336000000000 777777777777 123456765432     123456765432 254000030742 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 123456765432     *            *            0            0   0   *   
ET0	*      0      030745 *            123456765432 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	030745 0      030746 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 765432 C(E) =123456 765432 
FINAL
C(AC)=123456 765432 
----------

*030746  JUMPA	0,030747

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030746 030746 030746 324000030747 777777777777 123456765432     123456765432 254000030742 0            0   0   777 
IT1	*      *      030747 *            324000030747 *                *            *            0            0   0   *   
ET0	*      *      765432 *            123456765432 000000030747     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      030747 *            000000030747 123456765432     *            000000030747 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 765432 E    =000000 030747 
----------

*030747  MOVE 	0,035413

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030747 030747 030747 200000035413 777777777777 123456765432     123456765432 000000030747 0            0   0   777 
IT1	*      *      035413 *            200000035413 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035413     *            *            0            0   0   *   
FT6	030750 030750 030750 270000035412 777777777777 123456765432     *            *            0            0   0   *   
ET2	*      *      *      *            123456765432 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 765432 C(E) =123456 765432 
FINAL
C(AC)=123456 765432 
----------

*030750  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030750 030750 030750 270000035412 777777777777 123456765432     123456765432 000000030747 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	030751 030751 030751 336000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            123456765432 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 123456765432     *            *            0            0   0   *   SEQ 0288

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 765432 C(E) =000000 000000 
FINAL
C(AC)=123456 765432 
----------

*030751  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030751 030751 030751 336000000000 777777777777 123456765432     123456765432 000000030747 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 123456765432     *            *            0            0   0   *   
ET0	*      0      030752 *            123456765432 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	030752 0      030753 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 765432 C(E) =123456 765432 
FINAL
C(AC)=123456 765432 
----------

*030753  JUMPA	0,030754

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030753 030753 030753 324000030754 777777777777 123456765432     123456765432 000000030747 0            0   0   777 
IT1	*      *      030754 *            324000030754 *                *            *            0            0   0   *   
ET0	*      *      765432 *            123456765432 000000030754     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      030754 *            000000030754 123456765432     *            000000030754 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 765432 E    =000000 030754 
----------

*030754  MOVE 	0,035414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030754 030754 030754 200000035414 777777777777 123456765432     123456765432 000000030754 0            0   0   777 
IT1	*      *      035414 *            200000035414 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035414     *            *            0            0   0   *   
FT6	030755 030755 030755 270000035412 777777777777 123456000000     *            *            0            0   0   *   
ET2	*      *      *      *            123456765432 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 765432 C(E) =123456 000000 
FINAL
C(AC)=123456 000000 
----------

*030755  ADD 	0,035412
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0289
IT0	030755 030755 030755 270000035412 777777777777 123456000000     123456000000 000000030754 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	030756 030756 030756 336000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            123456000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 123456000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 000000 C(E) =000000 000000 
FINAL
C(AC)=123456 000000 
----------

*030756  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030756 030756 030756 336000000000 777777777777 123456000000     123456000000 000000030754 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 123456000000     *            *            0            0   0   *   
ET0	*      0      030757 *            123456000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	030757 0      030760 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 000000 C(E) =123456 000000 
FINAL
C(AC)=123456 000000 
----------

*030760  JUMPA	0,030761

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030760 030760 030760 324000030761 777777777777 123456000000     123456000000 000000030754 0            0   0   777 
IT1	*      *      030761 *            324000030761 *                *            *            0            0   0   *   
ET0	*      *      000000 *            123456000000 000000030761     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      030761 *            000000030761 123456000000     *            000000030761 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 000000 E    =000000 030761 
----------

*030761  MOVE 	0,035415

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030761 030761 030761 200000035415 777777777777 123456000000     123456000000 000000030761 0            0   0   777 
IT1	*      *      035415 *            200000035415 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035415     *            *            0            0   0   *   
FT6	030762 030762 030762 270000035412 777777777777 000000123456     *            *            0            0   0   *   
ET2	*      *      *      *            123456000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000123456 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 000000 C(E) =000000 123456 
FINAL                                                                                                                      SEQ 0290
C(AC)=000000 123456 
----------

*030762  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030762 030762 030762 270000035412 777777777777 000000123456     000000123456 000000030761 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	030763 030763 030763 336000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000123456 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000123456     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 123456 C(E) =000000 000000 
FINAL
C(AC)=000000 123456 
----------

*030763  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030763 030763 030763 336000000000 777777777777 000000123456     000000123456 000000030761 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000123456     *            *            0            0   0   *   
ET0	*      0      030764 *            000000123456 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	030764 0      030765 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 123456 C(E) =000000 123456 
FINAL
C(AC)=000000 123456 
----------

*030765  JUMPA	0,030766

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030765 030765 030765 324000030766 777777777777 000000123456     000000123456 000000030761 0            0   0   777 
IT1	*      *      030766 *            324000030766 *                *            *            0            0   0   *   
ET0	*      *      123456 *            000000123456 000000030766     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      030766 *            000000030766 000000123456     *            000000030766 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 123456 E    =000000 030766 
----------

*030766  MOVE 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030766 030766 030766 200000035412 777777777777 000000123456     000000123456 000000030766 0            0   0   777 
IT1	*      *      035412 *            200000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	030767 030767 030767 270000035414 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000123456 0                *            *            0            0   0   *   SEQ 0291
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 123456 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*030767  ADD 	0,035414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030767 030767 030767 270000035414 777777777777 0                0            000000030766 0            0   0   777 
IT1	*      *      035414 *            270000035414 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035414     0            *            0            0   0   *   
FT6	030770 030770 030770 336000000000 777777777777 123456000000     0            *            0            0   0   *   
ET2	*      *      *      *            123456000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                123456000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =123456 000000 
FINAL
C(AC)=123456 000000 
----------

*030770  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030770 030770 030770 336000000000 777777777777 123456000000     123456000000 000000030766 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 123456000000     *            *            0            0   0   *   
ET0	*      0      030771 *            123456000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	030771 0      030772 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 000000 C(E) =123456 000000 
FINAL
C(AC)=123456 000000 
----------

*030772  JUMPA	0,030773

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030772 030772 030772 324000030773 777777777777 123456000000     123456000000 000000030766 0            0   0   777 
IT1	*      *      030773 *            324000030773 *                *            *            0            0   0   *   
ET0	*      *      000000 *            123456000000 000000030773     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      030773 *            000000030773 123456000000     *            000000030773 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 000000 E    =000000 030773 
----------

*030773  MOVE 	0,035412
                                                                                                                           SEQ 0292
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030773 030773 030773 200000035412 777777777777 123456000000     123456000000 000000030773 0            0   0   777 
IT1	*      *      035412 *            200000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	030774 030774 030774 270000035415 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            123456000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=123456 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*030774  ADD 	0,035415

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030774 030774 030774 270000035415 777777777777 0                0            000000030773 0            0   0   777 
IT1	*      *      035415 *            270000035415 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035415     0            *            0            0   0   *   
FT6	030775 030775 030775 336000000000 777777777777 000000123456     0            *            0            0   0   *   
ET2	*      *      *      *            000000123456 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000123456 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 123456 
FINAL
C(AC)=000000 123456 
----------

*030775  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030775 030775 030775 336000000000 777777777777 000000123456     000000123456 000000030773 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000123456     *            *            0            0   0   *   
ET0	*      0      030776 *            000000123456 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	030776 0      030777 *            777777777777 *                *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 123456 C(E) =000000 123456 
FINAL
C(AC)=000000 123456 
----------

*030777  JUMPA	0,031000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030777 030777 030777 324000031000 777777777777 000000123456     000000123456 000000030773 0            0   0   777 
IT1	*      *      031000 *            324000031000 *                *            *            0            0   0   *   
ET0	*      *      123456 *            000000123456 000000031000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031000 *            000000031000 000000123456     *            000000031000 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0293
INITIAL
C(AC)=000000 123456 E    =000000 031000 
----------

*031000  MOVE 	0,035416

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031000 031000 031000 200000035416 777777777777 000000123456     000000123456 000000031000 0            0   0   777 
IT1	*      *      035416 *            200000035416 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035416     *            *            0            0   0   *   
FT6	031001 031001 031001 270000035412 777777777777 000000000001     *            *            0            0   0   *   
ET2	*      *      *      *            000000123456 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000001 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 123456 C(E) =000000 000001 
FINAL
C(AC)=000000 000001 
----------

*031001  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031001 031001 031001 270000035412 777777777777 000000000001     000000000001 000000031000 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031002 031002 031002 444000035416 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000001 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000001     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 C(E) =000000 000000 
FINAL
C(AC)=000000 000001 
----------

*031002  EQV 	0,035416

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031002 031002 031002 444000035416 777777777777 000000000001     000000000001 000000031000 0            0   0   777 
IT1	*      *      035416 *            444000035416 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035416     *            *            0            0   0   *   
FT6	031003 031003 031003 444000035412 777777777777 000000000001     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 C(E) =000000 000001 
FINAL
C(AC)=777777 777777 
----------

*031003  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031003 031003 031003 444000035412 777777777777 777777777777     777777777777 000000031000 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   SEQ 0294
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031004 031004 031004 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031004  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031004 031004 031004 332000000000 777777777777 0                0            000000031000 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031005 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031005 0      031006 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031006  JUMPA	0,031007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031006 031006 031006 324000031007 777777777777 0                0            000000031000 0            0   0   777 
IT1	*      *      031007 *            324000031007 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031007     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031007 *            000000031007 000000000000     0            000000031007 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031007 
----------

*031007  MOVE 	0,035417

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031007 031007 031007 200000035417 777777777777 0                0            000000031007 0            0   0   777 
IT1	*      *      035417 *            200000035417 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035417     0            *            0            0   0   *   
FT6	031010 031010 031010 270000035412 777777777777 000000000002     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000002 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000002 
FINAL
C(AC)=000000 000002 
----------                                                                                                                 SEQ 0295

*031010  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031010 031010 031010 270000035412 777777777777 000000000002     000000000002 000000031007 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031011 031011 031011 444000035417 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000002 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000002     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000002 C(E) =000000 000000 
FINAL
C(AC)=000000 000002 
----------

*031011  EQV 	0,035417

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031011 031011 031011 444000035417 777777777777 000000000002     000000000002 000000031007 0            0   0   777 
IT1	*      *      035417 *            444000035417 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035417     *            *            0            0   0   *   
FT6	031012 031012 031012 444000035412 777777777777 000000000002     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000002 C(E) =000000 000002 
FINAL
C(AC)=777777 777777 
----------

*031012  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031012 031012 031012 444000035412 777777777777 777777777777     777777777777 000000031007 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031013 031013 031013 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031013  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031013 031013 031013 332000000000 777777777777 0                0            000000031007 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031014 *            000000000000 0                0            *            0            0   0   *   SEQ 0296
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031014 0      031015 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031015  JUMPA	0,031016

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031015 031015 031015 324000031016 777777777777 0                0            000000031007 0            0   0   777 
IT1	*      *      031016 *            324000031016 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031016     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031016 *            000000031016 000000000000     0            000000031016 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031016 
----------

*031016  MOVE 	0,035420

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031016 031016 031016 200000035420 777777777777 0                0            000000031016 0            0   0   777 
IT1	*      *      035420 *            200000035420 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035420     0            *            0            0   0   *   
FT6	031017 031017 031017 270000035412 777777777777 000000000004     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000004 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000004 
FINAL
C(AC)=000000 000004 
----------

*031017  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031017 031017 031017 270000035412 777777777777 000000000004     000000000004 000000031016 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031020 031020 031020 444000035420 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000004 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000004     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000004 C(E) =000000 000000 
FINAL
C(AC)=000000 000004 
----------

*031020  EQV 	0,035420
                                                                                                                           SEQ 0297
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031020 031020 031020 444000035420 777777777777 000000000004     000000000004 000000031016 0            0   0   777 
IT1	*      *      035420 *            444000035420 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035420     *            *            0            0   0   *   
FT6	031021 031021 031021 444000035412 777777777777 000000000004     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000004 C(E) =000000 000004 
FINAL
C(AC)=777777 777777 
----------

*031021  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031021 031021 031021 444000035412 777777777777 777777777777     777777777777 000000031016 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031022 031022 031022 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031022  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031022 031022 031022 332000000000 777777777777 0                0            000000031016 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031023 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031023 0      031024 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031024  JUMPA	0,031025

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031024 031024 031024 324000031025 777777777777 0                0            000000031016 0            0   0   777 
IT1	*      *      031025 *            324000031025 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031025     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031025 *            000000031025 000000000000     0            000000031025 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0298
INITIAL
C(AC)=000000 000000 E    =000000 031025 
----------

*031025  MOVE 	0,035421

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031025 031025 031025 200000035421 777777777777 0                0            000000031025 0            0   0   777 
IT1	*      *      035421 *            200000035421 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035421     0            *            0            0   0   *   
FT6	031026 031026 031026 270000035412 777777777777 000000000010     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000010 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000010 
FINAL
C(AC)=000000 000010 
----------

*031026  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031026 031026 031026 270000035412 777777777777 000000000010     000000000010 000000031025 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031027 031027 031027 444000035421 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000010 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000010     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000010 C(E) =000000 000000 
FINAL
C(AC)=000000 000010 
----------

*031027  EQV 	0,035421

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031027 031027 031027 444000035421 777777777777 000000000010     000000000010 000000031025 0            0   0   777 
IT1	*      *      035421 *            444000035421 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035421     *            *            0            0   0   *   
FT6	031030 031030 031030 444000035412 777777777777 000000000010     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000010 C(E) =000000 000010 
FINAL
C(AC)=777777 777777 
----------

*031030  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031030 031030 031030 444000035412 777777777777 777777777777     777777777777 000000031025 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   SEQ 0299
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031031 031031 031031 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031031  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031031 031031 031031 332000000000 777777777777 0                0            000000031025 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031032 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031032 0      031033 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031033  JUMPA	0,031034

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031033 031033 031033 324000031034 777777777777 0                0            000000031025 0            0   0   777 
IT1	*      *      031034 *            324000031034 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031034     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031034 *            000000031034 000000000000     0            000000031034 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031034 
----------

*031034  MOVE 	0,035422

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031034 031034 031034 200000035422 777777777777 0                0            000000031034 0            0   0   777 
IT1	*      *      035422 *            200000035422 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035422     0            *            0            0   0   *   
FT6	031035 031035 031035 270000035412 777777777777 000000000020     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000020 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000020 
FINAL
C(AC)=000000 000020 
----------                                                                                                                 SEQ 0300

*031035  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031035 031035 031035 270000035412 777777777777 000000000020     000000000020 000000031034 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031036 031036 031036 444000035422 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000020 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000020     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000020 C(E) =000000 000000 
FINAL
C(AC)=000000 000020 
----------

*031036  EQV 	0,035422

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031036 031036 031036 444000035422 777777777777 000000000020     000000000020 000000031034 0            0   0   777 
IT1	*      *      035422 *            444000035422 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035422     *            *            0            0   0   *   
FT6	031037 031037 031037 444000035412 777777777777 000000000020     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000020 C(E) =000000 000020 
FINAL
C(AC)=777777 777777 
----------

*031037  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031037 031037 031037 444000035412 777777777777 777777777777     777777777777 000000031034 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031040 031040 031040 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031040  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031040 031040 031040 332000000000 777777777777 0                0            000000031034 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031041 *            000000000000 0                0            *            0            0   0   *   SEQ 0301
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031041 0      031042 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031042  JUMPA	0,031043

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031042 031042 031042 324000031043 777777777777 0                0            000000031034 0            0   0   777 
IT1	*      *      031043 *            324000031043 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031043     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031043 *            000000031043 000000000000     0            000000031043 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031043 
----------

*031043  MOVE 	0,035423

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031043 031043 031043 200000035423 777777777777 0                0            000000031043 0            0   0   777 
IT1	*      *      035423 *            200000035423 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035423     0            *            0            0   0   *   
FT6	031044 031044 031044 270000035412 777777777777 000000000040     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000040 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000040 
FINAL
C(AC)=000000 000040 
----------

*031044  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031044 031044 031044 270000035412 777777777777 000000000040     000000000040 000000031043 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031045 031045 031045 444000035423 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000040 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000040     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000040 C(E) =000000 000000 
FINAL
C(AC)=000000 000040 
----------

*031045  EQV 	0,035423
                                                                                                                           SEQ 0302
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031045 031045 031045 444000035423 777777777777 000000000040     000000000040 000000031043 0            0   0   777 
IT1	*      *      035423 *            444000035423 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035423     *            *            0            0   0   *   
FT6	031046 031046 031046 444000035412 777777777777 000000000040     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000040 C(E) =000000 000040 
FINAL
C(AC)=777777 777777 
----------

*031046  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031046 031046 031046 444000035412 777777777777 777777777777     777777777777 000000031043 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031047 031047 031047 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031047  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031047 031047 031047 332000000000 777777777777 0                0            000000031043 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031050 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031050 0      031051 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031051  JUMPA	0,031052

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031051 031051 031051 324000031052 777777777777 0                0            000000031043 0            0   0   777 
IT1	*      *      031052 *            324000031052 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031052     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031052 *            000000031052 000000000000     0            000000031052 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0303
INITIAL
C(AC)=000000 000000 E    =000000 031052 
----------

*031052  MOVE 	0,035424

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031052 031052 031052 200000035424 777777777777 0                0            000000031052 0            0   0   777 
IT1	*      *      035424 *            200000035424 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035424     0            *            0            0   0   *   
FT6	031053 031053 031053 270000035412 777777777777 000000000100     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000100 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000100 
FINAL
C(AC)=000000 000100 
----------

*031053  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031053 031053 031053 270000035412 777777777777 000000000100     000000000100 000000031052 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031054 031054 031054 444000035424 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000100 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000100     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000100 C(E) =000000 000000 
FINAL
C(AC)=000000 000100 
----------

*031054  EQV 	0,035424

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031054 031054 031054 444000035424 777777777777 000000000100     000000000100 000000031052 0            0   0   777 
IT1	*      *      035424 *            444000035424 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035424     *            *            0            0   0   *   
FT6	031055 031055 031055 444000035412 777777777777 000000000100     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000100 C(E) =000000 000100 
FINAL
C(AC)=777777 777777 
----------

*031055  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031055 031055 031055 444000035412 777777777777 777777777777     777777777777 000000031052 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   SEQ 0304
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031056 031056 031056 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031056  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031056 031056 031056 332000000000 777777777777 0                0            000000031052 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031057 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031057 0      031060 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031060  JUMPA	0,031061

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031060 031060 031060 324000031061 777777777777 0                0            000000031052 0            0   0   777 
IT1	*      *      031061 *            324000031061 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031061     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031061 *            000000031061 000000000000     0            000000031061 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031061 
----------

*031061  MOVE 	0,035425

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031061 031061 031061 200000035425 777777777777 0                0            000000031061 0            0   0   777 
IT1	*      *      035425 *            200000035425 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035425     0            *            0            0   0   *   
FT6	031062 031062 031062 270000035412 777777777777 000000000200     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000200 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000200 
FINAL
C(AC)=000000 000200 
----------                                                                                                                 SEQ 0305

*031062  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031062 031062 031062 270000035412 777777777777 000000000200     000000000200 000000031061 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031063 031063 031063 444000035425 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000200 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000200     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000200 C(E) =000000 000000 
FINAL
C(AC)=000000 000200 
----------

*031063  EQV 	0,035425

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031063 031063 031063 444000035425 777777777777 000000000200     000000000200 000000031061 0            0   0   777 
IT1	*      *      035425 *            444000035425 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035425     *            *            0            0   0   *   
FT6	031064 031064 031064 444000035412 777777777777 000000000200     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000200 C(E) =000000 000200 
FINAL
C(AC)=777777 777777 
----------

*031064  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031064 031064 031064 444000035412 777777777777 777777777777     777777777777 000000031061 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031065 031065 031065 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031065  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031065 031065 031065 332000000000 777777777777 0                0            000000031061 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031066 *            000000000000 0                0            *            0            0   0   *   SEQ 0306
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031066 0      031067 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031067  JUMPA	0,031070

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031067 031067 031067 324000031070 777777777777 0                0            000000031061 0            0   0   777 
IT1	*      *      031070 *            324000031070 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031070     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031070 *            000000031070 000000000000     0            000000031070 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031070 
----------

*031070  MOVE 	0,035426

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031070 031070 031070 200000035426 777777777777 0                0            000000031070 0            0   0   777 
IT1	*      *      035426 *            200000035426 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035426     0            *            0            0   0   *   
FT6	031071 031071 031071 270000035412 777777777777 000000000400     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000400 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000400 
FINAL
C(AC)=000000 000400 
----------

*031071  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031071 031071 031071 270000035412 777777777777 000000000400     000000000400 000000031070 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031072 031072 031072 444000035426 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000400 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000400     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000400 C(E) =000000 000000 
FINAL
C(AC)=000000 000400 
----------

*031072  EQV 	0,035426
                                                                                                                           SEQ 0307
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031072 031072 031072 444000035426 777777777777 000000000400     000000000400 000000031070 0            0   0   777 
IT1	*      *      035426 *            444000035426 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035426     *            *            0            0   0   *   
FT6	031073 031073 031073 444000035412 777777777777 000000000400     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000400 C(E) =000000 000400 
FINAL
C(AC)=777777 777777 
----------

*031073  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031073 031073 031073 444000035412 777777777777 777777777777     777777777777 000000031070 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031074 031074 031074 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031074  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031074 031074 031074 332000000000 777777777777 0                0            000000031070 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031075 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031075 0      031076 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031076  JUMPA	0,031077

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031076 031076 031076 324000031077 777777777777 0                0            000000031070 0            0   0   777 
IT1	*      *      031077 *            324000031077 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031077     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031077 *            000000031077 000000000000     0            000000031077 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0308
INITIAL
C(AC)=000000 000000 E    =000000 031077 
----------

*031077  MOVE 	0,035427

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031077 031077 031077 200000035427 777777777777 0                0            000000031077 0            0   0   777 
IT1	*      *      035427 *            200000035427 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035427     0            *            0            0   0   *   
FT6	031100 031100 031100 270000035412 777777777777 000000001000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000001000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 001000 
FINAL
C(AC)=000000 001000 
----------

*031100  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031100 031100 031100 270000035412 777777777777 000000001000     000000001000 000000031077 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031101 031101 031101 444000035427 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000001000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000001000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 001000 C(E) =000000 000000 
FINAL
C(AC)=000000 001000 
----------

*031101  EQV 	0,035427

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031101 031101 031101 444000035427 777777777777 000000001000     000000001000 000000031077 0            0   0   777 
IT1	*      *      035427 *            444000035427 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035427     *            *            0            0   0   *   
FT6	031102 031102 031102 444000035412 777777777777 000000001000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 001000 C(E) =000000 001000 
FINAL
C(AC)=777777 777777 
----------

*031102  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031102 031102 031102 444000035412 777777777777 777777777777     777777777777 000000031077 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   SEQ 0309
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031103 031103 031103 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031103  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031103 031103 031103 332000000000 777777777777 0                0            000000031077 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031104 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031104 0      031105 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031105  JUMPA	0,031106

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031105 031105 031105 324000031106 777777777777 0                0            000000031077 0            0   0   777 
IT1	*      *      031106 *            324000031106 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031106     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031106 *            000000031106 000000000000     0            000000031106 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031106 
----------

*031106  MOVE 	0,035430

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031106 031106 031106 200000035430 777777777777 0                0            000000031106 0            0   0   777 
IT1	*      *      035430 *            200000035430 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035430     0            *            0            0   0   *   
FT6	031107 031107 031107 270000035412 777777777777 000000002000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000002000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 002000 
FINAL
C(AC)=000000 002000 
----------                                                                                                                 SEQ 0310

*031107  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031107 031107 031107 270000035412 777777777777 000000002000     000000002000 000000031106 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031110 031110 031110 444000035430 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000002000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000002000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 002000 C(E) =000000 000000 
FINAL
C(AC)=000000 002000 
----------

*031110  EQV 	0,035430

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031110 031110 031110 444000035430 777777777777 000000002000     000000002000 000000031106 0            0   0   777 
IT1	*      *      035430 *            444000035430 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035430     *            *            0            0   0   *   
FT6	031111 031111 031111 444000035412 777777777777 000000002000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 002000 C(E) =000000 002000 
FINAL
C(AC)=777777 777777 
----------

*031111  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031111 031111 031111 444000035412 777777777777 777777777777     777777777777 000000031106 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031112 031112 031112 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031112  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031112 031112 031112 332000000000 777777777777 0                0            000000031106 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031113 *            000000000000 0                0            *            0            0   0   *   SEQ 0311
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031113 0      031114 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031114  JUMPA	0,031115

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031114 031114 031114 324000031115 777777777777 0                0            000000031106 0            0   0   777 
IT1	*      *      031115 *            324000031115 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031115     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031115 *            000000031115 000000000000     0            000000031115 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031115 
----------

*031115  MOVE 	0,035431

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031115 031115 031115 200000035431 777777777777 0                0            000000031115 0            0   0   777 
IT1	*      *      035431 *            200000035431 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035431     0            *            0            0   0   *   
FT6	031116 031116 031116 270000035412 777777777777 000000004000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000004000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 004000 
FINAL
C(AC)=000000 004000 
----------

*031116  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031116 031116 031116 270000035412 777777777777 000000004000     000000004000 000000031115 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031117 031117 031117 444000035431 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000004000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000004000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 004000 C(E) =000000 000000 
FINAL
C(AC)=000000 004000 
----------

*031117  EQV 	0,035431
                                                                                                                           SEQ 0312
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031117 031117 031117 444000035431 777777777777 000000004000     000000004000 000000031115 0            0   0   777 
IT1	*      *      035431 *            444000035431 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035431     *            *            0            0   0   *   
FT6	031120 031120 031120 444000035412 777777777777 000000004000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 004000 C(E) =000000 004000 
FINAL
C(AC)=777777 777777 
----------

*031120  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031120 031120 031120 444000035412 777777777777 777777777777     777777777777 000000031115 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031121 031121 031121 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031121  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031121 031121 031121 332000000000 777777777777 0                0            000000031115 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031122 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031122 0      031123 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031123  JUMPA	0,031124

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031123 031123 031123 324000031124 777777777777 0                0            000000031115 0            0   0   777 
IT1	*      *      031124 *            324000031124 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031124     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031124 *            000000031124 000000000000     0            000000031124 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0313
INITIAL
C(AC)=000000 000000 E    =000000 031124 
----------

*031124  MOVE 	0,035432

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031124 031124 031124 200000035432 777777777777 0                0            000000031124 0            0   0   777 
IT1	*      *      035432 *            200000035432 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035432     0            *            0            0   0   *   
FT6	031125 031125 031125 270000035412 777777777777 000000010000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000010000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 010000 
FINAL
C(AC)=000000 010000 
----------

*031125  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031125 031125 031125 270000035412 777777777777 000000010000     000000010000 000000031124 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031126 031126 031126 444000035432 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000010000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000010000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 010000 C(E) =000000 000000 
FINAL
C(AC)=000000 010000 
----------

*031126  EQV 	0,035432

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031126 031126 031126 444000035432 777777777777 000000010000     000000010000 000000031124 0            0   0   777 
IT1	*      *      035432 *            444000035432 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035432     *            *            0            0   0   *   
FT6	031127 031127 031127 444000035412 777777777777 000000010000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 010000 C(E) =000000 010000 
FINAL
C(AC)=777777 777777 
----------

*031127  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031127 031127 031127 444000035412 777777777777 777777777777     777777777777 000000031124 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   SEQ 0314
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031130 031130 031130 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031130  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031130 031130 031130 332000000000 777777777777 0                0            000000031124 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031131 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031131 0      031132 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031132  JUMPA	0,031133

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031132 031132 031132 324000031133 777777777777 0                0            000000031124 0            0   0   777 
IT1	*      *      031133 *            324000031133 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031133     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031133 *            000000031133 000000000000     0            000000031133 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031133 
----------

*031133  MOVE 	0,035433

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031133 031133 031133 200000035433 777777777777 0                0            000000031133 0            0   0   777 
IT1	*      *      035433 *            200000035433 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035433     0            *            0            0   0   *   
FT6	031134 031134 031134 270000035412 777777777777 000000020000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000020000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 020000 
FINAL
C(AC)=000000 020000 
----------                                                                                                                 SEQ 0315

*031134  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031134 031134 031134 270000035412 777777777777 000000020000     000000020000 000000031133 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031135 031135 031135 444000035433 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000020000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000020000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 020000 C(E) =000000 000000 
FINAL
C(AC)=000000 020000 
----------

*031135  EQV 	0,035433

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031135 031135 031135 444000035433 777777777777 000000020000     000000020000 000000031133 0            0   0   777 
IT1	*      *      035433 *            444000035433 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035433     *            *            0            0   0   *   
FT6	031136 031136 031136 444000035412 777777777777 000000020000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 020000 C(E) =000000 020000 
FINAL
C(AC)=777777 777777 
----------

*031136  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031136 031136 031136 444000035412 777777777777 777777777777     777777777777 000000031133 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031137 031137 031137 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031137  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031137 031137 031137 332000000000 777777777777 0                0            000000031133 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031140 *            000000000000 0                0            *            0            0   0   *   SEQ 0316
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031140 0      031141 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031141  JUMPA	0,031142

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031141 031141 031141 324000031142 777777777777 0                0            000000031133 0            0   0   777 
IT1	*      *      031142 *            324000031142 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031142     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031142 *            000000031142 000000000000     0            000000031142 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031142 
----------

*031142  MOVE 	0,035434

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031142 031142 031142 200000035434 777777777777 0                0            000000031142 0            0   0   777 
IT1	*      *      035434 *            200000035434 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035434     0            *            0            0   0   *   
FT6	031143 031143 031143 270000035412 777777777777 000000040000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000040000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 040000 
FINAL
C(AC)=000000 040000 
----------

*031143  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031143 031143 031143 270000035412 777777777777 000000040000     000000040000 000000031142 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031144 031144 031144 444000035434 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000040000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000040000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 040000 C(E) =000000 000000 
FINAL
C(AC)=000000 040000 
----------

*031144  EQV 	0,035434
                                                                                                                           SEQ 0317
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031144 031144 031144 444000035434 777777777777 000000040000     000000040000 000000031142 0            0   0   777 
IT1	*      *      035434 *            444000035434 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035434     *            *            0            0   0   *   
FT6	031145 031145 031145 444000035412 777777777777 000000040000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 040000 C(E) =000000 040000 
FINAL
C(AC)=777777 777777 
----------

*031145  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031145 031145 031145 444000035412 777777777777 777777777777     777777777777 000000031142 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031146 031146 031146 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031146  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031146 031146 031146 332000000000 777777777777 0                0            000000031142 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031147 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031147 0      031150 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031150  JUMPA	0,031151

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031150 031150 031150 324000031151 777777777777 0                0            000000031142 0            0   0   777 
IT1	*      *      031151 *            324000031151 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031151     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031151 *            000000031151 000000000000     0            000000031151 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0318
INITIAL
C(AC)=000000 000000 E    =000000 031151 
----------

*031151  MOVE 	0,035435

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031151 031151 031151 200000035435 777777777777 0                0            000000031151 0            0   0   777 
IT1	*      *      035435 *            200000035435 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035435     0            *            0            0   0   *   
FT6	031152 031152 031152 270000035412 777777777777 000000100000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000100000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 100000 
FINAL
C(AC)=000000 100000 
----------

*031152  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031152 031152 031152 270000035412 777777777777 000000100000     000000100000 000000031151 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031153 031153 031153 444000035435 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000100000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000100000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 100000 C(E) =000000 000000 
FINAL
C(AC)=000000 100000 
----------

*031153  EQV 	0,035435

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031153 031153 031153 444000035435 777777777777 000000100000     000000100000 000000031151 0            0   0   777 
IT1	*      *      035435 *            444000035435 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035435     *            *            0            0   0   *   
FT6	031154 031154 031154 444000035412 777777777777 000000100000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 100000 C(E) =000000 100000 
FINAL
C(AC)=777777 777777 
----------

*031154  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031154 031154 031154 444000035412 777777777777 777777777777     777777777777 000000031151 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   SEQ 0319
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031155 031155 031155 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031155  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031155 031155 031155 332000000000 777777777777 0                0            000000031151 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031156 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031156 0      031157 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031157  JUMPA	0,031160

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031157 031157 031157 324000031160 777777777777 0                0            000000031151 0            0   0   777 
IT1	*      *      031160 *            324000031160 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031160     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031160 *            000000031160 000000000000     0            000000031160 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031160 
----------

*031160  MOVE 	0,035436

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031160 031160 031160 200000035436 777777777777 0                0            000000031160 0            0   0   777 
IT1	*      *      035436 *            200000035436 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035436     0            *            0            0   0   *   
FT6	031161 031161 031161 270000035412 777777777777 000000200000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000200000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 200000 
FINAL
C(AC)=000000 200000 
----------                                                                                                                 SEQ 0320

*031161  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031161 031161 031161 270000035412 777777777777 000000200000     000000200000 000000031160 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031162 031162 031162 444000035436 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000200000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000200000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 200000 C(E) =000000 000000 
FINAL
C(AC)=000000 200000 
----------

*031162  EQV 	0,035436

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031162 031162 031162 444000035436 777777777777 000000200000     000000200000 000000031160 0            0   0   777 
IT1	*      *      035436 *            444000035436 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035436     *            *            0            0   0   *   
FT6	031163 031163 031163 444000035412 777777777777 000000200000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 200000 C(E) =000000 200000 
FINAL
C(AC)=777777 777777 
----------

*031163  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031163 031163 031163 444000035412 777777777777 777777777777     777777777777 000000031160 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031164 031164 031164 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031164  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031164 031164 031164 332000000000 777777777777 0                0            000000031160 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031165 *            000000000000 0                0            *            0            0   0   *   SEQ 0321
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031165 0      031166 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031166  JUMPA	0,031167

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031166 031166 031166 324000031167 777777777777 0                0            000000031160 0            0   0   777 
IT1	*      *      031167 *            324000031167 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031167     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031167 *            000000031167 000000000000     0            000000031167 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031167 
----------

*031167  MOVE 	0,035437

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031167 031167 031167 200000035437 777777777777 0                0            000000031167 0            0   0   777 
IT1	*      *      035437 *            200000035437 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035437     0            *            0            0   0   *   
FT6	031170 031170 031170 270000035412 777777777777 000000400000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000400000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 400000 
FINAL
C(AC)=000000 400000 
----------

*031170  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031170 031170 031170 270000035412 777777777777 000000400000     000000400000 000000031167 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031171 031171 031171 444000035437 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000400000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000400000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 400000 C(E) =000000 000000 
FINAL
C(AC)=000000 400000 
----------

*031171  EQV 	0,035437
                                                                                                                           SEQ 0322
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031171 031171 031171 444000035437 777777777777 000000400000     000000400000 000000031167 0            0   0   777 
IT1	*      *      035437 *            444000035437 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035437     *            *            0            0   0   *   
FT6	031172 031172 031172 444000035412 777777777777 000000400000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 400000 C(E) =000000 400000 
FINAL
C(AC)=777777 777777 
----------

*031172  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031172 031172 031172 444000035412 777777777777 777777777777     777777777777 000000031167 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031173 031173 031173 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031173  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031173 031173 031173 332000000000 777777777777 0                0            000000031167 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031174 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031174 0      031175 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031175  JUMPA	0,031176

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031175 031175 031175 324000031176 777777777777 0                0            000000031167 0            0   0   777 
IT1	*      *      031176 *            324000031176 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031176     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031176 *            000000031176 000000000000     0            000000031176 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0323
INITIAL
C(AC)=000000 000000 E    =000000 031176 
----------

*031176  MOVE 	0,035440

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031176 031176 031176 200000035440 777777777777 0                0            000000031176 0            0   0   777 
IT1	*      *      035440 *            200000035440 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035440     0            *            0            0   0   *   
FT6	031177 031177 031177 270000035412 777777777777 000001000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000001000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000001 000000 
FINAL
C(AC)=000001 000000 
----------

*031177  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031177 031177 031177 270000035412 777777777777 000001000000     000001000000 000000031176 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031200 031200 031200 444000035440 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000001000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000001000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000001 000000 C(E) =000000 000000 
FINAL
C(AC)=000001 000000 
----------

*031200  EQV 	0,035440

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031200 031200 031200 444000035440 777777777777 000001000000     000001000000 000000031176 0            0   0   777 
IT1	*      *      035440 *            444000035440 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035440     *            *            0            0   0   *   
FT6	031201 031201 031201 444000035412 777777777777 000001000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000001 000000 C(E) =000001 000000 
FINAL
C(AC)=777777 777777 
----------

*031201  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031201 031201 031201 444000035412 777777777777 777777777777     777777777777 000000031176 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   SEQ 0324
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031202 031202 031202 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031202  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031202 031202 031202 332000000000 777777777777 0                0            000000031176 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031203 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031203 0      031204 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031204  JUMPA	0,031205

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031204 031204 031204 324000031205 777777777777 0                0            000000031176 0            0   0   777 
IT1	*      *      031205 *            324000031205 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031205     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031205 *            000000031205 000000000000     0            000000031205 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031205 
----------

*031205  MOVE 	0,035441

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031205 031205 031205 200000035441 777777777777 0                0            000000031205 0            0   0   777 
IT1	*      *      035441 *            200000035441 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035441     0            *            0            0   0   *   
FT6	031206 031206 031206 270000035412 777777777777 000002000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000002000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000002 000000 
FINAL
C(AC)=000002 000000 
----------                                                                                                                 SEQ 0325

*031206  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031206 031206 031206 270000035412 777777777777 000002000000     000002000000 000000031205 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031207 031207 031207 444000035441 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000002000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000002000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000002 000000 C(E) =000000 000000 
FINAL
C(AC)=000002 000000 
----------

*031207  EQV 	0,035441

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031207 031207 031207 444000035441 777777777777 000002000000     000002000000 000000031205 0            0   0   777 
IT1	*      *      035441 *            444000035441 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035441     *            *            0            0   0   *   
FT6	031210 031210 031210 444000035412 777777777777 000002000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000002 000000 C(E) =000002 000000 
FINAL
C(AC)=777777 777777 
----------

*031210  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031210 031210 031210 444000035412 777777777777 777777777777     777777777777 000000031205 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031211 031211 031211 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031211  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031211 031211 031211 332000000000 777777777777 0                0            000000031205 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031212 *            000000000000 0                0            *            0            0   0   *   SEQ 0326
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031212 0      031213 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031213  JUMPA	0,031214

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031213 031213 031213 324000031214 777777777777 0                0            000000031205 0            0   0   777 
IT1	*      *      031214 *            324000031214 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031214     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031214 *            000000031214 000000000000     0            000000031214 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031214 
----------

*031214  MOVE 	0,035442

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031214 031214 031214 200000035442 777777777777 0                0            000000031214 0            0   0   777 
IT1	*      *      035442 *            200000035442 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035442     0            *            0            0   0   *   
FT6	031215 031215 031215 270000035412 777777777777 000004000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000004000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000004 000000 
FINAL
C(AC)=000004 000000 
----------

*031215  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031215 031215 031215 270000035412 777777777777 000004000000     000004000000 000000031214 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031216 031216 031216 444000035442 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000004000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000004000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000004 000000 C(E) =000000 000000 
FINAL
C(AC)=000004 000000 
----------

*031216  EQV 	0,035442
                                                                                                                           SEQ 0327
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031216 031216 031216 444000035442 777777777777 000004000000     000004000000 000000031214 0            0   0   777 
IT1	*      *      035442 *            444000035442 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035442     *            *            0            0   0   *   
FT6	031217 031217 031217 444000035412 777777777777 000004000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000004 000000 C(E) =000004 000000 
FINAL
C(AC)=777777 777777 
----------

*031217  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031217 031217 031217 444000035412 777777777777 777777777777     777777777777 000000031214 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031220 031220 031220 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031220  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031220 031220 031220 332000000000 777777777777 0                0            000000031214 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031221 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031221 0      031222 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031222  JUMPA	0,031223

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031222 031222 031222 324000031223 777777777777 0                0            000000031214 0            0   0   777 
IT1	*      *      031223 *            324000031223 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031223     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031223 *            000000031223 000000000000     0            000000031223 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0328
INITIAL
C(AC)=000000 000000 E    =000000 031223 
----------

*031223  MOVE 	0,035443

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031223 031223 031223 200000035443 777777777777 0                0            000000031223 0            0   0   777 
IT1	*      *      035443 *            200000035443 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035443     0            *            0            0   0   *   
FT6	031224 031224 031224 270000035412 777777777777 000010000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000010000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000010 000000 
FINAL
C(AC)=000010 000000 
----------

*031224  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031224 031224 031224 270000035412 777777777777 000010000000     000010000000 000000031223 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031225 031225 031225 444000035443 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000010000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000010000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000010 000000 C(E) =000000 000000 
FINAL
C(AC)=000010 000000 
----------

*031225  EQV 	0,035443

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031225 031225 031225 444000035443 777777777777 000010000000     000010000000 000000031223 0            0   0   777 
IT1	*      *      035443 *            444000035443 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035443     *            *            0            0   0   *   
FT6	031226 031226 031226 444000035412 777777777777 000010000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000010 000000 C(E) =000010 000000 
FINAL
C(AC)=777777 777777 
----------

*031226  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031226 031226 031226 444000035412 777777777777 777777777777     777777777777 000000031223 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   SEQ 0329
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031227 031227 031227 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031227  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031227 031227 031227 332000000000 777777777777 0                0            000000031223 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031230 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031230 0      031231 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031231  JUMPA	0,031232

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031231 031231 031231 324000031232 777777777777 0                0            000000031223 0            0   0   777 
IT1	*      *      031232 *            324000031232 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031232     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031232 *            000000031232 000000000000     0            000000031232 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031232 
----------

*031232  MOVE 	0,035444

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031232 031232 031232 200000035444 777777777777 0                0            000000031232 0            0   0   777 
IT1	*      *      035444 *            200000035444 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035444     0            *            0            0   0   *   
FT6	031233 031233 031233 270000035412 777777777777 000020000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000020000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000020 000000 
FINAL
C(AC)=000020 000000 
----------                                                                                                                 SEQ 0330

*031233  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031233 031233 031233 270000035412 777777777777 000020000000     000020000000 000000031232 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031234 031234 031234 444000035444 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000020000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000020000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000020 000000 C(E) =000000 000000 
FINAL
C(AC)=000020 000000 
----------

*031234  EQV 	0,035444

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031234 031234 031234 444000035444 777777777777 000020000000     000020000000 000000031232 0            0   0   777 
IT1	*      *      035444 *            444000035444 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035444     *            *            0            0   0   *   
FT6	031235 031235 031235 444000035412 777777777777 000020000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000020 000000 C(E) =000020 000000 
FINAL
C(AC)=777777 777777 
----------

*031235  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031235 031235 031235 444000035412 777777777777 777777777777     777777777777 000000031232 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031236 031236 031236 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031236  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031236 031236 031236 332000000000 777777777777 0                0            000000031232 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031237 *            000000000000 0                0            *            0            0   0   *   SEQ 0331
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031237 0      031240 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031240  JUMPA	0,031241

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031240 031240 031240 324000031241 777777777777 0                0            000000031232 0            0   0   777 
IT1	*      *      031241 *            324000031241 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031241     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031241 *            000000031241 000000000000     0            000000031241 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031241 
----------

*031241  MOVE 	0,035445

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031241 031241 031241 200000035445 777777777777 0                0            000000031241 0            0   0   777 
IT1	*      *      035445 *            200000035445 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035445     0            *            0            0   0   *   
FT6	031242 031242 031242 270000035412 777777777777 000040000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000040000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000040 000000 
FINAL
C(AC)=000040 000000 
----------

*031242  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031242 031242 031242 270000035412 777777777777 000040000000     000040000000 000000031241 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031243 031243 031243 444000035445 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000040000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000040000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000040 000000 C(E) =000000 000000 
FINAL
C(AC)=000040 000000 
----------

*031243  EQV 	0,035445
                                                                                                                           SEQ 0332
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031243 031243 031243 444000035445 777777777777 000040000000     000040000000 000000031241 0            0   0   777 
IT1	*      *      035445 *            444000035445 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035445     *            *            0            0   0   *   
FT6	031244 031244 031244 444000035412 777777777777 000040000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000040 000000 C(E) =000040 000000 
FINAL
C(AC)=777777 777777 
----------

*031244  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031244 031244 031244 444000035412 777777777777 777777777777     777777777777 000000031241 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031245 031245 031245 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031245  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031245 031245 031245 332000000000 777777777777 0                0            000000031241 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031246 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031246 0      031247 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031247  JUMPA	0,031250

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031247 031247 031247 324000031250 777777777777 0                0            000000031241 0            0   0   777 
IT1	*      *      031250 *            324000031250 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031250     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031250 *            000000031250 000000000000     0            000000031250 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0333
INITIAL
C(AC)=000000 000000 E    =000000 031250 
----------

*031250  MOVE 	0,035446

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031250 031250 031250 200000035446 777777777777 0                0            000000031250 0            0   0   777 
IT1	*      *      035446 *            200000035446 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035446     0            *            0            0   0   *   
FT6	031251 031251 031251 270000035412 777777777777 000100000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000100000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000100 000000 
FINAL
C(AC)=000100 000000 
----------

*031251  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031251 031251 031251 270000035412 777777777777 000100000000     000100000000 000000031250 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031252 031252 031252 444000035446 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000100000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000100000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000100 000000 C(E) =000000 000000 
FINAL
C(AC)=000100 000000 
----------

*031252  EQV 	0,035446

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031252 031252 031252 444000035446 777777777777 000100000000     000100000000 000000031250 0            0   0   777 
IT1	*      *      035446 *            444000035446 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035446     *            *            0            0   0   *   
FT6	031253 031253 031253 444000035412 777777777777 000100000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000100 000000 C(E) =000100 000000 
FINAL
C(AC)=777777 777777 
----------

*031253  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031253 031253 031253 444000035412 777777777777 777777777777     777777777777 000000031250 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   SEQ 0334
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031254 031254 031254 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031254  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031254 031254 031254 332000000000 777777777777 0                0            000000031250 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031255 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031255 0      031256 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031256  JUMPA	0,031257

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031256 031256 031256 324000031257 777777777777 0                0            000000031250 0            0   0   777 
IT1	*      *      031257 *            324000031257 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031257     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031257 *            000000031257 000000000000     0            000000031257 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031257 
----------

*031257  MOVE 	0,035447

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031257 031257 031257 200000035447 777777777777 0                0            000000031257 0            0   0   777 
IT1	*      *      035447 *            200000035447 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035447     0            *            0            0   0   *   
FT6	031260 031260 031260 270000035412 777777777777 000200000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000200000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000200 000000 
FINAL
C(AC)=000200 000000 
----------                                                                                                                 SEQ 0335

*031260  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031260 031260 031260 270000035412 777777777777 000200000000     000200000000 000000031257 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031261 031261 031261 444000035447 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000200000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000200000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000200 000000 C(E) =000000 000000 
FINAL
C(AC)=000200 000000 
----------

*031261  EQV 	0,035447

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031261 031261 031261 444000035447 777777777777 000200000000     000200000000 000000031257 0            0   0   777 
IT1	*      *      035447 *            444000035447 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035447     *            *            0            0   0   *   
FT6	031262 031262 031262 444000035412 777777777777 000200000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000200 000000 C(E) =000200 000000 
FINAL
C(AC)=777777 777777 
----------

*031262  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031262 031262 031262 444000035412 777777777777 777777777777     777777777777 000000031257 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031263 031263 031263 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031263  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031263 031263 031263 332000000000 777777777777 0                0            000000031257 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031264 *            000000000000 0                0            *            0            0   0   *   SEQ 0336
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031264 0      031265 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031265  JUMPA	0,031266

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031265 031265 031265 324000031266 777777777777 0                0            000000031257 0            0   0   777 
IT1	*      *      031266 *            324000031266 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031266     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031266 *            000000031266 000000000000     0            000000031266 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031266 
----------

*031266  MOVE 	0,035450

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031266 031266 031266 200000035450 777777777777 0                0            000000031266 0            0   0   777 
IT1	*      *      035450 *            200000035450 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035450     0            *            0            0   0   *   
FT6	031267 031267 031267 270000035412 777777777777 000400000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000400000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000400 000000 
FINAL
C(AC)=000400 000000 
----------

*031267  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031267 031267 031267 270000035412 777777777777 000400000000     000400000000 000000031266 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031270 031270 031270 444000035450 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000400000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000400000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000400 000000 C(E) =000000 000000 
FINAL
C(AC)=000400 000000 
----------

*031270  EQV 	0,035450
                                                                                                                           SEQ 0337
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031270 031270 031270 444000035450 777777777777 000400000000     000400000000 000000031266 0            0   0   777 
IT1	*      *      035450 *            444000035450 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035450     *            *            0            0   0   *   
FT6	031271 031271 031271 444000035412 777777777777 000400000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000400 000000 C(E) =000400 000000 
FINAL
C(AC)=777777 777777 
----------

*031271  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031271 031271 031271 444000035412 777777777777 777777777777     777777777777 000000031266 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031272 031272 031272 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031272  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031272 031272 031272 332000000000 777777777777 0                0            000000031266 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031273 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031273 0      031274 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031274  JUMPA	0,031275

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031274 031274 031274 324000031275 777777777777 0                0            000000031266 0            0   0   777 
IT1	*      *      031275 *            324000031275 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031275     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031275 *            000000031275 000000000000     0            000000031275 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0338
INITIAL
C(AC)=000000 000000 E    =000000 031275 
----------

*031275  MOVE 	0,035451

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031275 031275 031275 200000035451 777777777777 0                0            000000031275 0            0   0   777 
IT1	*      *      035451 *            200000035451 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035451     0            *            0            0   0   *   
FT6	031276 031276 031276 270000035412 777777777777 001000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                001000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =001000 000000 
FINAL
C(AC)=001000 000000 
----------

*031276  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031276 031276 031276 270000035412 777777777777 001000000000     001000000000 000000031275 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031277 031277 031277 444000035451 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            001000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 001000000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=001000 000000 C(E) =000000 000000 
FINAL
C(AC)=001000 000000 
----------

*031277  EQV 	0,035451

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031277 031277 031277 444000035451 777777777777 001000000000     001000000000 000000031275 0            0   0   777 
IT1	*      *      035451 *            444000035451 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035451     *            *            0            0   0   *   
FT6	031300 031300 031300 444000035412 777777777777 001000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=001000 000000 C(E) =001000 000000 
FINAL
C(AC)=777777 777777 
----------

*031300  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031300 031300 031300 444000035412 777777777777 777777777777     777777777777 000000031275 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   SEQ 0339
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031301 031301 031301 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031301  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031301 031301 031301 332000000000 777777777777 0                0            000000031275 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031302 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031302 0      031303 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031303  JUMPA	0,031304

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031303 031303 031303 324000031304 777777777777 0                0            000000031275 0            0   0   777 
IT1	*      *      031304 *            324000031304 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031304     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031304 *            000000031304 000000000000     0            000000031304 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031304 
----------

*031304  MOVE 	0,035452

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031304 031304 031304 200000035452 777777777777 0                0            000000031304 0            0   0   777 
IT1	*      *      035452 *            200000035452 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035452     0            *            0            0   0   *   
FT6	031305 031305 031305 270000035412 777777777777 002000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                002000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =002000 000000 
FINAL
C(AC)=002000 000000 
----------                                                                                                                 SEQ 0340

*031305  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031305 031305 031305 270000035412 777777777777 002000000000     002000000000 000000031304 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031306 031306 031306 444000035452 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            002000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 002000000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=002000 000000 C(E) =000000 000000 
FINAL
C(AC)=002000 000000 
----------

*031306  EQV 	0,035452

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031306 031306 031306 444000035452 777777777777 002000000000     002000000000 000000031304 0            0   0   777 
IT1	*      *      035452 *            444000035452 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035452     *            *            0            0   0   *   
FT6	031307 031307 031307 444000035412 777777777777 002000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=002000 000000 C(E) =002000 000000 
FINAL
C(AC)=777777 777777 
----------

*031307  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031307 031307 031307 444000035412 777777777777 777777777777     777777777777 000000031304 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031310 031310 031310 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031310  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031310 031310 031310 332000000000 777777777777 0                0            000000031304 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031311 *            000000000000 0                0            *            0            0   0   *   SEQ 0341
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031311 0      031312 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031312  JUMPA	0,031313

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031312 031312 031312 324000031313 777777777777 0                0            000000031304 0            0   0   777 
IT1	*      *      031313 *            324000031313 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031313     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031313 *            000000031313 000000000000     0            000000031313 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031313 
----------

*031313  MOVE 	0,035453

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031313 031313 031313 200000035453 777777777777 0                0            000000031313 0            0   0   777 
IT1	*      *      035453 *            200000035453 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035453     0            *            0            0   0   *   
FT6	031314 031314 031314 270000035412 777777777777 004000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                004000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =004000 000000 
FINAL
C(AC)=004000 000000 
----------

*031314  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031314 031314 031314 270000035412 777777777777 004000000000     004000000000 000000031313 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031315 031315 031315 444000035453 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            004000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 004000000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=004000 000000 C(E) =000000 000000 
FINAL
C(AC)=004000 000000 
----------

*031315  EQV 	0,035453
                                                                                                                           SEQ 0342
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031315 031315 031315 444000035453 777777777777 004000000000     004000000000 000000031313 0            0   0   777 
IT1	*      *      035453 *            444000035453 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035453     *            *            0            0   0   *   
FT6	031316 031316 031316 444000035412 777777777777 004000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=004000 000000 C(E) =004000 000000 
FINAL
C(AC)=777777 777777 
----------

*031316  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031316 031316 031316 444000035412 777777777777 777777777777     777777777777 000000031313 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031317 031317 031317 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031317  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031317 031317 031317 332000000000 777777777777 0                0            000000031313 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031320 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031320 0      031321 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031321  JUMPA	0,031322

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031321 031321 031321 324000031322 777777777777 0                0            000000031313 0            0   0   777 
IT1	*      *      031322 *            324000031322 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031322     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031322 *            000000031322 000000000000     0            000000031322 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0343
INITIAL
C(AC)=000000 000000 E    =000000 031322 
----------

*031322  MOVE 	0,035454

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031322 031322 031322 200000035454 777777777777 0                0            000000031322 0            0   0   777 
IT1	*      *      035454 *            200000035454 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035454     0            *            0            0   0   *   
FT6	031323 031323 031323 270000035412 777777777777 010000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                010000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =010000 000000 
FINAL
C(AC)=010000 000000 
----------

*031323  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031323 031323 031323 270000035412 777777777777 010000000000     010000000000 000000031322 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031324 031324 031324 444000035454 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            010000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 010000000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=010000 000000 C(E) =000000 000000 
FINAL
C(AC)=010000 000000 
----------

*031324  EQV 	0,035454

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031324 031324 031324 444000035454 777777777777 010000000000     010000000000 000000031322 0            0   0   777 
IT1	*      *      035454 *            444000035454 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035454     *            *            0            0   0   *   
FT6	031325 031325 031325 444000035412 777777777777 010000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=010000 000000 C(E) =010000 000000 
FINAL
C(AC)=777777 777777 
----------

*031325  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031325 031325 031325 444000035412 777777777777 777777777777     777777777777 000000031322 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   SEQ 0344
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031326 031326 031326 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031326  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031326 031326 031326 332000000000 777777777777 0                0            000000031322 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031327 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031327 0      031330 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031330  JUMPA	0,031331

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031330 031330 031330 324000031331 777777777777 0                0            000000031322 0            0   0   777 
IT1	*      *      031331 *            324000031331 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031331     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031331 *            000000031331 000000000000     0            000000031331 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031331 
----------

*031331  MOVE 	0,035455

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031331 031331 031331 200000035455 777777777777 0                0            000000031331 0            0   0   777 
IT1	*      *      035455 *            200000035455 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035455     0            *            0            0   0   *   
FT6	031332 031332 031332 270000035412 777777777777 020000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                020000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =020000 000000 
FINAL
C(AC)=020000 000000 
----------                                                                                                                 SEQ 0345

*031332  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031332 031332 031332 270000035412 777777777777 020000000000     020000000000 000000031331 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031333 031333 031333 444000035455 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            020000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 020000000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=020000 000000 C(E) =000000 000000 
FINAL
C(AC)=020000 000000 
----------

*031333  EQV 	0,035455

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031333 031333 031333 444000035455 777777777777 020000000000     020000000000 000000031331 0            0   0   777 
IT1	*      *      035455 *            444000035455 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035455     *            *            0            0   0   *   
FT6	031334 031334 031334 444000035412 777777777777 020000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=020000 000000 C(E) =020000 000000 
FINAL
C(AC)=777777 777777 
----------

*031334  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031334 031334 031334 444000035412 777777777777 777777777777     777777777777 000000031331 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031335 031335 031335 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031335  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031335 031335 031335 332000000000 777777777777 0                0            000000031331 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031336 *            000000000000 0                0            *            0            0   0   *   SEQ 0346
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031336 0      031337 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031337  JUMPA	0,031340

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031337 031337 031337 324000031340 777777777777 0                0            000000031331 0            0   0   777 
IT1	*      *      031340 *            324000031340 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031340     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031340 *            000000031340 000000000000     0            000000031340 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031340 
----------

*031340  MOVE 	0,035456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031340 031340 031340 200000035456 777777777777 0                0            000000031340 0            0   0   777 
IT1	*      *      035456 *            200000035456 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035456     0            *            0            0   0   *   
FT6	031341 031341 031341 270000035412 777777777777 040000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                040000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =040000 000000 
FINAL
C(AC)=040000 000000 
----------

*031341  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031341 031341 031341 270000035412 777777777777 040000000000     040000000000 000000031340 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031342 031342 031342 444000035456 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            040000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 040000000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=040000 000000 C(E) =000000 000000 
FINAL
C(AC)=040000 000000 
----------

*031342  EQV 	0,035456
                                                                                                                           SEQ 0347
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031342 031342 031342 444000035456 777777777777 040000000000     040000000000 000000031340 0            0   0   777 
IT1	*      *      035456 *            444000035456 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035456     *            *            0            0   0   *   
FT6	031343 031343 031343 444000035412 777777777777 040000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=040000 000000 C(E) =040000 000000 
FINAL
C(AC)=777777 777777 
----------

*031343  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031343 031343 031343 444000035412 777777777777 777777777777     777777777777 000000031340 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031344 031344 031344 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031344  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031344 031344 031344 332000000000 777777777777 0                0            000000031340 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031345 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031345 0      031346 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031346  JUMPA	0,031347

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031346 031346 031346 324000031347 777777777777 0                0            000000031340 0            0   0   777 
IT1	*      *      031347 *            324000031347 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031347     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031347 *            000000031347 000000000000     0            000000031347 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0348
INITIAL
C(AC)=000000 000000 E    =000000 031347 
----------

*031347  MOVE 	0,035457

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031347 031347 031347 200000035457 777777777777 0                0            000000031347 0            0   0   777 
IT1	*      *      035457 *            200000035457 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035457     0            *            0            0   0   *   
FT6	031350 031350 031350 270000035412 777777777777 100000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                100000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =100000 000000 
FINAL
C(AC)=100000 000000 
----------

*031350  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031350 031350 031350 270000035412 777777777777 100000000000     100000000000 000000031347 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031351 031351 031351 444000035457 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            100000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 100000000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=100000 000000 C(E) =000000 000000 
FINAL
C(AC)=100000 000000 
----------

*031351  EQV 	0,035457

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031351 031351 031351 444000035457 777777777777 100000000000     100000000000 000000031347 0            0   0   777 
IT1	*      *      035457 *            444000035457 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035457     *            *            0            0   0   *   
FT6	031352 031352 031352 444000035412 777777777777 100000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=100000 000000 C(E) =100000 000000 
FINAL
C(AC)=777777 777777 
----------

*031352  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031352 031352 031352 444000035412 777777777777 777777777777     777777777777 000000031347 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   SEQ 0349
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031353 031353 031353 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031353  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031353 031353 031353 332000000000 777777777777 0                0            000000031347 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031354 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031354 0      031355 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031355  JUMPA	0,031356

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031355 031355 031355 324000031356 777777777777 0                0            000000031347 0            0   0   777 
IT1	*      *      031356 *            324000031356 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031356     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031356 *            000000031356 000000000000     0            000000031356 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031356 
----------

*031356  MOVE 	0,035460

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031356 031356 031356 200000035460 777777777777 0                0            000000031356 0            0   0   777 
IT1	*      *      035460 *            200000035460 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035460     0            *            0            0   0   *   
FT6	031357 031357 031357 270000035412 777777777777 200000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                200000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =200000 000000 
FINAL
C(AC)=200000 000000 
----------                                                                                                                 SEQ 0350

*031357  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031357 031357 031357 270000035412 777777777777 200000000000     200000000000 000000031356 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031360 031360 031360 444000035460 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            200000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 200000000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=200000 000000 C(E) =000000 000000 
FINAL
C(AC)=200000 000000 
----------

*031360  EQV 	0,035460

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031360 031360 031360 444000035460 777777777777 200000000000     200000000000 000000031356 0            0   0   777 
IT1	*      *      035460 *            444000035460 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035460     *            *            0            0   0   *   
FT6	031361 031361 031361 444000035412 777777777777 200000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=200000 000000 C(E) =200000 000000 
FINAL
C(AC)=777777 777777 
----------

*031361  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031361 031361 031361 444000035412 777777777777 777777777777     777777777777 000000031356 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031362 031362 031362 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031362  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031362 031362 031362 332000000000 777777777777 0                0            000000031356 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031363 *            000000000000 0                0            *            0            0   0   *   SEQ 0351
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031363 0      031364 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031364  JUMPA	0,031365

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031364 031364 031364 324000031365 777777777777 0                0            000000031356 0            0   0   777 
IT1	*      *      031365 *            324000031365 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031365     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031365 *            000000031365 000000000000     0            000000031365 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031365 
----------

*031365  MOVE 	0,035461

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031365 031365 031365 200000035461 777777777777 0                0            000000031365 0            0   0   777 
IT1	*      *      035461 *            200000035461 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035461     0            *            0            0   0   *   
FT6	031366 031366 031366 270000035412 777777777777 400000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                400000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =400000 000000 
FINAL
C(AC)=400000 000000 
----------

*031366  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031366 031366 031366 270000035412 777777777777 400000000000     400000000000 000000031365 0            0   0   777 
IT1	*      *      035412 *            270000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031367 031367 031367 444000035461 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            400000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 400000000000     *            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=400000 000000 C(E) =000000 000000 
FINAL
C(AC)=400000 000000 
----------

*031367  EQV 	0,035461
                                                                                                                           SEQ 0352
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031367 031367 031367 444000035461 777777777777 400000000000     400000000000 000000031365 0            0   0   777 
IT1	*      *      035461 *            444000035461 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035461     *            *            0            0   0   *   
FT6	031370 031370 031370 444000035412 777777777777 400000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=400000 000000 C(E) =400000 000000 
FINAL
C(AC)=777777 777777 
----------

*031370  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031370 031370 031370 444000035412 777777777777 777777777777     777777777777 000000031365 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031371 031371 031371 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031371  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031371 031371 031371 332000000000 777777777777 0                0            000000031365 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031372 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031372 0      031373 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031373  JUMPA	0,031374

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031373 031373 031373 324000031374 777777777777 0                0            000000031365 0            0   0   777 
IT1	*      *      031374 *            324000031374 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031374     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031374 *            000000031374 000000000000     0            000000031374 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0353
INITIAL
C(AC)=000000 000000 E    =000000 031374 
----------

*031374  MOVE 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031374 031374 031374 200000035412 777777777777 0                0            000000031374 0            0   0   777 
IT1	*      *      035412 *            200000035412 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     0            *            0            0   0   *   
FT6	031375 031375 031375 270000035412 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031375  ADD 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031375 031375 031375 270000035412 777777777777 0                0            000000031374 0            0   0   777 
IT1	*      *      035412 *            270000035412 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     0            *            0            0   0   *   
FT6	031376 031376 031376 332000000000 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031376  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031376 031376 031376 332000000000 777777777777 0                0            000000031374 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031377 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031377 0      031400 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031400  JUMPA	0,031401

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031400 031400 031400 324000031401 777777777777 0                0            000000031374 0            0   0   77  SEQ 0354
IT1	*      *      031401 *            324000031401 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031401     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031401 *            000000031401 000000000000     0            000000031401 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031401 
----------

*031401  MOVE 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031401 031401 031401 200000035412 777777777777 0                0            000000031401 0            0   0   777 
IT1	*      *      035412 *            200000035412 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     0            *            0            0   0   *   
FT6	031402 031402 031402 270000035416 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031402  ADD 	0,035416

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031402 031402 031402 270000035416 777777777777 0                0            000000031401 0            0   0   777 
IT1	*      *      035416 *            270000035416 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035416     0            *            0            0   0   *   
FT6	031403 031403 031403 444000035416 777777777777 000000000001     0            *            0            0   0   *   
ET2	*      *      *      *            000000000001 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000001 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000001 
FINAL
C(AC)=000000 000001 
----------

*031403  EQV 	0,035416

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031403 031403 031403 444000035416 777777777777 000000000001     000000000001 000000031401 0            0   0   777 
IT1	*      *      035416 *            444000035416 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035416     *            *            0            0   0   *   
FT6	031404 031404 031404 444000035412 777777777777 000000000001     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000001 C(E) =000000 000001 
FINAL
C(AC)=777777 777777 
----------                                                                                                                 SEQ 0355

*031404  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031404 031404 031404 444000035412 777777777777 777777777777     777777777777 000000031401 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031405 031405 031405 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031405  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031405 031405 031405 332000000000 777777777777 0                0            000000031401 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031406 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031406 0      031407 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031407  JUMPA	0,031410

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031407 031407 031407 324000031410 777777777777 0                0            000000031401 0            0   0   777 
IT1	*      *      031410 *            324000031410 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031410     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031410 *            000000031410 000000000000     0            000000031410 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031410 
----------

*031410  MOVE 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031410 031410 031410 200000035412 777777777777 0                0            000000031410 0            0   0   777 
IT1	*      *      035412 *            200000035412 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     0            *            0            0   0   *   
FT6	031411 031411 031411 270000035417 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   
                                                                                                                           SEQ 0356
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031411  ADD 	0,035417

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031411 031411 031411 270000035417 777777777777 0                0            000000031410 0            0   0   777 
IT1	*      *      035417 *            270000035417 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035417     0            *            0            0   0   *   
FT6	031412 031412 031412 444000035417 777777777777 000000000002     0            *            0            0   0   *   
ET2	*      *      *      *            000000000002 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000002 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000002 
FINAL
C(AC)=000000 000002 
----------

*031412  EQV 	0,035417

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031412 031412 031412 444000035417 777777777777 000000000002     000000000002 000000031410 0            0   0   777 
IT1	*      *      035417 *            444000035417 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035417     *            *            0            0   0   *   
FT6	031413 031413 031413 444000035412 777777777777 000000000002     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000002 C(E) =000000 000002 
FINAL
C(AC)=777777 777777 
----------

*031413  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031413 031413 031413 444000035412 777777777777 777777777777     777777777777 000000031410 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031414 031414 031414 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031414  SKIPE	0,000000
                                                                                                                           SEQ 0357
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031414 031414 031414 332000000000 777777777777 0                0            000000031410 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031415 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031415 0      031416 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031416  JUMPA	0,031417

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031416 031416 031416 324000031417 777777777777 0                0            000000031410 0            0   0   777 
IT1	*      *      031417 *            324000031417 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031417     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031417 *            000000031417 000000000000     0            000000031417 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031417 
----------

*031417  MOVE 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031417 031417 031417 200000035412 777777777777 0                0            000000031417 0            0   0   777 
IT1	*      *      035412 *            200000035412 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     0            *            0            0   0   *   
FT6	031420 031420 031420 270000035420 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031420  ADD 	0,035420

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031420 031420 031420 270000035420 777777777777 0                0            000000031417 0            0   0   777 
IT1	*      *      035420 *            270000035420 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035420     0            *            0            0   0   *   
FT6	031421 031421 031421 444000035420 777777777777 000000000004     0            *            0            0   0   *   
ET2	*      *      *      *            000000000004 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000004 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000004                                                                                    SEQ 0358
FINAL
C(AC)=000000 000004 
----------

*031421  EQV 	0,035420

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031421 031421 031421 444000035420 777777777777 000000000004     000000000004 000000031417 0            0   0   777 
IT1	*      *      035420 *            444000035420 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035420     *            *            0            0   0   *   
FT6	031422 031422 031422 444000035412 777777777777 000000000004     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000004 C(E) =000000 000004 
FINAL
C(AC)=777777 777777 
----------

*031422  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031422 031422 031422 444000035412 777777777777 777777777777     777777777777 000000031417 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031423 031423 031423 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031423  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031423 031423 031423 332000000000 777777777777 0                0            000000031417 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031424 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031424 0      031425 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031425  JUMPA	0,031426

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031425 031425 031425 324000031426 777777777777 0                0            000000031417 0            0   0   77  SEQ 0359
IT1	*      *      031426 *            324000031426 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031426     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031426 *            000000031426 000000000000     0            000000031426 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031426 
----------

*031426  MOVE 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031426 031426 031426 200000035412 777777777777 0                0            000000031426 0            0   0   777 
IT1	*      *      035412 *            200000035412 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     0            *            0            0   0   *   
FT6	031427 031427 031427 270000035421 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031427  ADD 	0,035421

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031427 031427 031427 270000035421 777777777777 0                0            000000031426 0            0   0   777 
IT1	*      *      035421 *            270000035421 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035421     0            *            0            0   0   *   
FT6	031430 031430 031430 444000035421 777777777777 000000000010     0            *            0            0   0   *   
ET2	*      *      *      *            000000000010 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000010 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000010 
FINAL
C(AC)=000000 000010 
----------

*031430  EQV 	0,035421

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031430 031430 031430 444000035421 777777777777 000000000010     000000000010 000000031426 0            0   0   777 
IT1	*      *      035421 *            444000035421 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035421     *            *            0            0   0   *   
FT6	031431 031431 031431 444000035412 777777777777 000000000010     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000010 C(E) =000000 000010 
FINAL
C(AC)=777777 777777 
----------                                                                                                                 SEQ 0360

*031431  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031431 031431 031431 444000035412 777777777777 777777777777     777777777777 000000031426 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031432 031432 031432 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031432  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031432 031432 031432 332000000000 777777777777 0                0            000000031426 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031433 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031433 0      031434 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031434  JUMPA	0,031435

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031434 031434 031434 324000031435 777777777777 0                0            000000031426 0            0   0   777 
IT1	*      *      031435 *            324000031435 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031435     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031435 *            000000031435 000000000000     0            000000031435 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031435 
----------

*031435  MOVE 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031435 031435 031435 200000035412 777777777777 0                0            000000031435 0            0   0   777 
IT1	*      *      035412 *            200000035412 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     0            *            0            0   0   *   
FT6	031436 031436 031436 270000035422 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   
                                                                                                                           SEQ 0361
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031436  ADD 	0,035422

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031436 031436 031436 270000035422 777777777777 0                0            000000031435 0            0   0   777 
IT1	*      *      035422 *            270000035422 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035422     0            *            0            0   0   *   
FT6	031437 031437 031437 444000035422 777777777777 000000000020     0            *            0            0   0   *   
ET2	*      *      *      *            000000000020 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000020 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000020 
FINAL
C(AC)=000000 000020 
----------

*031437  EQV 	0,035422

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031437 031437 031437 444000035422 777777777777 000000000020     000000000020 000000031435 0            0   0   777 
IT1	*      *      035422 *            444000035422 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035422     *            *            0            0   0   *   
FT6	031440 031440 031440 444000035412 777777777777 000000000020     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000020 C(E) =000000 000020 
FINAL
C(AC)=777777 777777 
----------

*031440  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031440 031440 031440 444000035412 777777777777 777777777777     777777777777 000000031435 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031441 031441 031441 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031441  SKIPE	0,000000
                                                                                                                           SEQ 0362
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031441 031441 031441 332000000000 777777777777 0                0            000000031435 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031442 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031442 0      031443 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031443  JUMPA	0,031444

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031443 031443 031443 324000031444 777777777777 0                0            000000031435 0            0   0   777 
IT1	*      *      031444 *            324000031444 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031444     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031444 *            000000031444 000000000000     0            000000031444 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031444 
----------

*031444  MOVE 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031444 031444 031444 200000035412 777777777777 0                0            000000031444 0            0   0   777 
IT1	*      *      035412 *            200000035412 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     0            *            0            0   0   *   
FT6	031445 031445 031445 270000035423 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031445  ADD 	0,035423

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031445 031445 031445 270000035423 777777777777 0                0            000000031444 0            0   0   777 
IT1	*      *      035423 *            270000035423 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035423     0            *            0            0   0   *   
FT6	031446 031446 031446 444000035423 777777777777 000000000040     0            *            0            0   0   *   
ET2	*      *      *      *            000000000040 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000040 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000040                                                                                    SEQ 0363
FINAL
C(AC)=000000 000040 
----------

*031446  EQV 	0,035423

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031446 031446 031446 444000035423 777777777777 000000000040     000000000040 000000031444 0            0   0   777 
IT1	*      *      035423 *            444000035423 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035423     *            *            0            0   0   *   
FT6	031447 031447 031447 444000035412 777777777777 000000000040     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000040 C(E) =000000 000040 
FINAL
C(AC)=777777 777777 
----------

*031447  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031447 031447 031447 444000035412 777777777777 777777777777     777777777777 000000031444 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031450 031450 031450 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031450  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031450 031450 031450 332000000000 777777777777 0                0            000000031444 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031451 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031451 0      031452 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031452  JUMPA	0,031453

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031452 031452 031452 324000031453 777777777777 0                0            000000031444 0            0   0   77  SEQ 0364
IT1	*      *      031453 *            324000031453 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031453     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031453 *            000000031453 000000000000     0            000000031453 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031453 
----------

*031453  MOVE 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031453 031453 031453 200000035412 777777777777 0                0            000000031453 0            0   0   777 
IT1	*      *      035412 *            200000035412 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     0            *            0            0   0   *   
FT6	031454 031454 031454 270000035424 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031454  ADD 	0,035424

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031454 031454 031454 270000035424 777777777777 0                0            000000031453 0            0   0   777 
IT1	*      *      035424 *            270000035424 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035424     0            *            0            0   0   *   
FT6	031455 031455 031455 444000035424 777777777777 000000000100     0            *            0            0   0   *   
ET2	*      *      *      *            000000000100 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000100 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000100 
FINAL
C(AC)=000000 000100 
----------

*031455  EQV 	0,035424

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031455 031455 031455 444000035424 777777777777 000000000100     000000000100 000000031453 0            0   0   777 
IT1	*      *      035424 *            444000035424 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035424     *            *            0            0   0   *   
FT6	031456 031456 031456 444000035412 777777777777 000000000100     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000100 C(E) =000000 000100 
FINAL
C(AC)=777777 777777 
----------                                                                                                                 SEQ 0365

*031456  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031456 031456 031456 444000035412 777777777777 777777777777     777777777777 000000031453 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031457 031457 031457 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031457  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031457 031457 031457 332000000000 777777777777 0                0            000000031453 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031460 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031460 0      031461 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031461  JUMPA	0,031462

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031461 031461 031461 324000031462 777777777777 0                0            000000031453 0            0   0   777 
IT1	*      *      031462 *            324000031462 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031462     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031462 *            000000031462 000000000000     0            000000031462 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031462 
----------

*031462  MOVE 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031462 031462 031462 200000035412 777777777777 0                0            000000031462 0            0   0   777 
IT1	*      *      035412 *            200000035412 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     0            *            0            0   0   *   
FT6	031463 031463 031463 270000035425 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   
                                                                                                                           SEQ 0366
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031463  ADD 	0,035425

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031463 031463 031463 270000035425 777777777777 0                0            000000031462 0            0   0   777 
IT1	*      *      035425 *            270000035425 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035425     0            *            0            0   0   *   
FT6	031464 031464 031464 444000035425 777777777777 000000000200     0            *            0            0   0   *   
ET2	*      *      *      *            000000000200 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000200 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000200 
FINAL
C(AC)=000000 000200 
----------

*031464  EQV 	0,035425

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031464 031464 031464 444000035425 777777777777 000000000200     000000000200 000000031462 0            0   0   777 
IT1	*      *      035425 *            444000035425 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035425     *            *            0            0   0   *   
FT6	031465 031465 031465 444000035412 777777777777 000000000200     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000200 C(E) =000000 000200 
FINAL
C(AC)=777777 777777 
----------

*031465  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031465 031465 031465 444000035412 777777777777 777777777777     777777777777 000000031462 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031466 031466 031466 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031466  SKIPE	0,000000
                                                                                                                           SEQ 0367
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031466 031466 031466 332000000000 777777777777 0                0            000000031462 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031467 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031467 0      031470 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031470  JUMPA	0,031471

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031470 031470 031470 324000031471 777777777777 0                0            000000031462 0            0   0   777 
IT1	*      *      031471 *            324000031471 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031471     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031471 *            000000031471 000000000000     0            000000031471 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031471 
----------

*031471  MOVE 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031471 031471 031471 200000035412 777777777777 0                0            000000031471 0            0   0   777 
IT1	*      *      035412 *            200000035412 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     0            *            0            0   0   *   
FT6	031472 031472 031472 270000035426 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031472  ADD 	0,035426

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031472 031472 031472 270000035426 777777777777 0                0            000000031471 0            0   0   777 
IT1	*      *      035426 *            270000035426 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035426     0            *            0            0   0   *   
FT6	031473 031473 031473 444000035426 777777777777 000000000400     0            *            0            0   0   *   
ET2	*      *      *      *            000000000400 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000400 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000400                                                                                    SEQ 0368
FINAL
C(AC)=000000 000400 
----------

*031473  EQV 	0,035426

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031473 031473 031473 444000035426 777777777777 000000000400     000000000400 000000031471 0            0   0   777 
IT1	*      *      035426 *            444000035426 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035426     *            *            0            0   0   *   
FT6	031474 031474 031474 444000035412 777777777777 000000000400     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000400 C(E) =000000 000400 
FINAL
C(AC)=777777 777777 
----------

*031474  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031474 031474 031474 444000035412 777777777777 777777777777     777777777777 000000031471 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031475 031475 031475 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031475  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031475 031475 031475 332000000000 777777777777 0                0            000000031471 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031476 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031476 0      031477 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031477  JUMPA	0,031500

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031477 031477 031477 324000031500 777777777777 0                0            000000031471 0            0   0   77  SEQ 0369
IT1	*      *      031500 *            324000031500 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031500     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031500 *            000000031500 000000000000     0            000000031500 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031500 
----------

*031500  MOVE 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031500 031500 031500 200000035412 777777777777 0                0            000000031500 0            0   0   777 
IT1	*      *      035412 *            200000035412 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     0            *            0            0   0   *   
FT6	031501 031501 031501 270000035427 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031501  ADD 	0,035427

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031501 031501 031501 270000035427 777777777777 0                0            000000031500 0            0   0   777 
IT1	*      *      035427 *            270000035427 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035427     0            *            0            0   0   *   
FT6	031502 031502 031502 444000035427 777777777777 000000001000     0            *            0            0   0   *   
ET2	*      *      *      *            000000001000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000001000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 001000 
FINAL
C(AC)=000000 001000 
----------

*031502  EQV 	0,035427

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031502 031502 031502 444000035427 777777777777 000000001000     000000001000 000000031500 0            0   0   777 
IT1	*      *      035427 *            444000035427 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035427     *            *            0            0   0   *   
FT6	031503 031503 031503 444000035412 777777777777 000000001000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 001000 C(E) =000000 001000 
FINAL
C(AC)=777777 777777 
----------                                                                                                                 SEQ 0370

*031503  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031503 031503 031503 444000035412 777777777777 777777777777     777777777777 000000031500 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031504 031504 031504 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031504  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031504 031504 031504 332000000000 777777777777 0                0            000000031500 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031505 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031505 0      031506 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031506  JUMPA	0,031507

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031506 031506 031506 324000031507 777777777777 0                0            000000031500 0            0   0   777 
IT1	*      *      031507 *            324000031507 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031507     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031507 *            000000031507 000000000000     0            000000031507 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031507 
----------

*031507  MOVE 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031507 031507 031507 200000035412 777777777777 0                0            000000031507 0            0   0   777 
IT1	*      *      035412 *            200000035412 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     0            *            0            0   0   *   
FT6	031510 031510 031510 270000035430 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   
                                                                                                                           SEQ 0371
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031510  ADD 	0,035430

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031510 031510 031510 270000035430 777777777777 0                0            000000031507 0            0   0   777 
IT1	*      *      035430 *            270000035430 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035430     0            *            0            0   0   *   
FT6	031511 031511 031511 444000035430 777777777777 000000002000     0            *            0            0   0   *   
ET2	*      *      *      *            000000002000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000002000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 002000 
FINAL
C(AC)=000000 002000 
----------

*031511  EQV 	0,035430

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031511 031511 031511 444000035430 777777777777 000000002000     000000002000 000000031507 0            0   0   777 
IT1	*      *      035430 *            444000035430 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035430     *            *            0            0   0   *   
FT6	031512 031512 031512 444000035412 777777777777 000000002000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 002000 C(E) =000000 002000 
FINAL
C(AC)=777777 777777 
----------

*031512  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031512 031512 031512 444000035412 777777777777 777777777777     777777777777 000000031507 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031513 031513 031513 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031513  SKIPE	0,000000
                                                                                                                           SEQ 0372
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031513 031513 031513 332000000000 777777777777 0                0            000000031507 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031514 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031514 0      031515 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031515  JUMPA	0,031516

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031515 031515 031515 324000031516 777777777777 0                0            000000031507 0            0   0   777 
IT1	*      *      031516 *            324000031516 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031516     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031516 *            000000031516 000000000000     0            000000031516 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031516 
----------

*031516  MOVE 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031516 031516 031516 200000035412 777777777777 0                0            000000031516 0            0   0   777 
IT1	*      *      035412 *            200000035412 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     0            *            0            0   0   *   
FT6	031517 031517 031517 270000035431 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031517  ADD 	0,035431

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031517 031517 031517 270000035431 777777777777 0                0            000000031516 0            0   0   777 
IT1	*      *      035431 *            270000035431 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035431     0            *            0            0   0   *   
FT6	031520 031520 031520 444000035431 777777777777 000000004000     0            *            0            0   0   *   
ET2	*      *      *      *            000000004000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000004000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 004000                                                                                    SEQ 0373
FINAL
C(AC)=000000 004000 
----------

*031520  EQV 	0,035431

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031520 031520 031520 444000035431 777777777777 000000004000     000000004000 000000031516 0            0   0   777 
IT1	*      *      035431 *            444000035431 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035431     *            *            0            0   0   *   
FT6	031521 031521 031521 444000035412 777777777777 000000004000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 004000 C(E) =000000 004000 
FINAL
C(AC)=777777 777777 
----------

*031521  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031521 031521 031521 444000035412 777777777777 777777777777     777777777777 000000031516 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031522 031522 031522 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031522  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031522 031522 031522 332000000000 777777777777 0                0            000000031516 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031523 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031523 0      031524 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031524  JUMPA	0,031525

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031524 031524 031524 324000031525 777777777777 0                0            000000031516 0            0   0   77  SEQ 0374
IT1	*      *      031525 *            324000031525 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031525     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031525 *            000000031525 000000000000     0            000000031525 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031525 
----------

*031525  MOVE 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031525 031525 031525 200000035412 777777777777 0                0            000000031525 0            0   0   777 
IT1	*      *      035412 *            200000035412 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     0            *            0            0   0   *   
FT6	031526 031526 031526 270000035432 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031526  ADD 	0,035432

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031526 031526 031526 270000035432 777777777777 0                0            000000031525 0            0   0   777 
IT1	*      *      035432 *            270000035432 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035432     0            *            0            0   0   *   
FT6	031527 031527 031527 444000035432 777777777777 000000010000     0            *            0            0   0   *   
ET2	*      *      *      *            000000010000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000010000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 010000 
FINAL
C(AC)=000000 010000 
----------

*031527  EQV 	0,035432

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031527 031527 031527 444000035432 777777777777 000000010000     000000010000 000000031525 0            0   0   777 
IT1	*      *      035432 *            444000035432 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035432     *            *            0            0   0   *   
FT6	031530 031530 031530 444000035412 777777777777 000000010000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 010000 C(E) =000000 010000 
FINAL
C(AC)=777777 777777 
----------                                                                                                                 SEQ 0375

*031530  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031530 031530 031530 444000035412 777777777777 777777777777     777777777777 000000031525 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031531 031531 031531 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031531  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031531 031531 031531 332000000000 777777777777 0                0            000000031525 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031532 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031532 0      031533 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031533  JUMPA	0,031534

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031533 031533 031533 324000031534 777777777777 0                0            000000031525 0            0   0   777 
IT1	*      *      031534 *            324000031534 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031534     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031534 *            000000031534 000000000000     0            000000031534 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 E    =000000 031534 
----------

*031534  MOVE 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031534 031534 031534 200000035412 777777777777 0                0            000000031534 0            0   0   777 
IT1	*      *      035412 *            200000035412 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     0            *            0            0   0   *   
FT6	031535 031535 031535 270000035433 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   
                                                                                                                           SEQ 0376
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031535  ADD 	0,035433

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031535 031535 031535 270000035433 777777777777 0                0            000000031534 0            0   0   777 
IT1	*      *      035433 *            270000035433 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035433     0            *            0            0   0   *   
FT6	031536 031536 031536 444000035433 777777777777 000000020000     0            *            0            0   0   *   
ET2	*      *      *      *            000000020000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000020000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 020000 
FINAL
C(AC)=000000 020000 
----------

*031536  EQV 	0,035433

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031536 031536 031536 444000035433 777777777777 000000020000     000000020000 000000031534 0            0   0   777 
IT1	*      *      035433 *            444000035433 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035433     *            *            0            0   0   *   
FT6	031537 031537 031537 444000035412 777777777777 000000020000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            777777777777     777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 020000 C(E) =000000 020000 
FINAL
C(AC)=777777 777777 
----------

*031537  EQV 	0,035412

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031537 031537 031537 444000035412 777777777777 777777777777     777777777777 000000031534 0            0   0   777 
IT1	*      *      035412 *            444000035412 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035412     *            *            0            0   0   *   
FT6	031540 031540 031540 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031540  SKIPE	0,000000
                                                                                                                           SEQ 0377
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031540 031540 031540 332000000000 777777777777 0                0            000000031534 0            0   0   777 
IT1	*      *      000000 *            332000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031541 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031541 0      031542 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031542  JUMPA	0,031543

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031542 031542 031542 324000031543 777777777777 0                0            000000031534 0            0   0   777 
IT1	*      *      031543 *            324000031543 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031543     0            *            0            0   0   *   
ET2	*      *      0      *