Google
 

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





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


	PRODUCT CODE:	MAINDEC-10-DBKAA

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

	FUNCTION:	BASIC INSTRUCTIONS

	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-DBKAA.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-DBKAA.TXT
							PAGE 3                                                             SEQ 0003


1.0	ABSTRACT

	THIS PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC IS THE FIRST IN A
	SERIES OF PDP-10 KI10 PROCESSOR DIAGNOSTICS.  IT IS THE MOST
	BASIC OF THE PROCESSOR DIAGNOSTICS.  THIS DIAGNOSTIC
	ASSUMES THE HALT INSTRUCTION AND THE COMPUTER CONSOLE
	TO BE OPERATIVE.  IT MAKES NO FURTHER ASSUMPTIONS EXCEPT
	THAT IT IS LOADED INTO MEMORY CORRECTLY.

	THE DIAGNOSTIC TESTS SOME OF THE MOVE AND SKIP INSTRUCTIONS.
	IT ALSO TESTS THE ADDERS AND OTHER LOGIC WITH AND, XOR, EQV,
	AND ALL BOOLE 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)
							MAINDEC-10-DBKAA.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-DBKAA.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-DBKAA
                                                                                                                           SEQ 0006
************************************************************************

PRODUCT CODE:		MAINDEC-10-DBKAA

PRODUCT NAME:		BASIC INSTRUCTION DIAGNOSTIC #1

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

************************************************************************
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 1
DBKAAT	MAC	30-JUL-76 14:41		DIAGNOSTIC PARAMETERS                                                              SEQ 0007

     1					;DBKAA
     2
     3
     4
     5
     6
     7
     8
     9
    10
    11
    12						XLIST
    13						LIST
    14						NAME	\MCNVER,\DECVER^
    15
    16					;TEST DESIGNED FOR INITIAL DEBUGGING OF PROCESSOR HARDWARE
    17					;AND TO DETECT (SOLID) FAILURES IN THE FIELD.
    18
    19					;COPYRIGHT 1972
    20					;DIGITAL EQUIPMENT CORPORATION
    21					;MAYNARD, MASS. 01754
    22
    23					;DICK MALISKA
    24
    25
    26					;ASSEMBLE AS:
    27					;DBKAAT.MAC,PARAM.KLM,FIXED.KLM,SPCCPU.KLM,DBKAAM.MAC,STOR.KLM
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 2
DBKAAT	MAC	30-JUL-76 14:41		DIAGNOSTIC PARAMETERS                                                              SEQ 0008

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

   878					SUBTTL	TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS
   879
   880					;NOTE: AN "*" IN THE COMMENT FIELD OF AN INSTRUCTION INDICATES THAT IT IS THE TESTED
   881					;INSTRUCTION.
   882					;**********
   883
   884					;THIS TEST VERIFIES THAT SKIPA ALWAYS SKIPS THE NEXT INSTRUCTION
   885
   886			030742		A00=.
   887	030742	334 00 0 00 000000 	A12500:	SKIPA			;*SKIPA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION
   888	030743	254 04 0 00 000000 		HALT			;IF PROGRAM HALTS, SKIPA DID NOT SKIP
   889
   890					;IF PROGRAM HANGS UP ON SKIPA INSTRUCTION, CHECK AB PC EN [ABC], AB PC F/F [ABC],
   891					;AB PC B [ABC OR AB], AB PC (FETCH) EN [ABC], IR SKIPS [IR3], IR SKIPX [IR1],
   892					;IR 3XX [IR1], IR BITS 00 - 08 [IR1], F CYC ACT EN C [FI], FT6 F/F [F2],
   893					;PC CLOCK EN [PCC],  ET2 J F/F [E], PC CLK (ET2) EN [PCC], ADZ COND P [ADZ] AND
   894					;ADZ COND R [ADZ], PC CLOCK A [PCC], PC CLOCK B [PCC]
   895
   896					;IF PROGRAM HALTED ON HALT INSTRUCTION, CHECK ST1 COND [ST2]
   897
   898					;**********
   899
   900					;THIS TEST VERIFIES THAT JUMP NEVER JUMPS
   901
   902	030744	320 00 0 00 030745 	A15000:	JUMP	.+1		;*JUMP SHOULD NEVER JUMP
   903	030745	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF JUMP IS SUCCESSFUL
   904	030746	254 04 0 00 000000 		HALT			;HALT IF JUMP FAILS
   905
   906					;IF PROGRAM HANGS UP ON JUMP .+1 INSTRUCTION, THE JUMP INSTRUCTION
   907					;MAY HAVE FAILED.  CHECK ST1 COND [ST2], ST INST FET ST1 EN [ST2], ET2 D F/F [E],
   908					;IR JUMPS [IR1], IR JUMPX [IR1]
   909
   910					;**********
   911					;THIS TEST VERIFIES THAT JUMP NEVER JUMPS
   912
   913	030747	320 00 0 00 030751 	A15100:	JUMP	.+2		;*JUMP SHOULD NEVER JUMP
   914	030750	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF JUMP IS SUCCESSFUL
   915	030751	254 04 0 00 000000 		HALT			;HALT IF JUMP FAILS
   916
   917					;AB PC EN [ABC]
   918
   919					;**********
   920
   921					;THIS TEST VERIFIES THAT JUMPA .+1 ALWAYS JUMPS TO THE NEXT INSTRUCTION
   922
   923	030752	324 00 0 00 030753 	A12700:	JUMPA	.+1		;*JUMPA .+1 SHOULD NEVER JUMP
   924	030753	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF JUMPA IS SUCCESSFUL
   925	030754	254 04 0 00 000000 		HALT			;HALT IF JUMPA .+1 FAILED
   926
   927					;**********
   928
   929					;THIS TEST VERIFIES THAT JUMPA JUMPS TO THE LOCATION SPECIFIED BY E WHEN E=.+2
   930
   931	030755	324 00 0 00 030757 	A12600:	JUMPA	.+2		;*JUMPA .+2 SHOULD ALWAYS SKIP THE NEXT INSTRUCTION
   932	030756	254 04 0 00 000000 		HALT			;PROGRAM HALTS HERE IF JUMPA .+2 FAILS
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 2-1
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0029

   933
   934					;ST1 COND [ST2]
   935
   936					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 3
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0030

   937					;THIS TEST VERIFIES THAT SKIPA IS DATA INDEPENDENT.  HENCE, IT ALWAYS SKIPS THE NEXT
   938					;INSTRUCTION.
   939					;THE MOVE [0] INSTRUCTION IS USED TO TEST THE DATA INDEPENDENCE OF SKIPA.
   940
   941	030757	200 00 0 00 035062 	A100:	MOVE	[0]		;PRESET LOCATION 0 TO ALL ZEROS
   942	030760	334 00 0 00 000000 		SKIPA			;*SKIPA SHOULD ALWAYS SKIP THE NEXT INSTRUCTION
   943						STOP^
   944	030761	254 04 0 00 030762 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   945	030762	324 00 0 00 030763 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   946
   947					;**********
   948					;THIS TEST INSURES THAT SKIPA IS DATA INDEPENDENT.  HENCE, IT ALWAYS SKIPS THE NEXT
   949					;INSTRUCTION.
   950					;THE MOVE [-1] INSTRUCTION IS USED TO TEST THE DATA INDEPENDENCE OF SKIPA.
   951
   952	030763	200 00 0 00 035063 	A200:	MOVE	[-1]		;PRESET LOCATION 0 TO ALL ONES
   953	030764	334 00 0 00 000000 		SKIPA			;*SKIPA SKOULD ALWAYS SKIP THE NEXT INSTRUCTION
   954						STOP^
   955	030765	254 04 0 00 030766 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   956	030766	324 00 0 00 030767 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   957
   958					;COND P [ADZ]
   959
   960					;**********
   961					;THIS TEST VERIFIES THAT SKIPGE SKIPS THE NEXT INSTRUCTION WHEN C(E)
   962					;IS ALL ZEROS.  THE MOVE INSTRUCTION IS USED TO LOAD E WITH ALL ZEROS.
   963
   964	030767	200 00 0 00 035062 	A300:	MOVE	[0]		;PRESET E TO ALL ZEROS
   965	030770	335 00 0 00 000000 		SKIPGE			;*SKIPGE SHOULD SKIP THE NEXT INSTRUCTION
   966						STOP^
   967	030771	254 04 0 00 030772 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   968	030772	324 00 0 00 030773 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   969
   970					;COND R [ADZ], AD00 S-A-1, AD AR + EN [ADAP], AD LT AR + EN [ADAP],
   971					;AD RT AR + EN [ADAP], AD AR + EN C [ADAP], F CYC ACT EN A [F1]
   972
   973					;**********
   974
   975					;THIS TEST VERIFIES THAT SKIP IS DATA INDEPENDENT.  HENCE, SKIP NEVER SKIPS.  IT ALWAYS
   976					;CONTINUES ON TO THE NEXT INSTRUCTION.
   977
   978	030773	200 00 0 00 035063 	A400:	MOVE	[-1]		;PRESET E TO ALL ONES
   979	030774	330 00 0 00 000000 		SKIP			;*SKIP SHOULD NEVER SKIP THE NEXT INSTRUCTION
   980	030775	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
   981						STOP^
   982	030776	254 04 0 00 030777 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   983	030777	324 00 0 00 031000 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   984
   985					;PC CHANGE [PCC], PC CHANGE A [PCC], SEE MEMORY CONTROL DWGS [MC1-4]
   986
   987					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 4
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0031

   988					;THIS TEST VERIFIES THAT SKIPGE WILL NOT SKIP THE NEXT INSTRUCTION WHEN C(E) IS
   989					;NEGATIVE.  THE MOVE INSTRUCTION LOADS E WITH -1, A NEGATIVE NUMBER.
   990
   991	031000	200 00 0 00 035063 	A500:	MOVE	[-1]		;PRESET E WITH ALL ONES, A NEGATIVE NUMBER
   992	031001	335 00 0 00 000000 		SKIPGE			;*SKIPGE SHOULD NOT SKIP THE NEXT INSTRUCTION
   993	031002	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
   994						STOP^
   995	031003	254 04 0 00 031004 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
   996	031004	324 00 0 00 031005 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
   997
   998					;IF MOVE INSTRUCTION FAILED, CHECK MOVX-: FCE [F1], -IR XXXI [IR1], -IR XXXM [IR1], 
   999					;IR HWTFWT [IR3], IR FWT [IR2], IR2XX [IR1]
  1000
  1001					;IF SKIPGE FAILED, CHECK SKIPX: FCE [F1]
  1002
  1003					;**********
  1004
  1005					;THIS TEST VERIFIES THAT SKIPN WILL NOT SKIP THE NEXT INSTRUCTION WHEN
  1006					;C(E) IS ZERO.  THE MOVE INSTRUCTION  LOADS E WITH ALL ZEROS.
  1007
  1008	031005	200 00 0 00 035062 	A600:	MOVE	[0]		;PRESET E WITH ALL ZEROS
  1009	031006	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD NOT SKIP THE NEXT INSTRUCTION
  1010	031007	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
  1011						STOP^
  1012	031010	254 04 0 00 031011 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1013	031011	324 00 0 00 031012 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1014
  1015					;**********
  1016
  1017					;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT.  HENCE, IT SHOULD SKIP
  1018					;THE NEXT INSTRUCTION WHEN C(E) IS NON-ZERO.  THE MOVE INSTRUCTION LOADS
  1019					;E WITH -1, A NON-ZERO NUMBER.
  1020
  1021	031012	200 00 0 00 035063 	A700:	MOVE	[-1]		;PRESET E WITH ALL ONES, A NON-ZERO NUMBER
  1022	031013	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1023						STOP^
  1024	031014	254 04 0 00 031015 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1025	031015	324 00 0 00 031016 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1026
  1027					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 5
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0032

  1028					;THIS TEST VERIFIES THAT SKIPE IS DATA DEPENDENT.  HENCE, IT SHOULD NOT
  1029					;SKIP THE NEXT INSTRUCTION WHEN C(E) IS NON-ZERO.  THE MOVE INSTRUCTION LOADS E
  1030					;WITH -1, A NON-ZERO NUMBER.
  1031
  1032	031016	200 00 0 00 035063 	A1000:	MOVE	[-1]		;PRESET E WITH ALL ONES, A NON-ZERO NUMBER
  1033	031017	332 00 0 00 000000 		SKIPE			;*SKIPE SHOULD NOT SKIP THE NEXT INSTRUCTION
  1034	031020	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
  1035						STOP^
  1036	031021	254 04 0 00 031022 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1037	031022	324 00 0 00 031023 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1038
  1039					;**********
  1040
  1041					;THIS TEST VERIFIES THAT SKIPE IS DATA DEPENDENT.  HENCE, IT SHOULD SKIP
  1042					;THE NEXT INSTRUCTION WHEN C(E) IS ZERO.  THE MOVE INSTRUCTION LOADS ALL
  1043					;ZEROS INTO E.
  1044
  1045	031023	200 00 0 00 035062 	A1100:	MOVE	[0]		;PRESET E TO ALL ZEROS
  1046	031024	332 00 0 00 000000 		SKIPE			;*SKIPE SHOULD SKIP THE NEXT INSTRUCTION
  1047						STOP^
  1048	031025	254 04 0 00 031026 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1049	031026	324 00 0 00 031027 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1050
  1051					;**********
  1052
  1053					;THIS TEST VERIFIES THAT SKIP IS DATA INDEPENDENT.  HENCE, IT NEVER SKIPS.  IT ALWAYS
  1054					;CONTINUES ON TO THE NEXT INSTRUCTION.
  1055
  1056	031027	200 00 0 00 035062 	A1200:	MOVE	[0]		;PRESET E TO ALL ZEROS
  1057	031030	330 00 0 00 000000 		SKIP			;*SKIP SHOULD NEVER SKIP THE NEXT INSTRUCTION
  1058	031031	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
  1059						STOP^
  1060	031032	254 04 0 00 031033 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1061	031033	324 00 0 00 031034 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1062
  1063					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 6
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0033

  1064					;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT.  HENCE, IT WILL NOT SKIP THE NEXT
  1065					;INSTRUCTION WHEN C(E) IS NOT NEGATIVE.  THE MOVE INSTRUCTION IS USED TO LOAD
  1066					;E WITH ALL ZEROS, A NON-NEGATIVE NUMBER.
  1067
  1068	031034	200 00 0 00 035062 	A1300:	MOVE	[0]		;PRESET E T0 ZERO, A NON-NEGATIVE NUMBER
  1069	031035	331 00 0 00 000000 		SKIPL			;*SKIPL SHOULD NOT SKIP THE NEXT INSTRUCTION
  1070	031036	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
  1071						STOP^
  1072	031037	254 04 0 00 031040 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1073	031040	324 00 0 00 031041 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1074
  1075					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 7
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0034

  1076					;THIS TEST VERIFIES THAT SKIPL IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1077					;INSTRUCTION WHEN C(E) IS NEGATIVE.  THE MOVE INSTRUCTION IS USED TO LOAD E WITH -1,
  1078					;A NEGATIVE NUMBER.
  1079
  1080	031041	200 00 0 00 035063 	A1400:	MOVE	[-1]		;PRESET E TO -1, A NEGATIVE NUMBER
  1081	031042	331 00 0 00 000000 		SKIPL			;*SKIPL SHOULD SKIP THE NEXT INSTRUCTION
  1082						STOP^
  1083	031043	254 04 0 00 031044 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1084	031044	324 00 0 00 031045 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1085
  1086					;**********
  1087
  1088					;THIS TEST VERIFIES THAT SKIPG IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1089					;INSTRUCTION WHEN C(E) IS GREATER THAN ZERO.  THE MOVE INSTRUCTION IS USED TO LOAD
  1090					;E WITH A NON-ZERO POSITIVE NUMBER.
  1091
  1092	031045	200 00 0 00 035064 	A1500:	MOVE	[XWD 377777,-1]	;PRESET E TO 377777777777, A NON-ZERO POSITIVE NUMBER
  1093	031046	337 00 0 00 000000 		SKIPG			;*SKIPG SHOULD SKIP THE NEXT INSTRUCTION
  1094						STOP^
  1095	031047	254 04 0 00 031050 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1096	031050	324 00 0 00 031051 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1097
  1098					;**********
  1099
  1100					;THIS TEST VERIFIES THAT SKIPG IS DATA DEPENDENT.  HENCE, IT WILL NOT SKIP THE NEXT
  1101					;INSTRUCTION WHEN C(E) IS NOT GREATER THAN ZERO.  THE MOVE INSTRUCTION IS USED TO
  1102					;LOAD E WITH -1, A NUMBER NOT GREATER THAN ZERO.
  1103
  1104	031051	200 00 0 00 035063 	A1600:	MOVE	[-1]		;PRESET E TO -1, A NEGATIVE NUMBER
  1105	031052	337 00 0 00 000000 		SKIPG			;*SKIPG SHOULD NOT SKIP THE NEXT INSTRUCTION
  1106	031053	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
  1107						STOP^
  1108	031054	254 04 0 00 031055 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1109	031055	324 00 0 00 031056 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1110
  1111					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 8
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0035

  1112					;THIS TEST VERIFIES THAT SKIPL IS DATA  DEPENDENT.  HENCE, IT WILL NOT SKIP THE NEXT
  1113					;INSTRUCTION WHEN C(E) IS NON-NEGATIVE.  THE MOVE INSTRUCTION IS USED TO LOAD E WITH
  1114					;377777777777, A NON-NEGATIVE NUMBER.
  1115
  1116	031056	200 00 0 00 035064 	A1700:	MOVE	[XWD 377777,-1]	;PRESET E TO 377777777777, A NON-NEGATIVE NUMBER
  1117	031057	331 00 0 00 000000 		SKIPL			;*SKIPL SHOULD NOT SKIP THE NEXT INSTRUCTION
  1118	031060	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
  1119						STOP^
  1120	031061	254 04 0 00 031062 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1121	031062	324 00 0 00 031063 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1122
  1123					;**********
  1124
  1125					;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1126					;INSTRUCTION WHEN C(E) IS ZERO.  THE MOVE INSTRUCTION LOADS E WITH ALL ZEROS.
  1127
  1128	031063	200 00 0 00 035062 	A2000:	MOVE	[0]		;PRESET E TO ALL ZEROS
  1129	031064	333 00 0 00 000000 		SKIPLE			;*SKIPLE SHOULD SKIP THE NEXT INSTRUCTION
  1130						STOP^
  1131	031065	254 04 0 00 031066 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1132	031066	324 00 0 00 031067 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1133
  1134					;**********
  1135
  1136					;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1137					;INSTRUCTION WHEN E CONTAINS A NEGATIVE NUMBER.  THE MOVE INSTRUCTION IS USED TO LOAD
  1138					;E WITH 400000000000, A NEGATIVE NUMBER.
  1139
  1140	031067	200 00 0 00 035065 	A2100:	MOVE	[XWD 400000,0]	;PRESET E TO 400000000000, A NEGATIVE NUMBER.
  1141	031070	333 00 0 00 000000 		SKIPLE			;*SKIPLE SHOULD SKIP THE NEXT INSTRUCTION
  1142						STOP^
  1143	031071	254 04 0 00 031072 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1144	031072	324 00 0 00 031073 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1145
  1146					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 9
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0036

  1147					;THIS TEST VERIFIES THAT SKIPLE IS DATA DEPENDENT.  HENCE, IT WILL NOT SKIP THE NEXT
  1148					;INSTRUCTION WHEN E CONTAINS A POSITIVE NUMBER.  THE MOVE INSTRUCTION LOADS
  1149					;E WITH 377777777777, A POSITIVE NUMBER.
  1150
  1151	031073	200 00 0 00 035064 	A2200:	MOVE	[XWD 377777,-1]	;PRESET E TO 377777777777, A POSITIVE NUMBER
  1152	031074	333 00 0 00 000000 		SKIPLE			;*SKIPLE SHOULD NOT SKIP THE NEXT INSTRUCTION
  1153	031075	334 00 0 00 000000 		SKIPA			;SKIP HALT INSTRUCTION IF TEST PASSES
  1154						STOP^
  1155	031076	254 04 0 00 031077 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1156	031077	324 00 0 00 031100 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1157
  1158					;*********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 10
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0037

  1159					;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1160					;INSTRUCTION ;WHEN E CONTAINS A NON-ZERO NUMBER.  THE MOVE INSTRUCTION IS USED TO
  1161					;LOAD 777000000000, A NON-ZERO NUMBER INTO E.
  1162
  1163	031100	200 00 0 00 035066 	A2300:	MOVE	[XWD 777000,0]	;PRESET E WITH 777000000000, A NON-ZERO NUMBER
  1164	031101	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1165						STOP^
  1166	031102	254 04 0 00 031103 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1167	031103	324 00 0 00 031104 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1168
  1169					;**********
  1170
  1171					;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1172					;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER.  THE MOVE INSTRUCTION IS USED TO
  1173					;LOAD A NON-ZERO NUMBER, 377000000 INTO E.
  1174
  1175	031104	200 00 0 00 035067 	A2400:	MOVE	[XWD 377,0]	;PRESET E TO 377000000, A NON ZERO NUMBER
  1176	031105	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1177						STOP^
  1178	031106	254 04 0 00 031107 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1179	031107	324 00 0 00 031110 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1180
  1181					;**********
  1182
  1183					;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1184					;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER.  THE MOVE INSTRUCTION IS USED TO
  1185					;LOAD E WITH A NON-ZERO NUMBER, 177000.
  1186
  1187	031110	200 00 0 00 035070 	A2500:	MOVE	[177000]	;PRESET E WITH 177000, A NON ZERO NUMBER
  1188	031111	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1189						STOP^
  1190	031112	254 04 0 00 031113 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1191	031113	324 00 0 00 031114 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1192
  1193					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 11
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0038

  1194					;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1195					;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER.  THE MOVE INSTRUCTION IS USED TO
  1196					;LOAD 777, A NON-ZERO NUMBER INTO E.
  1197
  1198	031114	200 00 0 00 035071 	A2600:	MOVE	[777]		;PRESET E WITH 777, A NON-ZERO NUMBER
  1199	031115	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1200						STOP^
  1201	031116	254 04 0 00 031117 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1202	031117	324 00 0 00 031120 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1203
  1204					;**********
  1205
  1206					;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1207					;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER.  THE MOVE INSTRUCTION IS USED TO
  1208					;LOAD E WITH 600000, A NON-ZERO NUMBER.
  1209
  1210	031120	200 00 0 00 035072 	A2700:	MOVE	[600000]	;PRESET E WITK 600000, A NON-ZERO NUMBER
  1211	031121	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1212						STOP^
  1213	031122	254 04 0 00 031123 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1214	031123	324 00 0 00 031124 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1215
  1216					;**********
  1217
  1218					;THIS TEST VERIFIES THAT SKIPN IS DATA DEPENDENT.  HENCE, IT WILL SKIP THE NEXT
  1219					;INSTRUCTION WHEN E CONTAINS A NON-ZERO NUMBER.  THE MOVE INSTRUCTION IS USED TO
  1220					;LOAD E WITH 400000000, A NON-ZERO NUMBER.
  1221
  1222	031124	200 00 0 00 035073 	A3000:	MOVE	[XWD 400,000]	;PRESET E WITH 400000000, A NON-ZERO NUMBER
  1223	031125	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1224						STOP^
  1225	031126	254 04 0 00 031127 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1226	031127	324 00 0 00 031130 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1227
  1228					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 12
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0039

  1229			003100		SN=3100
  1230			000000			ZZ=0
  1231
  1232					A3100:	REPEAT	^D36,
  1233					<;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1234					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1235					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1236					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1237					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1238					
  1239					SN=SN+1
  1240						ZZ=ZZ+ZZ
  1241						IFE	ZZ,<ZZ=1>
  1242						MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1243						SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1244						STOP
  1245					
  1246					;**********
  1247					>
  1248					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1249					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1250					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1251					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1252					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1253
  1254			003101		SN=SN+1
  1255			000000			ZZ=ZZ+ZZ
  1256			000001			IFE	ZZ,<ZZ=1>
  1257	031130	200 00 0 00 035074 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1258	031131	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1259						STOP^
  1260	031132	254 04 0 00 031133 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1261	031133	324 00 0 00 031134 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1262
  1263					;**********
  1264
  1265					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1266					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1267					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1268					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1269					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1270
  1271			003102		SN=SN+1
  1272			000002			ZZ=ZZ+ZZ
  1273						IFE	ZZ,<ZZ=1>
  1274	031134	200 00 0 00 035075 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1275	031135	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1276						STOP^
  1277	031136	254 04 0 00 031137 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1278	031137	324 00 0 00 031140 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1279
  1280					;**********
  1281
  1282					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1283					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 12-1
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0040

  1284					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1285					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1286					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1287
  1288			003103		SN=SN+1
  1289			000004			ZZ=ZZ+ZZ
  1290						IFE	ZZ,<ZZ=1>
  1291	031140	200 00 0 00 035076 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1292	031141	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1293						STOP^
  1294	031142	254 04 0 00 031143 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1295	031143	324 00 0 00 031144 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1296
  1297					;**********
  1298
  1299					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1300					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1301					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1302					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1303					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1304
  1305			003104		SN=SN+1
  1306			000010			ZZ=ZZ+ZZ
  1307						IFE	ZZ,<ZZ=1>
  1308	031144	200 00 0 00 035077 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1309	031145	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1310						STOP^
  1311	031146	254 04 0 00 031147 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1312	031147	324 00 0 00 031150 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1313
  1314					;**********
  1315
  1316					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1317					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1318					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1319					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1320					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1321
  1322			003105		SN=SN+1
  1323			000020			ZZ=ZZ+ZZ
  1324						IFE	ZZ,<ZZ=1>
  1325	031150	200 00 0 00 035100 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1326	031151	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1327						STOP^
  1328	031152	254 04 0 00 031153 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1329	031153	324 00 0 00 031154 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1330
  1331					;**********
  1332
  1333					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1334					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1335					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1336					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1337					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1338
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 12-2
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0041

  1339			003106		SN=SN+1
  1340			000040			ZZ=ZZ+ZZ
  1341						IFE	ZZ,<ZZ=1>
  1342	031154	200 00 0 00 035101 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1343	031155	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1344						STOP^
  1345	031156	254 04 0 00 031157 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1346	031157	324 00 0 00 031160 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1347
  1348					;**********
  1349
  1350					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1351					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1352					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1353					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1354					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1355
  1356			003107		SN=SN+1
  1357			000100			ZZ=ZZ+ZZ
  1358						IFE	ZZ,<ZZ=1>
  1359	031160	200 00 0 00 035102 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1360	031161	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1361						STOP^
  1362	031162	254 04 0 00 031163 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1363	031163	324 00 0 00 031164 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1364
  1365					;**********
  1366
  1367					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1368					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1369					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1370					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1371					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1372
  1373			003110		SN=SN+1
  1374			000200			ZZ=ZZ+ZZ
  1375						IFE	ZZ,<ZZ=1>
  1376	031164	200 00 0 00 035103 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1377	031165	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1378						STOP^
  1379	031166	254 04 0 00 031167 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1380	031167	324 00 0 00 031170 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1381
  1382					;**********
  1383
  1384					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1385					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1386					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1387					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1388					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1389
  1390			003111		SN=SN+1
  1391			000400			ZZ=ZZ+ZZ
  1392						IFE	ZZ,<ZZ=1>
  1393	031170	200 00 0 00 035104 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 12-3
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0042

  1394	031171	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1395						STOP^
  1396	031172	254 04 0 00 031173 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1397	031173	324 00 0 00 031174 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1398
  1399					;**********
  1400
  1401					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1402					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1403					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1404					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1405					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1406
  1407			003112		SN=SN+1
  1408			001000			ZZ=ZZ+ZZ
  1409						IFE	ZZ,<ZZ=1>
  1410	031174	200 00 0 00 035105 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1411	031175	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1412						STOP^
  1413	031176	254 04 0 00 031177 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1414	031177	324 00 0 00 031200 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1415
  1416					;**********
  1417
  1418					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1419					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1420					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1421					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1422					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1423
  1424			003113		SN=SN+1
  1425			002000			ZZ=ZZ+ZZ
  1426						IFE	ZZ,<ZZ=1>
  1427	031200	200 00 0 00 035106 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1428	031201	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1429						STOP^
  1430	031202	254 04 0 00 031203 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1431	031203	324 00 0 00 031204 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1432
  1433					;**********
  1434
  1435					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1436					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1437					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1438					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1439					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1440
  1441			003114		SN=SN+1
  1442			004000			ZZ=ZZ+ZZ
  1443						IFE	ZZ,<ZZ=1>
  1444	031204	200 00 0 00 035107 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1445	031205	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1446						STOP^
  1447	031206	254 04 0 00 031207 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1448	031207	324 00 0 00 031210 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 12-4
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0043

  1449
  1450					;**********
  1451
  1452					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1453					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1454					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1455					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1456					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1457
  1458			003115		SN=SN+1
  1459			010000			ZZ=ZZ+ZZ
  1460						IFE	ZZ,<ZZ=1>
  1461	031210	200 00 0 00 035110 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1462	031211	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1463						STOP^
  1464	031212	254 04 0 00 031213 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1465	031213	324 00 0 00 031214 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1466
  1467					;**********
  1468
  1469					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1470					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1471					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1472					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1473					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1474
  1475			003116		SN=SN+1
  1476			020000			ZZ=ZZ+ZZ
  1477						IFE	ZZ,<ZZ=1>
  1478	031214	200 00 0 00 035111 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1479	031215	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1480						STOP^
  1481	031216	254 04 0 00 031217 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1482	031217	324 00 0 00 031220 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1483
  1484					;**********
  1485
  1486					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1487					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1488					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1489					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1490					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1491
  1492			003117		SN=SN+1
  1493			040000			ZZ=ZZ+ZZ
  1494						IFE	ZZ,<ZZ=1>
  1495	031220	200 00 0 00 035112 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1496	031221	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1497						STOP^
  1498	031222	254 04 0 00 031223 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1499	031223	324 00 0 00 031224 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1500
  1501					;**********
  1502
  1503					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 12-5
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0044

  1504					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1505					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1506					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1507					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1508
  1509			003120		SN=SN+1
  1510			100000			ZZ=ZZ+ZZ
  1511						IFE	ZZ,<ZZ=1>
  1512	031224	200 00 0 00 035113 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1513	031225	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1514						STOP^
  1515	031226	254 04 0 00 031227 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1516	031227	324 00 0 00 031230 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1517
  1518					;**********
  1519
  1520					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1521					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1522					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1523					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1524					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1525
  1526			003121		SN=SN+1
  1527			200000			ZZ=ZZ+ZZ
  1528						IFE	ZZ,<ZZ=1>
  1529	031230	200 00 0 00 035114 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1530	031231	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1531						STOP^
  1532	031232	254 04 0 00 031233 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1533	031233	324 00 0 00 031234 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1534
  1535					;**********
  1536
  1537					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1538					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1539					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1540					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1541					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1542
  1543			003122		SN=SN+1
  1544			400000			ZZ=ZZ+ZZ
  1545						IFE	ZZ,<ZZ=1>
  1546	031234	200 00 0 00 035115 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1547	031235	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1548						STOP^
  1549	031236	254 04 0 00 031237 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1550	031237	324 00 0 00 031240 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1551
  1552					;**********
  1553
  1554					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1555					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1556					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1557					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1558					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 12-6
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0045

  1559
  1560			003123		SN=SN+1
  1561		000001	000000			ZZ=ZZ+ZZ
  1562						IFE	ZZ,<ZZ=1>
  1563	031240	200 00 0 00 035116 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1564	031241	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1565						STOP^
  1566	031242	254 04 0 00 031243 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1567	031243	324 00 0 00 031244 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1568
  1569					;**********
  1570
  1571					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1572					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1573					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1574					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1575					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1576
  1577			003124		SN=SN+1
  1578		000002	000000			ZZ=ZZ+ZZ
  1579						IFE	ZZ,<ZZ=1>
  1580	031244	200 00 0 00 035117 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1581	031245	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1582						STOP^
  1583	031246	254 04 0 00 031247 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1584	031247	324 00 0 00 031250 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1585
  1586					;**********
  1587
  1588					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1589					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1590					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1591					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1592					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1593
  1594			003125		SN=SN+1
  1595		000004	000000			ZZ=ZZ+ZZ
  1596						IFE	ZZ,<ZZ=1>
  1597	031250	200 00 0 00 035120 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1598	031251	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1599						STOP^
  1600	031252	254 04 0 00 031253 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1601	031253	324 00 0 00 031254 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1602
  1603					;**********
  1604
  1605					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1606					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1607					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1608					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1609					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1610
  1611			003126		SN=SN+1
  1612		000010	000000			ZZ=ZZ+ZZ
  1613						IFE	ZZ,<ZZ=1>
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 12-7
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0046

  1614	031254	200 00 0 00 035121 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1615	031255	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1616						STOP^
  1617	031256	254 04 0 00 031257 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1618	031257	324 00 0 00 031260 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1619
  1620					;**********
  1621
  1622					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1623					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1624					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1625					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1626					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1627
  1628			003127		SN=SN+1
  1629		000020	000000			ZZ=ZZ+ZZ
  1630						IFE	ZZ,<ZZ=1>
  1631	031260	200 00 0 00 035122 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1632	031261	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1633						STOP^
  1634	031262	254 04 0 00 031263 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1635	031263	324 00 0 00 031264 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1636
  1637					;**********
  1638
  1639					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1640					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1641					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1642					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1643					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1644
  1645			003130		SN=SN+1
  1646		000040	000000			ZZ=ZZ+ZZ
  1647						IFE	ZZ,<ZZ=1>
  1648	031264	200 00 0 00 035123 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1649	031265	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1650						STOP^
  1651	031266	254 04 0 00 031267 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1652	031267	324 00 0 00 031270 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1653
  1654					;**********
  1655
  1656					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1657					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1658					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1659					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1660					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1661
  1662			003131		SN=SN+1
  1663		000100	000000			ZZ=ZZ+ZZ
  1664						IFE	ZZ,<ZZ=1>
  1665	031270	200 00 0 00 035124 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1666	031271	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1667						STOP^
  1668	031272	254 04 0 00 031273 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 12-8
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0047

  1669	031273	324 00 0 00 031274 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1670
  1671					;**********
  1672
  1673					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1674					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1675					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1676					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1677					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1678
  1679			003132		SN=SN+1
  1680		000200	000000			ZZ=ZZ+ZZ
  1681						IFE	ZZ,<ZZ=1>
  1682	031274	200 00 0 00 035125 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1683	031275	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1684						STOP^
  1685	031276	254 04 0 00 031277 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1686	031277	324 00 0 00 031300 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1687
  1688					;**********
  1689
  1690					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1691					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1692					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1693					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1694					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1695
  1696			003133		SN=SN+1
  1697		000400	000000			ZZ=ZZ+ZZ
  1698						IFE	ZZ,<ZZ=1>
  1699	031300	200 00 0 00 035073 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1700	031301	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1701						STOP^
  1702	031302	254 04 0 00 031303 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1703	031303	324 00 0 00 031304 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1704
  1705					;**********
  1706
  1707					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1708					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1709					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1710					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1711					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1712
  1713			003134		SN=SN+1
  1714		001000	000000			ZZ=ZZ+ZZ
  1715						IFE	ZZ,<ZZ=1>
  1716	031304	200 00 0 00 035126 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1717	031305	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1718						STOP^
  1719	031306	254 04 0 00 031307 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1720	031307	324 00 0 00 031310 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1721
  1722					;**********
  1723
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 12-9
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0048

  1724					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1725					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1726					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1727					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1728					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1729
  1730			003135		SN=SN+1
  1731		002000	000000			ZZ=ZZ+ZZ
  1732						IFE	ZZ,<ZZ=1>
  1733	031310	200 00 0 00 035127 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1734	031311	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1735						STOP^
  1736	031312	254 04 0 00 031313 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1737	031313	324 00 0 00 031314 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1738
  1739					;**********
  1740
  1741					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1742					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1743					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1744					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1745					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1746
  1747			003136		SN=SN+1
  1748		004000	000000			ZZ=ZZ+ZZ
  1749						IFE	ZZ,<ZZ=1>
  1750	031314	200 00 0 00 035130 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1751	031315	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1752						STOP^
  1753	031316	254 04 0 00 031317 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1754	031317	324 00 0 00 031320 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1755
  1756					;**********
  1757
  1758					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1759					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1760					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1761					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1762					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1763
  1764			003137		SN=SN+1
  1765		010000	000000			ZZ=ZZ+ZZ
  1766						IFE	ZZ,<ZZ=1>
  1767	031320	200 00 0 00 035131 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1768	031321	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1769						STOP^
  1770	031322	254 04 0 00 031323 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1771	031323	324 00 0 00 031324 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1772
  1773					;**********
  1774
  1775					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1776					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1777					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1778					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 12-10
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0049

  1779					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1780
  1781			003140		SN=SN+1
  1782		020000	000000			ZZ=ZZ+ZZ
  1783						IFE	ZZ,<ZZ=1>
  1784	031324	200 00 0 00 035132 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1785	031325	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1786						STOP^
  1787	031326	254 04 0 00 031327 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1788	031327	324 00 0 00 031330 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1789
  1790					;**********
  1791
  1792					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1793					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1794					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1795					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1796					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1797
  1798			003141		SN=SN+1
  1799		040000	000000			ZZ=ZZ+ZZ
  1800						IFE	ZZ,<ZZ=1>
  1801	031330	200 00 0 00 035133 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1802	031331	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1803						STOP^
  1804	031332	254 04 0 00 031333 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1805	031333	324 00 0 00 031334 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1806
  1807					;**********
  1808
  1809					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1810					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1811					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1812					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1813					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1814
  1815			003142		SN=SN+1
  1816		100000	000000			ZZ=ZZ+ZZ
  1817						IFE	ZZ,<ZZ=1>
  1818	031334	200 00 0 00 035134 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1819	031335	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1820						STOP^
  1821	031336	254 04 0 00 031337 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1822	031337	324 00 0 00 031340 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1823
  1824					;**********
  1825
  1826					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1827					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1828					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1829					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1830					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1831
  1832			003143		SN=SN+1
  1833		200000	000000			ZZ=ZZ+ZZ
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 12-11
DBKAAM	MAC	30-APR-76 16:57		TEST OF JUMP, JUMPA AND SKIPX INSTRUCTIONS                                         SEQ 0050

  1834						IFE	ZZ,<ZZ=1>
  1835	031340	200 00 0 00 035135 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1836	031341	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1837						STOP^
  1838	031342	254 04 0 00 031343 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1839	031343	324 00 0 00 031344 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1840
  1841					;**********
  1842
  1843					;THIS TEST VERIFIES THAT SKIPN IS SENSITIVE TO A ONE IN EVERY BIT POSITION.  THIS TEST
  1844					;IS REPEATED 36 TIMES.  EACH TIME A WORD OF ALL ZEROS EXCEPT FOR A ONE IN ONE
  1845					;BIT POSITION IS MOVED INTO E.  THEN SKIPN IS EXECUTED.  THIS TEST ALSO
  1846					;CHECKS ADDER GATING.  IF THIS TEST FAILS, CHECK C(E).
  1847					;IF C(E)=0, MOVE FAILED; OTHERWISE SKIPN FAILED.
  1848
  1849			003144		SN=SN+1
  1850		400000	000000			ZZ=ZZ+ZZ
  1851						IFE	ZZ,<ZZ=1>
  1852	031344	200 00 0 00 035065 		MOVE	[ZZ]		;MOVE THE CURRENT VALUE OF ZZ INTO E. ZZ IS NON-ZERO
  1853	031345	336 00 0 00 000000 		SKIPN			;*SKIPN SHOULD SKIP THE NEXT INSTRUCTION
  1854						STOP^
  1855	031346	254 04 0 00 031347 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1856	031347	324 00 0 00 031350 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1857
  1858					;**********
  1859
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 13
DBKAAM	MAC	30-APR-76 16:57		TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS                                        SEQ 0051

  1860					SUBTTL	TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS
  1861
  1862					;THIS TEST VERIFIES THAT MOVEI LOADS E INTO THE AC.  SKIPG IS USED TO CHECK THAT
  1863					;THE AC WAS INDEED MODIFIED BY MOVEI.
  1864
  1865	031350	201 00 0 00 035063 	A3200:	MOVEI	[-1]		;*MOVEI SHOULD LOAD A POSITIVE NUMBER INTO AC0
  1866	031351	337 00 0 00 000000 		SKIPG			;SKIP HALT INSTRUCTION IF MOVEI LOADED AC CORRECTLY
  1867						STOP^
  1868	031352	254 04 0 00 031353 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1869	031353	324 00 0 00 031354 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1870
  1871					;IF PROGRAM HANGS UP ON MOVEI INSTRUCTION, CHECK AD FM +EN [ADFP], AD FM + EN A [ADFP],
  1872					;AD FM + F/F [ADFP], F CYC ACT EN C [F1]
  1873
  1874					;**********
  1875
  1876					;THIS TEST VERIFIES THAT SKIPL IS SENSITIVE TO THE DATA IN E AND NOT SENSITIVE TO
  1877					;THE DATA IN THE AC.  HENCE, SKIPL WILL SKIP THE NEXT INSTRUCTION ONLY IF
  1878					;C(E) IS LESS THAN ZERO.  E IS SET TO -1, A NEGATIVE NUMBER; AND
  1879					;THE AC IS SET TO 0 IN THIS TEST.  THEREFORE SKIPL SHOULD SKIP.
  1880
  1881	031354	200 00 0 00 035062 	A3300:	MOVE	[0]		;SET THE AC TO ALL ZEROS
  1882	031355	331 00 0 00 035063 		SKIPL	[-1]		;*SKIPL SHOULD SKIP BECAUSE C(E) IS NEGATIVE
  1883						STOP^
  1884	031356	254 04 0 00 031357 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1885	031357	324 00 0 00 031360 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1886
  1887					;**********
  1888
  1889					;THIS TEST VERIFIES THAT SKIPL IS SENSITIVE TO THE SIGN BIT IN E.  SKIPL SHOULD
  1890					;SKIP THE NEXT INSTRUCTION WHEN AND ONLY WHEN THE SIGN BIT IS SET.  IN THIS
  1891					;TEST, C(AC) IS PRESET TO ALL ZEROS, THEN SKIPL IS EXECUTED WITH C(E)=400000,,0.
  1892					;A FAILURE UCCURS IF SKIPL DOES NOT SKIP.
  1893
  1894	031360	200 00 0 00 035062 	A13100:	MOVE	[0]		;SET THE AC TO ALL ZEROS
  1895	031361	331 00 0 00 035065 		SKIPL	[400000,,0]	;*SKIPL SHOULD SKIP BECAUSE C(E) IS NEGATIVE
  1896						STOP^
  1897	031362	254 04 0 00 031363 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1898	031363	324 00 0 00 031364 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1899
  1900					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 14
DBKAAM	MAC	30-APR-76 16:57		TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS                                        SEQ 0052

  1901					;THIS TEST VERIFIES THAT THE CAM INSTRUCTION DOES NOT MODIFY C(AC).  THE AC IS
  1902					;INITIALLY LOADED WITH ALL ZEROS; THEN CAM IS EXECUTED WITH C(E) NON-ZERO.
  1903					;THE AC IS THEN CHECKED FOR ALL ZEROS.  THIS TEST FAILS IF THE AC WAS MODIFIED BY CAM.
  1904
  1905	031364	200 00 0 00 035062 	A3400:	MOVE	[0]		;PRESET THE AC TO ALL ZEROS
  1906	031365	310 00 0 00 035136 		CAM	[1234]		;*CAM SHOULD NOT MODIFY THE AC
  1907	031366	200 00 0 00 000000 		MOVE			;MOVE C(0) INTO 0 (THIS INSTRUCTION SERVES AS A NO-OP.
  1908									;IT IS A PROGRAM FILLER IN CASE CAM SKIPS.)
  1909	031367	332 00 0 00 000000 		SKIPE			;SKIP HALT INSTRUCTION IF AC WAS NOT MODIFIED BY CAM
  1910						STOP^
  1911	031370	254 04 0 00 031371 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1912	031371	324 00 0 00 031372 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1913
  1914					;IF TEST HANGS ON CAM INSTRUCTION, AB PC EN [ABC], AB PC (FETCH) EN [ABC],
  1915					;IR CAXX [IR3]
  1916
  1917					;IF TEST LOOPS ON CAM INSTRUCTION, MC INSTR FETCH EN [MC1], MC INST FET ET2 EN [MC1],
  1918					;ET2 J F/F [E], IR CAXX [IR3]
  1919
  1920					;IF TEST HALTS AT HALT INSTRUCTION, SAC INH [ST2], IR CAXX [IR3], IR CAMX [IR1]
  1921
  1922					;**********
  1923
  1924					;THIS TEST VERIFIES THAT THE CAI INSTRUCTION DOES NOT MODIFY C(AC).  THE AC IS
  1925					;INITIALLY LOADED WITH ALL ZEROS; THEN CAI IS EXECUTED WITH E NON-ZERO.  THE AC IS
  1926					;THEN CHECKED FOR ALL ZEROS.  THIS TEST FAILS IF THE AC WAS MODIFIED BY CAM.
  1927
  1928	031372	200 00 0 00 035062 	A3500:	MOVE	[0]		;PRESET THE AC TO ALL ZEROS
  1929	031373	300 00 0 00 035136 		CAI	[1234]		;*CAI SHOULD NOT MODIFY THE AC
  1930	031374	200 00 0 00 000000 		MOVE			;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A PROGRAM FILLER
  1931									;IN CASE CAI MODIFIES THE AC.  IT SERVES AS A NO-OP)
  1932	031375	332 00 0 00 000000 		SKIPE			;SKIP HALT INSTRUCTION IF CAI DID NOT MODIFY THE AC
  1933						STOP^
  1934	031376	254 04 0 00 031377 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1935	031377	324 00 0 00 031400 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1936
  1937					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 15
DBKAAM	MAC	30-APR-76 16:57		TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS                                        SEQ 0053

  1938					;THIS TEST VERIFIES THAT CAI DOES NOT MODIFY C(AC0) WHEN AN AC OTHER THAN AC0 IS
  1939					;SPECIFIED BY THE CAI INSTRUCTION.
  1940					;THIS IS THE FIRST TEST THAT USES AN AC OTHER THAN AC0.
  1941					;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, THE CAI INSTRUCTION IS EXECUTED WITH
  1942					;A NON-ZERO E.  AC 0 IS THEN TESTED F0R ALL ZEROS.
  1943
  1944	031400	200 00 0 00 035062 	A3600:	MOVE	[0]		;LOAD AC0 WITH ALL ZEROS
  1945	031401	300 17 0 00 035136 		CAI	17,[1234]	;*CAI SHOULD NOT MODIFY AC0
  1946	031402	200 00 0 00 000000 		MOVE			;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE
  1947									;CAI SKIPS THE NEXT INSTRUCTION.  IT ACTS AS A NO-OP)
  1948	031403	332 00 0 00 000000 		SKIPE			;SKIP HALT INSTRUCTION IF C(AC0) WAS NOT MODIFIED
  1949						STOP^
  1950	031404	254 04 0 00 031405 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1951	031405	324 00 0 00 031406 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1952
  1953					;**********
  1954
  1955					;THIS TEST VERIFIES THAT CAM DOES NOT MODIFY C(AC0) WHEN AN AC OTHER THAN AC0 IS
  1956					;SPECIFIED BY THE CAM INSTRUCTION.
  1957					;FIRST, AC0 IS LOADED WITH ALL ZEROS; THEN, THE CAM INSTRUCTION IS EXECUTED WITH
  1958					;A NON-ZERO E.  AC 0 IS THEN TESTED F0R ALL ZEROS.
  1959
  1960	031406	200 00 0 00 035062 	A3700:	MOVE	[0]		;PRESET C(AC0) TO ALL ZEROS
  1961	031407	310 17 0 00 035136 		CAM	17,[1234]	;*CAM SHOULD NOT MODIFY AC0
  1962	031410	200 00 0 00 000000 		MOVE			;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE
  1963									;CAM SKIPS THE NEXT INSTRUCTION.  IT SERVES AS A NO-OP)
  1964	031411	332 00 0 00 000000 		SKIPE			;SKIP HALT INSTRUCTION IF AC0 WAS NOT MODIFIED BY CAM
  1965						STOP^
  1966	031412	254 04 0 00 031413 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1967	031413	324 00 0 00 031414 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1968
  1969					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 16
DBKAAM	MAC	30-APR-76 16:57		TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS                                        SEQ 0054

  1970					;THIS TEST VERIFIES THAT MOVE WILL PLACE C(E) INTO THE AC.  AC, E AND C(E) ARE NON-ZERO
  1971					;IN THIS TEST.  THIS TEST PASSES IF  FINAL C(AC) OF THE MOVE INSTRUCTION IS NON-ZERO.
  1972
  1973	031414	200 01 0 00 035062 	A4500:	MOVE	1,[0]		;LOAD THE AC WITH ALL ZEROS
  1974	031415	200 01 0 00 035063 		MOVE	1,[-1]		;*MOVE SHOULD PLACE ALL ONES IN THE AC
  1975	031416	336 00 0 00 000001 		SKIPN	1		;SKIP HALT INSTRUCTION IF MOVE MODIFIED THE AC
  1976						STOP^
  1977	031417	254 04 0 00 031420 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1978	031420	324 00 0 00 031421 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1979
  1980					;**********
  1981
  1982					;THIS TEST VERIFIES THAT THE MOVE INSTRUCTION WILL PLACE C(E) INTO THE AC.
  1983					;AC, E ARE NON-ZERO AND C(E)=0.
  1984					;THIS TEST FAILS IF THE FINAL C(AC) IS NOT EQUAL TO ZERO, THE ORIGINAL C(E)
  1985
  1986	031421	200 01 0 00 035062 	A4600:	MOVE	1,[0]		;*PLACE ALL ZEROS INTO THE AC
  1987	031422	332 00 0 00 000001 		SKIPE	1		;SKIP HALT INSTRUCTION IF MOVE PLACED ALL ZEROS INTO AC
  1988						STOP^
  1989	031423	254 04 0 00 031424 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  1990	031424	324 00 0 00 031425 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  1991
  1992					;IF JUMP .+1 OF PREVIOUS TEST FAILED, CHECK JUMPS: AD FM + EN [ADFP], IR JUMPS [IR1],
  1993					;IR JUMPX [IR1], AR AD EN [ARMA], AR AD EN A [ARMA], AR LT AD EN A [ARMA],
  1994					;AR LT ADD EN B [ARMA], AR RT AD EN A [ARMA],
  1995					;AR RT AD EN B [ARMA], AR A CLK INPUT [ARMA],
  1996					;ET2 C F/F [E], AR AD ET2 EN [ARMA], AR AD BR (ET2) B [ARMA]
  1997
  1998					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 17
DBKAAM	MAC	30-APR-76 16:57		TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS                                        SEQ 0055

  1999					;THIS TEST VERIFIES THAT SOS DOES NOT MODIFY C(AC) WHEN THE AC IS AC0.
  2000					;FIRST, AC0 IS LOADED WITH ALL ZEROS AND E IS LOADED WITH A POSITIVE NUMBER;
  2001					;THEN, SOS IS EXECUTED.  SOS SHOULD SUBTRACT ONE FROM C((E)
  2002					;AND EXECUTE THE NEXT INSTRUCTION.  IT SHOULD NOT MODIFY AC0.
  2003					;THE TEST PASSES IF AC0 WAS NOT MODIFIED.
  2004
  2005	031425	200 00 0 00 035062 	A4000:	MOVE	[0]		;PRESET AC0 TO ALL ZEROS
  2006	031426	200 07 0 00 035136 		MOVE	7,[1234]	;PRESET E WITH A POSITIVE NUMBER
  2007	031427	370 00 0 00 000007 		SOS	7		;*SOS SHOULD NOT MODIFY C(AC0)
  2008	031430	200 00 0 00 000000 		MOVE			;MOVE C(0) INTO 0 (THIS INSTRUCTION IS A FILLER IN CASE
  2009									;SOS SKIPS THE NEXT INSTRUCTION.  IT SERVES AS A NO-OP)
  2010	031431	332 00 0 00 000000 		SKIPE			;SKIP THE HALT INSTRUCTION IF C(AC0) WAS NOT MODIFIED
  2011						STOP^
  2012	031432	254 04 0 00 031433 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2013	031433	324 00 0 00 031434 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2014
  2015					;**********
  2016			004100		SN=4100
  2017			000000			AC=0
  2018
  2019					A4100:	REPEAT	4,		
  2020					<;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC
  2021					;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10.
  2022					;FIRST, THE AC IS LOADED WITH ALL ZEROS;  THEN, THE SKIP INSTRUCTION IS EXECUTED
  2023					;WITH AC1, AC2, AC4 OR AC10.  C(E) IS EQUAL TO -1.  THE SKIP INSTRUCTION SHOULD CAUSE
  2024					;THE AC TO CONTAIN -1.  THE AC IS THEN CHECKED FOR
  2025					;NON-ZERO CONTENTS.  THE TEST FAILS IF C(AC)=0.
  2026					;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0.
  2027					
  2028					SN=SN+1
  2029						AC=AC+AC
  2030						IFE	AC,<AC=1>
  2031						MOVE	0,[0]		;PRESET AC0 TO ALL ZEROS
  2032						MOVE	AC,[0]		;PRESET THE AC TO ALL ZEROS
  2033						SKIP	AC,[-1]		;*SKIP SHOULD PLACE -1 INTO THE AC
  2034						SKIPN	AC		;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO
  2035						STOP
  2036						SKIPE	0		;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP
  2037						STOP
  2038					
  2039					;**********
  2040					>
  2041					;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC
  2042					;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10.
  2043					;FIRST, THE AC IS LOADED WITH ALL ZEROS;  THEN, THE SKIP INSTRUCTION IS EXECUTED
  2044					;WITH AC1, AC2, AC4 OR AC10.  C(E) IS EQUAL TO -1.  THE SKIP INSTRUCTION SHOULD CAUSE
  2045					;THE AC TO CONTAIN -1.  THE AC IS THEN CHECKED FOR
  2046					;NON-ZERO CONTENTS.  THE TEST FAILS IF C(AC)=0.
  2047					;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0.
  2048
  2049			004101		SN=SN+1
  2050			000000			AC=AC+AC
  2051			000001			IFE	AC,<AC=1>
  2052	031434	200 00 0 00 035062 		MOVE	0,[0]		;PRESET AC0 TO ALL ZEROS
  2053	031435	200 01 0 00 035062 		MOVE	AC,[0]		;PRESET THE AC TO ALL ZEROS
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 17-1
DBKAAM	MAC	30-APR-76 16:57		TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS                                        SEQ 0056

  2054	031436	330 01 0 00 035063 		SKIP	AC,[-1]		;*SKIP SHOULD PLACE -1 INTO THE AC
  2055	031437	336 00 0 00 000001 		SKIPN	AC		;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO
  2056						STOP^
  2057	031440	254 04 0 00 031441 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2058	031441	324 00 0 00 031442 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2059	031442	332 00 0 00 000000 		SKIPE	0		;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP
  2060						STOP^
  2061	031443	254 04 0 00 031444 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2062	031444	324 00 0 00 031445 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2063
  2064					;**********
  2065
  2066					;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC
  2067					;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10.
  2068					;FIRST, THE AC IS LOADED WITH ALL ZEROS;  THEN, THE SKIP INSTRUCTION IS EXECUTED
  2069					;WITH AC1, AC2, AC4 OR AC10.  C(E) IS EQUAL TO -1.  THE SKIP INSTRUCTION SHOULD CAUSE
  2070					;THE AC TO CONTAIN -1.  THE AC IS THEN CHECKED FOR
  2071					;NON-ZERO CONTENTS.  THE TEST FAILS IF C(AC)=0.
  2072					;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0.
  2073
  2074			004102		SN=SN+1
  2075			000002			AC=AC+AC
  2076						IFE	AC,<AC=1>
  2077	031445	200 00 0 00 035062 		MOVE	0,[0]		;PRESET AC0 TO ALL ZEROS
  2078	031446	200 02 0 00 035062 		MOVE	AC,[0]		;PRESET THE AC TO ALL ZEROS
  2079	031447	330 02 0 00 035063 		SKIP	AC,[-1]		;*SKIP SHOULD PLACE -1 INTO THE AC
  2080	031450	336 00 0 00 000002 		SKIPN	AC		;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO
  2081						STOP^
  2082	031451	254 04 0 00 031452 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2083	031452	324 00 0 00 031453 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2084	031453	332 00 0 00 000000 		SKIPE	0		;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP
  2085						STOP^
  2086	031454	254 04 0 00 031455 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2087	031455	324 00 0 00 031456 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2088
  2089					;**********
  2090
  2091					;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC
  2092					;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10.
  2093					;FIRST, THE AC IS LOADED WITH ALL ZEROS;  THEN, THE SKIP INSTRUCTION IS EXECUTED
  2094					;WITH AC1, AC2, AC4 OR AC10.  C(E) IS EQUAL TO -1.  THE SKIP INSTRUCTION SHOULD CAUSE
  2095					;THE AC TO CONTAIN -1.  THE AC IS THEN CHECKED FOR
  2096					;NON-ZERO CONTENTS.  THE TEST FAILS IF C(AC)=0.
  2097					;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0.
  2098
  2099			004103		SN=SN+1
  2100			000004			AC=AC+AC
  2101						IFE	AC,<AC=1>
  2102	031456	200 00 0 00 035062 		MOVE	0,[0]		;PRESET AC0 TO ALL ZEROS
  2103	031457	200 04 0 00 035062 		MOVE	AC,[0]		;PRESET THE AC TO ALL ZEROS
  2104	031460	330 04 0 00 035063 		SKIP	AC,[-1]		;*SKIP SHOULD PLACE -1 INTO THE AC
  2105	031461	336 00 0 00 000004 		SKIPN	AC		;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO
  2106						STOP^
  2107	031462	254 04 0 00 031463 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2108	031463	324 00 0 00 031464 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 17-2
DBKAAM	MAC	30-APR-76 16:57		TEST OF MOVE, SKIP AND COMPARE INSTRUCTIONS                                        SEQ 0057

  2109	031464	332 00 0 00 000000 		SKIPE	0		;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP
  2110						STOP^
  2111	031465	254 04 0 00 031466 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2112	031466	324 00 0 00 031467 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2113
  2114					;**********
  2115
  2116					;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL PLACE THE CONTENTS OF E INTO THE AC
  2117					;WHEN THE AC IS NOT AC0. THIS TEST IS PERFORMED FOR AC1, AC2, AC4 AND AC10.
  2118					;FIRST, THE AC IS LOADED WITH ALL ZEROS;  THEN, THE SKIP INSTRUCTION IS EXECUTED
  2119					;WITH AC1, AC2, AC4 OR AC10.  C(E) IS EQUAL TO -1.  THE SKIP INSTRUCTION SHOULD CAUSE
  2120					;THE AC TO CONTAIN -1.  THE AC IS THEN CHECKED FOR
  2121					;NON-ZERO CONTENTS.  THE TEST FAILS IF C(AC)=0.
  2122					;THIS TEST ALSO VERIFIES THAT 'SKIP AC,[-1]' DOES NOT CLOBBER AC0.
  2123
  2124			004104		SN=SN+1
  2125			000010			AC=AC+AC
  2126						IFE	AC,<AC=1>
  2127	031467	200 00 0 00 035062 		MOVE	0,[0]		;PRESET AC0 TO ALL ZEROS
  2128	031470	200 10 0 00 035062 		MOVE	AC,[0]		;PRESET THE AC TO ALL ZEROS
  2129	031471	330 10 0 00 035063 		SKIP	AC,[-1]		;*SKIP SHOULD PLACE -1 INTO THE AC
  2130	031472	336 00 0 00 000010 		SKIPN	AC		;SKIP THE HALT INSTRUCTION IF THE AC IS NON-ZERO
  2131						STOP^
  2132	031473	254 04 0 00 031474 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2133	031474	324 00 0 00 031475 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2134	031475	332 00 0 00 000000 		SKIPE	0		;VERIFY THAT AC0 DID NOT GET CLOBBERED BY SKIP
  2135						STOP^
  2136	031476	254 04 0 00 031477 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2137	031477	324 00 0 00 031500 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2138
  2139					;**********
  2140
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 18
DBKAAM	MAC	30-APR-76 16:57		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0058

  2141					SUBTTL	TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS
  2142
  2143					;THIS TEST VERIFIES THAT THE SKIP INSTRUCTION WILL NOT MODIFY THE CONTENTS OF AC0.
  2144					;FIRST, AC0 IS LOADED WITH ALL ZEROS;  THEN,
  2145					;THE SKIP INSTRUCTION IS EXECUTED WITH C(E)=-1 AND AC0.  AC0 IS THEN TESTED FOR ALL
  2146					;ZEROS.  THE TEST FAILS IF AC0 WAS MODIFIED BY THE SKIP INSTRUCTION.
  2147
  2148	031500	200 00 0 00 035062 	A4200:	MOVE	[0]		;PRESET AC0 TO ALL ZEROS
  2149	031501	330 00 0 00 035063 		SKIP	[-1]		;*SKIP SHOULD NOT MODIFY AC0
  2150	031502	332 00 0 00 000000 		SKIPE			;SKIP HALT INSTRUCTION IF AC0 WAS NOT MODIFIED BY SKIP
  2151						STOP^
  2152	031503	254 04 0 00 031504 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2153	031504	324 00 0 00 031505 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2154
  2155					;AC=0: SAC INH, IR BIT 9, 10, 11 OR 12 S-A-1
  2156
  2157					;**********
  2158
  2159					;THIS TEST VERIFIES THAT MOVSS DOES NOT MODIFY C(AC0) WHEN AC0 IS SPECIFIED AS THE AC.
  2160					;FIRST, E IS LOADED WITH ALL ONES AND THE AC (AC0)
  2161					;IS LOADED WITH ALL ZEROS; THEN, MOVSS IS EXECUTED.  MOVSS SHOULD NOT MODIFY AC0.
  2162					;AC0 IS THEN CHECKED TO INSURE THAT IT WAS NOT MODIFIED BY MOVSS.
  2163
  2164	031505	200 07 0 00 035063 	A4300:	MOVE	7,[-1]		;LOAD E OF THE MOVSS INSTRUCTION WITH ALL ONES
  2165	031506	200 00 0 00 035062 		MOVE	[0]		;PRESET AC0 TO ALL ZEROS
  2166	031507	207 00 0 00 000007 		MOVSS	7		;*MOVSS SHOULD NOT MODIFY AC0
  2167	031510	332 00 0 00 000000 		SKIPE			;SKIP HALT INSTRUCTION IF AC0 WAS INTACT
  2168						STOP^
  2169	031511	254 04 0 00 031512 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2170	031512	324 00 0 00 031513 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2171
  2172					;MOVX & AC=0: SAC INH [ST2], IR XXXS [IR1]
  2173
  2174					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 19
DBKAAM	MAC	30-APR-76 16:57		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0059

  2175					;THIS TEST VERIFIES THAT HRRS DOES NOT MODIFY C(AC0) WHEN AC0 IS THE SPECIFIED AC.
  2176					;FIRST, E IS LOADED WITH ALL ONES AND AC0 IS LOADED WITH ALL ZEROS;
  2177					;THEN, HRRS IS EXECUTED WITH AC=AC0.  AC0 IS THEN CHECKED FOR ALL ZEROS.
  2178					;IF AC0 WAS MODIFIED BY THE HRRS INSTRUCTION, THE TEST FAIL.
  2179
  2180	031513	200 07 0 00 035063 	A4400:	MOVE	7,[-1]		;PRESET E OF THE HRRS INSTRUCTION TO ALL ONES
  2181	031514	200 00 0 00 035062 		MOVE	[0]		;PRESET AC0 TO ALL ZEROS
  2182	031515	543 00 0 00 000007 		HRRS	7		;*HRRS SHOULD NOT MODIFY THE AC WHEN THE AC IS AC0
  2183	031516	332 00 0 00 000000 		SKIPE			;SKIP THE HALT INSTRUCTION IF AC0 WAS INTACT
  2184						STOP^
  2185	031517	254 04 0 00 031520 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2186	031520	324 00 0 00 031521 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2187
  2188					;(HXXXS&AC=0): SAC INH [ST2], IR HWTFWT [IR3], IR XXXS [IR1], IR HWT [IR1],
  2189					;IR BITS S-A-1
  2190
  2191					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 20
DBKAAM	MAC	30-APR-76 16:57		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0060

  2192					;THIS TEST VERIFIES THAT THE JUMP INSTRUCTION DOES NOT MODIFY C(AC).
  2193					;THE AC IS FIRST LOADED WITH ALL ZEROS;
  2194					;THEN JUMP .+1 IS EXECUTED.  THE AC IS THEN CHECKED TO INSURE THAT IT WAS NOT MODIFIED
  2195					;BY JUMP.  THE TEST FAILS IF THE AC WAS MODIFIED
  2196
  2197	031521	200 00 0 00 035062 	A4700:	MOVE	[0]		; PRESET THE AC TO ALL ZEROS
  2198	031522	320 00 0 00 031523 		JUMP	.+1		;*JUMP SHOULD NOT MODIFY THE AC
  2199	031523	332 00 0 00 000000 		SKIPE			;SKIP HALT INSTRUCTION IF AC WAS INTACT
  2200						STOP^
  2201	031524	254 04 0 00 031525 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2202	031525	324 00 0 00 031526 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2203
  2204					;**********
  2205
  2206					;THIS TEST VERIFIES THAT MOVS WILL NOT PICK UP ANY ONES WHEN SWAPPING A WORD
  2207					;OF ALL ZEROS.  FIRST, E IS LOADED WITH A WORD OF ALL ZEROS;
  2208					;THEN, MOVS IS EXECUTED.  THE AC IS THEN CHECKED TO INSURE THAT THE RESULT DOES NOT
  2209					;CONTAIN ANY ONES.
  2210
  2211	031526	200 00 0 00 035062 	A5000:	MOVE	[0]		;PRESET E WITH ALL ZEROS
  2212	031527	204 00 0 00 000000 		MOVS			;*MOVS SHOULD RESULT WITH AN AC 0F ALL ZEROS
  2213	031530	332 00 0 00 000000 		SKIPE			;SKIP HALT INSTRUCTION IF C(AC)=0
  2214						STOP^
  2215	031531	254 04 0 00 031532 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2216	031532	324 00 0 00 031533 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2217
  2218					;**********
  2219
  2220					;THIS TEST VERIFIES THAT A MOVS EXECUTED ON AN E CONTAINING A NON-ZERO NUMBER
  2221					;RESULTS IN A NON-ZERO NUMBER IN THE AC.  FIRST A NON-ZERO WORD
  2222					;IS LOADED INTO E; THEN, MOVS IS EXECUTED.  THE AC IS CHECKED FOR A NON-ZERO RESULT.
  2223					;IF C(AC)=0, THE TEST FAILS.
  2224
  2225	031533	200 00 0 00 035137 	A5100:	MOVE	[XWD 0,-1]	;LOAD E WITH A NON-ZERO VALUE
  2226	031534	204 00 0 00 000000 		MOVS			;*MOVS SHOULD RESULT IN C(AC) NON-ZERO
  2227	031535	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF C(AC) OF MOVS IS NON-ZERO
  2228						STOP^
  2229	031536	254 04 0 00 031537 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2230	031537	324 00 0 00 031540 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2231
  2232					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 21
DBKAAM	MAC	30-APR-76 16:57		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0061

  2233					;THIS TEST VERIFIES THAT A MOVS EXECUTED ON AN E CONTAINING A NON-ZERO NUMBER
  2234					;RESULTS IN A NON-ZERO NUMBER IN THE AC.  FIRST A NON-ZERO WORD
  2235					;IS LOADED INTO E; THEN, MOVS IS EXECUTED.  THE AC IS CHECKED FOR A NON-ZERO
  2236					;RESULT.  IF C(AC)=0, THE TEST FAILS.
  2237
  2238	031540	200 00 0 00 035140 	A5200:	MOVE	[XWD -1,0]	;LOAD E OF MOVS WITH A NON-ZERO NUMBER
  2239	031541	204 00 0 00 000000 		MOVS			;*MOVS SHOULD RESULT WITH C(AC) NON-ZERO
  2240	031542	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF C(AC) OF MOVS IS NON-ZERO
  2241						STOP^
  2242	031543	254 04 0 00 031544 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2243	031544	324 00 0 00 031545 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2244
  2245					;**********
  2246
  2247					;THIS TEST VERIFIES THAT THE MOVS INSTRUCTION SWAPS BITS 0 AND 188 OF E
  2248					;AND STORES THEM IN THE AC UNLESS AR BIT 0 IS S-A-0.  FIRST, A WORD
  2249					;WITH BIT 0 SET TO A ONE AND BIT 18 CLEARED IS LOADED INTO E.  THEN, MOVS
  2250					;IS EXECUTED.  THE AC IS THEN CHECKED FOR A 0 IN BIT 0, WHICH IS THE
  2251					;CORRECT RESULT.
  2252
  2253	031545	200 00 0 00 035140 	A5300:	MOVE	[XWD -1,0]	;LOAD E OF MOVS WITH 777777000000
  2254	031546	204 00 0 00 000000 		MOVS			;*MOVS SHOULD RESULT WITH AC BIT 0 EQUAL TO 0
  2255	031547	337 00 0 00 000000 		SKIPG			;SKIP HALT INSTRUCTION IF BIT 0 OF AC IS 0
  2256						STOP^
  2257	031550	254 04 0 00 031551 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2258	031551	324 00 0 00 031552 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2259
  2260					;MOVSX: AR SWAP [ARMB], AR LT AR RT A [ARMB], AR LT AR RT B [ARMB],
  2261					;AR RT AR LT A [ARMB], AR RT AR LT B [ARMB], ET2 A F/F [E], IR MOVSX [IR1],
  2262					;IR MOV(E,S)X [IR1]
  2263
  2264					;**********
  2265
  2266					;THIS TEST VERIFIES THAT THE MOVS INSTRUCTION SWAPS BITS 0 AND 18 OF E AND
  2267					;STORES THEM IN THE AC UNLESS AR BIT 0 IS S-A-1.  FIRST, A WORD WITH BIT 0
  2268					;SET TO A ONE AND BIT 18 CLEARED IS LOADED INTO E.  THEN, MOVS IS EXECUTED.
  2269					;THE AC IS CHECKED FOR A ZERO IN BIT ZERO, WHICH IS THE CORRECT RESULT.
  2270
  2271	031552	200 00 0 00 035137 	A5400:	MOVE	[XWD 0,-1]	;LOAD E OF MOVS WITH 777777
  2272	031553	204 00 0 00 000000 		MOVS			;*MOVS SHOULD RESULT WITH BIT 0 OF THE AC SET
  2273	031554	331 00 0 00 000000 		SKIPL			;PASS IF AC BIT 0 IS SET
  2274						STOP^
  2275	031555	254 04 0 00 031556 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2276	031556	324 00 0 00 031557 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2277
  2278					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 22
DBKAAM	MAC	30-APR-76 16:57		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0062

  2279			005500		SN=5500
  2280			000000			ZZ=0
  2281
  2282					A5500:	REPEAT	^D18,
  2283					<;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2284					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2285					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2286					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2287					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2288					SN=SN+1
  2289						ZZ=ZZ+ZZ
  2290						IFE	ZZ,<ZZ=1>
  2291						MOVE	[0]		;CLEAR AC
  2292						MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2293						SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2294						STOP
  2295					
  2296					;**********
  2297					>
  2298					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2299					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2300					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2301					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2302					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2303			005501		SN=SN+1
  2304			000000			ZZ=ZZ+ZZ
  2305			000001			IFE	ZZ,<ZZ=1>
  2306	031557	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2307	031560	204 00 0 00 035074 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2308	031561	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2309						STOP^
  2310	031562	254 04 0 00 031563 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2311	031563	324 00 0 00 031564 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2312
  2313					;**********
  2314
  2315					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2316					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2317					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2318					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2319					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2320			005502		SN=SN+1
  2321			000002			ZZ=ZZ+ZZ
  2322						IFE	ZZ,<ZZ=1>
  2323	031564	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2324	031565	204 00 0 00 035075 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2325	031566	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2326						STOP^
  2327	031567	254 04 0 00 031570 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2328	031570	324 00 0 00 031571 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2329
  2330					;**********
  2331
  2332					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2333					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 22-1
DBKAAM	MAC	30-APR-76 16:57		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0063

  2334					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2335					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2336					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2337			005503		SN=SN+1
  2338			000004			ZZ=ZZ+ZZ
  2339						IFE	ZZ,<ZZ=1>
  2340	031571	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2341	031572	204 00 0 00 035076 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2342	031573	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2343						STOP^
  2344	031574	254 04 0 00 031575 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2345	031575	324 00 0 00 031576 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2346
  2347					;**********
  2348
  2349					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2350					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2351					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2352					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2353					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2354			005504		SN=SN+1
  2355			000010			ZZ=ZZ+ZZ
  2356						IFE	ZZ,<ZZ=1>
  2357	031576	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2358	031577	204 00 0 00 035077 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2359	031600	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2360						STOP^
  2361	031601	254 04 0 00 031602 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2362	031602	324 00 0 00 031603 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2363
  2364					;**********
  2365
  2366					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2367					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2368					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2369					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2370					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2371			005505		SN=SN+1
  2372			000020			ZZ=ZZ+ZZ
  2373						IFE	ZZ,<ZZ=1>
  2374	031603	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2375	031604	204 00 0 00 035100 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2376	031605	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2377						STOP^
  2378	031606	254 04 0 00 031607 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2379	031607	324 00 0 00 031610 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2380
  2381					;**********
  2382
  2383					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2384					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2385					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2386					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2387					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2388			005506		SN=SN+1
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 22-2
DBKAAM	MAC	30-APR-76 16:57		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0064

  2389			000040			ZZ=ZZ+ZZ
  2390						IFE	ZZ,<ZZ=1>
  2391	031610	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2392	031611	204 00 0 00 035101 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2393	031612	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2394						STOP^
  2395	031613	254 04 0 00 031614 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2396	031614	324 00 0 00 031615 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2397
  2398					;**********
  2399
  2400					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2401					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2402					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2403					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2404					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2405			005507		SN=SN+1
  2406			000100			ZZ=ZZ+ZZ
  2407						IFE	ZZ,<ZZ=1>
  2408	031615	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2409	031616	204 00 0 00 035102 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2410	031617	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2411						STOP^
  2412	031620	254 04 0 00 031621 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2413	031621	324 00 0 00 031622 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2414
  2415					;**********
  2416
  2417					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2418					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2419					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2420					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2421					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2422			005510		SN=SN+1
  2423			000200			ZZ=ZZ+ZZ
  2424						IFE	ZZ,<ZZ=1>
  2425	031622	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2426	031623	204 00 0 00 035103 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2427	031624	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2428						STOP^
  2429	031625	254 04 0 00 031626 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2430	031626	324 00 0 00 031627 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2431
  2432					;**********
  2433
  2434					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2435					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2436					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2437					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2438					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2439			005511		SN=SN+1
  2440			000400			ZZ=ZZ+ZZ
  2441						IFE	ZZ,<ZZ=1>
  2442	031627	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2443	031630	204 00 0 00 035104 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 22-3
DBKAAM	MAC	30-APR-76 16:57		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0065

  2444	031631	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2445						STOP^
  2446	031632	254 04 0 00 031633 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2447	031633	324 00 0 00 031634 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2448
  2449					;**********
  2450
  2451					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2452					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2453					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2454					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2455					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2456			005512		SN=SN+1
  2457			001000			ZZ=ZZ+ZZ
  2458						IFE	ZZ,<ZZ=1>
  2459	031634	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2460	031635	204 00 0 00 035105 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2461	031636	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2462						STOP^
  2463	031637	254 04 0 00 031640 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2464	031640	324 00 0 00 031641 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2465
  2466					;**********
  2467
  2468					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2469					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2470					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2471					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2472					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2473			005513		SN=SN+1
  2474			002000			ZZ=ZZ+ZZ
  2475						IFE	ZZ,<ZZ=1>
  2476	031641	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2477	031642	204 00 0 00 035106 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2478	031643	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2479						STOP^
  2480	031644	254 04 0 00 031645 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2481	031645	324 00 0 00 031646 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2482
  2483					;**********
  2484
  2485					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2486					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2487					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2488					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2489					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2490			005514		SN=SN+1
  2491			004000			ZZ=ZZ+ZZ
  2492						IFE	ZZ,<ZZ=1>
  2493	031646	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2494	031647	204 00 0 00 035107 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2495	031650	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2496						STOP^
  2497	031651	254 04 0 00 031652 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2498	031652	324 00 0 00 031653 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 22-4
DBKAAM	MAC	30-APR-76 16:57		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0066

  2499
  2500					;**********
  2501
  2502					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2503					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2504					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2505					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2506					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2507			005515		SN=SN+1
  2508			010000			ZZ=ZZ+ZZ
  2509						IFE	ZZ,<ZZ=1>
  2510	031653	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2511	031654	204 00 0 00 035110 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2512	031655	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2513						STOP^
  2514	031656	254 04 0 00 031657 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2515	031657	324 00 0 00 031660 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2516
  2517					;**********
  2518
  2519					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2520					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2521					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2522					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2523					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2524			005516		SN=SN+1
  2525			020000			ZZ=ZZ+ZZ
  2526						IFE	ZZ,<ZZ=1>
  2527	031660	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2528	031661	204 00 0 00 035111 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2529	031662	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2530						STOP^
  2531	031663	254 04 0 00 031664 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2532	031664	324 00 0 00 031665 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2533
  2534					;**********
  2535
  2536					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2537					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2538					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2539					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2540					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2541			005517		SN=SN+1
  2542			040000			ZZ=ZZ+ZZ
  2543						IFE	ZZ,<ZZ=1>
  2544	031665	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2545	031666	204 00 0 00 035112 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2546	031667	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2547						STOP^
  2548	031670	254 04 0 00 031671 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2549	031671	324 00 0 00 031672 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2550
  2551					;**********
  2552
  2553					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 22-5
DBKAAM	MAC	30-APR-76 16:57		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0067

  2554					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2555					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2556					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2557					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2558			005520		SN=SN+1
  2559			100000			ZZ=ZZ+ZZ
  2560						IFE	ZZ,<ZZ=1>
  2561	031672	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2562	031673	204 00 0 00 035113 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2563	031674	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2564						STOP^
  2565	031675	254 04 0 00 031676 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2566	031676	324 00 0 00 031677 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2567
  2568					;**********
  2569
  2570					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2571					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2572					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2573					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2574					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2575			005521		SN=SN+1
  2576			200000			ZZ=ZZ+ZZ
  2577						IFE	ZZ,<ZZ=1>
  2578	031677	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2579	031700	204 00 0 00 035114 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2580	031701	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2581						STOP^
  2582	031702	254 04 0 00 031703 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2583	031703	324 00 0 00 031704 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2584
  2585					;**********
  2586
  2587					;THIS TEST VERIFIES THAT AR LT INPUT IS FUNCTIONING.  A WORD OF ALL ZER0S,
  2588					;EXCEPT FOR ONE ONE IN THE RIGHT HALF IS SWAPPED.
  2589					;THE AC IS CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES
  2590					;IF C(AC) IS NON-ZERO. THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT
  2591					;OF THE LEFT HALF OF THE AC IS TESTED WITH A 1.
  2592			005522		SN=SN+1
  2593			400000			ZZ=ZZ+ZZ
  2594						IFE	ZZ,<ZZ=1>
  2595	031704	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2596	031705	204 00 0 00 035115 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2597	031706	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2598						STOP^
  2599	031707	254 04 0 00 031710 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2600	031710	324 00 0 00 031711 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2601
  2602					;**********
  2603
  2604			005600		SN=5600
  2605
  2606					A5600:	REPEAT	^D18,
  2607					<;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2608					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 22-6
DBKAAM	MAC	30-APR-76 16:57		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0068

  2609					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2610					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2611					;HALF OF THE AC IS TESTED WITH A 1.
  2612					
  2613					SN=SN+1
  2614						ZZ=ZZ+ZZ
  2615						MOVE	[0]		;CLEAR AC
  2616						MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2617						SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2618						STOP
  2619					
  2620					;**********
  2621					>
  2622					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2623					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2624					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2625					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2626					;HALF OF THE AC IS TESTED WITH A 1.
  2627
  2628			005601		SN=SN+1
  2629		000001	000000			ZZ=ZZ+ZZ
  2630	031711	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2631	031712	204 00 0 00 035116 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2632	031713	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2633						STOP^
  2634	031714	254 04 0 00 031715 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2635	031715	324 00 0 00 031716 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2636
  2637					;**********
  2638
  2639					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2640					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2641					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2642					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2643					;HALF OF THE AC IS TESTED WITH A 1.
  2644
  2645			005602		SN=SN+1
  2646		000002	000000			ZZ=ZZ+ZZ
  2647	031716	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2648	031717	204 00 0 00 035117 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2649	031720	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2650						STOP^
  2651	031721	254 04 0 00 031722 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2652	031722	324 00 0 00 031723 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2653
  2654					;**********
  2655
  2656					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2657					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2658					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2659					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2660					;HALF OF THE AC IS TESTED WITH A 1.
  2661
  2662			005603		SN=SN+1
  2663		000004	000000			ZZ=ZZ+ZZ
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 22-7
DBKAAM	MAC	30-APR-76 16:57		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0069

  2664	031723	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2665	031724	204 00 0 00 035120 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2666	031725	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2667						STOP^
  2668	031726	254 04 0 00 031727 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2669	031727	324 00 0 00 031730 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2670
  2671					;**********
  2672
  2673					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2674					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2675					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2676					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2677					;HALF OF THE AC IS TESTED WITH A 1.
  2678
  2679			005604		SN=SN+1
  2680		000010	000000			ZZ=ZZ+ZZ
  2681	031730	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2682	031731	204 00 0 00 035121 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2683	031732	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2684						STOP^
  2685	031733	254 04 0 00 031734 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2686	031734	324 00 0 00 031735 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2687
  2688					;**********
  2689
  2690					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2691					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2692					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2693					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2694					;HALF OF THE AC IS TESTED WITH A 1.
  2695
  2696			005605		SN=SN+1
  2697		000020	000000			ZZ=ZZ+ZZ
  2698	031735	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2699	031736	204 00 0 00 035122 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2700	031737	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2701						STOP^
  2702	031740	254 04 0 00 031741 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2703	031741	324 00 0 00 031742 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2704
  2705					;**********
  2706
  2707					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2708					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2709					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2710					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2711					;HALF OF THE AC IS TESTED WITH A 1.
  2712
  2713			005606		SN=SN+1
  2714		000040	000000			ZZ=ZZ+ZZ
  2715	031742	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2716	031743	204 00 0 00 035123 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2717	031744	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2718						STOP^
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 22-8
DBKAAM	MAC	30-APR-76 16:57		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0070

  2719	031745	254 04 0 00 031746 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2720	031746	324 00 0 00 031747 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2721
  2722					;**********
  2723
  2724					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2725					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2726					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2727					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2728					;HALF OF THE AC IS TESTED WITH A 1.
  2729
  2730			005607		SN=SN+1
  2731		000100	000000			ZZ=ZZ+ZZ
  2732	031747	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2733	031750	204 00 0 00 035124 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2734	031751	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2735						STOP^
  2736	031752	254 04 0 00 031753 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2737	031753	324 00 0 00 031754 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2738
  2739					;**********
  2740
  2741					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2742					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2743					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2744					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2745					;HALF OF THE AC IS TESTED WITH A 1.
  2746
  2747			005610		SN=SN+1
  2748		000200	000000			ZZ=ZZ+ZZ
  2749	031754	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2750	031755	204 00 0 00 035125 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2751	031756	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2752						STOP^
  2753	031757	254 04 0 00 031760 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2754	031760	324 00 0 00 031761 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2755
  2756					;**********
  2757
  2758					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2759					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2760					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2761					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2762					;HALF OF THE AC IS TESTED WITH A 1.
  2763
  2764			005611		SN=SN+1
  2765		000400	000000			ZZ=ZZ+ZZ
  2766	031761	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2767	031762	204 00 0 00 035073 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2768	031763	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2769						STOP^
  2770	031764	254 04 0 00 031765 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2771	031765	324 00 0 00 031766 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2772
  2773					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 22-9
DBKAAM	MAC	30-APR-76 16:57		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0071

  2774
  2775					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2776					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2777					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2778					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2779					;HALF OF THE AC IS TESTED WITH A 1.
  2780
  2781			005612		SN=SN+1
  2782		001000	000000			ZZ=ZZ+ZZ
  2783	031766	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2784	031767	204 00 0 00 035126 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2785	031770	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2786						STOP^
  2787	031771	254 04 0 00 031772 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2788	031772	324 00 0 00 031773 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2789
  2790					;**********
  2791
  2792					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2793					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2794					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2795					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2796					;HALF OF THE AC IS TESTED WITH A 1.
  2797
  2798			005613		SN=SN+1
  2799		002000	000000			ZZ=ZZ+ZZ
  2800	031773	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2801	031774	204 00 0 00 035127 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2802	031775	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2803						STOP^
  2804	031776	254 04 0 00 031777 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2805	031777	324 00 0 00 032000 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2806
  2807					;**********
  2808
  2809					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2810					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2811					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2812					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2813					;HALF OF THE AC IS TESTED WITH A 1.
  2814
  2815			005614		SN=SN+1
  2816		004000	000000			ZZ=ZZ+ZZ
  2817	032000	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2818	032001	204 00 0 00 035130 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2819	032002	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2820						STOP^
  2821	032003	254 04 0 00 032004 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2822	032004	324 00 0 00 032005 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2823
  2824					;**********
  2825
  2826					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2827					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2828					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 22-10
DBKAAM	MAC	30-APR-76 16:57		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0072

  2829					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2830					;HALF OF THE AC IS TESTED WITH A 1.
  2831
  2832			005615		SN=SN+1
  2833		010000	000000			ZZ=ZZ+ZZ
  2834	032005	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2835	032006	204 00 0 00 035131 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2836	032007	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2837						STOP^
  2838	032010	254 04 0 00 032011 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2839	032011	324 00 0 00 032012 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2840
  2841					;**********
  2842
  2843					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2844					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2845					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2846					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2847					;HALF OF THE AC IS TESTED WITH A 1.
  2848
  2849			005616		SN=SN+1
  2850		020000	000000			ZZ=ZZ+ZZ
  2851	032012	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2852	032013	204 00 0 00 035132 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2853	032014	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2854						STOP^
  2855	032015	254 04 0 00 032016 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2856	032016	324 00 0 00 032017 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2857
  2858					;**********
  2859
  2860					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2861					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2862					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2863					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2864					;HALF OF THE AC IS TESTED WITH A 1.
  2865
  2866			005617		SN=SN+1
  2867		040000	000000			ZZ=ZZ+ZZ
  2868	032017	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2869	032020	204 00 0 00 035133 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2870	032021	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2871						STOP^
  2872	032022	254 04 0 00 032023 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2873	032023	324 00 0 00 032024 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2874
  2875					;**********
  2876
  2877					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2878					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2879					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2880					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2881					;HALF OF THE AC IS TESTED WITH A 1.
  2882
  2883			005620		SN=SN+1
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 22-11
DBKAAM	MAC	30-APR-76 16:57		TEST OF SKIP, FULL WORD TRANSFER AND HALF WORD TRANSFER INSTRUCTIONS               SEQ 0073

  2884		100000	000000			ZZ=ZZ+ZZ
  2885	032024	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2886	032025	204 00 0 00 035134 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2887	032026	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2888						STOP^
  2889	032027	254 04 0 00 032030 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2890	032030	324 00 0 00 032031 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2891
  2892					;**********
  2893
  2894					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2895					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2896					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2897					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2898					;HALF OF THE AC IS TESTED WITH A 1.
  2899
  2900			005621		SN=SN+1
  2901		200000	000000			ZZ=ZZ+ZZ
  2902	032031	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2903	032032	204 00 0 00 035135 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2904	032033	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2905						STOP^
  2906	032034	254 04 0 00 032035 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2907	032035	324 00 0 00 032036 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2908
  2909					;**********
  2910
  2911					;THIS TEST VERIFIES THAT AR RT INPUT IS FUNCTIONING.  A WORD OF ALL
  2912					;ZEROS, EXCEPT FOR ONE ONE IN THE LEFT HALF IS SWAPPED.  THE AC IS
  2913					;CHECKED FOR ITS CONTENTS NON-ZERO.  THE TEST PASSES IF C(AC) IS
  2914					;NON-ZERO.  THIS TEST IS REPEATED 18 TIMES SO THAT EACH BIT OF THE RIGHT
  2915					;HALF OF THE AC IS TESTED WITH A 1.
  2916
  2917			005622		SN=SN+1
  2918		400000	000000			ZZ=ZZ+ZZ
  2919	032036	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  2920	032037	204 00 0 00 035065 		MOVS	[ZZ]		;*MOVS SHOULD RESULT WITH A NON-ZERO WORD IN THE AC
  2921	032040	336 00 0 00 000000 		SKIPN			;SKIP HALT INSTRUCTION IF SET BIT IS NOT LOST IN SWAP.
  2922						STOP^
  2923	032041	254 04 0 00 032042 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2924	032042	324 00 0 00 032043 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2925
  2926					;**********
  2927
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 23
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0074

  2928					SUBTTL	TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)
  2929
  2930					;THIS TEST VERIFIES THAT SETM LOADS AC FROM E.  THE AC IS FIRST SET
  2931					;TO ZERO; THEN, SETM IS EXECUTED WITH ALL ONES IN E.  BIT 0 OF THE AC
  2932					;IS THEN CHECKED FOR A 1.
  2933
  2934	032043	200 00 0 00 035062 	A5700:	MOVE	[0]		;PRELOAD AC WITH ALL ZEROS
  2935	032044	414 00 0 00 035063 		SETM	[-1]		;*SETM SHOULD LOAD AC WITH ALL ONES
  2936	032045	331 00 0 00 000000 		SKIPL			;PASS TEST IF AC BIT 0 IS A ONE
  2937						STOP^
  2938	032046	254 04 0 00 032047 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2939	032047	324 00 0 00 032050 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2940					;FCE [F1], IR BOOLE [IR1], IRXX(0,5,12,17) [IR2]
  2941
  2942					;**********
  2943
  2944					;THIS TEST VERIFIES THAT SETM LOADS AC FROM E.  THE AC IS FIRST SET TO
  2945					;ALL ONES; THEN, SETM IS EXECUTED WITH ALL ZEROS IN E.  THE AC IS CHECKED
  2946					;FOR ALL ZEROS
  2947
  2948	032050	200 00 0 00 035063 	A6000:	MOVE	[-1]		;PRESET AC TO ALL ONES
  2949	032051	414 00 0 00 035062 		SETM	[0]		;*SETM SHOULD LOAD AC WITH ALL ONES
  2950	032052	332 00 0 00 000000 		SKIPE			;PASSES TEST IF C(AC) = 0
  2951						STOP^
  2952	032053	254 04 0 00 032054 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2953	032054	324 00 0 00 032055 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2954
  2955					;AD AR + EN [ADAP], AD AR + EN C[ADAP],
  2956					;F CYC ACT EN A[F1], IR BOOLE AD A +F[IR2],
  2957					;IR BOOLE [IR1], IRXX(1-3,6,11,15,16) [IR2]
  2958
  2959					;**********
  2960
  2961					;THIS TEST VERIFIES THAT SETZ LOADS TH AC WITH ALL ZEROS.  FIRST, A WORD
  2962					;OF ALL ZEROS IS LOADED INTO THE AC VIA A MOVE INSTC. THEN, SETZ IS
  2963					;EXECUTED.  THE AC IS CHECKED FOR ALL ZEROS.
  2964					;IF ANY BITS IN THE AC ARE SET, THE TEST FAILS.
  2965
  2966	032055	200 00 0 00 035062 	A6100:	MOVE	[0]		;RESET AC TO ALL ZEROS
  2967	032056	400 00 0 00 000000 		SETZ			;*SETZ SHOULD CLEAR THE AC
  2968	032057	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC) = 0
  2969						STOP^
  2970	032060	254 04 0 00 032061 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2971	032061	324 00 0 00 032062 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2972
  2973					;AD MASK GEN EN [ADC1], AD MASK GEN F/F'S [ADC1]
  2974					;AD MASK EN B; F CYC ACT EN B[F1]; IRXX00 [IR1];
  2975					;IR BOOLE [IR1]
  2976
  2977					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0075

  2978					;THIS TEST VERIFIES THAT SETZ LOADS THE AC WITH ALL ZEROS.  FIRST,
  2979					;THE AC IS SET TO ALL ONES; THEN, SETZ IS EXECUTED.  THE AC IS THEN
  2980					;CHECKED FOR ALL ZEROS.  IF ANY BITS IN THE AC ARE SET, THE TEST FAILS.
  2981
  2982	032062	200 00 0 00 035063 	A6200:	MOVE	[-1]		;PRESET AC TO ALL ONES
  2983	032063	400 00 0 00 032063 		SETZ	.		;*SETZ SHOULD CLEAR THE AC
  2984	032064	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC) = 0
  2985						STOP^
  2986	032065	254 04 0 00 032066 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  2987	032066	324 00 0 00 032067 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  2988
  2989					;AR AD EN [ARMA], AR AD ET2 EN [ARMA], IR BOOLE [IR]
  2990
  2991					;**********
  2992
  2993					;THIS TEST VERIFIES THAT THE AND INSTRUCTION OPERATING ON AN AC
  2994					;CONTAINING ALL ZEROS AND AN E CONTAINING ALL ZEROS RESULTS IN AN AC
  2995					;OF ALL ZEROS.  THE AC AND E ARE THE SAME IN THIS TEST.
  2996					;AC, E ARE LOADED WITH ZEROS; THEN, AND IS EXECUTED.  THE AC IS THEN
  2997					;CHECKED FOR ALL ZEROS.  IF ANY BITS IN THE AC ARE SET BY THE AND INSTRUCTION,
  2998					;THE TEST FAILS.
  2999
  3000
  3001	032067	200 00 0 00 035062 	A6300:	MOVE	[0]		;PRESET AC, E TO ALL ZEROS
  3002	032070	404 00 0 00 000000 		AND			;*AND SHOULD RESULT IN C(AC) = 0
  3003	032071	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC) = 0
  3004						STOP^
  3005	032072	254 04 0 00 032073 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3006	032073	324 00 0 00 032074 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3007
  3008					;**********
  3009			006400		SN=6400
  3010			000000			ZZ=0
  3011
  3012					A6400:	REPEAT	^D36,
  3013					<;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3014					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3015					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3016					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3017					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3018					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3019					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3020					
  3021					SN=SN+1
  3022						ZZ=ZZ+ZZ
  3023						IFE	ZZ,<ZZ=1>
  3024						SETZ			;PRESET E TO ALL ZEROS
  3025						MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3026									;WHERE X VARIES FROM 0 THRU 35
  3027						AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3028						SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3029						STOP
  3030						SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3031						STOP
  3032					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24-1
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0076

  3033					>
  3034					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3035					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3036					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3037					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3038					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3039					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3040					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3041
  3042			006401		SN=SN+1
  3043			000000			ZZ=ZZ+ZZ
  3044			000001			IFE	ZZ,<ZZ=1>
  3045	032074	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3046	032075	200 01 0 00 035074 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3047									;WHERE X VARIES FROM 0 THRU 35
  3048	032076	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3049	032077	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3050						STOP^
  3051	032100	254 04 0 00 032101 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3052	032101	324 00 0 00 032102 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3053	032102	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3054						STOP^
  3055	032103	254 04 0 00 032104 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3056	032104	324 00 0 00 032105 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3057					;**********
  3058
  3059					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3060					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3061					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3062					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3063					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3064					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3065					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3066
  3067			006402		SN=SN+1
  3068			000002			ZZ=ZZ+ZZ
  3069						IFE	ZZ,<ZZ=1>
  3070	032105	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3071	032106	200 01 0 00 035075 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3072									;WHERE X VARIES FROM 0 THRU 35
  3073	032107	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3074	032110	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3075						STOP^
  3076	032111	254 04 0 00 032112 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3077	032112	324 00 0 00 032113 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3078	032113	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3079						STOP^
  3080	032114	254 04 0 00 032115 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3081	032115	324 00 0 00 032116 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3082					;**********
  3083
  3084					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3085					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3086					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3087					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24-2
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0077

  3088					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3089					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3090					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3091
  3092			006403		SN=SN+1
  3093			000004			ZZ=ZZ+ZZ
  3094						IFE	ZZ,<ZZ=1>
  3095	032116	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3096	032117	200 01 0 00 035076 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3097									;WHERE X VARIES FROM 0 THRU 35
  3098	032120	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3099	032121	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3100						STOP^
  3101	032122	254 04 0 00 032123 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3102	032123	324 00 0 00 032124 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3103	032124	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3104						STOP^
  3105	032125	254 04 0 00 032126 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3106	032126	324 00 0 00 032127 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3107					;**********
  3108
  3109					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3110					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3111					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3112					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3113					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3114					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3115					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3116
  3117			006404		SN=SN+1
  3118			000010			ZZ=ZZ+ZZ
  3119						IFE	ZZ,<ZZ=1>
  3120	032127	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3121	032130	200 01 0 00 035077 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3122									;WHERE X VARIES FROM 0 THRU 35
  3123	032131	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3124	032132	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3125						STOP^
  3126	032133	254 04 0 00 032134 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3127	032134	324 00 0 00 032135 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3128	032135	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3129						STOP^
  3130	032136	254 04 0 00 032137 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3131	032137	324 00 0 00 032140 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3132					;**********
  3133
  3134					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3135					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3136					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3137					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3138					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3139					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3140					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3141
  3142			006405		SN=SN+1
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24-3
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0078

  3143			000020			ZZ=ZZ+ZZ
  3144						IFE	ZZ,<ZZ=1>
  3145	032140	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3146	032141	200 01 0 00 035100 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3147									;WHERE X VARIES FROM 0 THRU 35
  3148	032142	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3149	032143	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3150						STOP^
  3151	032144	254 04 0 00 032145 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3152	032145	324 00 0 00 032146 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3153	032146	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3154						STOP^
  3155	032147	254 04 0 00 032150 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3156	032150	324 00 0 00 032151 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3157					;**********
  3158
  3159					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3160					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3161					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3162					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3163					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3164					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3165					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3166
  3167			006406		SN=SN+1
  3168			000040			ZZ=ZZ+ZZ
  3169						IFE	ZZ,<ZZ=1>
  3170	032151	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3171	032152	200 01 0 00 035101 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3172									;WHERE X VARIES FROM 0 THRU 35
  3173	032153	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3174	032154	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3175						STOP^
  3176	032155	254 04 0 00 032156 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3177	032156	324 00 0 00 032157 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3178	032157	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3179						STOP^
  3180	032160	254 04 0 00 032161 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3181	032161	324 00 0 00 032162 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3182					;**********
  3183
  3184					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3185					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3186					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3187					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3188					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3189					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3190					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3191
  3192			006407		SN=SN+1
  3193			000100			ZZ=ZZ+ZZ
  3194						IFE	ZZ,<ZZ=1>
  3195	032162	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3196	032163	200 01 0 00 035102 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3197									;WHERE X VARIES FROM 0 THRU 35
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24-4
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0079

  3198	032164	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3199	032165	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3200						STOP^
  3201	032166	254 04 0 00 032167 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3202	032167	324 00 0 00 032170 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3203	032170	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3204						STOP^
  3205	032171	254 04 0 00 032172 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3206	032172	324 00 0 00 032173 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3207					;**********
  3208
  3209					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3210					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3211					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3212					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3213					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3214					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3215					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3216
  3217			006410		SN=SN+1
  3218			000200			ZZ=ZZ+ZZ
  3219						IFE	ZZ,<ZZ=1>
  3220	032173	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3221	032174	200 01 0 00 035103 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3222									;WHERE X VARIES FROM 0 THRU 35
  3223	032175	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3224	032176	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3225						STOP^
  3226	032177	254 04 0 00 032200 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3227	032200	324 00 0 00 032201 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3228	032201	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3229						STOP^
  3230	032202	254 04 0 00 032203 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3231	032203	324 00 0 00 032204 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3232					;**********
  3233
  3234					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3235					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3236					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3237					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3238					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3239					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3240					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3241
  3242			006411		SN=SN+1
  3243			000400			ZZ=ZZ+ZZ
  3244						IFE	ZZ,<ZZ=1>
  3245	032204	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3246	032205	200 01 0 00 035104 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3247									;WHERE X VARIES FROM 0 THRU 35
  3248	032206	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3249	032207	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3250						STOP^
  3251	032210	254 04 0 00 032211 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3252	032211	324 00 0 00 032212 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24-5
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0080

  3253	032212	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3254						STOP^
  3255	032213	254 04 0 00 032214 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3256	032214	324 00 0 00 032215 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3257					;**********
  3258
  3259					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3260					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3261					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3262					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3263					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3264					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3265					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3266
  3267			006412		SN=SN+1
  3268			001000			ZZ=ZZ+ZZ
  3269						IFE	ZZ,<ZZ=1>
  3270	032215	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3271	032216	200 01 0 00 035105 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3272									;WHERE X VARIES FROM 0 THRU 35
  3273	032217	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3274	032220	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3275						STOP^
  3276	032221	254 04 0 00 032222 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3277	032222	324 00 0 00 032223 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3278	032223	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3279						STOP^
  3280	032224	254 04 0 00 032225 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3281	032225	324 00 0 00 032226 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3282					;**********
  3283
  3284					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3285					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3286					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3287					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3288					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3289					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3290					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3291
  3292			006413		SN=SN+1
  3293			002000			ZZ=ZZ+ZZ
  3294						IFE	ZZ,<ZZ=1>
  3295	032226	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3296	032227	200 01 0 00 035106 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3297									;WHERE X VARIES FROM 0 THRU 35
  3298	032230	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3299	032231	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3300						STOP^
  3301	032232	254 04 0 00 032233 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3302	032233	324 00 0 00 032234 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3303	032234	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3304						STOP^
  3305	032235	254 04 0 00 032236 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3306	032236	324 00 0 00 032237 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3307					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24-6
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0081

  3308
  3309					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3310					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3311					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3312					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3313					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3314					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3315					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3316
  3317			006414		SN=SN+1
  3318			004000			ZZ=ZZ+ZZ
  3319						IFE	ZZ,<ZZ=1>
  3320	032237	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3321	032240	200 01 0 00 035107 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3322									;WHERE X VARIES FROM 0 THRU 35
  3323	032241	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3324	032242	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3325						STOP^
  3326	032243	254 04 0 00 032244 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3327	032244	324 00 0 00 032245 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3328	032245	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3329						STOP^
  3330	032246	254 04 0 00 032247 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3331	032247	324 00 0 00 032250 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3332					;**********
  3333
  3334					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3335					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3336					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3337					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3338					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3339					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3340					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3341
  3342			006415		SN=SN+1
  3343			010000			ZZ=ZZ+ZZ
  3344						IFE	ZZ,<ZZ=1>
  3345	032250	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3346	032251	200 01 0 00 035110 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3347									;WHERE X VARIES FROM 0 THRU 35
  3348	032252	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3349	032253	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3350						STOP^
  3351	032254	254 04 0 00 032255 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3352	032255	324 00 0 00 032256 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3353	032256	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3354						STOP^
  3355	032257	254 04 0 00 032260 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3356	032260	324 00 0 00 032261 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3357					;**********
  3358
  3359					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3360					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3361					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3362					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24-7
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0082

  3363					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3364					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3365					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3366
  3367			006416		SN=SN+1
  3368			020000			ZZ=ZZ+ZZ
  3369						IFE	ZZ,<ZZ=1>
  3370	032261	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3371	032262	200 01 0 00 035111 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3372									;WHERE X VARIES FROM 0 THRU 35
  3373	032263	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3374	032264	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3375						STOP^
  3376	032265	254 04 0 00 032266 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3377	032266	324 00 0 00 032267 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3378	032267	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3379						STOP^
  3380	032270	254 04 0 00 032271 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3381	032271	324 00 0 00 032272 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3382					;**********
  3383
  3384					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3385					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3386					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3387					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3388					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3389					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3390					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3391
  3392			006417		SN=SN+1
  3393			040000			ZZ=ZZ+ZZ
  3394						IFE	ZZ,<ZZ=1>
  3395	032272	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3396	032273	200 01 0 00 035112 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3397									;WHERE X VARIES FROM 0 THRU 35
  3398	032274	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3399	032275	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3400						STOP^
  3401	032276	254 04 0 00 032277 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3402	032277	324 00 0 00 032300 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3403	032300	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3404						STOP^
  3405	032301	254 04 0 00 032302 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3406	032302	324 00 0 00 032303 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3407					;**********
  3408
  3409					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3410					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3411					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3412					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3413					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3414					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3415					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3416
  3417			006420		SN=SN+1
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24-8
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0083

  3418			100000			ZZ=ZZ+ZZ
  3419						IFE	ZZ,<ZZ=1>
  3420	032303	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3421	032304	200 01 0 00 035113 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3422									;WHERE X VARIES FROM 0 THRU 35
  3423	032305	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3424	032306	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3425						STOP^
  3426	032307	254 04 0 00 032310 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3427	032310	324 00 0 00 032311 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3428	032311	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3429						STOP^
  3430	032312	254 04 0 00 032313 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3431	032313	324 00 0 00 032314 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3432					;**********
  3433
  3434					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3435					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3436					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3437					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3438					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3439					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3440					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3441
  3442			006421		SN=SN+1
  3443			200000			ZZ=ZZ+ZZ
  3444						IFE	ZZ,<ZZ=1>
  3445	032314	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3446	032315	200 01 0 00 035114 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3447									;WHERE X VARIES FROM 0 THRU 35
  3448	032316	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3449	032317	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3450						STOP^
  3451	032320	254 04 0 00 032321 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3452	032321	324 00 0 00 032322 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3453	032322	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3454						STOP^
  3455	032323	254 04 0 00 032324 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3456	032324	324 00 0 00 032325 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3457					;**********
  3458
  3459					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3460					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3461					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3462					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3463					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3464					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3465					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3466
  3467			006422		SN=SN+1
  3468			400000			ZZ=ZZ+ZZ
  3469						IFE	ZZ,<ZZ=1>
  3470	032325	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3471	032326	200 01 0 00 035115 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3472									;WHERE X VARIES FROM 0 THRU 35
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24-9
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0084

  3473	032327	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3474	032330	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3475						STOP^
  3476	032331	254 04 0 00 032332 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3477	032332	324 00 0 00 032333 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3478	032333	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3479						STOP^
  3480	032334	254 04 0 00 032335 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3481	032335	324 00 0 00 032336 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3482					;**********
  3483
  3484					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3485					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3486					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3487					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3488					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3489					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3490					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3491
  3492			006423		SN=SN+1
  3493		000001	000000			ZZ=ZZ+ZZ
  3494						IFE	ZZ,<ZZ=1>
  3495	032336	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3496	032337	200 01 0 00 035116 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3497									;WHERE X VARIES FROM 0 THRU 35
  3498	032340	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3499	032341	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3500						STOP^
  3501	032342	254 04 0 00 032343 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3502	032343	324 00 0 00 032344 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3503	032344	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3504						STOP^
  3505	032345	254 04 0 00 032346 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3506	032346	324 00 0 00 032347 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3507					;**********
  3508
  3509					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3510					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3511					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3512					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3513					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3514					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3515					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3516
  3517			006424		SN=SN+1
  3518		000002	000000			ZZ=ZZ+ZZ
  3519						IFE	ZZ,<ZZ=1>
  3520	032347	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3521	032350	200 01 0 00 035117 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3522									;WHERE X VARIES FROM 0 THRU 35
  3523	032351	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3524	032352	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3525						STOP^
  3526	032353	254 04 0 00 032354 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3527	032354	324 00 0 00 032355 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24-10
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0085

  3528	032355	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3529						STOP^
  3530	032356	254 04 0 00 032357 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3531	032357	324 00 0 00 032360 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3532					;**********
  3533
  3534					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3535					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3536					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3537					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3538					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3539					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3540					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3541
  3542			006425		SN=SN+1
  3543		000004	000000			ZZ=ZZ+ZZ
  3544						IFE	ZZ,<ZZ=1>
  3545	032360	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3546	032361	200 01 0 00 035120 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3547									;WHERE X VARIES FROM 0 THRU 35
  3548	032362	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3549	032363	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3550						STOP^
  3551	032364	254 04 0 00 032365 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3552	032365	324 00 0 00 032366 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3553	032366	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3554						STOP^
  3555	032367	254 04 0 00 032370 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3556	032370	324 00 0 00 032371 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3557					;**********
  3558
  3559					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3560					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3561					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3562					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3563					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3564					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3565					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3566
  3567			006426		SN=SN+1
  3568		000010	000000			ZZ=ZZ+ZZ
  3569						IFE	ZZ,<ZZ=1>
  3570	032371	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3571	032372	200 01 0 00 035121 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3572									;WHERE X VARIES FROM 0 THRU 35
  3573	032373	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3574	032374	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3575						STOP^
  3576	032375	254 04 0 00 032376 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3577	032376	324 00 0 00 032377 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3578	032377	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3579						STOP^
  3580	032400	254 04 0 00 032401 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3581	032401	324 00 0 00 032402 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3582					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24-11
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0086

  3583
  3584					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3585					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3586					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3587					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3588					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3589					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3590					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3591
  3592			006427		SN=SN+1
  3593		000020	000000			ZZ=ZZ+ZZ
  3594						IFE	ZZ,<ZZ=1>
  3595	032402	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3596	032403	200 01 0 00 035122 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3597									;WHERE X VARIES FROM 0 THRU 35
  3598	032404	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3599	032405	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3600						STOP^
  3601	032406	254 04 0 00 032407 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3602	032407	324 00 0 00 032410 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3603	032410	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3604						STOP^
  3605	032411	254 04 0 00 032412 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3606	032412	324 00 0 00 032413 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3607					;**********
  3608
  3609					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3610					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3611					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3612					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3613					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3614					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3615					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3616
  3617			006430		SN=SN+1
  3618		000040	000000			ZZ=ZZ+ZZ
  3619						IFE	ZZ,<ZZ=1>
  3620	032413	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3621	032414	200 01 0 00 035123 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3622									;WHERE X VARIES FROM 0 THRU 35
  3623	032415	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3624	032416	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3625						STOP^
  3626	032417	254 04 0 00 032420 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3627	032420	324 00 0 00 032421 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3628	032421	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3629						STOP^
  3630	032422	254 04 0 00 032423 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3631	032423	324 00 0 00 032424 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3632					;**********
  3633
  3634					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3635					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3636					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3637					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24-12
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0087

  3638					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3639					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3640					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3641
  3642			006431		SN=SN+1
  3643		000100	000000			ZZ=ZZ+ZZ
  3644						IFE	ZZ,<ZZ=1>
  3645	032424	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3646	032425	200 01 0 00 035124 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3647									;WHERE X VARIES FROM 0 THRU 35
  3648	032426	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3649	032427	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3650						STOP^
  3651	032430	254 04 0 00 032431 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3652	032431	324 00 0 00 032432 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3653	032432	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3654						STOP^
  3655	032433	254 04 0 00 032434 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3656	032434	324 00 0 00 032435 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3657					;**********
  3658
  3659					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3660					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3661					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3662					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3663					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3664					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3665					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3666
  3667			006432		SN=SN+1
  3668		000200	000000			ZZ=ZZ+ZZ
  3669						IFE	ZZ,<ZZ=1>
  3670	032435	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3671	032436	200 01 0 00 035125 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3672									;WHERE X VARIES FROM 0 THRU 35
  3673	032437	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3674	032440	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3675						STOP^
  3676	032441	254 04 0 00 032442 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3677	032442	324 00 0 00 032443 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3678	032443	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3679						STOP^
  3680	032444	254 04 0 00 032445 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3681	032445	324 00 0 00 032446 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3682					;**********
  3683
  3684					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3685					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3686					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3687					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3688					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3689					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3690					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3691
  3692			006433		SN=SN+1
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24-13
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0088

  3693		000400	000000			ZZ=ZZ+ZZ
  3694						IFE	ZZ,<ZZ=1>
  3695	032446	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3696	032447	200 01 0 00 035073 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3697									;WHERE X VARIES FROM 0 THRU 35
  3698	032450	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3699	032451	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3700						STOP^
  3701	032452	254 04 0 00 032453 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3702	032453	324 00 0 00 032454 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3703	032454	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3704						STOP^
  3705	032455	254 04 0 00 032456 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3706	032456	324 00 0 00 032457 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3707					;**********
  3708
  3709					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3710					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3711					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3712					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3713					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3714					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3715					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3716
  3717			006434		SN=SN+1
  3718		001000	000000			ZZ=ZZ+ZZ
  3719						IFE	ZZ,<ZZ=1>
  3720	032457	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3721	032460	200 01 0 00 035126 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3722									;WHERE X VARIES FROM 0 THRU 35
  3723	032461	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3724	032462	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3725						STOP^
  3726	032463	254 04 0 00 032464 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3727	032464	324 00 0 00 032465 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3728	032465	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3729						STOP^
  3730	032466	254 04 0 00 032467 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3731	032467	324 00 0 00 032470 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3732					;**********
  3733
  3734					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3735					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3736					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3737					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3738					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3739					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3740					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3741
  3742			006435		SN=SN+1
  3743		002000	000000			ZZ=ZZ+ZZ
  3744						IFE	ZZ,<ZZ=1>
  3745	032470	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3746	032471	200 01 0 00 035127 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3747									;WHERE X VARIES FROM 0 THRU 35
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24-14
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0089

  3748	032472	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3749	032473	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3750						STOP^
  3751	032474	254 04 0 00 032475 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3752	032475	324 00 0 00 032476 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3753	032476	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3754						STOP^
  3755	032477	254 04 0 00 032500 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3756	032500	324 00 0 00 032501 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3757					;**********
  3758
  3759					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3760					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3761					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3762					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3763					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3764					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3765					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3766
  3767			006436		SN=SN+1
  3768		004000	000000			ZZ=ZZ+ZZ
  3769						IFE	ZZ,<ZZ=1>
  3770	032501	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3771	032502	200 01 0 00 035130 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3772									;WHERE X VARIES FROM 0 THRU 35
  3773	032503	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3774	032504	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3775						STOP^
  3776	032505	254 04 0 00 032506 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3777	032506	324 00 0 00 032507 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3778	032507	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3779						STOP^
  3780	032510	254 04 0 00 032511 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3781	032511	324 00 0 00 032512 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3782					;**********
  3783
  3784					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3785					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3786					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3787					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3788					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3789					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3790					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3791
  3792			006437		SN=SN+1
  3793		010000	000000			ZZ=ZZ+ZZ
  3794						IFE	ZZ,<ZZ=1>
  3795	032512	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3796	032513	200 01 0 00 035131 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3797									;WHERE X VARIES FROM 0 THRU 35
  3798	032514	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3799	032515	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3800						STOP^
  3801	032516	254 04 0 00 032517 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3802	032517	324 00 0 00 032520 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24-15
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0090

  3803	032520	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3804						STOP^
  3805	032521	254 04 0 00 032522 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3806	032522	324 00 0 00 032523 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3807					;**********
  3808
  3809					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3810					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3811					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3812					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3813					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3814					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3815					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3816
  3817			006440		SN=SN+1
  3818		020000	000000			ZZ=ZZ+ZZ
  3819						IFE	ZZ,<ZZ=1>
  3820	032523	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3821	032524	200 01 0 00 035132 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3822									;WHERE X VARIES FROM 0 THRU 35
  3823	032525	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3824	032526	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3825						STOP^
  3826	032527	254 04 0 00 032530 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3827	032530	324 00 0 00 032531 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3828	032531	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3829						STOP^
  3830	032532	254 04 0 00 032533 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3831	032533	324 00 0 00 032534 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3832					;**********
  3833
  3834					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3835					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3836					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3837					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3838					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3839					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3840					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3841
  3842			006441		SN=SN+1
  3843		040000	000000			ZZ=ZZ+ZZ
  3844						IFE	ZZ,<ZZ=1>
  3845	032534	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3846	032535	200 01 0 00 035133 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3847									;WHERE X VARIES FROM 0 THRU 35
  3848	032536	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3849	032537	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3850						STOP^
  3851	032540	254 04 0 00 032541 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3852	032541	324 00 0 00 032542 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3853	032542	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3854						STOP^
  3855	032543	254 04 0 00 032544 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3856	032544	324 00 0 00 032545 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3857					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24-16
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0091

  3858
  3859					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3860					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3861					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3862					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3863					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3864					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3865					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3866
  3867			006442		SN=SN+1
  3868		100000	000000			ZZ=ZZ+ZZ
  3869						IFE	ZZ,<ZZ=1>
  3870	032545	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3871	032546	200 01 0 00 035134 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3872									;WHERE X VARIES FROM 0 THRU 35
  3873	032547	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3874	032550	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3875						STOP^
  3876	032551	254 04 0 00 032552 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3877	032552	324 00 0 00 032553 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3878	032553	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3879						STOP^
  3880	032554	254 04 0 00 032555 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3881	032555	324 00 0 00 032556 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3882					;**********
  3883
  3884					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3885					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3886					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3887					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
  3888					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3889					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3890					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3891
  3892			006443		SN=SN+1
  3893		200000	000000			ZZ=ZZ+ZZ
  3894						IFE	ZZ,<ZZ=1>
  3895	032556	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3896	032557	200 01 0 00 035135 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3897									;WHERE X VARIES FROM 0 THRU 35
  3898	032560	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3899	032561	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3900						STOP^
  3901	032562	254 04 0 00 032563 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3902	032563	324 00 0 00 032564 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3903	032564	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3904						STOP^
  3905	032565	254 04 0 00 032566 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3906	032566	324 00 0 00 032567 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3907					;**********
  3908
  3909					;THIS TEST VERIFIES THAT IF ONE OF THE OPERANDS OF THE AND INSTRUCTION
  3910					;IS ZERO, THE RESULT WILL BE ZERO.  THIS TEST IS REPEATED 36 TIMES WITH
  3911					;ALL ZEROS IN THE AC EXCEPT FOR ONE ONE IN BIT X
  3912					;WHERE X TAKES ON INTEGER VALUES 0 THRU 35.  E CONTAINS ALL ZEROS.
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 24-17
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0092

  3913					;THE RESULT SHOULD BE ALL ZEROS IN THE AC.  IF C(AC) IS NON-ZERO,
  3914					;'AND' FAILED.  C(0) IS ALSO CHECKED FOR ALL ZEROS.  IF C(0) IS
  3915					;NON-ZERO, AC0 WAS CLOBBERED BY 'AND'.
  3916
  3917			006444		SN=SN+1
  3918		400000	000000			ZZ=ZZ+ZZ
  3919						IFE	ZZ,<ZZ=1>
  3920	032567	400 00 0 00 000000 		SETZ			;PRESET E TO ALL ZEROS
  3921	032570	200 01 0 00 035065 		MOVE	1,[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN BIT X
  3922									;WHERE X VARIES FROM 0 THRU 35
  3923	032571	404 01 0 00 000000 		AND	1,0		;*AND SHOULD RESULT IN C(AC) = 0
  3924	032572	332 00 0 00 000001 		SKIPE	1		;FAIL IF C(AC) NON-ZERO
  3925						STOP^
  3926	032573	254 04 0 00 032574 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3927	032574	324 00 0 00 032575 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3928	032575	332 00 0 00 000000 		SKIPE	0		;FAIL IF C(0) IS NON-ZERO
  3929						STOP^
  3930	032576	254 04 0 00 032577 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3931	032577	324 00 0 00 032600 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3932					;**********
  3933
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 25
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0093

  3934			006500		SN=6500
  3935			000000			ZZ=0
  3936
  3937					A6500:	REPEAT	^D36,
  3938					<;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  3939					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  3940					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  3941					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  3942					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  3943					SN=SN+1
  3944						ZZ=ZZ+ZZ
  3945						IFE	ZZ,<ZZ=1>
  3946						MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  3947						AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  3948									;POSITION WITH ITSELF SHOULD RESULT WITH
  3949									;C(AC) NONZERO
  3950						SKIPN			;PASS TEST IF C(AC) NONZERO
  3951						STOP
  3952					
  3953					;**********
  3954					>
  3955					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  3956					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  3957					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  3958					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  3959					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  3960			006501		SN=SN+1
  3961			000000			ZZ=ZZ+ZZ
  3962			000001			IFE	ZZ,<ZZ=1>
  3963	032600	200 00 0 00 035074 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  3964	032601	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  3965									;POSITION WITH ITSELF SHOULD RESULT WITH
  3966									;C(AC) NONZERO
  3967	032602	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  3968						STOP^
  3969	032603	254 04 0 00 032604 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  3970	032604	324 00 0 00 032605 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3971
  3972					;**********
  3973
  3974					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  3975					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  3976					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  3977					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  3978					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  3979			006502		SN=SN+1
  3980			000002			ZZ=ZZ+ZZ
  3981						IFE	ZZ,<ZZ=1>
  3982	032605	200 00 0 00 035075 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  3983	032606	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  3984									;POSITION WITH ITSELF SHOULD RESULT WITH
  3985									;C(AC) NONZERO
  3986	032607	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  3987						STOP^
  3988	032610	254 04 0 00 032611 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 25-1
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0094

  3989	032611	324 00 0 00 032612 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  3990
  3991					;**********
  3992
  3993					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  3994					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  3995					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  3996					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  3997					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  3998			006503		SN=SN+1
  3999			000004			ZZ=ZZ+ZZ
  4000						IFE	ZZ,<ZZ=1>
  4001	032612	200 00 0 00 035076 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4002	032613	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4003									;POSITION WITH ITSELF SHOULD RESULT WITH
  4004									;C(AC) NONZERO
  4005	032614	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4006						STOP^
  4007	032615	254 04 0 00 032616 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4008	032616	324 00 0 00 032617 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4009
  4010					;**********
  4011
  4012					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4013					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4014					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4015					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4016					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4017			006504		SN=SN+1
  4018			000010			ZZ=ZZ+ZZ
  4019						IFE	ZZ,<ZZ=1>
  4020	032617	200 00 0 00 035077 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4021	032620	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4022									;POSITION WITH ITSELF SHOULD RESULT WITH
  4023									;C(AC) NONZERO
  4024	032621	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4025						STOP^
  4026	032622	254 04 0 00 032623 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4027	032623	324 00 0 00 032624 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4028
  4029					;**********
  4030
  4031					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4032					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4033					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4034					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4035					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4036			006505		SN=SN+1
  4037			000020			ZZ=ZZ+ZZ
  4038						IFE	ZZ,<ZZ=1>
  4039	032624	200 00 0 00 035100 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4040	032625	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4041									;POSITION WITH ITSELF SHOULD RESULT WITH
  4042									;C(AC) NONZERO
  4043	032626	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 25-2
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0095

  4044						STOP^
  4045	032627	254 04 0 00 032630 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4046	032630	324 00 0 00 032631 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4047
  4048					;**********
  4049
  4050					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4051					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4052					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4053					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4054					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4055			006506		SN=SN+1
  4056			000040			ZZ=ZZ+ZZ
  4057						IFE	ZZ,<ZZ=1>
  4058	032631	200 00 0 00 035101 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4059	032632	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4060									;POSITION WITH ITSELF SHOULD RESULT WITH
  4061									;C(AC) NONZERO
  4062	032633	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4063						STOP^
  4064	032634	254 04 0 00 032635 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4065	032635	324 00 0 00 032636 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4066
  4067					;**********
  4068
  4069					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4070					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4071					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4072					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4073					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4074			006507		SN=SN+1
  4075			000100			ZZ=ZZ+ZZ
  4076						IFE	ZZ,<ZZ=1>
  4077	032636	200 00 0 00 035102 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4078	032637	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4079									;POSITION WITH ITSELF SHOULD RESULT WITH
  4080									;C(AC) NONZERO
  4081	032640	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4082						STOP^
  4083	032641	254 04 0 00 032642 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4084	032642	324 00 0 00 032643 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4085
  4086					;**********
  4087
  4088					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4089					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4090					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4091					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4092					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4093			006510		SN=SN+1
  4094			000200			ZZ=ZZ+ZZ
  4095						IFE	ZZ,<ZZ=1>
  4096	032643	200 00 0 00 035103 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4097	032644	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4098									;POSITION WITH ITSELF SHOULD RESULT WITH
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 25-3
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0096

  4099									;C(AC) NONZERO
  4100	032645	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4101						STOP^
  4102	032646	254 04 0 00 032647 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4103	032647	324 00 0 00 032650 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4104
  4105					;**********
  4106
  4107					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4108					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4109					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4110					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4111					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4112			006511		SN=SN+1
  4113			000400			ZZ=ZZ+ZZ
  4114						IFE	ZZ,<ZZ=1>
  4115	032650	200 00 0 00 035104 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4116	032651	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4117									;POSITION WITH ITSELF SHOULD RESULT WITH
  4118									;C(AC) NONZERO
  4119	032652	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4120						STOP^
  4121	032653	254 04 0 00 032654 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4122	032654	324 00 0 00 032655 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4123
  4124					;**********
  4125
  4126					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4127					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4128					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4129					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4130					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4131			006512		SN=SN+1
  4132			001000			ZZ=ZZ+ZZ
  4133						IFE	ZZ,<ZZ=1>
  4134	032655	200 00 0 00 035105 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4135	032656	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4136									;POSITION WITH ITSELF SHOULD RESULT WITH
  4137									;C(AC) NONZERO
  4138	032657	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4139						STOP^
  4140	032660	254 04 0 00 032661 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4141	032661	324 00 0 00 032662 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4142
  4143					;**********
  4144
  4145					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4146					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4147					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4148					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4149					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4150			006513		SN=SN+1
  4151			002000			ZZ=ZZ+ZZ
  4152						IFE	ZZ,<ZZ=1>
  4153	032662	200 00 0 00 035106 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 25-4
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0097

  4154	032663	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4155									;POSITION WITH ITSELF SHOULD RESULT WITH
  4156									;C(AC) NONZERO
  4157	032664	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4158						STOP^
  4159	032665	254 04 0 00 032666 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4160	032666	324 00 0 00 032667 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4161
  4162					;**********
  4163
  4164					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4165					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4166					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4167					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4168					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4169			006514		SN=SN+1
  4170			004000			ZZ=ZZ+ZZ
  4171						IFE	ZZ,<ZZ=1>
  4172	032667	200 00 0 00 035107 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4173	032670	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4174									;POSITION WITH ITSELF SHOULD RESULT WITH
  4175									;C(AC) NONZERO
  4176	032671	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4177						STOP^
  4178	032672	254 04 0 00 032673 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4179	032673	324 00 0 00 032674 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4180
  4181					;**********
  4182
  4183					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4184					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4185					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4186					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4187					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4188			006515		SN=SN+1
  4189			010000			ZZ=ZZ+ZZ
  4190						IFE	ZZ,<ZZ=1>
  4191	032674	200 00 0 00 035110 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4192	032675	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4193									;POSITION WITH ITSELF SHOULD RESULT WITH
  4194									;C(AC) NONZERO
  4195	032676	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4196						STOP^
  4197	032677	254 04 0 00 032700 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4198	032700	324 00 0 00 032701 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4199
  4200					;**********
  4201
  4202					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4203					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4204					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4205					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4206					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4207			006516		SN=SN+1
  4208			020000			ZZ=ZZ+ZZ
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 25-5
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0098

  4209						IFE	ZZ,<ZZ=1>
  4210	032701	200 00 0 00 035111 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4211	032702	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4212									;POSITION WITH ITSELF SHOULD RESULT WITH
  4213									;C(AC) NONZERO
  4214	032703	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4215						STOP^
  4216	032704	254 04 0 00 032705 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4217	032705	324 00 0 00 032706 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4218
  4219					;**********
  4220
  4221					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4222					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4223					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4224					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4225					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4226			006517		SN=SN+1
  4227			040000			ZZ=ZZ+ZZ
  4228						IFE	ZZ,<ZZ=1>
  4229	032706	200 00 0 00 035112 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4230	032707	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4231									;POSITION WITH ITSELF SHOULD RESULT WITH
  4232									;C(AC) NONZERO
  4233	032710	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4234						STOP^
  4235	032711	254 04 0 00 032712 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4236	032712	324 00 0 00 032713 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4237
  4238					;**********
  4239
  4240					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4241					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4242					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4243					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4244					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4245			006520		SN=SN+1
  4246			100000			ZZ=ZZ+ZZ
  4247						IFE	ZZ,<ZZ=1>
  4248	032713	200 00 0 00 035113 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4249	032714	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4250									;POSITION WITH ITSELF SHOULD RESULT WITH
  4251									;C(AC) NONZERO
  4252	032715	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4253						STOP^
  4254	032716	254 04 0 00 032717 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4255	032717	324 00 0 00 032720 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4256
  4257					;**********
  4258
  4259					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4260					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4261					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4262					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4263					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 25-6
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0099

  4264			006521		SN=SN+1
  4265			200000			ZZ=ZZ+ZZ
  4266						IFE	ZZ,<ZZ=1>
  4267	032720	200 00 0 00 035114 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4268	032721	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4269									;POSITION WITH ITSELF SHOULD RESULT WITH
  4270									;C(AC) NONZERO
  4271	032722	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4272						STOP^
  4273	032723	254 04 0 00 032724 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4274	032724	324 00 0 00 032725 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4275
  4276					;**********
  4277
  4278					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4279					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4280					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4281					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4282					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4283			006522		SN=SN+1
  4284			400000			ZZ=ZZ+ZZ
  4285						IFE	ZZ,<ZZ=1>
  4286	032725	200 00 0 00 035115 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4287	032726	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4288									;POSITION WITH ITSELF SHOULD RESULT WITH
  4289									;C(AC) NONZERO
  4290	032727	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4291						STOP^
  4292	032730	254 04 0 00 032731 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4293	032731	324 00 0 00 032732 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4294
  4295					;**********
  4296
  4297					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4298					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4299					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4300					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4301					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4302			006523		SN=SN+1
  4303		000001	000000			ZZ=ZZ+ZZ
  4304						IFE	ZZ,<ZZ=1>
  4305	032732	200 00 0 00 035116 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4306	032733	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4307									;POSITION WITH ITSELF SHOULD RESULT WITH
  4308									;C(AC) NONZERO
  4309	032734	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4310						STOP^
  4311	032735	254 04 0 00 032736 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4312	032736	324 00 0 00 032737 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4313
  4314					;**********
  4315
  4316					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4317					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4318					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 25-7
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0100

  4319					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4320					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4321			006524		SN=SN+1
  4322		000002	000000			ZZ=ZZ+ZZ
  4323						IFE	ZZ,<ZZ=1>
  4324	032737	200 00 0 00 035117 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4325	032740	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4326									;POSITION WITH ITSELF SHOULD RESULT WITH
  4327									;C(AC) NONZERO
  4328	032741	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4329						STOP^
  4330	032742	254 04 0 00 032743 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4331	032743	324 00 0 00 032744 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4332
  4333					;**********
  4334
  4335					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4336					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4337					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4338					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4339					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4340			006525		SN=SN+1
  4341		000004	000000			ZZ=ZZ+ZZ
  4342						IFE	ZZ,<ZZ=1>
  4343	032744	200 00 0 00 035120 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4344	032745	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4345									;POSITION WITH ITSELF SHOULD RESULT WITH
  4346									;C(AC) NONZERO
  4347	032746	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4348						STOP^
  4349	032747	254 04 0 00 032750 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4350	032750	324 00 0 00 032751 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4351
  4352					;**********
  4353
  4354					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4355					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4356					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4357					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4358					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4359			006526		SN=SN+1
  4360		000010	000000			ZZ=ZZ+ZZ
  4361						IFE	ZZ,<ZZ=1>
  4362	032751	200 00 0 00 035121 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4363	032752	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4364									;POSITION WITH ITSELF SHOULD RESULT WITH
  4365									;C(AC) NONZERO
  4366	032753	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4367						STOP^
  4368	032754	254 04 0 00 032755 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4369	032755	324 00 0 00 032756 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4370
  4371					;**********
  4372
  4373					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 25-8
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0101

  4374					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4375					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4376					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4377					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4378			006527		SN=SN+1
  4379		000020	000000			ZZ=ZZ+ZZ
  4380						IFE	ZZ,<ZZ=1>
  4381	032756	200 00 0 00 035122 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4382	032757	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4383									;POSITION WITH ITSELF SHOULD RESULT WITH
  4384									;C(AC) NONZERO
  4385	032760	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4386						STOP^
  4387	032761	254 04 0 00 032762 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4388	032762	324 00 0 00 032763 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4389
  4390					;**********
  4391
  4392					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4393					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4394					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4395					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4396					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4397			006530		SN=SN+1
  4398		000040	000000			ZZ=ZZ+ZZ
  4399						IFE	ZZ,<ZZ=1>
  4400	032763	200 00 0 00 035123 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4401	032764	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4402									;POSITION WITH ITSELF SHOULD RESULT WITH
  4403									;C(AC) NONZERO
  4404	032765	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4405						STOP^
  4406	032766	254 04 0 00 032767 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4407	032767	324 00 0 00 032770 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4408
  4409					;**********
  4410
  4411					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4412					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4413					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4414					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4415					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4416			006531		SN=SN+1
  4417		000100	000000			ZZ=ZZ+ZZ
  4418						IFE	ZZ,<ZZ=1>
  4419	032770	200 00 0 00 035124 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4420	032771	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4421									;POSITION WITH ITSELF SHOULD RESULT WITH
  4422									;C(AC) NONZERO
  4423	032772	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4424						STOP^
  4425	032773	254 04 0 00 032774 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4426	032774	324 00 0 00 032775 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4427
  4428					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 25-9
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0102

  4429
  4430					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4431					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4432					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4433					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4434					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4435			006532		SN=SN+1
  4436		000200	000000			ZZ=ZZ+ZZ
  4437						IFE	ZZ,<ZZ=1>
  4438	032775	200 00 0 00 035125 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4439	032776	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4440									;POSITION WITH ITSELF SHOULD RESULT WITH
  4441									;C(AC) NONZERO
  4442	032777	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4443						STOP^
  4444	033000	254 04 0 00 033001 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4445	033001	324 00 0 00 033002 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4446
  4447					;**********
  4448
  4449					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4450					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4451					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4452					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4453					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4454			006533		SN=SN+1
  4455		000400	000000			ZZ=ZZ+ZZ
  4456						IFE	ZZ,<ZZ=1>
  4457	033002	200 00 0 00 035073 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4458	033003	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4459									;POSITION WITH ITSELF SHOULD RESULT WITH
  4460									;C(AC) NONZERO
  4461	033004	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4462						STOP^
  4463	033005	254 04 0 00 033006 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4464	033006	324 00 0 00 033007 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4465
  4466					;**********
  4467
  4468					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4469					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4470					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4471					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4472					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4473			006534		SN=SN+1
  4474		001000	000000			ZZ=ZZ+ZZ
  4475						IFE	ZZ,<ZZ=1>
  4476	033007	200 00 0 00 035126 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4477	033010	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4478									;POSITION WITH ITSELF SHOULD RESULT WITH
  4479									;C(AC) NONZERO
  4480	033011	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4481						STOP^
  4482	033012	254 04 0 00 033013 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4483	033013	324 00 0 00 033014 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 25-10
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0103

  4484
  4485					;**********
  4486
  4487					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4488					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4489					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4490					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4491					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4492			006535		SN=SN+1
  4493		002000	000000			ZZ=ZZ+ZZ
  4494						IFE	ZZ,<ZZ=1>
  4495	033014	200 00 0 00 035127 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4496	033015	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4497									;POSITION WITH ITSELF SHOULD RESULT WITH
  4498									;C(AC) NONZERO
  4499	033016	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4500						STOP^
  4501	033017	254 04 0 00 033020 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4502	033020	324 00 0 00 033021 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4503
  4504					;**********
  4505
  4506					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4507					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4508					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4509					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4510					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4511			006536		SN=SN+1
  4512		004000	000000			ZZ=ZZ+ZZ
  4513						IFE	ZZ,<ZZ=1>
  4514	033021	200 00 0 00 035130 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4515	033022	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4516									;POSITION WITH ITSELF SHOULD RESULT WITH
  4517									;C(AC) NONZERO
  4518	033023	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4519						STOP^
  4520	033024	254 04 0 00 033025 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4521	033025	324 00 0 00 033026 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4522
  4523					;**********
  4524
  4525					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4526					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4527					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4528					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4529					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4530			006537		SN=SN+1
  4531		010000	000000			ZZ=ZZ+ZZ
  4532						IFE	ZZ,<ZZ=1>
  4533	033026	200 00 0 00 035131 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4534	033027	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4535									;POSITION WITH ITSELF SHOULD RESULT WITH
  4536									;C(AC) NONZERO
  4537	033030	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4538						STOP^
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 25-11
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0104

  4539	033031	254 04 0 00 033032 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4540	033032	324 00 0 00 033033 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4541
  4542					;**********
  4543
  4544					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4545					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4546					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4547					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4548					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4549			006540		SN=SN+1
  4550		020000	000000			ZZ=ZZ+ZZ
  4551						IFE	ZZ,<ZZ=1>
  4552	033033	200 00 0 00 035132 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4553	033034	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4554									;POSITION WITH ITSELF SHOULD RESULT WITH
  4555									;C(AC) NONZERO
  4556	033035	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4557						STOP^
  4558	033036	254 04 0 00 033037 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4559	033037	324 00 0 00 033040 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4560
  4561					;**********
  4562
  4563					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4564					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4565					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4566					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4567					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4568			006541		SN=SN+1
  4569		040000	000000			ZZ=ZZ+ZZ
  4570						IFE	ZZ,<ZZ=1>
  4571	033040	200 00 0 00 035133 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4572	033041	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4573									;POSITION WITH ITSELF SHOULD RESULT WITH
  4574									;C(AC) NONZERO
  4575	033042	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4576						STOP^
  4577	033043	254 04 0 00 033044 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4578	033044	324 00 0 00 033045 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4579
  4580					;**********
  4581
  4582					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4583					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4584					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4585					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4586					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4587			006542		SN=SN+1
  4588		100000	000000			ZZ=ZZ+ZZ
  4589						IFE	ZZ,<ZZ=1>
  4590	033045	200 00 0 00 035134 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4591	033046	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4592									;POSITION WITH ITSELF SHOULD RESULT WITH
  4593									;C(AC) NONZERO
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 25-12
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0105

  4594	033047	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4595						STOP^
  4596	033050	254 04 0 00 033051 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4597	033051	324 00 0 00 033052 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4598
  4599					;**********
  4600
  4601					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4602					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4603					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4604					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4605					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4606			006543		SN=SN+1
  4607		200000	000000			ZZ=ZZ+ZZ
  4608						IFE	ZZ,<ZZ=1>
  4609	033052	200 00 0 00 035135 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4610	033053	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4611									;POSITION WITH ITSELF SHOULD RESULT WITH
  4612									;C(AC) NONZERO
  4613	033054	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4614						STOP^
  4615	033055	254 04 0 00 033056 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4616	033056	324 00 0 00 033057 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4617
  4618					;**********
  4619
  4620					;THIS TEST VERIFIES THAT THE RESULT OF A WORD ANDED WITH ITSELF
  4621					;SHOULD BE THAT SAME WORD.  A WORD CONTAINING ALL ZEROS EXCEPT FOR A ONE
  4622					;IN ONLY ONE BIT IS ANDED WITH ITSELF.  THE AC IS THEN CHECKED FOR ITS
  4623					;CONTENTS NONZERO.  IF C(AC)=0, THE 'AND' INSTRUCTION FAILED.  THIS TEST IS REPEATED
  4624					;36 TIMES TO CHECK EACH BIT INDIVIDUALLY.
  4625			006544		SN=SN+1
  4626		400000	000000			ZZ=ZZ+ZZ
  4627						IFE	ZZ,<ZZ=1>
  4628	033057	200 00 0 00 035065 		MOVE	[ZZ]		;LOAD AC WITH ALL ZEROS EXCEPT FOR A ONE IN ONE BIT
  4629	033060	404 00 0 00 000000 		AND			;*AND OF WORD CONTAINING A ONE IN ONE BIT
  4630									;POSITION WITH ITSELF SHOULD RESULT WITH
  4631									;C(AC) NONZERO
  4632	033061	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NONZERO
  4633						STOP^
  4634	033062	254 04 0 00 033063 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4635	033063	324 00 0 00 033064 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4636
  4637					;**********
  4638
  4639					;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE
  4640					;C(AC)=0 AND C(E)=0 AND E OUTSIDE OF THE AC RANGE IS ALL ZEROS IN THE AC.
  4641					;FIRST, THE AC IS CLEARED; THEN, THE C(AC) IS ANDED WITH C(E) WHEN
  4642					;E GREATER THAN 20 AND C(E)=0. THE RESULT SHOULD BE C(AC)=0.
  4643					;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND.
  4644
  4645	033064	200 00 0 00 035062 	A6600:	MOVE	[0]		;PRESET AC TO ALL ZEROS
  4646	033065	404 00 0 00 035062 		AND	[0]		;*AND OF TWO WORDS OF ALL ZEROS
  4647									;SHOULD RESULT IN C(AC)=0
  4648	033066	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 25-13
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0106

  4649						STOP^
  4650	033067	254 04 0 00 033070 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4651	033070	324 00 0 00 033071 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4652
  4653					;**********
  4654
  4655					;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(AC)=0
  4656					;AND C(E) IS ALL ONES IS AN AC CONTAINING ALL ZEROS.  FIRST, THE AC IS
  4657					;CLEARED; THEN THE C(AC) IS ANDED WITH AN E CONTAINING ALL ONES, WHERE
  4658					;E IS BEYOND THE AC RANGE.  THE RESULT SHOULD BE C(AC)=0.
  4659					;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND.
  4660
  4661	033071	200 00 0 00 035062 	A6700:	MOVE	[0]		;PRESET AC TO ALL ZEROS
  4662	033072	404 00 0 00 035063 		AND	[-1]		;*AND OF TWO WORDS WHERE C(AC)=0 SHOULD RESULT IN C(AC)=0
  4663	033073	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4664						STOP^
  4665	033074	254 04 0 00 033075 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4666	033075	324 00 0 00 033076 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4667
  4668					;AD FM+EN [ADFP],AD FM+EN A [ADFP],
  4669					;F CYC ACT EN C [F1],IR BOOLE AD FM+F [IR2],
  4670					;IR BOOLE [IR1],IRXX(1,4,5,11,13,16) [IR2]
  4671
  4672					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 26
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0107

  4673					;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(E)=0
  4674					;AND C(AC) IS ALL ONES IS AN AC CONTAINING ALL ZEROS. FIRST, THE
  4675					;AC IS SET TO ALL ONES; THEN, THE AC IS ANDED WITH AN E CONTAINING ALL
  4676					;ZEROS, WHERE E IS BEYOND THE AC RANGE.  THE RESULT SHOULD BE C(AC)=0.
  4677					;IF C(AC) IS NON-ZERO, 'AND' FAILED WITH THE MEMORY OPERAND.
  4678
  4679	033076	200 00 0 00 035063 	A7000:	MOVE	[-1]		;PRESET AC TO ALL ONES
  4680	033077	404 00 0 00 035062 		AND	[0]		;*AND OF TWO WORDS WHERE C(E)=0 SHOULD RESULT IN C(AC)=0
  4681	033100	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  4682						STOP^
  4683	033101	254 04 0 00 033102 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4684	033102	324 00 0 00 033103 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4685
  4686					;**********
  4687
  4688					;THIS TEST VERIFIES THAT THE RESULT OF THE AND INSTRUCTION WHERE C(E) IS
  4689					;ALL ONES AND C(AC) IS ALL ONES IS AN AC CONTAINING ALL ONES.  FIRST, THE
  4690					;AC IS SET TO ALL ONES; THEN, C(AC) IS ANDED WITH AN E CONTAINING ALL
  4691					;ONES.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  4692					;IF C(AC) IS ZERO, 'AND' FAILED WITH THE MEMORY OPERAND.
  4693
  4694	033103	200 00 0 00 035063 	A7100:	MOVE	[-1]		;PRELOAD AC WITH ALL ONES
  4695	033104	404 00 0 00 035063 		AND	[-1]		;*AND OF TWO WORDS OF ALL ONES SHOULD
  4696									;RESULT IN C(AC)=ALL ONES
  4697	033105	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) IS NON ZERO
  4698						STOP^
  4699	033106	254 04 0 00 033107 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4700	033107	324 00 0 00 033110 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4701
  4702					;**********
  4703
  4704					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE 
  4705					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHERE CONTENTS IS NON-ZERO.
  4706					;FIRST, THE AC IS CLEARED, THEN, XOR IS EXECUTED WHERE C(E) IS NON-ZERO.
  4707					;THE AC IS THEN CHECKED FOR NON-ZERO CONTENTS.
  4708	033110	200 00 0 00 035062 	A7200:	MOVE	[0]		;CLEAR AC
  4709	033111	430 00 0 00 035141 		XOR	[707070707070]	;*XOR WITH C(AC)=0 AND C(E)=7070707070 SHOULD
  4710									;RESTULT IN C(AC)=707070707070
  4711	033112	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  4712						STOP^
  4713	033113	254 04 0 00 033114 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4714	033114	324 00 0 00 033115 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4715
  4716					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0108

  4717			007300		SN=7300
  4718			000000			ZZ=0
  4719
  4720					A7300:	REPEAT	^D36,
  4721					<;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  4722					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  4723					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  4724					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  4725					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  4726					SN=SN+1
  4727						ZZ=ZZ+ZZ
  4728						IFE	ZZ,<ZZ=1>
  4729						MOVE	[0]		;CLEAR AC
  4730						XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  4731									;RESULT IN C(AC) NONZERO
  4732						SKIPN			;PASS TEST IF C(AC) NON-ZERO
  4733						STOP
  4734					
  4735					;**********
  4736					>
  4737					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  4738					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  4739					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  4740					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  4741					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  4742			007301		SN=SN+1
  4743			000000			ZZ=ZZ+ZZ
  4744			000001			IFE	ZZ,<ZZ=1>
  4745	033115	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  4746	033116	430 00 0 00 035074 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  4747									;RESULT IN C(AC) NONZERO
  4748	033117	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  4749						STOP^
  4750	033120	254 04 0 00 033121 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4751	033121	324 00 0 00 033122 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4752
  4753					;**********
  4754
  4755					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  4756					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  4757					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  4758					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  4759					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  4760			007302		SN=SN+1
  4761			000002			ZZ=ZZ+ZZ
  4762						IFE	ZZ,<ZZ=1>
  4763	033122	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  4764	033123	430 00 0 00 035075 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  4765									;RESULT IN C(AC) NONZERO
  4766	033124	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  4767						STOP^
  4768	033125	254 04 0 00 033126 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4769	033126	324 00 0 00 033127 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4770
  4771					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-1
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0109

  4772
  4773					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  4774					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  4775					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  4776					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  4777					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  4778			007303		SN=SN+1
  4779			000004			ZZ=ZZ+ZZ
  4780						IFE	ZZ,<ZZ=1>
  4781	033127	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  4782	033130	430 00 0 00 035076 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  4783									;RESULT IN C(AC) NONZERO
  4784	033131	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  4785						STOP^
  4786	033132	254 04 0 00 033133 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4787	033133	324 00 0 00 033134 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4788
  4789					;**********
  4790
  4791					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  4792					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  4793					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  4794					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  4795					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  4796			007304		SN=SN+1
  4797			000010			ZZ=ZZ+ZZ
  4798						IFE	ZZ,<ZZ=1>
  4799	033134	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  4800	033135	430 00 0 00 035077 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  4801									;RESULT IN C(AC) NONZERO
  4802	033136	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  4803						STOP^
  4804	033137	254 04 0 00 033140 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4805	033140	324 00 0 00 033141 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4806
  4807					;**********
  4808
  4809					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  4810					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  4811					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  4812					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  4813					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  4814			007305		SN=SN+1
  4815			000020			ZZ=ZZ+ZZ
  4816						IFE	ZZ,<ZZ=1>
  4817	033141	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  4818	033142	430 00 0 00 035100 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  4819									;RESULT IN C(AC) NONZERO
  4820	033143	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  4821						STOP^
  4822	033144	254 04 0 00 033145 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4823	033145	324 00 0 00 033146 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4824
  4825					;**********
  4826
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-2
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0110

  4827					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  4828					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  4829					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  4830					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  4831					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  4832			007306		SN=SN+1
  4833			000040			ZZ=ZZ+ZZ
  4834						IFE	ZZ,<ZZ=1>
  4835	033146	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  4836	033147	430 00 0 00 035101 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  4837									;RESULT IN C(AC) NONZERO
  4838	033150	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  4839						STOP^
  4840	033151	254 04 0 00 033152 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4841	033152	324 00 0 00 033153 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4842
  4843					;**********
  4844
  4845					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  4846					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  4847					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  4848					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  4849					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  4850			007307		SN=SN+1
  4851			000100			ZZ=ZZ+ZZ
  4852						IFE	ZZ,<ZZ=1>
  4853	033153	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  4854	033154	430 00 0 00 035102 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  4855									;RESULT IN C(AC) NONZERO
  4856	033155	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  4857						STOP^
  4858	033156	254 04 0 00 033157 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4859	033157	324 00 0 00 033160 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4860
  4861					;**********
  4862
  4863					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  4864					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  4865					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  4866					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  4867					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  4868			007310		SN=SN+1
  4869			000200			ZZ=ZZ+ZZ
  4870						IFE	ZZ,<ZZ=1>
  4871	033160	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  4872	033161	430 00 0 00 035103 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  4873									;RESULT IN C(AC) NONZERO
  4874	033162	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  4875						STOP^
  4876	033163	254 04 0 00 033164 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4877	033164	324 00 0 00 033165 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4878
  4879					;**********
  4880
  4881					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-3
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0111

  4882					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  4883					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  4884					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  4885					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  4886			007311		SN=SN+1
  4887			000400			ZZ=ZZ+ZZ
  4888						IFE	ZZ,<ZZ=1>
  4889	033165	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  4890	033166	430 00 0 00 035104 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  4891									;RESULT IN C(AC) NONZERO
  4892	033167	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  4893						STOP^
  4894	033170	254 04 0 00 033171 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4895	033171	324 00 0 00 033172 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4896
  4897					;**********
  4898
  4899					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  4900					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  4901					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  4902					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  4903					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  4904			007312		SN=SN+1
  4905			001000			ZZ=ZZ+ZZ
  4906						IFE	ZZ,<ZZ=1>
  4907	033172	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  4908	033173	430 00 0 00 035105 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  4909									;RESULT IN C(AC) NONZERO
  4910	033174	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  4911						STOP^
  4912	033175	254 04 0 00 033176 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4913	033176	324 00 0 00 033177 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4914
  4915					;**********
  4916
  4917					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  4918					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  4919					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  4920					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  4921					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  4922			007313		SN=SN+1
  4923			002000			ZZ=ZZ+ZZ
  4924						IFE	ZZ,<ZZ=1>
  4925	033177	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  4926	033200	430 00 0 00 035106 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  4927									;RESULT IN C(AC) NONZERO
  4928	033201	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  4929						STOP^
  4930	033202	254 04 0 00 033203 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4931	033203	324 00 0 00 033204 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4932
  4933					;**********
  4934
  4935					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  4936					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-4
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0112

  4937					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  4938					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  4939					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  4940			007314		SN=SN+1
  4941			004000			ZZ=ZZ+ZZ
  4942						IFE	ZZ,<ZZ=1>
  4943	033204	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  4944	033205	430 00 0 00 035107 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  4945									;RESULT IN C(AC) NONZERO
  4946	033206	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  4947						STOP^
  4948	033207	254 04 0 00 033210 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4949	033210	324 00 0 00 033211 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4950
  4951					;**********
  4952
  4953					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  4954					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  4955					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  4956					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  4957					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  4958			007315		SN=SN+1
  4959			010000			ZZ=ZZ+ZZ
  4960						IFE	ZZ,<ZZ=1>
  4961	033211	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  4962	033212	430 00 0 00 035110 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  4963									;RESULT IN C(AC) NONZERO
  4964	033213	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  4965						STOP^
  4966	033214	254 04 0 00 033215 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4967	033215	324 00 0 00 033216 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4968
  4969					;**********
  4970
  4971					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  4972					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  4973					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  4974					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  4975					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  4976			007316		SN=SN+1
  4977			020000			ZZ=ZZ+ZZ
  4978						IFE	ZZ,<ZZ=1>
  4979	033216	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  4980	033217	430 00 0 00 035111 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  4981									;RESULT IN C(AC) NONZERO
  4982	033220	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  4983						STOP^
  4984	033221	254 04 0 00 033222 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  4985	033222	324 00 0 00 033223 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  4986
  4987					;**********
  4988
  4989					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  4990					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  4991					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-5
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0113

  4992					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  4993					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  4994			007317		SN=SN+1
  4995			040000			ZZ=ZZ+ZZ
  4996						IFE	ZZ,<ZZ=1>
  4997	033223	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  4998	033224	430 00 0 00 035112 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  4999									;RESULT IN C(AC) NONZERO
  5000	033225	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5001						STOP^
  5002	033226	254 04 0 00 033227 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5003	033227	324 00 0 00 033230 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5004
  5005					;**********
  5006
  5007					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5008					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5009					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5010					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5011					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5012			007320		SN=SN+1
  5013			100000			ZZ=ZZ+ZZ
  5014						IFE	ZZ,<ZZ=1>
  5015	033230	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5016	033231	430 00 0 00 035113 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5017									;RESULT IN C(AC) NONZERO
  5018	033232	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5019						STOP^
  5020	033233	254 04 0 00 033234 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5021	033234	324 00 0 00 033235 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5022
  5023					;**********
  5024
  5025					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5026					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5027					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5028					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5029					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5030			007321		SN=SN+1
  5031			200000			ZZ=ZZ+ZZ
  5032						IFE	ZZ,<ZZ=1>
  5033	033235	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5034	033236	430 00 0 00 035114 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5035									;RESULT IN C(AC) NONZERO
  5036	033237	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5037						STOP^
  5038	033240	254 04 0 00 033241 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5039	033241	324 00 0 00 033242 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5040
  5041					;**********
  5042
  5043					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5044					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5045					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5046					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-6
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0114

  5047					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5048			007322		SN=SN+1
  5049			400000			ZZ=ZZ+ZZ
  5050						IFE	ZZ,<ZZ=1>
  5051	033242	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5052	033243	430 00 0 00 035115 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5053									;RESULT IN C(AC) NONZERO
  5054	033244	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5055						STOP^
  5056	033245	254 04 0 00 033246 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5057	033246	324 00 0 00 033247 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5058
  5059					;**********
  5060
  5061					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5062					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5063					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5064					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5065					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5066			007323		SN=SN+1
  5067		000001	000000			ZZ=ZZ+ZZ
  5068						IFE	ZZ,<ZZ=1>
  5069	033247	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5070	033250	430 00 0 00 035116 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5071									;RESULT IN C(AC) NONZERO
  5072	033251	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5073						STOP^
  5074	033252	254 04 0 00 033253 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5075	033253	324 00 0 00 033254 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5076
  5077					;**********
  5078
  5079					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5080					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5081					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5082					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5083					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5084			007324		SN=SN+1
  5085		000002	000000			ZZ=ZZ+ZZ
  5086						IFE	ZZ,<ZZ=1>
  5087	033254	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5088	033255	430 00 0 00 035117 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5089									;RESULT IN C(AC) NONZERO
  5090	033256	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5091						STOP^
  5092	033257	254 04 0 00 033260 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5093	033260	324 00 0 00 033261 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5094
  5095					;**********
  5096
  5097					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5098					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5099					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5100					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5101					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-7
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0115

  5102			007325		SN=SN+1
  5103		000004	000000			ZZ=ZZ+ZZ
  5104						IFE	ZZ,<ZZ=1>
  5105	033261	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5106	033262	430 00 0 00 035120 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5107									;RESULT IN C(AC) NONZERO
  5108	033263	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5109						STOP^
  5110	033264	254 04 0 00 033265 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5111	033265	324 00 0 00 033266 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5112
  5113					;**********
  5114
  5115					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5116					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5117					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5118					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5119					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5120			007326		SN=SN+1
  5121		000010	000000			ZZ=ZZ+ZZ
  5122						IFE	ZZ,<ZZ=1>
  5123	033266	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5124	033267	430 00 0 00 035121 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5125									;RESULT IN C(AC) NONZERO
  5126	033270	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5127						STOP^
  5128	033271	254 04 0 00 033272 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5129	033272	324 00 0 00 033273 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5130
  5131					;**********
  5132
  5133					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5134					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5135					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5136					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5137					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5138			007327		SN=SN+1
  5139		000020	000000			ZZ=ZZ+ZZ
  5140						IFE	ZZ,<ZZ=1>
  5141	033273	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5142	033274	430 00 0 00 035122 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5143									;RESULT IN C(AC) NONZERO
  5144	033275	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5145						STOP^
  5146	033276	254 04 0 00 033277 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5147	033277	324 00 0 00 033300 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5148
  5149					;**********
  5150
  5151					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5152					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5153					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5154					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5155					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5156			007330		SN=SN+1
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-8
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0116

  5157		000040	000000			ZZ=ZZ+ZZ
  5158						IFE	ZZ,<ZZ=1>
  5159	033300	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5160	033301	430 00 0 00 035123 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5161									;RESULT IN C(AC) NONZERO
  5162	033302	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5163						STOP^
  5164	033303	254 04 0 00 033304 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5165	033304	324 00 0 00 033305 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5166
  5167					;**********
  5168
  5169					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5170					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5171					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5172					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5173					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5174			007331		SN=SN+1
  5175		000100	000000			ZZ=ZZ+ZZ
  5176						IFE	ZZ,<ZZ=1>
  5177	033305	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5178	033306	430 00 0 00 035124 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5179									;RESULT IN C(AC) NONZERO
  5180	033307	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5181						STOP^
  5182	033310	254 04 0 00 033311 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5183	033311	324 00 0 00 033312 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5184
  5185					;**********
  5186
  5187					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5188					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5189					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5190					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5191					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5192			007332		SN=SN+1
  5193		000200	000000			ZZ=ZZ+ZZ
  5194						IFE	ZZ,<ZZ=1>
  5195	033312	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5196	033313	430 00 0 00 035125 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5197									;RESULT IN C(AC) NONZERO
  5198	033314	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5199						STOP^
  5200	033315	254 04 0 00 033316 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5201	033316	324 00 0 00 033317 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5202
  5203					;**********
  5204
  5205					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5206					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5207					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5208					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5209					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5210			007333		SN=SN+1
  5211		000400	000000			ZZ=ZZ+ZZ
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-9
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0117

  5212						IFE	ZZ,<ZZ=1>
  5213	033317	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5214	033320	430 00 0 00 035073 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5215									;RESULT IN C(AC) NONZERO
  5216	033321	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5217						STOP^
  5218	033322	254 04 0 00 033323 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5219	033323	324 00 0 00 033324 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5220
  5221					;**********
  5222
  5223					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5224					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5225					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5226					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5227					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5228			007334		SN=SN+1
  5229		001000	000000			ZZ=ZZ+ZZ
  5230						IFE	ZZ,<ZZ=1>
  5231	033324	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5232	033325	430 00 0 00 035126 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5233									;RESULT IN C(AC) NONZERO
  5234	033326	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5235						STOP^
  5236	033327	254 04 0 00 033330 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5237	033330	324 00 0 00 033331 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5238
  5239					;**********
  5240
  5241					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5242					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5243					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5244					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5245					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5246			007335		SN=SN+1
  5247		002000	000000			ZZ=ZZ+ZZ
  5248						IFE	ZZ,<ZZ=1>
  5249	033331	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5250	033332	430 00 0 00 035127 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5251									;RESULT IN C(AC) NONZERO
  5252	033333	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5253						STOP^
  5254	033334	254 04 0 00 033335 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5255	033335	324 00 0 00 033336 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5256
  5257					;**********
  5258
  5259					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5260					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5261					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5262					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5263					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5264			007336		SN=SN+1
  5265		004000	000000			ZZ=ZZ+ZZ
  5266						IFE	ZZ,<ZZ=1>
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-10
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0118

  5267	033336	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5268	033337	430 00 0 00 035130 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5269									;RESULT IN C(AC) NONZERO
  5270	033340	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5271						STOP^
  5272	033341	254 04 0 00 033342 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5273	033342	324 00 0 00 033343 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5274
  5275					;**********
  5276
  5277					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5278					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5279					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5280					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5281					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5282			007337		SN=SN+1
  5283		010000	000000			ZZ=ZZ+ZZ
  5284						IFE	ZZ,<ZZ=1>
  5285	033343	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5286	033344	430 00 0 00 035131 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5287									;RESULT IN C(AC) NONZERO
  5288	033345	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5289						STOP^
  5290	033346	254 04 0 00 033347 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5291	033347	324 00 0 00 033350 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5292
  5293					;**********
  5294
  5295					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5296					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5297					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5298					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5299					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5300			007340		SN=SN+1
  5301		020000	000000			ZZ=ZZ+ZZ
  5302						IFE	ZZ,<ZZ=1>
  5303	033350	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5304	033351	430 00 0 00 035132 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5305									;RESULT IN C(AC) NONZERO
  5306	033352	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5307						STOP^
  5308	033353	254 04 0 00 033354 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5309	033354	324 00 0 00 033355 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5310
  5311					;**********
  5312
  5313					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5314					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5315					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5316					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5317					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5318			007341		SN=SN+1
  5319		040000	000000			ZZ=ZZ+ZZ
  5320						IFE	ZZ,<ZZ=1>
  5321	033355	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-11
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0119

  5322	033356	430 00 0 00 035133 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5323									;RESULT IN C(AC) NONZERO
  5324	033357	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5325						STOP^
  5326	033360	254 04 0 00 033361 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5327	033361	324 00 0 00 033362 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5328
  5329					;**********
  5330
  5331					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5332					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5333					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5334					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5335					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5336			007342		SN=SN+1
  5337		100000	000000			ZZ=ZZ+ZZ
  5338						IFE	ZZ,<ZZ=1>
  5339	033362	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5340	033363	430 00 0 00 035134 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5341									;RESULT IN C(AC) NONZERO
  5342	033364	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5343						STOP^
  5344	033365	254 04 0 00 033366 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5345	033366	324 00 0 00 033367 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5346
  5347					;**********
  5348
  5349					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5350					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5351					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5352					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5353					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5354			007343		SN=SN+1
  5355		200000	000000			ZZ=ZZ+ZZ
  5356						IFE	ZZ,<ZZ=1>
  5357	033367	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5358	033370	430 00 0 00 035135 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
  5359									;RESULT IN C(AC) NONZERO
  5360	033371	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5361						STOP^
  5362	033372	254 04 0 00 033373 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5363	033373	324 00 0 00 033374 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5364
  5365					;**********
  5366
  5367					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5368					;C(AC)=0 AND C(E) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO. THIS
  5369					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS CLEARED AND XOR IS EXECUTED
  5370					;WITH ALL BITS OF E CLEAR EXCEPT FOR ONE FLOATING BIT WHICH IS SET TO A ONE.
  5371					;THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5372			007344		SN=SN+1
  5373		400000	000000			ZZ=ZZ+ZZ
  5374						IFE	ZZ,<ZZ=1>
  5375	033374	200 00 0 00 035062 		MOVE	[0]		;CLEAR AC
  5376	033375	430 00 0 00 035065 		XOR	[ZZ]		;*XOR WITH C(AC)=0 AND ONE BIT OF C(E) SET SHOULD
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-12
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0120

  5377									;RESULT IN C(AC) NONZERO
  5378	033376	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5379						STOP^
  5380	033377	254 04 0 00 033400 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5381	033400	324 00 0 00 033401 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5382
  5383					;**********
  5384
  5385			007400		SN=7400
  5386			000000			ZZ=0
  5387
  5388					A7400:	REPEAT	^D36,
  5389					<;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5390					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5391					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5392					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5393					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5394					SN=SN+1
  5395						ZZ=ZZ+ZZ
  5396						IFE	ZZ,<ZZ=1>
  5397						MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5398						XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5399									;RESULT IN C(AC) NON-ZERO
  5400						SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5401						STOP
  5402					
  5403					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5404					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5405					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5406					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5407					
  5408					;**********
  5409					>
  5410					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5411					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5412					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5413					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5414					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5415			007401		SN=SN+1
  5416			000000			ZZ=ZZ+ZZ
  5417			000001			IFE	ZZ,<ZZ=1>
  5418	033401	200 00 0 00 035074 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5419	033402	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5420									;RESULT IN C(AC) NON-ZERO
  5421	033403	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5422						STOP^
  5423	033404	254 04 0 00 033405 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5424	033405	324 00 0 00 033406 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5425
  5426					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5427					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5428					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5429					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5430
  5431					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-13
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0121

  5432
  5433					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5434					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5435					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5436					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5437					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5438			007402		SN=SN+1
  5439			000002			ZZ=ZZ+ZZ
  5440						IFE	ZZ,<ZZ=1>
  5441	033406	200 00 0 00 035075 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5442	033407	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5443									;RESULT IN C(AC) NON-ZERO
  5444	033410	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5445						STOP^
  5446	033411	254 04 0 00 033412 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5447	033412	324 00 0 00 033413 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5448
  5449					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5450					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5451					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5452					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5453
  5454					;**********
  5455
  5456					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5457					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5458					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5459					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5460					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5461			007403		SN=SN+1
  5462			000004			ZZ=ZZ+ZZ
  5463						IFE	ZZ,<ZZ=1>
  5464	033413	200 00 0 00 035076 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5465	033414	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5466									;RESULT IN C(AC) NON-ZERO
  5467	033415	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5468						STOP^
  5469	033416	254 04 0 00 033417 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5470	033417	324 00 0 00 033420 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5471
  5472					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5473					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5474					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5475					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5476
  5477					;**********
  5478
  5479					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5480					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5481					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5482					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5483					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5484			007404		SN=SN+1
  5485			000010			ZZ=ZZ+ZZ
  5486						IFE	ZZ,<ZZ=1>
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-14
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0122

  5487	033420	200 00 0 00 035077 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5488	033421	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5489									;RESULT IN C(AC) NON-ZERO
  5490	033422	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5491						STOP^
  5492	033423	254 04 0 00 033424 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5493	033424	324 00 0 00 033425 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5494
  5495					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5496					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5497					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5498					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5499
  5500					;**********
  5501
  5502					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5503					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5504					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5505					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5506					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5507			007405		SN=SN+1
  5508			000020			ZZ=ZZ+ZZ
  5509						IFE	ZZ,<ZZ=1>
  5510	033425	200 00 0 00 035100 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5511	033426	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5512									;RESULT IN C(AC) NON-ZERO
  5513	033427	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5514						STOP^
  5515	033430	254 04 0 00 033431 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5516	033431	324 00 0 00 033432 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5517
  5518					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5519					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5520					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5521					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5522
  5523					;**********
  5524
  5525					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5526					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5527					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5528					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5529					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5530			007406		SN=SN+1
  5531			000040			ZZ=ZZ+ZZ
  5532						IFE	ZZ,<ZZ=1>
  5533	033432	200 00 0 00 035101 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5534	033433	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5535									;RESULT IN C(AC) NON-ZERO
  5536	033434	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5537						STOP^
  5538	033435	254 04 0 00 033436 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5539	033436	324 00 0 00 033437 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5540
  5541					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-15
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0123

  5542					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5543					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5544					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5545
  5546					;**********
  5547
  5548					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5549					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5550					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5551					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5552					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5553			007407		SN=SN+1
  5554			000100			ZZ=ZZ+ZZ
  5555						IFE	ZZ,<ZZ=1>
  5556	033437	200 00 0 00 035102 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5557	033440	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5558									;RESULT IN C(AC) NON-ZERO
  5559	033441	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5560						STOP^
  5561	033442	254 04 0 00 033443 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5562	033443	324 00 0 00 033444 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5563
  5564					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5565					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5566					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5567					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5568
  5569					;**********
  5570
  5571					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5572					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5573					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5574					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5575					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5576			007410		SN=SN+1
  5577			000200			ZZ=ZZ+ZZ
  5578						IFE	ZZ,<ZZ=1>
  5579	033444	200 00 0 00 035103 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5580	033445	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5581									;RESULT IN C(AC) NON-ZERO
  5582	033446	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5583						STOP^
  5584	033447	254 04 0 00 033450 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5585	033450	324 00 0 00 033451 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5586
  5587					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5588					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5589					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5590					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5591
  5592					;**********
  5593
  5594					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5595					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5596					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-16
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0124

  5597					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5598					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5599			007411		SN=SN+1
  5600			000400			ZZ=ZZ+ZZ
  5601						IFE	ZZ,<ZZ=1>
  5602	033451	200 00 0 00 035104 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5603	033452	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5604									;RESULT IN C(AC) NON-ZERO
  5605	033453	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5606						STOP^
  5607	033454	254 04 0 00 033455 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5608	033455	324 00 0 00 033456 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5609
  5610					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5611					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5612					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5613					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5614
  5615					;**********
  5616
  5617					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5618					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5619					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5620					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5621					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5622			007412		SN=SN+1
  5623			001000			ZZ=ZZ+ZZ
  5624						IFE	ZZ,<ZZ=1>
  5625	033456	200 00 0 00 035105 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5626	033457	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5627									;RESULT IN C(AC) NON-ZERO
  5628	033460	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5629						STOP^
  5630	033461	254 04 0 00 033462 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5631	033462	324 00 0 00 033463 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5632
  5633					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5634					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5635					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5636					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5637
  5638					;**********
  5639
  5640					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5641					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5642					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5643					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5644					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5645			007413		SN=SN+1
  5646			002000			ZZ=ZZ+ZZ
  5647						IFE	ZZ,<ZZ=1>
  5648	033463	200 00 0 00 035106 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5649	033464	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5650									;RESULT IN C(AC) NON-ZERO
  5651	033465	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-17
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0125

  5652						STOP^
  5653	033466	254 04 0 00 033467 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5654	033467	324 00 0 00 033470 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5655
  5656					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5657					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5658					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5659					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5660
  5661					;**********
  5662
  5663					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5664					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5665					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5666					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5667					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5668			007414		SN=SN+1
  5669			004000			ZZ=ZZ+ZZ
  5670						IFE	ZZ,<ZZ=1>
  5671	033470	200 00 0 00 035107 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5672	033471	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5673									;RESULT IN C(AC) NON-ZERO
  5674	033472	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5675						STOP^
  5676	033473	254 04 0 00 033474 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5677	033474	324 00 0 00 033475 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5678
  5679					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5680					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5681					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5682					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5683
  5684					;**********
  5685
  5686					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5687					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5688					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5689					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5690					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5691			007415		SN=SN+1
  5692			010000			ZZ=ZZ+ZZ
  5693						IFE	ZZ,<ZZ=1>
  5694	033475	200 00 0 00 035110 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5695	033476	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5696									;RESULT IN C(AC) NON-ZERO
  5697	033477	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5698						STOP^
  5699	033500	254 04 0 00 033501 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5700	033501	324 00 0 00 033502 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5701
  5702					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5703					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5704					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5705					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5706
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-18
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0126

  5707					;**********
  5708
  5709					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5710					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5711					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5712					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5713					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5714			007416		SN=SN+1
  5715			020000			ZZ=ZZ+ZZ
  5716						IFE	ZZ,<ZZ=1>
  5717	033502	200 00 0 00 035111 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5718	033503	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5719									;RESULT IN C(AC) NON-ZERO
  5720	033504	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5721						STOP^
  5722	033505	254 04 0 00 033506 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5723	033506	324 00 0 00 033507 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5724
  5725					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5726					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5727					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5728					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5729
  5730					;**********
  5731
  5732					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5733					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5734					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5735					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5736					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5737			007417		SN=SN+1
  5738			040000			ZZ=ZZ+ZZ
  5739						IFE	ZZ,<ZZ=1>
  5740	033507	200 00 0 00 035112 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5741	033510	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5742									;RESULT IN C(AC) NON-ZERO
  5743	033511	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5744						STOP^
  5745	033512	254 04 0 00 033513 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5746	033513	324 00 0 00 033514 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5747
  5748					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5749					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5750					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5751					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5752
  5753					;**********
  5754
  5755					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5756					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5757					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5758					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5759					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5760			007420		SN=SN+1
  5761			100000			ZZ=ZZ+ZZ
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-19
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0127

  5762						IFE	ZZ,<ZZ=1>
  5763	033514	200 00 0 00 035113 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5764	033515	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5765									;RESULT IN C(AC) NON-ZERO
  5766	033516	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5767						STOP^
  5768	033517	254 04 0 00 033520 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5769	033520	324 00 0 00 033521 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5770
  5771					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5772					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5773					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5774					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5775
  5776					;**********
  5777
  5778					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5779					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5780					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5781					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5782					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5783			007421		SN=SN+1
  5784			200000			ZZ=ZZ+ZZ
  5785						IFE	ZZ,<ZZ=1>
  5786	033521	200 00 0 00 035114 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5787	033522	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5788									;RESULT IN C(AC) NON-ZERO
  5789	033523	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5790						STOP^
  5791	033524	254 04 0 00 033525 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5792	033525	324 00 0 00 033526 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5793
  5794					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5795					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5796					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5797					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5798
  5799					;**********
  5800
  5801					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5802					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5803					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5804					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5805					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5806			007422		SN=SN+1
  5807			400000			ZZ=ZZ+ZZ
  5808						IFE	ZZ,<ZZ=1>
  5809	033526	200 00 0 00 035115 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5810	033527	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5811									;RESULT IN C(AC) NON-ZERO
  5812	033530	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5813						STOP^
  5814	033531	254 04 0 00 033532 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5815	033532	324 00 0 00 033533 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5816
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-20
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0128

  5817					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5818					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5819					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5820					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5821
  5822					;**********
  5823
  5824					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5825					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5826					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5827					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5828					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5829			007423		SN=SN+1
  5830		000001	000000			ZZ=ZZ+ZZ
  5831						IFE	ZZ,<ZZ=1>
  5832	033533	200 00 0 00 035116 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5833	033534	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5834									;RESULT IN C(AC) NON-ZERO
  5835	033535	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5836						STOP^
  5837	033536	254 04 0 00 033537 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5838	033537	324 00 0 00 033540 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5839
  5840					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5841					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5842					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5843					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5844
  5845					;**********
  5846
  5847					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5848					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5849					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5850					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5851					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5852			007424		SN=SN+1
  5853		000002	000000			ZZ=ZZ+ZZ
  5854						IFE	ZZ,<ZZ=1>
  5855	033540	200 00 0 00 035117 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5856	033541	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5857									;RESULT IN C(AC) NON-ZERO
  5858	033542	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5859						STOP^
  5860	033543	254 04 0 00 033544 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5861	033544	324 00 0 00 033545 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5862
  5863					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5864					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5865					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5866					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5867
  5868					;**********
  5869
  5870					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5871					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-21
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0129

  5872					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5873					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5874					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5875			007425		SN=SN+1
  5876		000004	000000			ZZ=ZZ+ZZ
  5877						IFE	ZZ,<ZZ=1>
  5878	033545	200 00 0 00 035120 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5879	033546	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5880									;RESULT IN C(AC) NON-ZERO
  5881	033547	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5882						STOP^
  5883	033550	254 04 0 00 033551 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5884	033551	324 00 0 00 033552 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5885
  5886					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5887					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5888					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5889					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5890
  5891					;**********
  5892
  5893					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5894					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5895					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5896					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5897					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5898			007426		SN=SN+1
  5899		000010	000000			ZZ=ZZ+ZZ
  5900						IFE	ZZ,<ZZ=1>
  5901	033552	200 00 0 00 035121 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5902	033553	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5903									;RESULT IN C(AC) NON-ZERO
  5904	033554	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5905						STOP^
  5906	033555	254 04 0 00 033556 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5907	033556	324 00 0 00 033557 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5908
  5909					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5910					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5911					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5912					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5913
  5914					;**********
  5915
  5916					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5917					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5918					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5919					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5920					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5921			007427		SN=SN+1
  5922		000020	000000			ZZ=ZZ+ZZ
  5923						IFE	ZZ,<ZZ=1>
  5924	033557	200 00 0 00 035122 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5925	033560	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5926									;RESULT IN C(AC) NON-ZERO
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-22
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0130

  5927	033561	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5928						STOP^
  5929	033562	254 04 0 00 033563 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5930	033563	324 00 0 00 033564 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5931
  5932					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5933					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5934					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5935					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5936
  5937					;**********
  5938
  5939					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5940					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5941					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5942					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5943					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5944			007430		SN=SN+1
  5945		000040	000000			ZZ=ZZ+ZZ
  5946						IFE	ZZ,<ZZ=1>
  5947	033564	200 00 0 00 035123 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5948	033565	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5949									;RESULT IN C(AC) NON-ZERO
  5950	033566	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5951						STOP^
  5952	033567	254 04 0 00 033570 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5953	033570	324 00 0 00 033571 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5954
  5955					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5956					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5957					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5958					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  5959
  5960					;**********
  5961
  5962					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5963					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5964					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5965					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5966					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5967			007431		SN=SN+1
  5968		000100	000000			ZZ=ZZ+ZZ
  5969						IFE	ZZ,<ZZ=1>
  5970	033571	200 00 0 00 035124 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5971	033572	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5972									;RESULT IN C(AC) NON-ZERO
  5973	033573	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5974						STOP^
  5975	033574	254 04 0 00 033575 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5976	033575	324 00 0 00 033576 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  5977
  5978					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  5979					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  5980					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  5981					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-23
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0131

  5982
  5983					;**********
  5984
  5985					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  5986					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  5987					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  5988					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  5989					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  5990			007432		SN=SN+1
  5991		000200	000000			ZZ=ZZ+ZZ
  5992						IFE	ZZ,<ZZ=1>
  5993	033576	200 00 0 00 035125 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  5994	033577	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  5995									;RESULT IN C(AC) NON-ZERO
  5996	033600	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  5997						STOP^
  5998	033601	254 04 0 00 033602 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  5999	033602	324 00 0 00 033603 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6000
  6001					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6002					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6003					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6004					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6005
  6006					;**********
  6007
  6008					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6009					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6010					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6011					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6012					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6013			007433		SN=SN+1
  6014		000400	000000			ZZ=ZZ+ZZ
  6015						IFE	ZZ,<ZZ=1>
  6016	033603	200 00 0 00 035073 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6017	033604	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6018									;RESULT IN C(AC) NON-ZERO
  6019	033605	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6020						STOP^
  6021	033606	254 04 0 00 033607 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6022	033607	324 00 0 00 033610 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6023
  6024					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6025					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6026					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6027					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6028
  6029					;**********
  6030
  6031					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6032					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6033					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6034					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6035					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6036			007434		SN=SN+1
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-24
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0132

  6037		001000	000000			ZZ=ZZ+ZZ
  6038						IFE	ZZ,<ZZ=1>
  6039	033610	200 00 0 00 035126 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6040	033611	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6041									;RESULT IN C(AC) NON-ZERO
  6042	033612	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6043						STOP^
  6044	033613	254 04 0 00 033614 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6045	033614	324 00 0 00 033615 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6046
  6047					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6048					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6049					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6050					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6051
  6052					;**********
  6053
  6054					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6055					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6056					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6057					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6058					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6059			007435		SN=SN+1
  6060		002000	000000			ZZ=ZZ+ZZ
  6061						IFE	ZZ,<ZZ=1>
  6062	033615	200 00 0 00 035127 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6063	033616	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6064									;RESULT IN C(AC) NON-ZERO
  6065	033617	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6066						STOP^
  6067	033620	254 04 0 00 033621 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6068	033621	324 00 0 00 033622 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6069
  6070					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6071					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6072					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6073					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6074
  6075					;**********
  6076
  6077					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6078					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6079					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6080					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6081					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6082			007436		SN=SN+1
  6083		004000	000000			ZZ=ZZ+ZZ
  6084						IFE	ZZ,<ZZ=1>
  6085	033622	200 00 0 00 035130 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6086	033623	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6087									;RESULT IN C(AC) NON-ZERO
  6088	033624	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6089						STOP^
  6090	033625	254 04 0 00 033626 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6091	033626	324 00 0 00 033627 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-25
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0133

  6092
  6093					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6094					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6095					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6096					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6097
  6098					;**********
  6099
  6100					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6101					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6102					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6103					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6104					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6105			007437		SN=SN+1
  6106		010000	000000			ZZ=ZZ+ZZ
  6107						IFE	ZZ,<ZZ=1>
  6108	033627	200 00 0 00 035131 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6109	033630	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6110									;RESULT IN C(AC) NON-ZERO
  6111	033631	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6112						STOP^
  6113	033632	254 04 0 00 033633 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6114	033633	324 00 0 00 033634 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6115
  6116					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6117					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6118					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6119					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6120
  6121					;**********
  6122
  6123					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6124					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6125					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6126					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6127					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6128			007440		SN=SN+1
  6129		020000	000000			ZZ=ZZ+ZZ
  6130						IFE	ZZ,<ZZ=1>
  6131	033634	200 00 0 00 035132 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6132	033635	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6133									;RESULT IN C(AC) NON-ZERO
  6134	033636	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6135						STOP^
  6136	033637	254 04 0 00 033640 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6137	033640	324 00 0 00 033641 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6138
  6139					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6140					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6141					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6142					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6143
  6144					;**********
  6145
  6146					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-26
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0134

  6147					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6148					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6149					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6150					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6151			007441		SN=SN+1
  6152		040000	000000			ZZ=ZZ+ZZ
  6153						IFE	ZZ,<ZZ=1>
  6154	033641	200 00 0 00 035133 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6155	033642	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6156									;RESULT IN C(AC) NON-ZERO
  6157	033643	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6158						STOP^
  6159	033644	254 04 0 00 033645 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6160	033645	324 00 0 00 033646 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6161
  6162					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6163					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6164					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6165					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6166
  6167					;**********
  6168
  6169					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6170					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6171					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6172					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6173					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6174			007442		SN=SN+1
  6175		100000	000000			ZZ=ZZ+ZZ
  6176						IFE	ZZ,<ZZ=1>
  6177	033646	200 00 0 00 035134 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6178	033647	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6179									;RESULT IN C(AC) NON-ZERO
  6180	033650	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6181						STOP^
  6182	033651	254 04 0 00 033652 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6183	033652	324 00 0 00 033653 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6184
  6185					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6186					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6187					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6188					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6189
  6190					;**********
  6191
  6192					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6193					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6194					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6195					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6196					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6197			007443		SN=SN+1
  6198		200000	000000			ZZ=ZZ+ZZ
  6199						IFE	ZZ,<ZZ=1>
  6200	033653	200 00 0 00 035135 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6201	033654	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 27-27
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0135

  6202									;RESULT IN C(AC) NON-ZERO
  6203	033655	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6204						STOP^
  6205	033656	254 04 0 00 033657 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6206	033657	324 00 0 00 033660 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6207
  6208					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6209					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6210					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6211					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6212
  6213					;**********
  6214
  6215					;THIS TEST VERIFIES THAT THE RESULT OF THE XOR INSTRUCTION WHERE
  6216					;C(E)=0 AND C(AC) IS NON-ZERO IS AN AC WHOSE CONTENTS IS NON-ZERO.  THIS
  6217					;TEST IS REPEATED 36 TIMES. EACH TIME THE AC IS INITIALIZED SO THAT ONE
  6218					;AND ONLY ONE FLOATING BIT IS SET TO ONE AND XOR IS EXECUTED WITH E
  6219					;CONTAINING ALL ZEROS.  THE AC IS THEN CHECKED FOR A NON-ZERO RESULT.
  6220			007444		SN=SN+1
  6221		400000	000000			ZZ=ZZ+ZZ
  6222						IFE	ZZ,<ZZ=1>
  6223	033660	200 00 0 00 035065 		MOVE	[ZZ]		;PRELOAD AC WITH ONE FLOATING BIT SET
  6224	033661	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(E)=0 AND ONE BIT OF C(AC) SET SHOULD
  6225									;RESULT IN C(AC) NON-ZERO
  6226	033662	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6227						STOP^
  6228	033663	254 04 0 00 033664 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6229	033664	324 00 0 00 033665 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6230
  6231					;AD FM- EN [ADFM], AD FM- F/F'S[ADFM],F CYC ACT EN D[R1],
  6232					;IR BOOLE AD FM- F [IR2],IR BOOLE[IR1],IR XX (2,6,7,10,12,15)[IR2],
  6233					;AD EQV[ADCR],AD EQV F/F[ADC2],FCYC ACT EN A[F1],
  6234					;IR BOOLE (6,11)[IR2],IR BOOLE[IR1],IRXX(6,11)[IR2]
  6235
  6236					;**********
  6237
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 28
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0136

  6238			007500		SN=7500
  6239			000000			ZZ=0
  6240
  6241					A7500:	REPEAT ^D36,
  6242					<;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6243					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6244					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6245					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6246					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6247					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6248					;INDICATE AN ILLEGAL CARRY GENERATION.
  6249					SN=SN+1
  6250						ZZ=ZZ+ZZ
  6251						IFE	ZZ,<ZZ=1>
  6252						MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6253						XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6254						SKIPE			;PASS TEST IF C(AC)=0
  6255						STOP
  6256					
  6257					;**********
  6258					>
  6259					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6260					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6261					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6262					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6263					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6264					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6265					;INDICATE AN ILLEGAL CARRY GENERATION.
  6266			007501		SN=SN+1
  6267			000000			ZZ=ZZ+ZZ
  6268			000001			IFE	ZZ,<ZZ=1>
  6269	033665	200 00 0 00 035074 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6270	033666	430 00 0 00 035074 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6271	033667	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6272						STOP^
  6273	033670	254 04 0 00 033671 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6274	033671	324 00 0 00 033672 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6275
  6276					;**********
  6277
  6278					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6279					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6280					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6281					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6282					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6283					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6284					;INDICATE AN ILLEGAL CARRY GENERATION.
  6285			007502		SN=SN+1
  6286			000002			ZZ=ZZ+ZZ
  6287						IFE	ZZ,<ZZ=1>
  6288	033672	200 00 0 00 035075 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6289	033673	430 00 0 00 035075 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6290	033674	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6291						STOP^
  6292	033675	254 04 0 00 033676 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 28-1
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0137

  6293	033676	324 00 0 00 033677 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6294
  6295					;**********
  6296
  6297					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6298					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6299					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6300					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6301					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6302					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6303					;INDICATE AN ILLEGAL CARRY GENERATION.
  6304			007503		SN=SN+1
  6305			000004			ZZ=ZZ+ZZ
  6306						IFE	ZZ,<ZZ=1>
  6307	033677	200 00 0 00 035076 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6308	033700	430 00 0 00 035076 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6309	033701	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6310						STOP^
  6311	033702	254 04 0 00 033703 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6312	033703	324 00 0 00 033704 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6313
  6314					;**********
  6315
  6316					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6317					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6318					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6319					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6320					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6321					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6322					;INDICATE AN ILLEGAL CARRY GENERATION.
  6323			007504		SN=SN+1
  6324			000010			ZZ=ZZ+ZZ
  6325						IFE	ZZ,<ZZ=1>
  6326	033704	200 00 0 00 035077 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6327	033705	430 00 0 00 035077 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6328	033706	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6329						STOP^
  6330	033707	254 04 0 00 033710 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6331	033710	324 00 0 00 033711 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6332
  6333					;**********
  6334
  6335					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6336					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6337					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6338					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6339					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6340					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6341					;INDICATE AN ILLEGAL CARRY GENERATION.
  6342			007505		SN=SN+1
  6343			000020			ZZ=ZZ+ZZ
  6344						IFE	ZZ,<ZZ=1>
  6345	033711	200 00 0 00 035100 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6346	033712	430 00 0 00 035100 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6347	033713	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 28-2
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0138

  6348						STOP^
  6349	033714	254 04 0 00 033715 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6350	033715	324 00 0 00 033716 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6351
  6352					;**********
  6353
  6354					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6355					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6356					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6357					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6358					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6359					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6360					;INDICATE AN ILLEGAL CARRY GENERATION.
  6361			007506		SN=SN+1
  6362			000040			ZZ=ZZ+ZZ
  6363						IFE	ZZ,<ZZ=1>
  6364	033716	200 00 0 00 035101 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6365	033717	430 00 0 00 035101 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6366	033720	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6367						STOP^
  6368	033721	254 04 0 00 033722 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6369	033722	324 00 0 00 033723 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6370
  6371					;**********
  6372
  6373					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6374					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6375					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6376					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6377					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6378					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6379					;INDICATE AN ILLEGAL CARRY GENERATION.
  6380			007507		SN=SN+1
  6381			000100			ZZ=ZZ+ZZ
  6382						IFE	ZZ,<ZZ=1>
  6383	033723	200 00 0 00 035102 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6384	033724	430 00 0 00 035102 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6385	033725	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6386						STOP^
  6387	033726	254 04 0 00 033727 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6388	033727	324 00 0 00 033730 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6389
  6390					;**********
  6391
  6392					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6393					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6394					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6395					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6396					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6397					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6398					;INDICATE AN ILLEGAL CARRY GENERATION.
  6399			007510		SN=SN+1
  6400			000200			ZZ=ZZ+ZZ
  6401						IFE	ZZ,<ZZ=1>
  6402	033730	200 00 0 00 035103 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 28-3
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0139

  6403	033731	430 00 0 00 035103 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6404	033732	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6405						STOP^
  6406	033733	254 04 0 00 033734 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6407	033734	324 00 0 00 033735 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6408
  6409					;**********
  6410
  6411					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6412					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6413					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6414					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6415					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6416					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6417					;INDICATE AN ILLEGAL CARRY GENERATION.
  6418			007511		SN=SN+1
  6419			000400			ZZ=ZZ+ZZ
  6420						IFE	ZZ,<ZZ=1>
  6421	033735	200 00 0 00 035104 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6422	033736	430 00 0 00 035104 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6423	033737	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6424						STOP^
  6425	033740	254 04 0 00 033741 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6426	033741	324 00 0 00 033742 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6427
  6428					;**********
  6429
  6430					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6431					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6432					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6433					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6434					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6435					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6436					;INDICATE AN ILLEGAL CARRY GENERATION.
  6437			007512		SN=SN+1
  6438			001000			ZZ=ZZ+ZZ
  6439						IFE	ZZ,<ZZ=1>
  6440	033742	200 00 0 00 035105 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6441	033743	430 00 0 00 035105 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6442	033744	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6443						STOP^
  6444	033745	254 04 0 00 033746 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6445	033746	324 00 0 00 033747 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6446
  6447					;**********
  6448
  6449					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6450					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6451					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6452					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6453					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6454					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6455					;INDICATE AN ILLEGAL CARRY GENERATION.
  6456			007513		SN=SN+1
  6457			002000			ZZ=ZZ+ZZ
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 28-4
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0140

  6458						IFE	ZZ,<ZZ=1>
  6459	033747	200 00 0 00 035106 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6460	033750	430 00 0 00 035106 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6461	033751	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6462						STOP^
  6463	033752	254 04 0 00 033753 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6464	033753	324 00 0 00 033754 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6465
  6466					;**********
  6467
  6468					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6469					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6470					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6471					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6472					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6473					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6474					;INDICATE AN ILLEGAL CARRY GENERATION.
  6475			007514		SN=SN+1
  6476			004000			ZZ=ZZ+ZZ
  6477						IFE	ZZ,<ZZ=1>
  6478	033754	200 00 0 00 035107 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6479	033755	430 00 0 00 035107 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6480	033756	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6481						STOP^
  6482	033757	254 04 0 00 033760 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6483	033760	324 00 0 00 033761 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6484
  6485					;**********
  6486
  6487					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6488					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6489					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6490					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6491					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6492					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6493					;INDICATE AN ILLEGAL CARRY GENERATION.
  6494			007515		SN=SN+1
  6495			010000			ZZ=ZZ+ZZ
  6496						IFE	ZZ,<ZZ=1>
  6497	033761	200 00 0 00 035110 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6498	033762	430 00 0 00 035110 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6499	033763	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6500						STOP^
  6501	033764	254 04 0 00 033765 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6502	033765	324 00 0 00 033766 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6503
  6504					;**********
  6505
  6506					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6507					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6508					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6509					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6510					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6511					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6512					;INDICATE AN ILLEGAL CARRY GENERATION.
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 28-5
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0141

  6513			007516		SN=SN+1
  6514			020000			ZZ=ZZ+ZZ
  6515						IFE	ZZ,<ZZ=1>
  6516	033766	200 00 0 00 035111 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6517	033767	430 00 0 00 035111 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6518	033770	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6519						STOP^
  6520	033771	254 04 0 00 033772 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6521	033772	324 00 0 00 033773 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6522
  6523					;**********
  6524
  6525					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6526					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6527					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6528					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6529					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6530					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6531					;INDICATE AN ILLEGAL CARRY GENERATION.
  6532			007517		SN=SN+1
  6533			040000			ZZ=ZZ+ZZ
  6534						IFE	ZZ,<ZZ=1>
  6535	033773	200 00 0 00 035112 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6536	033774	430 00 0 00 035112 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6537	033775	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6538						STOP^
  6539	033776	254 04 0 00 033777 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6540	033777	324 00 0 00 034000 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6541
  6542					;**********
  6543
  6544					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6545					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6546					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6547					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6548					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6549					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6550					;INDICATE AN ILLEGAL CARRY GENERATION.
  6551			007520		SN=SN+1
  6552			100000			ZZ=ZZ+ZZ
  6553						IFE	ZZ,<ZZ=1>
  6554	034000	200 00 0 00 035113 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6555	034001	430 00 0 00 035113 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6556	034002	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6557						STOP^
  6558	034003	254 04 0 00 034004 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6559	034004	324 00 0 00 034005 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6560
  6561					;**********
  6562
  6563					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6564					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6565					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6566					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6567					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 28-6
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0142

  6568					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6569					;INDICATE AN ILLEGAL CARRY GENERATION.
  6570			007521		SN=SN+1
  6571			200000			ZZ=ZZ+ZZ
  6572						IFE	ZZ,<ZZ=1>
  6573	034005	200 00 0 00 035114 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6574	034006	430 00 0 00 035114 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6575	034007	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6576						STOP^
  6577	034010	254 04 0 00 034011 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6578	034011	324 00 0 00 034012 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6579
  6580					;**********
  6581
  6582					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6583					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6584					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6585					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6586					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6587					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6588					;INDICATE AN ILLEGAL CARRY GENERATION.
  6589			007522		SN=SN+1
  6590			400000			ZZ=ZZ+ZZ
  6591						IFE	ZZ,<ZZ=1>
  6592	034012	200 00 0 00 035115 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6593	034013	430 00 0 00 035115 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6594	034014	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6595						STOP^
  6596	034015	254 04 0 00 034016 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6597	034016	324 00 0 00 034017 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6598
  6599					;**********
  6600
  6601					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6602					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6603					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6604					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6605					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6606					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6607					;INDICATE AN ILLEGAL CARRY GENERATION.
  6608			007523		SN=SN+1
  6609		000001	000000			ZZ=ZZ+ZZ
  6610						IFE	ZZ,<ZZ=1>
  6611	034017	200 00 0 00 035116 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6612	034020	430 00 0 00 035116 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6613	034021	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6614						STOP^
  6615	034022	254 04 0 00 034023 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6616	034023	324 00 0 00 034024 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6617
  6618					;**********
  6619
  6620					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6621					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6622					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 28-7
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0143

  6623					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6624					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6625					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6626					;INDICATE AN ILLEGAL CARRY GENERATION.
  6627			007524		SN=SN+1
  6628		000002	000000			ZZ=ZZ+ZZ
  6629						IFE	ZZ,<ZZ=1>
  6630	034024	200 00 0 00 035117 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6631	034025	430 00 0 00 035117 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6632	034026	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6633						STOP^
  6634	034027	254 04 0 00 034030 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6635	034030	324 00 0 00 034031 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6636
  6637					;**********
  6638
  6639					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6640					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6641					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6642					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6643					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6644					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6645					;INDICATE AN ILLEGAL CARRY GENERATION.
  6646			007525		SN=SN+1
  6647		000004	000000			ZZ=ZZ+ZZ
  6648						IFE	ZZ,<ZZ=1>
  6649	034031	200 00 0 00 035120 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6650	034032	430 00 0 00 035120 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6651	034033	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6652						STOP^
  6653	034034	254 04 0 00 034035 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6654	034035	324 00 0 00 034036 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6655
  6656					;**********
  6657
  6658					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6659					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6660					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6661					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6662					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6663					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6664					;INDICATE AN ILLEGAL CARRY GENERATION.
  6665			007526		SN=SN+1
  6666		000010	000000			ZZ=ZZ+ZZ
  6667						IFE	ZZ,<ZZ=1>
  6668	034036	200 00 0 00 035121 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6669	034037	430 00 0 00 035121 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6670	034040	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6671						STOP^
  6672	034041	254 04 0 00 034042 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6673	034042	324 00 0 00 034043 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6674
  6675					;**********
  6676
  6677					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 28-8
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0144

  6678					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6679					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6680					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6681					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6682					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6683					;INDICATE AN ILLEGAL CARRY GENERATION.
  6684			007527		SN=SN+1
  6685		000020	000000			ZZ=ZZ+ZZ
  6686						IFE	ZZ,<ZZ=1>
  6687	034043	200 00 0 00 035122 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6688	034044	430 00 0 00 035122 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6689	034045	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6690						STOP^
  6691	034046	254 04 0 00 034047 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6692	034047	324 00 0 00 034050 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6693
  6694					;**********
  6695
  6696					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6697					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6698					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6699					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6700					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6701					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6702					;INDICATE AN ILLEGAL CARRY GENERATION.
  6703			007530		SN=SN+1
  6704		000040	000000			ZZ=ZZ+ZZ
  6705						IFE	ZZ,<ZZ=1>
  6706	034050	200 00 0 00 035123 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6707	034051	430 00 0 00 035123 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6708	034052	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6709						STOP^
  6710	034053	254 04 0 00 034054 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6711	034054	324 00 0 00 034055 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6712
  6713					;**********
  6714
  6715					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6716					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6717					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6718					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6719					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6720					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6721					;INDICATE AN ILLEGAL CARRY GENERATION.
  6722			007531		SN=SN+1
  6723		000100	000000			ZZ=ZZ+ZZ
  6724						IFE	ZZ,<ZZ=1>
  6725	034055	200 00 0 00 035124 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6726	034056	430 00 0 00 035124 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6727	034057	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6728						STOP^
  6729	034060	254 04 0 00 034061 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6730	034061	324 00 0 00 034062 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6731
  6732					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 28-9
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0145

  6733
  6734					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6735					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6736					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6737					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6738					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6739					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6740					;INDICATE AN ILLEGAL CARRY GENERATION.
  6741			007532		SN=SN+1
  6742		000200	000000			ZZ=ZZ+ZZ
  6743						IFE	ZZ,<ZZ=1>
  6744	034062	200 00 0 00 035125 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6745	034063	430 00 0 00 035125 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6746	034064	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6747						STOP^
  6748	034065	254 04 0 00 034066 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6749	034066	324 00 0 00 034067 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6750
  6751					;**********
  6752
  6753					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6754					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6755					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6756					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6757					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6758					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6759					;INDICATE AN ILLEGAL CARRY GENERATION.
  6760			007533		SN=SN+1
  6761		000400	000000			ZZ=ZZ+ZZ
  6762						IFE	ZZ,<ZZ=1>
  6763	034067	200 00 0 00 035073 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6764	034070	430 00 0 00 035073 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6765	034071	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6766						STOP^
  6767	034072	254 04 0 00 034073 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6768	034073	324 00 0 00 034074 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6769
  6770					;**********
  6771
  6772					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6773					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6774					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6775					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6776					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6777					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6778					;INDICATE AN ILLEGAL CARRY GENERATION.
  6779			007534		SN=SN+1
  6780		001000	000000			ZZ=ZZ+ZZ
  6781						IFE	ZZ,<ZZ=1>
  6782	034074	200 00 0 00 035126 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6783	034075	430 00 0 00 035126 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6784	034076	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6785						STOP^
  6786	034077	254 04 0 00 034100 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6787	034100	324 00 0 00 034101 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 28-10
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0146

  6788
  6789					;**********
  6790
  6791					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6792					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6793					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6794					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6795					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6796					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6797					;INDICATE AN ILLEGAL CARRY GENERATION.
  6798			007535		SN=SN+1
  6799		002000	000000			ZZ=ZZ+ZZ
  6800						IFE	ZZ,<ZZ=1>
  6801	034101	200 00 0 00 035127 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6802	034102	430 00 0 00 035127 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6803	034103	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6804						STOP^
  6805	034104	254 04 0 00 034105 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6806	034105	324 00 0 00 034106 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6807
  6808					;**********
  6809
  6810					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6811					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6812					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6813					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6814					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6815					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6816					;INDICATE AN ILLEGAL CARRY GENERATION.
  6817			007536		SN=SN+1
  6818		004000	000000			ZZ=ZZ+ZZ
  6819						IFE	ZZ,<ZZ=1>
  6820	034106	200 00 0 00 035130 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6821	034107	430 00 0 00 035130 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6822	034110	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6823						STOP^
  6824	034111	254 04 0 00 034112 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6825	034112	324 00 0 00 034113 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6826
  6827					;**********
  6828
  6829					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6830					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6831					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6832					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6833					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6834					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6835					;INDICATE AN ILLEGAL CARRY GENERATION.
  6836			007537		SN=SN+1
  6837		010000	000000			ZZ=ZZ+ZZ
  6838						IFE	ZZ,<ZZ=1>
  6839	034113	200 00 0 00 035131 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6840	034114	430 00 0 00 035131 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6841	034115	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6842						STOP^
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 28-11
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0147

  6843	034116	254 04 0 00 034117 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6844	034117	324 00 0 00 034120 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6845
  6846					;**********
  6847
  6848					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6849					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6850					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6851					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6852					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6853					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6854					;INDICATE AN ILLEGAL CARRY GENERATION.
  6855			007540		SN=SN+1
  6856		020000	000000			ZZ=ZZ+ZZ
  6857						IFE	ZZ,<ZZ=1>
  6858	034120	200 00 0 00 035132 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6859	034121	430 00 0 00 035132 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6860	034122	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6861						STOP^
  6862	034123	254 04 0 00 034124 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6863	034124	324 00 0 00 034125 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6864
  6865					;**********
  6866
  6867					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6868					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6869					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6870					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6871					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6872					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6873					;INDICATE AN ILLEGAL CARRY GENERATION.
  6874			007541		SN=SN+1
  6875		040000	000000			ZZ=ZZ+ZZ
  6876						IFE	ZZ,<ZZ=1>
  6877	034125	200 00 0 00 035133 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6878	034126	430 00 0 00 035133 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6879	034127	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6880						STOP^
  6881	034130	254 04 0 00 034131 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6882	034131	324 00 0 00 034132 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6883
  6884					;**********
  6885
  6886					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6887					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6888					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6889					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6890					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6891					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6892					;INDICATE AN ILLEGAL CARRY GENERATION.
  6893			007542		SN=SN+1
  6894		100000	000000			ZZ=ZZ+ZZ
  6895						IFE	ZZ,<ZZ=1>
  6896	034132	200 00 0 00 035134 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6897	034133	430 00 0 00 035134 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 28-12
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0148

  6898	034134	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6899						STOP^
  6900	034135	254 04 0 00 034136 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6901	034136	324 00 0 00 034137 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6902
  6903					;**********
  6904
  6905					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6906					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6907					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6908					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6909					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6910					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6911					;INDICATE AN ILLEGAL CARRY GENERATION.
  6912			007543		SN=SN+1
  6913		200000	000000			ZZ=ZZ+ZZ
  6914						IFE	ZZ,<ZZ=1>
  6915	034137	200 00 0 00 035135 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6916	034140	430 00 0 00 035135 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6917	034141	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6918						STOP^
  6919	034142	254 04 0 00 034143 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6920	034143	324 00 0 00 034144 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6921
  6922					;**********
  6923
  6924					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION
  6925					;WHERE C(AC) = C(E) IS AN AC CONTAINING ALL ZEROS.  FIRST,
  6926					;THE AC IS INITIALIZED WITH A WORD CONTAINING ALL ZEROS EXCEPT
  6927					;FOR ONE FLOATING ONE; THEN, XOR IS EXECUTED WITH E CONTAINING THE SAME
  6928					;NUMBER.  THE RESULT SHOULD BE AN AC CONTAINING ALL ZEROS.  THIS TEST
  6929					;IS REPEATED 36 TIMES.  IF ANY BIT IN THE RESULT IS NON-ZERO, IT MAY
  6930					;INDICATE AN ILLEGAL CARRY GENERATION.
  6931			007544		SN=SN+1
  6932		400000	000000			ZZ=ZZ+ZZ
  6933						IFE	ZZ,<ZZ=1>
  6934	034144	200 00 0 00 035065 		MOVE	[ZZ]		;INITIALIZE AC WITH ONE FLOATING BIT SET
  6935	034145	430 00 0 00 035065 		XOR	[ZZ]		;*XOR WITH C(AC)=C(E) SHOULD RESULT IN C(AC)=0
  6936	034146	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6937						STOP^
  6938	034147	254 04 0 00 034150 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6939	034150	324 00 0 00 034151 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6940
  6941					;**********
  6942
  6943					;THIS TEST VERIFIES THAT THE RESULT OF AN XOR INSTRUCTION WHERE
  6944					;C(AC)=C(E)=0 IS AN AC CONTAINING ALL ZEROS; FIRST THE AC IS CLEARED; THEN
  6945					;XOR IS EXECUTED WITH C(E)=0.  THE RESULT IN THE AC IS CHECKED FOR ALL ZEROS
  6946
  6947	034151	200 00 0 00 035062 	A7600:	MOVE	[0]		;INITIALIZE AC TO ALL ZEROS
  6948	034152	430 00 0 00 035062 		XOR	[0]		;*XOR WITH C(AC)=C(E)=0 SHOULD RESULT INC(AC)=0
  6949	034153	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6950						STOP^
  6951	034154	254 04 0 00 034155 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6952	034155	324 00 0 00 034156 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 28-13
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0149

  6953
  6954					;**********
  6955
  6956					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  6957					;C(AC)=0 AND C(E) ALL ONES IS AN AC CONTAINING ALL ZEROS SINCE
  6958					;THE EQUIVALENCE FUNCTION SHOULD SET ONLY LIKE BITS.  FIRST, THE AC
  6959					;SHOULD BE CLEARED; THEN, EQV IS EXECUTED WITH E CONTAINING ALL ONES.
  6960					;THE AC IS THEN CHECKED FOR ALL ZEROS
  6961
  6962	034156	200 00 0 00 035062 	A7700:	MOVE	[0]		;CLEAR THE AC
  6963	034157	444 00 0 00 035063 		EQV	[-1]		;*EQV WITH C(AC)=0 AND C(E) ALL ONES SHOULD
  6964									;RESULT IN C(AC)=0
  6965	034160	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  6966						STOP^
  6967	034161	254 04 0 00 034162 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  6968	034162	324 00 0 00 034163 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  6969
  6970					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 29
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0150

  6971			010000		SN=10000
  6972			000000			ZZ=0
  6973
  6974					A10000:	REPEAT	^D18,
  6975					<;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  6976					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  6977					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  6978					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  6979					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  6980					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  6981					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  6982					SN=SN+1
  6983						ZZ=ZZ+ZZ+1
  6984						IFE	<ZZ-1>,<ZZ=-2>
  6985						MOVE	[0]		;PRESET AC TO ALL ZEROS
  6986						EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  6987									;RESULT IN C(AC) NON-ZERO
  6988						SKIPN			;PASS TEST IF C(AC) NON-ZERO
  6989						STOP
  6990					
  6991					;**********
  6992					>
  6993					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  6994					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  6995					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  6996					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  6997					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  6998					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  6999					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7000			010001		SN=SN+1
  7001			000001			ZZ=ZZ+ZZ+1
  7002		777777	777776			IFE	<ZZ-1>,<ZZ=-2>
  7003	034163	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7004	034164	444 00 0 00 035142 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7005									;RESULT IN C(AC) NON-ZERO
  7006	034165	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7007						STOP^
  7008	034166	254 04 0 00 034167 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7009	034167	324 00 0 00 034170 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7010
  7011					;**********
  7012
  7013					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7014					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7015					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7016					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7017					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7018					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7019					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7020			010002		SN=SN+1
  7021		777777	777775			ZZ=ZZ+ZZ+1
  7022						IFE	<ZZ-1>,<ZZ=-2>
  7023	034170	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7024	034171	444 00 0 00 035143 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7025									;RESULT IN C(AC) NON-ZERO
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 29-1
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0151

  7026	034172	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7027						STOP^
  7028	034173	254 04 0 00 034174 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7029	034174	324 00 0 00 034175 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7030
  7031					;**********
  7032
  7033					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7034					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7035					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7036					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7037					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7038					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7039					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7040			010003		SN=SN+1
  7041		777777	777773			ZZ=ZZ+ZZ+1
  7042						IFE	<ZZ-1>,<ZZ=-2>
  7043	034175	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7044	034176	444 00 0 00 035144 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7045									;RESULT IN C(AC) NON-ZERO
  7046	034177	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7047						STOP^
  7048	034200	254 04 0 00 034201 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7049	034201	324 00 0 00 034202 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7050
  7051					;**********
  7052
  7053					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7054					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7055					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7056					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7057					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7058					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7059					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7060			010004		SN=SN+1
  7061		777777	777767			ZZ=ZZ+ZZ+1
  7062						IFE	<ZZ-1>,<ZZ=-2>
  7063	034202	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7064	034203	444 00 0 00 035145 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7065									;RESULT IN C(AC) NON-ZERO
  7066	034204	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7067						STOP^
  7068	034205	254 04 0 00 034206 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7069	034206	324 00 0 00 034207 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7070
  7071					;**********
  7072
  7073					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7074					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7075					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7076					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7077					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7078					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7079					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7080			010005		SN=SN+1
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 29-2
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0152

  7081		777777	777757			ZZ=ZZ+ZZ+1
  7082						IFE	<ZZ-1>,<ZZ=-2>
  7083	034207	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7084	034210	444 00 0 00 035146 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7085									;RESULT IN C(AC) NON-ZERO
  7086	034211	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7087						STOP^
  7088	034212	254 04 0 00 034213 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7089	034213	324 00 0 00 034214 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7090
  7091					;**********
  7092
  7093					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7094					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7095					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7096					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7097					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7098					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7099					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7100			010006		SN=SN+1
  7101		777777	777737			ZZ=ZZ+ZZ+1
  7102						IFE	<ZZ-1>,<ZZ=-2>
  7103	034214	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7104	034215	444 00 0 00 035147 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7105									;RESULT IN C(AC) NON-ZERO
  7106	034216	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7107						STOP^
  7108	034217	254 04 0 00 034220 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7109	034220	324 00 0 00 034221 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7110
  7111					;**********
  7112
  7113					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7114					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7115					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7116					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7117					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7118					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7119					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7120			010007		SN=SN+1
  7121		777777	777677			ZZ=ZZ+ZZ+1
  7122						IFE	<ZZ-1>,<ZZ=-2>
  7123	034221	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7124	034222	444 00 0 00 035150 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7125									;RESULT IN C(AC) NON-ZERO
  7126	034223	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7127						STOP^
  7128	034224	254 04 0 00 034225 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7129	034225	324 00 0 00 034226 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7130
  7131					;**********
  7132
  7133					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7134					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7135					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 29-3
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0153

  7136					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7137					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7138					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7139					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7140			010010		SN=SN+1
  7141		777777	777577			ZZ=ZZ+ZZ+1
  7142						IFE	<ZZ-1>,<ZZ=-2>
  7143	034226	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7144	034227	444 00 0 00 035151 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7145									;RESULT IN C(AC) NON-ZERO
  7146	034230	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7147						STOP^
  7148	034231	254 04 0 00 034232 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7149	034232	324 00 0 00 034233 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7150
  7151					;**********
  7152
  7153					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7154					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7155					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7156					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7157					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7158					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7159					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7160			010011		SN=SN+1
  7161		777777	777377			ZZ=ZZ+ZZ+1
  7162						IFE	<ZZ-1>,<ZZ=-2>
  7163	034233	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7164	034234	444 00 0 00 035152 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7165									;RESULT IN C(AC) NON-ZERO
  7166	034235	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7167						STOP^
  7168	034236	254 04 0 00 034237 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7169	034237	324 00 0 00 034240 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7170
  7171					;**********
  7172
  7173					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7174					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7175					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7176					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7177					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7178					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7179					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7180			010012		SN=SN+1
  7181		777777	776777			ZZ=ZZ+ZZ+1
  7182						IFE	<ZZ-1>,<ZZ=-2>
  7183	034240	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7184	034241	444 00 0 00 035153 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7185									;RESULT IN C(AC) NON-ZERO
  7186	034242	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7187						STOP^
  7188	034243	254 04 0 00 034244 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7189	034244	324 00 0 00 034245 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7190
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 29-4
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0154

  7191					;**********
  7192
  7193					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7194					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7195					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7196					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7197					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7198					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7199					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7200			010013		SN=SN+1
  7201		777777	775777			ZZ=ZZ+ZZ+1
  7202						IFE	<ZZ-1>,<ZZ=-2>
  7203	034245	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7204	034246	444 00 0 00 035154 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7205									;RESULT IN C(AC) NON-ZERO
  7206	034247	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7207						STOP^
  7208	034250	254 04 0 00 034251 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7209	034251	324 00 0 00 034252 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7210
  7211					;**********
  7212
  7213					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7214					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7215					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7216					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7217					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7218					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7219					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7220			010014		SN=SN+1
  7221		777777	773777			ZZ=ZZ+ZZ+1
  7222						IFE	<ZZ-1>,<ZZ=-2>
  7223	034252	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7224	034253	444 00 0 00 035155 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7225									;RESULT IN C(AC) NON-ZERO
  7226	034254	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7227						STOP^
  7228	034255	254 04 0 00 034256 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7229	034256	324 00 0 00 034257 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7230
  7231					;**********
  7232
  7233					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7234					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7235					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7236					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7237					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7238					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7239					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7240			010015		SN=SN+1
  7241		777777	767777			ZZ=ZZ+ZZ+1
  7242						IFE	<ZZ-1>,<ZZ=-2>
  7243	034257	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7244	034260	444 00 0 00 035156 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7245									;RESULT IN C(AC) NON-ZERO
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 29-5
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0155

  7246	034261	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7247						STOP^
  7248	034262	254 04 0 00 034263 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7249	034263	324 00 0 00 034264 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7250
  7251					;**********
  7252
  7253					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7254					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7255					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7256					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7257					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7258					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7259					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7260			010016		SN=SN+1
  7261		777777	757777			ZZ=ZZ+ZZ+1
  7262						IFE	<ZZ-1>,<ZZ=-2>
  7263	034264	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7264	034265	444 00 0 00 035157 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7265									;RESULT IN C(AC) NON-ZERO
  7266	034266	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7267						STOP^
  7268	034267	254 04 0 00 034270 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7269	034270	324 00 0 00 034271 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7270
  7271					;**********
  7272
  7273					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7274					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7275					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7276					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7277					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7278					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7279					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7280			010017		SN=SN+1
  7281		777777	737777			ZZ=ZZ+ZZ+1
  7282						IFE	<ZZ-1>,<ZZ=-2>
  7283	034271	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7284	034272	444 00 0 00 035160 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7285									;RESULT IN C(AC) NON-ZERO
  7286	034273	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7287						STOP^
  7288	034274	254 04 0 00 034275 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7289	034275	324 00 0 00 034276 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7290
  7291					;**********
  7292
  7293					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7294					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7295					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7296					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7297					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7298					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7299					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7300			010020		SN=SN+1
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 29-6
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0156

  7301		777777	677777			ZZ=ZZ+ZZ+1
  7302						IFE	<ZZ-1>,<ZZ=-2>
  7303	034276	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7304	034277	444 00 0 00 035161 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7305									;RESULT IN C(AC) NON-ZERO
  7306	034300	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7307						STOP^
  7308	034301	254 04 0 00 034302 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7309	034302	324 00 0 00 034303 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7310
  7311					;**********
  7312
  7313					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7314					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7315					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7316					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7317					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7318					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7319					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7320			010021		SN=SN+1
  7321		777777	577777			ZZ=ZZ+ZZ+1
  7322						IFE	<ZZ-1>,<ZZ=-2>
  7323	034303	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7324	034304	444 00 0 00 035162 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7325									;RESULT IN C(AC) NON-ZERO
  7326	034305	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7327						STOP^
  7328	034306	254 04 0 00 034307 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7329	034307	324 00 0 00 034310 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7330
  7331					;**********
  7332
  7333					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7334					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7335					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7336					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7337					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7338					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7339					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7340			010022		SN=SN+1
  7341		777777	377777			ZZ=ZZ+ZZ+1
  7342						IFE	<ZZ-1>,<ZZ=-2>
  7343	034310	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7344	034311	444 00 0 00 035163 		EQV	[XWD -1,ZZ]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7345									;RESULT IN C(AC) NON-ZERO
  7346	034312	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7347						STOP^
  7348	034313	254 04 0 00 034314 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7349	034314	324 00 0 00 034315 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7350
  7351					;**********
  7352
  7353			010100		SN=10100
  7354			000000			ZZ=0
  7355
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 29-7
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0157

  7356					A10100:	REPEAT	^D18,
  7357					<;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7358					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7359					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7360					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7361					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7362					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7363					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7364					SN=SN+1
  7365						ZZ=ZZ+ZZ+1
  7366						IFE	<ZZ-1>,<ZZ=-2>
  7367						MOVE	[0]		;PRESET AC TO ALL ZEROS
  7368						EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7369									;RESULT IN C(AC) NON-ZERO
  7370						SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7371						STOP
  7372					
  7373					;**********
  7374					>
  7375					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7376					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7377					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7378					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7379					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7380					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7381					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7382			010101		SN=SN+1
  7383			000001			ZZ=ZZ+ZZ+1
  7384		777777	777776			IFE	<ZZ-1>,<ZZ=-2>
  7385	034315	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7386	034316	444 00 0 00 035164 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7387									;RESULT IN C(AC) NON-ZERO
  7388	034317	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7389						STOP^
  7390	034320	254 04 0 00 034321 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7391	034321	324 00 0 00 034322 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7392
  7393					;**********
  7394
  7395					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7396					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7397					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7398					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7399					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7400					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7401					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7402			010102		SN=SN+1
  7403		777777	777775			ZZ=ZZ+ZZ+1
  7404						IFE	<ZZ-1>,<ZZ=-2>
  7405	034322	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7406	034323	444 00 0 00 035165 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7407									;RESULT IN C(AC) NON-ZERO
  7408	034324	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7409						STOP^
  7410	034325	254 04 0 00 034326 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 29-8
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0158

  7411	034326	324 00 0 00 034327 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7412
  7413					;**********
  7414
  7415					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7416					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7417					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7418					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7419					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7420					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7421					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7422			010103		SN=SN+1
  7423		777777	777773			ZZ=ZZ+ZZ+1
  7424						IFE	<ZZ-1>,<ZZ=-2>
  7425	034327	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7426	034330	444 00 0 00 035166 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7427									;RESULT IN C(AC) NON-ZERO
  7428	034331	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7429						STOP^
  7430	034332	254 04 0 00 034333 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7431	034333	324 00 0 00 034334 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7432
  7433					;**********
  7434
  7435					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7436					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7437					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7438					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7439					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7440					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7441					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7442			010104		SN=SN+1
  7443		777777	777767			ZZ=ZZ+ZZ+1
  7444						IFE	<ZZ-1>,<ZZ=-2>
  7445	034334	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7446	034335	444 00 0 00 035167 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7447									;RESULT IN C(AC) NON-ZERO
  7448	034336	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7449						STOP^
  7450	034337	254 04 0 00 034340 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7451	034340	324 00 0 00 034341 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7452
  7453					;**********
  7454
  7455					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7456					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7457					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7458					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7459					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7460					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7461					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7462			010105		SN=SN+1
  7463		777777	777757			ZZ=ZZ+ZZ+1
  7464						IFE	<ZZ-1>,<ZZ=-2>
  7465	034341	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 29-9
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0159

  7466	034342	444 00 0 00 035170 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7467									;RESULT IN C(AC) NON-ZERO
  7468	034343	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7469						STOP^
  7470	034344	254 04 0 00 034345 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7471	034345	324 00 0 00 034346 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7472
  7473					;**********
  7474
  7475					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7476					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7477					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7478					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7479					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7480					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7481					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7482			010106		SN=SN+1
  7483		777777	777737			ZZ=ZZ+ZZ+1
  7484						IFE	<ZZ-1>,<ZZ=-2>
  7485	034346	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7486	034347	444 00 0 00 035171 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7487									;RESULT IN C(AC) NON-ZERO
  7488	034350	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7489						STOP^
  7490	034351	254 04 0 00 034352 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7491	034352	324 00 0 00 034353 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7492
  7493					;**********
  7494
  7495					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7496					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7497					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7498					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7499					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7500					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7501					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7502			010107		SN=SN+1
  7503		777777	777677			ZZ=ZZ+ZZ+1
  7504						IFE	<ZZ-1>,<ZZ=-2>
  7505	034353	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7506	034354	444 00 0 00 035172 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7507									;RESULT IN C(AC) NON-ZERO
  7508	034355	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7509						STOP^
  7510	034356	254 04 0 00 034357 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7511	034357	324 00 0 00 034360 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7512
  7513					;**********
  7514
  7515					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7516					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7517					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7518					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7519					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7520					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 29-10
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0160

  7521					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7522			010110		SN=SN+1
  7523		777777	777577			ZZ=ZZ+ZZ+1
  7524						IFE	<ZZ-1>,<ZZ=-2>
  7525	034360	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7526	034361	444 00 0 00 035173 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7527									;RESULT IN C(AC) NON-ZERO
  7528	034362	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7529						STOP^
  7530	034363	254 04 0 00 034364 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7531	034364	324 00 0 00 034365 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7532
  7533					;**********
  7534
  7535					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7536					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7537					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7538					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7539					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7540					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7541					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7542			010111		SN=SN+1
  7543		777777	777377			ZZ=ZZ+ZZ+1
  7544						IFE	<ZZ-1>,<ZZ=-2>
  7545	034365	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7546	034366	444 00 0 00 035174 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7547									;RESULT IN C(AC) NON-ZERO
  7548	034367	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7549						STOP^
  7550	034370	254 04 0 00 034371 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7551	034371	324 00 0 00 034372 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7552
  7553					;**********
  7554
  7555					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7556					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7557					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7558					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7559					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7560					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7561					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7562			010112		SN=SN+1
  7563		777777	776777			ZZ=ZZ+ZZ+1
  7564						IFE	<ZZ-1>,<ZZ=-2>
  7565	034372	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7566	034373	444 00 0 00 035175 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7567									;RESULT IN C(AC) NON-ZERO
  7568	034374	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7569						STOP^
  7570	034375	254 04 0 00 034376 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7571	034376	324 00 0 00 034377 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7572
  7573					;**********
  7574
  7575					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 29-11
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0161

  7576					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7577					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7578					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7579					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7580					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7581					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7582			010113		SN=SN+1
  7583		777777	775777			ZZ=ZZ+ZZ+1
  7584						IFE	<ZZ-1>,<ZZ=-2>
  7585	034377	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7586	034400	444 00 0 00 035176 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7587									;RESULT IN C(AC) NON-ZERO
  7588	034401	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7589						STOP^
  7590	034402	254 04 0 00 034403 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7591	034403	324 00 0 00 034404 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7592
  7593					;**********
  7594
  7595					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7596					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7597					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7598					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7599					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7600					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7601					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7602			010114		SN=SN+1
  7603		777777	773777			ZZ=ZZ+ZZ+1
  7604						IFE	<ZZ-1>,<ZZ=-2>
  7605	034404	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7606	034405	444 00 0 00 035177 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7607									;RESULT IN C(AC) NON-ZERO
  7608	034406	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7609						STOP^
  7610	034407	254 04 0 00 034410 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7611	034410	324 00 0 00 034411 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7612
  7613					;**********
  7614
  7615					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7616					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7617					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7618					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7619					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7620					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7621					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7622			010115		SN=SN+1
  7623		777777	767777			ZZ=ZZ+ZZ+1
  7624						IFE	<ZZ-1>,<ZZ=-2>
  7625	034411	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7626	034412	444 00 0 00 035200 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7627									;RESULT IN C(AC) NON-ZERO
  7628	034413	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7629						STOP^
  7630	034414	254 04 0 00 034415 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 29-12
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0162

  7631	034415	324 00 0 00 034416 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7632
  7633					;**********
  7634
  7635					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7636					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7637					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7638					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7639					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7640					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7641					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7642			010116		SN=SN+1
  7643		777777	757777			ZZ=ZZ+ZZ+1
  7644						IFE	<ZZ-1>,<ZZ=-2>
  7645	034416	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7646	034417	444 00 0 00 035201 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7647									;RESULT IN C(AC) NON-ZERO
  7648	034420	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7649						STOP^
  7650	034421	254 04 0 00 034422 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7651	034422	324 00 0 00 034423 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7652
  7653					;**********
  7654
  7655					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7656					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7657					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7658					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7659					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7660					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7661					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7662			010117		SN=SN+1
  7663		777777	737777			ZZ=ZZ+ZZ+1
  7664						IFE	<ZZ-1>,<ZZ=-2>
  7665	034423	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7666	034424	444 00 0 00 035202 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7667									;RESULT IN C(AC) NON-ZERO
  7668	034425	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7669						STOP^
  7670	034426	254 04 0 00 034427 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7671	034427	324 00 0 00 034430 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7672
  7673					;**********
  7674
  7675					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7676					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7677					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7678					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7679					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7680					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7681					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7682			010120		SN=SN+1
  7683		777777	677777			ZZ=ZZ+ZZ+1
  7684						IFE	<ZZ-1>,<ZZ=-2>
  7685	034430	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 29-13
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0163

  7686	034431	444 00 0 00 035203 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7687									;RESULT IN C(AC) NON-ZERO
  7688	034432	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7689						STOP^
  7690	034433	254 04 0 00 034434 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7691	034434	324 00 0 00 034435 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7692
  7693					;**********
  7694
  7695					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7696					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7697					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7698					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7699					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7700					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7701					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7702			010121		SN=SN+1
  7703		777777	577777			ZZ=ZZ+ZZ+1
  7704						IFE	<ZZ-1>,<ZZ=-2>
  7705	034435	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7706	034436	444 00 0 00 035204 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7707									;RESULT IN C(AC) NON-ZERO
  7708	034437	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7709						STOP^
  7710	034440	254 04 0 00 034441 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7711	034441	324 00 0 00 034442 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7712
  7713					;**********
  7714
  7715					;THIS TEST VERIFIES THAT THE RESULT OF AN EQV INSTRUCTION WHERE
  7716					;C(AC)=0 AND C(E) IS ALL ONES EXCEPT FOR A ZERO IN ONLY ONE BIT IS AN
  7717					;AC WHOSE CONTENTS IS NON-ZERO (A ONE RESULTS IN THE BIT WHERE
  7718					;E CONTAINS A ZERO).  THIS TEST IS REPEATED 36 TIMES SO THAT EACH BIT
  7719					;OF THE RESULT IS A ONE ONCE AND ONLY ONCE.  FIRST, THE AC IS
  7720					;CLEARED; THEN,EQV IS EXECUTED WITH ONE BIT OF E EQUAL TO ZERO.  THE 
  7721					;RESULT IN THE AC IS THEN CHECKED FOR ITS CONTENTS NON-ZERO
  7722			010122		SN=SN+1
  7723		777777	377777			ZZ=ZZ+ZZ+1
  7724						IFE	<ZZ-1>,<ZZ=-2>
  7725	034442	200 00 0 00 035062 		MOVE	[0]		;PRESET AC TO ALL ZEROS
  7726	034443	444 00 0 00 035064 		EQV	[XWD ZZ,-1]	;*EQV WITH C(AC)=0 AND ONE BIT OF C(E)=0 SHOULD
  7727									;RESULT IN C(AC) NON-ZERO
  7728	034444	336 00 0 00 000000 		SKIPN			;PASS TEST IF C(AC) NON-ZERO
  7729						STOP^
  7730	034445	254 04 0 00 034446 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7731	034446	324 00 0 00 034447 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7732
  7733					;**********
  7734
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 30
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0164

  7735					;THIS TEST VERIFIES THAT THE RESULT OF AN AC CONTAINING ALL ZEROS
  7736					;EQUIVALENCED WITH AN E CONTAINING ALL ZEROS IS AN AC CONTAINING ALL
  7737					;ONES; AND FUTHERMORE, IF THIS AC CONTAINING ALL ONES IS EQUIVALANCED
  7738					;WITH AN E CONTAINING ALL ZEROS, THE FINAL RESULT IN THE AC
  7739					;SHOULD BE ALL ZEROS.  FIRST, THE AC IS INITIALIZED TO ALL ZEROS, THEN,
  7740					;THIS AC IS EQUIVALENCED TWICE WITH AN E CONTAINING ALL ZEROS.  THE AC IS 
  7741					;THEN CHECKED FOR ALL ZEROS
  7742
  7743	034447	200 00 0 00 035062 	A10200:	MOVE	[0]		;CLEAR THE AC
  7744	034450	444 00 0 00 035062 		EQV	[0]		;*EQV SHOULD RESULT IN C(AC)=ALL ONES
  7745	034451	444 00 0 00 035062 		EQV	[0]		;*EQV SHOULD RESULT IN C(AC)=0
  7746	034452	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7747						STOP^
  7748	034453	254 04 0 00 034454 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7749	034454	324 00 0 00 034455 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7750
  7751					;**********
  7752
  7753					;THIS TEST VERIFIES THAT THE RESULT OF AN AC CONTAINING ALL ONES 
  7754					;EQUIVALENCED WITH AN E CONTAINING ALL ONES IS AN AC CONTAINING ALL ONES;
  7755					;AND FUTHERMORE, IF THIS AC CONTAINING ALL ONES ISEQUIVALENCED WITH AN E
  7756					;CONTAINING ALL ZEROS, THE FINAL RESULT IN THE AC SHOULD BE ALL ZEROS.
  7757					;FIRST, THE AC IS INITIALIZED TO ALL ONES; THEN, THIS AC IS 
  7758					;EQUIVALENCED WITH AN E OF ALL ONES.  NEXT, THIS SAME AC IS EQUIVALENCED
  7759					;WITH AN E OF ALL ZEROS.  THE AC IS THEN CHECKED FOR ALL ZEROS.
  7760
  7761	034455	200 00 0 00 035063 	A10300:	MOVE	[-1]		;SET C(AC) TO ALL ONES
  7762	034456	444 00 0 00 035063 		EQV	[-1]		;*EQV SHOULD RESULT IN C(AC) OF ALL ONES
  7763	034457	444 00 0 00 035062 		EQV	[0]		;*EQV SHOULD RESULT IN C(AC)=0
  7764	034460	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7765						STOP^
  7766	034461	254 04 0 00 034462 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7767	034462	324 00 0 00 034463 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7768
  7769					;**********
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 31
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0165

  7770			013000		SN=13000
  7771			000000			ZZ=0
  7772
  7773					A13000:	REPEAT	^D36,
  7774					<;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  7775					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  7776					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  7777					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  7778					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  7779					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  7780					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  7781					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  7782					SN=SN+1
  7783						ZZ=ZZ+ZZ
  7784						IFE	ZZ,<ZZ=1>
  7785						MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  7786						AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  7787						EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  7788						EQV	[0]		;RESULTS IN C(AC)=0
  7789						SKIPE			;PASS TEST IF C(AC)=0
  7790						STOP
  7791					
  7792					;**********
  7793					>
  7794					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  7795					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  7796					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  7797					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  7798					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  7799					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  7800					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  7801					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  7802			013001		SN=SN+1
  7803			000000			ZZ=ZZ+ZZ
  7804			000001			IFE	ZZ,<ZZ=1>
  7805	034463	200 00 0 00 035074 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  7806	034464	404 00 0 00 035074 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  7807	034465	444 00 0 00 035074 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  7808	034466	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  7809	034467	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7810						STOP^
  7811	034470	254 04 0 00 034471 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7812	034471	324 00 0 00 034472 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7813
  7814					;**********
  7815
  7816					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  7817					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  7818					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  7819					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  7820					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  7821					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  7822					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  7823					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  7824			013002		SN=SN+1
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 31-1
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0166

  7825			000002			ZZ=ZZ+ZZ
  7826						IFE	ZZ,<ZZ=1>
  7827	034472	200 00 0 00 035075 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  7828	034473	404 00 0 00 035075 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  7829	034474	444 00 0 00 035075 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  7830	034475	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  7831	034476	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7832						STOP^
  7833	034477	254 04 0 00 034500 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7834	034500	324 00 0 00 034501 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7835
  7836					;**********
  7837
  7838					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  7839					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  7840					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  7841					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  7842					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  7843					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  7844					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  7845					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  7846			013003		SN=SN+1
  7847			000004			ZZ=ZZ+ZZ
  7848						IFE	ZZ,<ZZ=1>
  7849	034501	200 00 0 00 035076 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  7850	034502	404 00 0 00 035076 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  7851	034503	444 00 0 00 035076 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  7852	034504	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  7853	034505	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7854						STOP^
  7855	034506	254 04 0 00 034507 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7856	034507	324 00 0 00 034510 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7857
  7858					;**********
  7859
  7860					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  7861					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  7862					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  7863					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  7864					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  7865					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  7866					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  7867					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  7868			013004		SN=SN+1
  7869			000010			ZZ=ZZ+ZZ
  7870						IFE	ZZ,<ZZ=1>
  7871	034510	200 00 0 00 035077 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  7872	034511	404 00 0 00 035077 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  7873	034512	444 00 0 00 035077 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  7874	034513	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  7875	034514	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7876						STOP^
  7877	034515	254 04 0 00 034516 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7878	034516	324 00 0 00 034517 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7879
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 31-2
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0167

  7880					;**********
  7881
  7882					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  7883					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  7884					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  7885					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  7886					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  7887					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  7888					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  7889					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  7890			013005		SN=SN+1
  7891			000020			ZZ=ZZ+ZZ
  7892						IFE	ZZ,<ZZ=1>
  7893	034517	200 00 0 00 035100 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  7894	034520	404 00 0 00 035100 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  7895	034521	444 00 0 00 035100 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  7896	034522	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  7897	034523	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7898						STOP^
  7899	034524	254 04 0 00 034525 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7900	034525	324 00 0 00 034526 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7901
  7902					;**********
  7903
  7904					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  7905					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  7906					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  7907					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  7908					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  7909					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  7910					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  7911					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  7912			013006		SN=SN+1
  7913			000040			ZZ=ZZ+ZZ
  7914						IFE	ZZ,<ZZ=1>
  7915	034526	200 00 0 00 035101 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  7916	034527	404 00 0 00 035101 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  7917	034530	444 00 0 00 035101 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  7918	034531	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  7919	034532	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7920						STOP^
  7921	034533	254 04 0 00 034534 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7922	034534	324 00 0 00 034535 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7923
  7924					;**********
  7925
  7926					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  7927					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  7928					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  7929					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  7930					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  7931					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  7932					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  7933					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  7934			013007		SN=SN+1
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 31-3
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0168

  7935			000100			ZZ=ZZ+ZZ
  7936						IFE	ZZ,<ZZ=1>
  7937	034535	200 00 0 00 035102 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  7938	034536	404 00 0 00 035102 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  7939	034537	444 00 0 00 035102 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  7940	034540	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  7941	034541	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7942						STOP^
  7943	034542	254 04 0 00 034543 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7944	034543	324 00 0 00 034544 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7945
  7946					;**********
  7947
  7948					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  7949					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  7950					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  7951					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  7952					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  7953					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  7954					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  7955					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  7956			013010		SN=SN+1
  7957			000200			ZZ=ZZ+ZZ
  7958						IFE	ZZ,<ZZ=1>
  7959	034544	200 00 0 00 035103 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  7960	034545	404 00 0 00 035103 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  7961	034546	444 00 0 00 035103 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  7962	034547	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  7963	034550	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7964						STOP^
  7965	034551	254 04 0 00 034552 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7966	034552	324 00 0 00 034553 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7967
  7968					;**********
  7969
  7970					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  7971					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  7972					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  7973					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  7974					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  7975					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  7976					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  7977					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  7978			013011		SN=SN+1
  7979			000400			ZZ=ZZ+ZZ
  7980						IFE	ZZ,<ZZ=1>
  7981	034553	200 00 0 00 035104 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  7982	034554	404 00 0 00 035104 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  7983	034555	444 00 0 00 035104 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  7984	034556	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  7985	034557	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  7986						STOP^
  7987	034560	254 04 0 00 034561 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  7988	034561	324 00 0 00 034562 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  7989
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 31-4
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0169

  7990					;**********
  7991
  7992					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  7993					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  7994					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  7995					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  7996					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  7997					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  7998					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  7999					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8000			013012		SN=SN+1
  8001			001000			ZZ=ZZ+ZZ
  8002						IFE	ZZ,<ZZ=1>
  8003	034562	200 00 0 00 035105 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8004	034563	404 00 0 00 035105 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8005	034564	444 00 0 00 035105 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8006	034565	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8007	034566	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8008						STOP^
  8009	034567	254 04 0 00 034570 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8010	034570	324 00 0 00 034571 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8011
  8012					;**********
  8013
  8014					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8015					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8016					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8017					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8018					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8019					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8020					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8021					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8022			013013		SN=SN+1
  8023			002000			ZZ=ZZ+ZZ
  8024						IFE	ZZ,<ZZ=1>
  8025	034571	200 00 0 00 035106 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8026	034572	404 00 0 00 035106 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8027	034573	444 00 0 00 035106 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8028	034574	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8029	034575	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8030						STOP^
  8031	034576	254 04 0 00 034577 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8032	034577	324 00 0 00 034600 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8033
  8034					;**********
  8035
  8036					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8037					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8038					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8039					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8040					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8041					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8042					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8043					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8044			013014		SN=SN+1
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 31-5
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0170

  8045			004000			ZZ=ZZ+ZZ
  8046						IFE	ZZ,<ZZ=1>
  8047	034600	200 00 0 00 035107 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8048	034601	404 00 0 00 035107 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8049	034602	444 00 0 00 035107 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8050	034603	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8051	034604	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8052						STOP^
  8053	034605	254 04 0 00 034606 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8054	034606	324 00 0 00 034607 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8055
  8056					;**********
  8057
  8058					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8059					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8060					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8061					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8062					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8063					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8064					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8065					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8066			013015		SN=SN+1
  8067			010000			ZZ=ZZ+ZZ
  8068						IFE	ZZ,<ZZ=1>
  8069	034607	200 00 0 00 035110 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8070	034610	404 00 0 00 035110 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8071	034611	444 00 0 00 035110 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8072	034612	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8073	034613	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8074						STOP^
  8075	034614	254 04 0 00 034615 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8076	034615	324 00 0 00 034616 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8077
  8078					;**********
  8079
  8080					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8081					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8082					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8083					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8084					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8085					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8086					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8087					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8088			013016		SN=SN+1
  8089			020000			ZZ=ZZ+ZZ
  8090						IFE	ZZ,<ZZ=1>
  8091	034616	200 00 0 00 035111 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8092	034617	404 00 0 00 035111 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8093	034620	444 00 0 00 035111 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8094	034621	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8095	034622	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8096						STOP^
  8097	034623	254 04 0 00 034624 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8098	034624	324 00 0 00 034625 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8099
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 31-6
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0171

  8100					;**********
  8101
  8102					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8103					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8104					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8105					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8106					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8107					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8108					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8109					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8110			013017		SN=SN+1
  8111			040000			ZZ=ZZ+ZZ
  8112						IFE	ZZ,<ZZ=1>
  8113	034625	200 00 0 00 035112 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8114	034626	404 00 0 00 035112 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8115	034627	444 00 0 00 035112 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8116	034630	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8117	034631	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8118						STOP^
  8119	034632	254 04 0 00 034633 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8120	034633	324 00 0 00 034634 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8121
  8122					;**********
  8123
  8124					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8125					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8126					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8127					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8128					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8129					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8130					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8131					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8132			013020		SN=SN+1
  8133			100000			ZZ=ZZ+ZZ
  8134						IFE	ZZ,<ZZ=1>
  8135	034634	200 00 0 00 035113 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8136	034635	404 00 0 00 035113 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8137	034636	444 00 0 00 035113 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8138	034637	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8139	034640	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8140						STOP^
  8141	034641	254 04 0 00 034642 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8142	034642	324 00 0 00 034643 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8143
  8144					;**********
  8145
  8146					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8147					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8148					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8149					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8150					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8151					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8152					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8153					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8154			013021		SN=SN+1
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 31-7
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0172

  8155			200000			ZZ=ZZ+ZZ
  8156						IFE	ZZ,<ZZ=1>
  8157	034643	200 00 0 00 035114 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8158	034644	404 00 0 00 035114 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8159	034645	444 00 0 00 035114 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8160	034646	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8161	034647	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8162						STOP^
  8163	034650	254 04 0 00 034651 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8164	034651	324 00 0 00 034652 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8165
  8166					;**********
  8167
  8168					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8169					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8170					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8171					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8172					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8173					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8174					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8175					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8176			013022		SN=SN+1
  8177			400000			ZZ=ZZ+ZZ
  8178						IFE	ZZ,<ZZ=1>
  8179	034652	200 00 0 00 035115 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8180	034653	404 00 0 00 035115 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8181	034654	444 00 0 00 035115 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8182	034655	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8183	034656	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8184						STOP^
  8185	034657	254 04 0 00 034660 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8186	034660	324 00 0 00 034661 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8187
  8188					;**********
  8189
  8190					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8191					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8192					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8193					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8194					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8195					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8196					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8197					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8198			013023		SN=SN+1
  8199		000001	000000			ZZ=ZZ+ZZ
  8200						IFE	ZZ,<ZZ=1>
  8201	034661	200 00 0 00 035116 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8202	034662	404 00 0 00 035116 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8203	034663	444 00 0 00 035116 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8204	034664	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8205	034665	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8206						STOP^
  8207	034666	254 04 0 00 034667 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8208	034667	324 00 0 00 034670 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8209
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 31-8
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0173

  8210					;**********
  8211
  8212					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8213					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8214					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8215					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8216					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8217					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8218					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8219					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8220			013024		SN=SN+1
  8221		000002	000000			ZZ=ZZ+ZZ
  8222						IFE	ZZ,<ZZ=1>
  8223	034670	200 00 0 00 035117 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8224	034671	404 00 0 00 035117 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8225	034672	444 00 0 00 035117 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8226	034673	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8227	034674	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8228						STOP^
  8229	034675	254 04 0 00 034676 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8230	034676	324 00 0 00 034677 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8231
  8232					;**********
  8233
  8234					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8235					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8236					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8237					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8238					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8239					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8240					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8241					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8242			013025		SN=SN+1
  8243		000004	000000			ZZ=ZZ+ZZ
  8244						IFE	ZZ,<ZZ=1>
  8245	034677	200 00 0 00 035120 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8246	034700	404 00 0 00 035120 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8247	034701	444 00 0 00 035120 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8248	034702	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8249	034703	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8250						STOP^
  8251	034704	254 04 0 00 034705 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8252	034705	324 00 0 00 034706 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8253
  8254					;**********
  8255
  8256					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8257					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8258					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8259					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8260					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8261					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8262					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8263					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8264			013026		SN=SN+1
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 31-9
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0174

  8265		000010	000000			ZZ=ZZ+ZZ
  8266						IFE	ZZ,<ZZ=1>
  8267	034706	200 00 0 00 035121 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8268	034707	404 00 0 00 035121 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8269	034710	444 00 0 00 035121 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8270	034711	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8271	034712	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8272						STOP^
  8273	034713	254 04 0 00 034714 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8274	034714	324 00 0 00 034715 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8275
  8276					;**********
  8277
  8278					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8279					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8280					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8281					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8282					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8283					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8284					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8285					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8286			013027		SN=SN+1
  8287		000020	000000			ZZ=ZZ+ZZ
  8288						IFE	ZZ,<ZZ=1>
  8289	034715	200 00 0 00 035122 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8290	034716	404 00 0 00 035122 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8291	034717	444 00 0 00 035122 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8292	034720	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8293	034721	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8294						STOP^
  8295	034722	254 04 0 00 034723 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8296	034723	324 00 0 00 034724 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8297
  8298					;**********
  8299
  8300					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8301					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8302					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8303					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8304					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8305					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8306					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8307					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8308			013030		SN=SN+1
  8309		000040	000000			ZZ=ZZ+ZZ
  8310						IFE	ZZ,<ZZ=1>
  8311	034724	200 00 0 00 035123 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8312	034725	404 00 0 00 035123 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8313	034726	444 00 0 00 035123 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8314	034727	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8315	034730	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8316						STOP^
  8317	034731	254 04 0 00 034732 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8318	034732	324 00 0 00 034733 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8319
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 31-10
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0175

  8320					;**********
  8321
  8322					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8323					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8324					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8325					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8326					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8327					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8328					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8329					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8330			013031		SN=SN+1
  8331		000100	000000			ZZ=ZZ+ZZ
  8332						IFE	ZZ,<ZZ=1>
  8333	034733	200 00 0 00 035124 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8334	034734	404 00 0 00 035124 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8335	034735	444 00 0 00 035124 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8336	034736	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8337	034737	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8338						STOP^
  8339	034740	254 04 0 00 034741 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8340	034741	324 00 0 00 034742 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8341
  8342					;**********
  8343
  8344					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8345					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8346					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8347					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8348					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8349					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8350					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8351					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8352			013032		SN=SN+1
  8353		000200	000000			ZZ=ZZ+ZZ
  8354						IFE	ZZ,<ZZ=1>
  8355	034742	200 00 0 00 035125 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8356	034743	404 00 0 00 035125 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8357	034744	444 00 0 00 035125 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8358	034745	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8359	034746	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8360						STOP^
  8361	034747	254 04 0 00 034750 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8362	034750	324 00 0 00 034751 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8363
  8364					;**********
  8365
  8366					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8367					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8368					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8369					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8370					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8371					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8372					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8373					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8374			013033		SN=SN+1
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 31-11
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0176

  8375		000400	000000			ZZ=ZZ+ZZ
  8376						IFE	ZZ,<ZZ=1>
  8377	034751	200 00 0 00 035073 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8378	034752	404 00 0 00 035073 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8379	034753	444 00 0 00 035073 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8380	034754	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8381	034755	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8382						STOP^
  8383	034756	254 04 0 00 034757 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8384	034757	324 00 0 00 034760 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8385
  8386					;**********
  8387
  8388					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8389					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8390					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8391					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8392					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8393					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8394					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8395					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8396			013034		SN=SN+1
  8397		001000	000000			ZZ=ZZ+ZZ
  8398						IFE	ZZ,<ZZ=1>
  8399	034760	200 00 0 00 035126 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8400	034761	404 00 0 00 035126 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8401	034762	444 00 0 00 035126 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8402	034763	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8403	034764	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8404						STOP^
  8405	034765	254 04 0 00 034766 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8406	034766	324 00 0 00 034767 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8407
  8408					;**********
  8409
  8410					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8411					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8412					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8413					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8414					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8415					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8416					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8417					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8418			013035		SN=SN+1
  8419		002000	000000			ZZ=ZZ+ZZ
  8420						IFE	ZZ,<ZZ=1>
  8421	034767	200 00 0 00 035127 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8422	034770	404 00 0 00 035127 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8423	034771	444 00 0 00 035127 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8424	034772	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8425	034773	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8426						STOP^
  8427	034774	254 04 0 00 034775 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8428	034775	324 00 0 00 034776 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8429
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 31-12
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0177

  8430					;**********
  8431
  8432					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8433					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8434					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8435					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8436					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8437					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8438					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8439					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8440			013036		SN=SN+1
  8441		004000	000000			ZZ=ZZ+ZZ
  8442						IFE	ZZ,<ZZ=1>
  8443	034776	200 00 0 00 035130 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8444	034777	404 00 0 00 035130 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8445	035000	444 00 0 00 035130 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8446	035001	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8447	035002	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8448						STOP^
  8449	035003	254 04 0 00 035004 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8450	035004	324 00 0 00 035005 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8451
  8452					;**********
  8453
  8454					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8455					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8456					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8457					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8458					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8459					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8460					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8461					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8462			013037		SN=SN+1
  8463		010000	000000			ZZ=ZZ+ZZ
  8464						IFE	ZZ,<ZZ=1>
  8465	035005	200 00 0 00 035131 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8466	035006	404 00 0 00 035131 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8467	035007	444 00 0 00 035131 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8468	035010	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8469	035011	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8470						STOP^
  8471	035012	254 04 0 00 035013 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8472	035013	324 00 0 00 035014 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8473
  8474					;**********
  8475
  8476					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8477					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8478					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8479					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8480					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8481					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8482					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8483					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8484			013040		SN=SN+1
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 31-13
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0178

  8485		020000	000000			ZZ=ZZ+ZZ
  8486						IFE	ZZ,<ZZ=1>
  8487	035014	200 00 0 00 035132 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8488	035015	404 00 0 00 035132 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8489	035016	444 00 0 00 035132 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8490	035017	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8491	035020	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8492						STOP^
  8493	035021	254 04 0 00 035022 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8494	035022	324 00 0 00 035023 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8495
  8496					;**********
  8497
  8498					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8499					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8500					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8501					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8502					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8503					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8504					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8505					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8506			013041		SN=SN+1
  8507		040000	000000			ZZ=ZZ+ZZ
  8508						IFE	ZZ,<ZZ=1>
  8509	035023	200 00 0 00 035133 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8510	035024	404 00 0 00 035133 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8511	035025	444 00 0 00 035133 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8512	035026	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8513	035027	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8514						STOP^
  8515	035030	254 04 0 00 035031 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8516	035031	324 00 0 00 035032 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8517
  8518					;**********
  8519
  8520					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8521					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8522					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8523					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8524					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8525					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8526					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8527					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8528			013042		SN=SN+1
  8529		100000	000000			ZZ=ZZ+ZZ
  8530						IFE	ZZ,<ZZ=1>
  8531	035032	200 00 0 00 035134 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8532	035033	404 00 0 00 035134 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8533	035034	444 00 0 00 035134 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8534	035035	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8535	035036	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8536						STOP^
  8537	035037	254 04 0 00 035040 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8538	035040	324 00 0 00 035041 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8539
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 31-14
DBKAAM	MAC	30-APR-76 16:57		TEST OF BOOLEAN INSTRUCTIONS (SETM, SETZ, AND, XOR, EQV)                           SEQ 0179

  8540					;**********
  8541
  8542					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8543					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8544					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8545					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8546					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8547					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8548					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8549					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8550			013043		SN=SN+1
  8551		200000	000000			ZZ=ZZ+ZZ
  8552						IFE	ZZ,<ZZ=1>
  8553	035041	200 00 0 00 035135 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8554	035042	404 00 0 00 035135 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8555	035043	444 00 0 00 035135 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8556	035044	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8557	035045	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8558						STOP^
  8559	035046	254 04 0 00 035047 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8560	035047	324 00 0 00 035050 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8561
  8562					;**********
  8563
  8564					;THIS TEST CHECKS THE 'AND' INSTRUCTION AND THE ADDER ON A ONE-BIT-AT-A-TIME BASIS.
  8565					;THE AC IS LOADED WITH ALL ZEROS EXCEPT FOR ONE BIT EQUAL TO ONE; THE AC IS THEN
  8566					;ANDED WITH C(E) WHERE C(E)=C(AC).  THE NET RESULT SHOULD BE NO CHANGE TO C(AC).
  8567					;NEXT, THE AC IS EQUIVALENCED WITH C(E) WHERE C(E)=C(AC).  THIS RESULT SHOULD
  8568					;BE ALL ONES IN THE AC.  THE AC IS THEN EQUIVALENCED WITH A WORD OF ALL ZEROS,
  8569					;WHICH SHOULD RESULT IN C(AC)=0.  THE AC IS CHECKED FOR ALL ZEROS.
  8570					;IF C(AC) IS NON-ZERO, THE TEST FAILS.  THIS TEST IS REPEATED 36 TIMES TO
  8571					;RIPPLE A ONE THROUGH EVERY BIT OF THE AC.
  8572			013044		SN=SN+1
  8573		400000	000000			ZZ=ZZ+ZZ
  8574						IFE	ZZ,<ZZ=1>
  8575	035050	200 00 0 00 035065 		MOVE	[ZZ]		;SETUP AC WITH A ONE IN ONLY ONE BIT
  8576	035051	404 00 0 00 035065 		AND	[ZZ]		;*AND FLOATING ONE WITH ITSELF SHOULD NOT CHANGE C(AC)
  8577	035052	444 00 0 00 035065 		EQV	[ZZ]		;RESULTS IN C(AC)=ALL ONES
  8578	035053	444 00 0 00 035062 		EQV	[0]		;RESULTS IN C(AC)=0
  8579	035054	332 00 0 00 000000 		SKIPE			;PASS TEST IF C(AC)=0
  8580						STOP^
  8581	035055	254 04 0 00 035056 		HALT	.+1		;TEST FAILED IF PROGRAM HALTS HERE
  8582	035056	324 00 0 00 035057 		JUMPA	.+1		;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1) TO
  8583
  8584					;**********
  8585
  8586	035057	254 00 0 00 030057 	ENDXX:	JRST	BEGEND		;LOOP PROGRAM
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 1
STOR	KLM	 5-JAN-76		*STOR* RESERVED STORAGE, JAN 5,1976                                                SEQ 0180

  8587					SUBTTL	*STOR* RESERVED STORAGE, JAN 5,1976
  8588
  8589					;PROGRAM LITERALS
  8590
  8591						XLIST
  8592					IFNDEF	$LPAPER,<LIST>
  8593	035060					LIT
  8594	035060	000001	000001
  8595	035061	254 00 0 00 030741 
  8596	035062	000000	000000
  8597	035063	777777	777777
  8598	035064	377777	777777
  8599	035065	400000	000000
  8600	035066	777000	000000
  8601	035067	000377	000000
  8602	035070	000000	177000
  8603	035071	000000	000777
  8604	035072	000000	600000
  8605	035073	000400	000000
  8606	035074	000000	000001
  8607	035075	000000	000002
  8608	035076	000000	000004
  8609	035077	000000	000010
  8610	035100	000000	000020
  8611	035101	000000	000040
  8612	035102	000000	000100
  8613	035103	000000	000200
  8614	035104	000000	000400
  8615	035105	000000	001000
  8616	035106	000000	002000
  8617	035107	000000	004000
  8618	035110	000000	010000
  8619	035111	000000	020000
  8620	035112	000000	040000
  8621	035113	000000	100000
  8622	035114	000000	200000
  8623	035115	000000	400000
  8624	035116	000001	000000
  8625	035117	000002	000000
  8626	035120	000004	000000
  8627	035121	000010	000000
  8628	035122	000020	000000
  8629	035123	000040	000000
  8630	035124	000100	000000
  8631	035125	000200	000000
  8632	035126	001000	000000
  8633	035127	002000	000000
  8634	035130	004000	000000
  8635	035131	010000	000000
  8636	035132	020000	000000
  8637	035133	040000	000000
  8638	035134	100000	000000
  8639	035135	200000	000000
  8640	035136	000000	001234
  8641	035137	000000	777777
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 1-1
STOR	KLM	 5-JAN-76		*STOR* RESERVED STORAGE, JAN 5,1976                                                SEQ 0181

  8642	035140	777777	000000
  8643	035141	707070	707070
  8644	035142	777777	777776
  8645	035143	777777	777775
  8646	035144	777777	777773
  8647	035145	777777	777767
  8648	035146	777777	777757
  8649	035147	777777	777737
  8650	035150	777777	777677
  8651	035151	777777	777577
  8652	035152	777777	777377
  8653	035153	777777	776777
  8654	035154	777777	775777
  8655	035155	777777	773777
  8656	035156	777777	767777
  8657	035157	777777	757777
  8658	035160	777777	737777
  8659	035161	777777	677777
  8660	035162	777777	577777
  8661	035163	777777	377777
  8662	035164	777776	777777
  8663	035165	777775	777777
  8664	035166	777773	777777
  8665	035167	777767	777777
  8666	035170	777757	777777
  8667	035171	777737	777777
  8668	035172	777677	777777
  8669	035173	777577	777777
  8670	035174	777377	777777
  8671	035175	776777	777777
  8672	035176	775777	777777
  8673	035177	773777	777777
  8674	035200	767777	777777
  8675	035201	757777	777777
  8676	035202	737777	777777
  8677	035203	677777	777777
  8678	035204	577777	777777
  8679						LIST
  8680	035205	000000	000000		ENDSLD:	0
  8681
  8682					IFDEF	DEBUG,<
  8683					PATCH:	BLOCK DEBUG		;PATCHING AREA
  8684					>
  8685
  8686					;PROGRAM VARIABLES
  8687	035206					VAR
  8688
  8689					IFDEF	PGMEND,<
  8690	035206	000000	000000		END:	0
  8691			030000			END	BEGIN	>

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 035207
DBKAA PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (1) MCNVER,DECVER	MACRO %50A(432) 13:43  3-AUG-76 PAGE 1-2
STOR	KLM	 5-JAN-76		*STOR* RESERVED STORAGE, JAN 5,1976                                                SEQ 0182

CPU TIME USED 00:26.486

5K CORE USED

A00	    50	    51	    52	    53	    54	    55	    56	    57	    58	    59	    60	   886#
A100	   941#                                                                                                            SEQ 0183
A1000	  1032#
A10000	  6974#
A10100	  7356#
A10200	  7743#
A10300	  7761#
A1100	  1045#
A1200	  1056#
A12500	   887#
A12600	   931#
A12700	   923#
A1300	  1068#
A13000	  7773#
A13100	  1894#
A1400	  1080#
A1500	  1092#
A15000	   902#
A15100	   913#
A1600	  1104#
A1700	  1116#
A200	   952#
A2000	  1128#
A2100	  1140#
A2200	  1151#
A2300	  1163#
A2400	  1175#
A2500	  1187#
A2600	  1198#
A2700	  1210#
A300	   964#
A3000	  1222#
A3100	  1232#
A3200	  1865#
A3300	  1881#
A3400	  1905#
A3500	  1928#
A3600	  1944#
A3700	  1960#
A400	   978#
A4000	  2005#
A4100	  2019#
A4200	  2148#
A4300	  2164#
A4400	  2180#
A4500	  1973#
A4600	  1986#
A4700	  2197#
A500	   991#
A5000	  2211#
A5100	  2225#
A5200	  2238#
A5300	  2253#
A5400	  2271#
A5500	  2282#                                                                                                            SEQ 0184
A5600	  2606#
A5700	  2934#
A600	  1008#
A6000	  2948#
A6100	  2966#
A6200	  2982#
A6300	  3001#
A6400	  3012#
A6500	  3937#
A6600	  4645#
A6700	  4661#
A700	  1021#
A7000	  4679#
A7100	  4694#
A7200	  4708#
A7300	  4720#
A7400	  5388#
A7500	  6241#
A7600	  6947#
A7700	  6962#
ABORT	    82#
AC	  2017#	  2050	  2050#	  2051	  2051#	  2053	  2054	  2055	  2075	  2075#	  2076	  2078	  2079	  2080
	  2100	  2100#	  2101	  2103	  2104	  2105	  2125	  2125#	  2126	  2128	  2129	  2130
AC0	   677#
ALTMGO	   436#
ANXM	   350#
APR	   774	   775	   776
AROV	   350#
AROVU	   350#
AST	   551#
ATSIN	   552#
BEGEND	   432#	  8586
BEGIN	   296	   297	   363#	   720	   842	  8691
BEGIN1	   379#	   433
BELL	   555#
BIS	   350#
CCA	   350#
CHAIN	   102#
CHNOFF	   350#
CHNON	   350#
CLK	   350#
CLKCLR	   350#
CLKDIS	   350#
CLKENB	   350#
CLKU	   350#
CLOCKF	   418#
CNTLC	   435#
COMMA	   544#
CONSW	   419#
CPOPJ	   439#
CPOPJ1	   437#
CRLF	   231	   232	   539#
CRLF2	   235	   236	   541#                                                                                            SEQ 0185
CRY0	   350#
CRY1	   350#
CSHFLG	   598#
CSHMEM	   599#
CYCL60	   592#
DCK	   350#
DDT	   679#
DDTLNK	   116#	   377
DDTSRT	   377#
DEBUG	  8682
DECVER	    13#	    13	    14	   398
DF22F	   503#
DIAGMN	   366#
DIAGNO	   678#
DIAMON	   680#
DING	    88#
DOLLAR	   558#
DONG11	   681#	   821	   837
DSKUPD	   403
DTE	   685#	   821	   823	   837	   839
DTE0	   686#
DTE1	   687#
DTE2	   688#
DTE3	   689#
END	  8690#
ENDFIX	   672#
ENDSLD	  8680#
ENDXX	  8586#
ERMORE	   452#
ERRPC	   423#
ERRTLS	   424#
ERSTOP	    91#
EXCASB	    30#	   401
EXIOT	   350#
FOV	   350#
FOVU	   350#
FRDLNK	   114#
FSELNK	   113#
FXU	   350#
HYPEN	   549#
INHCSH	    99#
INHPAG	    96#
INXM	   350#
IOCLR	   350#
ITERAT	    69#	   396
ITRCH1	   456#
ITRCNT	   396#	   766	   795	   799	   807	   808	   812
JOB41	   350#
JOBAPR	   350#
JOBCNI	   350#
JOBDDT	   350#
JOBFF	   350#
JOBOPC	   350#                                                                                                            SEQ 0186
JOBREL	   350#
JOBREN	   350#
JOBSA	   350#
JOBSYM	   350#
JOBTPC	   350#
JOBUSY	   350#
JOBUUO	   350#
JOBVER	   350#
KA10	   350
KAHZ50	   104#
KAIFLG	   413#
KI10	   350
KL10	   350
KLFLG	   414#	   768	   786	   805
KLOLD	   311
KLTYP	   630#	   767	   778	   820	   822	   836	   838
LDLNK	   115#	   366	   368
LFP	   553#
LOOPER	    90#
LUUO	   350#
LUUO1	   483	   484
LUUO10	   483	   488
LUUO11	   483	   488
LUUO12	   483	   489
LUUO13	   483	   489
LUUO14	   483	   490
LUUO15	   483	   490
LUUO16	   483	   491
LUUO17	   483	   491
LUUO2	   483	   485
LUUO20	   483	   492
LUUO21	   483	   492
LUUO22	   483	   493
LUUO23	   483	   493
LUUO24	   483	   494
LUUO25	   483	   494
LUUO26	   483	   495
LUUO27	   483	   495
LUUO3	   483	   485
LUUO30	   483	   496
LUUO31	   483	   496
LUUO32	   483	   497
LUUO33	   483	   497
LUUO4	   483	   486
LUUO5	   483	   486
LUUO6	   483	   487
LUUO7	   483	   487
LUUOI	   350#
MAPNEW	   504#
MARGIN	   426#
MCNVER	    13#	    13	    14	   398
MEMLOW	   506#
MEMMAP	   404                                                                                                             SEQ 0187
MEMSIZ	   507#
MEMTOT	   505#
MINUS	   548#
MODDVC	    98#
MODDVL	   296	   296#	   399
MODDVU	   297	   297#	   400
MODLNK	   117#	   363
MONCTL	   416#	   815	   853
MONFLG	   415#	   760	   849
MONTEN	   417#	   765	   801	   830
MPVU	   350#
NOPNT	    86#
NXMU	   350#
OPRSEL	   100#
OPTIME	   518#
P	   143	   144	   145	   146	   350#	   438
PAG	   350#
PALERS	    92#
PARCLR	   350#
PARDIS	   350#
PAREA0	    62#
PAREA1	    63#	   394
PAREA2	    64#	   395
PAREA3	    65#	   392
PAREA4	    66#	   393
PAREA5	    67#	   405
PAREA6	    68#	   406
PAREA7	   405#
PAREA8	   406#
PARENB	   350#
PARU	   350#
PASCNT	   420#	   794
PDISF	   515#
PDLOVU	   350#
PERIOD	   545#
PFSTRT	   372#
PGMEND	    70#	  8689
PGMNAM	   397	   854	   857#
PI	   807
PICHN1	   350#
PICHN2	   350#
PICHN3	   350#
PICHN4	   350#
PICHN5	   350#
PICHN6	   350#
PICHN7	   350#
PICHNA	   350#
PICLR	   350#
PIOFF	   350#
PION	   350#
PLIST	   584#	   584
PLISTE	   584	   586#	   670
PLISTS	   585#                                                                                                            SEQ 0188
PLUS	   550#
PNTENB	   514#
PNTEXT	   393#
PNTFLG	   513#
PNTINH	   516#
PNTLPT	    87#
PNTNAM	   392#
PNTSPC	   517#
PVPAGI	   611#
PWFCLR	   350#
QUEST	   556#
RADIX	   559#
RADLSC	   561#
RADLSP	   560#
RANDBS	   394#
REENTR	   374#
RELIAB	    94#
REPT	   350#
REPT1	   350#
REPTU	   472#
REQSET	   350#
RESRT1	   449#
RESRT2	   450#
RETURN	   381#	   803	   810	   831
RSTART	    83#
RTP	   554#
RUNFLG	   421#
SADR1	    50#	   370
SADR10	    59#	   386
SADR11	    60#	   387
SADR2	    51#	   372
SADR3	    52#	   374
SADR4	    53#
SADR5	    54#	   435
SADR6	    55#	   436
SADR7	    56#	   383
SADR8	    57#	   384
SADR9	    58#	   385
SBINIT	   156	   380#
SCOPE	   473#
SFSTRT	   370#
SLASH	   557#
SN	  1229#	  1254	  1254#	  1271	  1271#	  1288	  1288#	  1305	  1305#	  1322	  1322#	  1339	  1339#	  1356
	  1356#	  1373	  1373#	  1390	  1390#	  1407	  1407#	  1424	  1424#	  1441	  1441#	  1458	  1458#	  1475
	  1475#	  1492	  1492#	  1509	  1509#	  1526	  1526#	  1543	  1543#	  1560	  1560#	  1577	  1577#	  1594
	  1594#	  1611	  1611#	  1628	  1628#	  1645	  1645#	  1662	  1662#	  1679	  1679#	  1696	  1696#	  1713
	  1713#	  1730	  1730#	  1747	  1747#	  1764	  1764#	  1781	  1781#	  1798	  1798#	  1815	  1815#	  1832
	  1832#	  1849	  1849#	  2016#	  2049	  2049#	  2074	  2074#	  2099	  2099#	  2124	  2124#	  2279#	  2303
	  2303#	  2320	  2320#	  2337	  2337#	  2354	  2354#	  2371	  2371#	  2388	  2388#	  2405	  2405#	  2422
	  2422#	  2439	  2439#	  2456	  2456#	  2473	  2473#	  2490	  2490#	  2507	  2507#	  2524	  2524#	  2541
	  2541#	  2558	  2558#	  2575	  2575#	  2592	  2592#	  2604#	  2628	  2628#	  2645	  2645#	  2662	  2662#
	  2679	  2679#	  2696	  2696#	  2713	  2713#	  2730	  2730#	  2747	  2747#	  2764	  2764#	  2781	  2781#
	  2798	  2798#	  2815	  2815#	  2832	  2832#	  2849	  2849#	  2866	  2866#	  2883	  2883#	  2900	  2900#    SEQ 0189
	  2917	  2917#	  3009#	  3042	  3042#	  3067	  3067#	  3092	  3092#	  3117	  3117#	  3142	  3142#	  3167
	  3167#	  3192	  3192#	  3217	  3217#	  3242	  3242#	  3267	  3267#	  3292	  3292#	  3317	  3317#	  3342
	  3342#	  3367	  3367#	  3392	  3392#	  3417	  3417#	  3442	  3442#	  3467	  3467#	  3492	  3492#	  3517
	  3517#	  3542	  3542#	  3567	  3567#	  3592	  3592#	  3617	  3617#	  3642	  3642#	  3667	  3667#	  3692
	  3692#	  3717	  3717#	  3742	  3742#	  3767	  3767#	  3792	  3792#	  3817	  3817#	  3842	  3842#	  3867
	  3867#	  3892	  3892#	  3917	  3917#	  3934#	  3960	  3960#	  3979	  3979#	  3998	  3998#	  4017	  4017#
	  4036	  4036#	  4055	  4055#	  4074	  4074#	  4093	  4093#	  4112	  4112#	  4131	  4131#	  4150	  4150#
	  4169	  4169#	  4188	  4188#	  4207	  4207#	  4226	  4226#	  4245	  4245#	  4264	  4264#	  4283	  4283#
	  4302	  4302#	  4321	  4321#	  4340	  4340#	  4359	  4359#	  4378	  4378#	  4397	  4397#	  4416	  4416#
	  4435	  4435#	  4454	  4454#	  4473	  4473#	  4492	  4492#	  4511	  4511#	  4530	  4530#	  4549	  4549#
	  4568	  4568#	  4587	  4587#	  4606	  4606#	  4625	  4625#	  4717#	  4742	  4742#	  4760	  4760#	  4778
	  4778#	  4796	  4796#	  4814	  4814#	  4832	  4832#	  4850	  4850#	  4868	  4868#	  4886	  4886#	  4904
	  4904#	  4922	  4922#	  4940	  4940#	  4958	  4958#	  4976	  4976#	  4994	  4994#	  5012	  5012#	  5030
	  5030#	  5048	  5048#	  5066	  5066#	  5084	  5084#	  5102	  5102#	  5120	  5120#	  5138	  5138#	  5156
	  5156#	  5174	  5174#	  5192	  5192#	  5210	  5210#	  5228	  5228#	  5246	  5246#	  5264	  5264#	  5282
	  5282#	  5300	  5300#	  5318	  5318#	  5336	  5336#	  5354	  5354#	  5372	  5372#	  5385#	  5415	  5415#
	  5438	  5438#	  5461	  5461#	  5484	  5484#	  5507	  5507#	  5530	  5530#	  5553	  5553#	  5576	  5576#
	  5599	  5599#	  5622	  5622#	  5645	  5645#	  5668	  5668#	  5691	  5691#	  5714	  5714#	  5737	  5737#
	  5760	  5760#	  5783	  5783#	  5806	  5806#	  5829	  5829#	  5852	  5852#	  5875	  5875#	  5898	  5898#
	  5921	  5921#	  5944	  5944#	  5967	  5967#	  5990	  5990#	  6013	  6013#	  6036	  6036#	  6059	  6059#
	  6082	  6082#	  6105	  6105#	  6128	  6128#	  6151	  6151#	  6174	  6174#	  6197	  6197#	  6220	  6220#
	  6238#	  6266	  6266#	  6285	  6285#	  6304	  6304#	  6323	  6323#	  6342	  6342#	  6361	  6361#	  6380
	  6380#	  6399	  6399#	  6418	  6418#	  6437	  6437#	  6456	  6456#	  6475	  6475#	  6494	  6494#	  6513
	  6513#	  6532	  6532#	  6551	  6551#	  6570	  6570#	  6589	  6589#	  6608	  6608#	  6627	  6627#	  6646
	  6646#	  6665	  6665#	  6684	  6684#	  6703	  6703#	  6722	  6722#	  6741	  6741#	  6760	  6760#	  6779
	  6779#	  6798	  6798#	  6817	  6817#	  6836	  6836#	  6855	  6855#	  6874	  6874#	  6893	  6893#	  6912
	  6912#	  6931	  6931#	  6971#	  7000	  7000#	  7020	  7020#	  7040	  7040#	  7060	  7060#	  7080	  7080#
	  7100	  7100#	  7120	  7120#	  7140	  7140#	  7160	  7160#	  7180	  7180#	  7200	  7200#	  7220	  7220#
	  7240	  7240#	  7260	  7260#	  7280	  7280#	  7300	  7300#	  7320	  7320#	  7340	  7340#	  7353#	  7382
	  7382#	  7402	  7402#	  7422	  7422#	  7442	  7442#	  7462	  7462#	  7482	  7482#	  7502	  7502#	  7522
	  7522#	  7542	  7542#	  7562	  7562#	  7582	  7582#	  7602	  7602#	  7622	  7622#	  7642	  7642#	  7662
	  7662#	  7682	  7682#	  7702	  7702#	  7722	  7722#	  7770#	  7802	  7802#	  7824	  7824#	  7846	  7846#
	  7868	  7868#	  7890	  7890#	  7912	  7912#	  7934	  7934#	  7956	  7956#	  7978	  7978#	  8000	  8000#
	  8022	  8022#	  8044	  8044#	  8066	  8066#	  8088	  8088#	  8110	  8110#	  8132	  8132#	  8154	  8154#
	  8176	  8176#	  8198	  8198#	  8220	  8220#	  8242	  8242#	  8264	  8264#	  8286	  8286#	  8308	  8308#
	  8330	  8330#	  8352	  8352#	  8374	  8374#	  8396	  8396#	  8418	  8418#	  8440	  8440#	  8462	  8462#
	  8484	  8484#	  8506	  8506#	  8528	  8528#	  8550	  8550#	  8572	  8572#
SPACE	   546#
SRTDDT	   376#
START	   364	   763	   772	   787	   791	   845#
START1	   383#
START2	   384#
START3	   385#
START4	   386#
START5	   387#
STARTA	   379	   789	   800	   809	   816	   826	   852	   855	   877#
SUBLNK	   118#	   380
SWTEXR	   395#
SYSEXR	   368#
TAB	   547#
TESTPC	   422#
TICKS	   425#
TOTALS	    84#                                                                                                            SEQ 0190
TTNBRF	   605#
TTYFIL	   521#
TTYSPD	   522#
TXTINH	    95#
USER	   412#	   756	   759	   761	   762	   796	   845#	   845	   848	   850	   851
USERF	    34#	   350#	   758	   847
USRASB	    31#	   402
USRCRF	   531#
USRLFF	   530#
UUODIS	   484#
UUOEXT	   440#
UUORTN	   441#
UUOSKP	   438#
ZZ	  1230#	  1255	  1255#	  1256	  1256#	  1257	  1272	  1272#	  1273	  1274	  1289	  1289#	  1290	  1291
	  1306	  1306#	  1307	  1308	  1323	  1323#	  1324	  1325	  1340	  1340#	  1341	  1342	  1357	  1357#
	  1358	  1359	  1374	  1374#	  1375	  1376	  1391	  1391#	  1392	  1393	  1408	  1408#	  1409	  1410
	  1425	  1425#	  1426	  1427	  1442	  1442#	  1443	  1444	  1459	  1459#	  1460	  1461	  1476	  1476#
	  1477	  1478	  1493	  1493#	  1494	  1495	  1510	  1510#	  1511	  1512	  1527	  1527#	  1528	  1529
	  1544	  1544#	  1545	  1546	  1561	  1561#	  1562	  1563	  1578	  1578#	  1579	  1580	  1595	  1595#
	  1596	  1597	  1612	  1612#	  1613	  1614	  1629	  1629#	  1630	  1631	  1646	  1646#	  1647	  1648
	  1663	  1663#	  1664	  1665	  1680	  1680#	  1681	  1682	  1697	  1697#	  1698	  1699	  1714	  1714#
	  1715	  1716	  1731	  1731#	  1732	  1733	  1748	  1748#	  1749	  1750	  1765	  1765#	  1766	  1767
	  1782	  1782#	  1783	  1784	  1799	  1799#	  1800	  1801	  1816	  1816#	  1817	  1818	  1833	  1833#
	  1834	  1835	  1850	  1850#	  1851	  1852	  2280#	  2304	  2304#	  2305	  2305#	  2307	  2321	  2321#
	  2322	  2324	  2338	  2338#	  2339	  2341	  2355	  2355#	  2356	  2358	  2372	  2372#	  2373	  2375
	  2389	  2389#	  2390	  2392	  2406	  2406#	  2407	  2409	  2423	  2423#	  2424	  2426	  2440	  2440#
	  2441	  2443	  2457	  2457#	  2458	  2460	  2474	  2474#	  2475	  2477	  2491	  2491#	  2492	  2494
	  2508	  2508#	  2509	  2511	  2525	  2525#	  2526	  2528	  2542	  2542#	  2543	  2545	  2559	  2559#
	  2560	  2562	  2576	  2576#	  2577	  2579	  2593	  2593#	  2594	  2596	  2629	  2629#	  2631	  2646
	  2646#	  2648	  2663	  2663#	  2665	  2680	  2680#	  2682	  2697	  2697#	  2699	  2714	  2714#	  2716
	  2731	  2731#	  2733	  2748	  2748#	  2750	  2765	  2765#	  2767	  2782	  2782#	  2784	  2799	  2799#
	  2801	  2816	  2816#	  2818	  2833	  2833#	  2835	  2850	  2850#	  2852	  2867	  2867#	  2869	  2884
	  2884#	  2886	  2901	  2901#	  2903	  2918	  2918#	  2920	  3010#	  3043	  3043#	  3044	  3044#	  3046
	  3068	  3068#	  3069	  3071	  3093	  3093#	  3094	  3096	  3118	  3118#	  3119	  3121	  3143	  3143#
	  3144	  3146	  3168	  3168#	  3169	  3171	  3193	  3193#	  3194	  3196	  3218	  3218#	  3219	  3221
	  3243	  3243#	  3244	  3246	  3268	  3268#	  3269	  3271	  3293	  3293#	  3294	  3296	  3318	  3318#
	  3319	  3321	  3343	  3343#	  3344	  3346	  3368	  3368#	  3369	  3371	  3393	  3393#	  3394	  3396
	  3418	  3418#	  3419	  3421	  3443	  3443#	  3444	  3446	  3468	  3468#	  3469	  3471	  3493	  3493#
	  3494	  3496	  3518	  3518#	  3519	  3521	  3543	  3543#	  3544	  3546	  3568	  3568#	  3569	  3571
	  3593	  3593#	  3594	  3596	  3618	  3618#	  3619	  3621	  3643	  3643#	  3644	  3646	  3668	  3668#
	  3669	  3671	  3693	  3693#	  3694	  3696	  3718	  3718#	  3719	  3721	  3743	  3743#	  3744	  3746
	  3768	  3768#	  3769	  3771	  3793	  3793#	  3794	  3796	  3818	  3818#	  3819	  3821	  3843	  3843#
	  3844	  3846	  3868	  3868#	  3869	  3871	  3893	  3893#	  3894	  3896	  3918	  3918#	  3919	  3921
	  3935#	  3961	  3961#	  3962	  3962#	  3963	  3980	  3980#	  3981	  3982	  3999	  3999#	  4000	  4001
	  4018	  4018#	  4019	  4020	  4037	  4037#	  4038	  4039	  4056	  4056#	  4057	  4058	  4075	  4075#
	  4076	  4077	  4094	  4094#	  4095	  4096	  4113	  4113#	  4114	  4115	  4132	  4132#	  4133	  4134
	  4151	  4151#	  4152	  4153	  4170	  4170#	  4171	  4172	  4189	  4189#	  4190	  4191	  4208	  4208#
	  4209	  4210	  4227	  4227#	  4228	  4229	  4246	  4246#	  4247	  4248	  4265	  4265#	  4266	  4267
	  4284	  4284#	  4285	  4286	  4303	  4303#	  4304	  4305	  4322	  4322#	  4323	  4324	  4341	  4341#
	  4342	  4343	  4360	  4360#	  4361	  4362	  4379	  4379#	  4380	  4381	  4398	  4398#	  4399	  4400
	  4417	  4417#	  4418	  4419	  4436	  4436#	  4437	  4438	  4455	  4455#	  4456	  4457	  4474	  4474#
	  4475	  4476	  4493	  4493#	  4494	  4495	  4512	  4512#	  4513	  4514	  4531	  4531#	  4532	  4533
	  4550	  4550#	  4551	  4552	  4569	  4569#	  4570	  4571	  4588	  4588#	  4589	  4590	  4607	  4607#    SEQ 0191
	  4608	  4609	  4626	  4626#	  4627	  4628	  4718#	  4743	  4743#	  4744	  4744#	  4746	  4761	  4761#
	  4762	  4764	  4779	  4779#	  4780	  4782	  4797	  4797#	  4798	  4800	  4815	  4815#	  4816	  4818
	  4833	  4833#	  4834	  4836	  4851	  4851#	  4852	  4854	  4869	  4869#	  4870	  4872	  4887	  4887#
	  4888	  4890	  4905	  4905#	  4906	  4908	  4923	  4923#	  4924	  4926	  4941	  4941#	  4942	  4944
	  4959	  4959#	  4960	  4962	  4977	  4977#	  4978	  4980	  4995	  4995#	  4996	  4998	  5013	  5013#
	  5014	  5016	  5031	  5031#	  5032	  5034	  5049	  5049#	  5050	  5052	  5067	  5067#	  5068	  5070
	  5085	  5085#	  5086	  5088	  5103	  5103#	  5104	  5106	  5121	  5121#	  5122	  5124	  5139	  5139#
	  5140	  5142	  5157	  5157#	  5158	  5160	  5175	  5175#	  5176	  5178	  5193	  5193#	  5194	  5196
	  5211	  5211#	  5212	  5214	  5229	  5229#	  5230	  5232	  5247	  5247#	  5248	  5250	  5265	  5265#
	  5266	  5268	  5283	  5283#	  5284	  5286	  5301	  5301#	  5302	  5304	  5319	  5319#	  5320	  5322
	  5337	  5337#	  5338	  5340	  5355	  5355#	  5356	  5358	  5373	  5373#	  5374	  5376	  5386#	  5416
	  5416#	  5417	  5417#	  5418	  5439	  5439#	  5440	  5441	  5462	  5462#	  5463	  5464	  5485	  5485#
	  5486	  5487	  5508	  5508#	  5509	  5510	  5531	  5531#	  5532	  5533	  5554	  5554#	  5555	  5556
	  5577	  5577#	  5578	  5579	  5600	  5600#	  5601	  5602	  5623	  5623#	  5624	  5625	  5646	  5646#
	  5647	  5648	  5669	  5669#	  5670	  5671	  5692	  5692#	  5693	  5694	  5715	  5715#	  5716	  5717
	  5738	  5738#	  5739	  5740	  5761	  5761#	  5762	  5763	  5784	  5784#	  5785	  5786	  5807	  5807#
	  5808	  5809	  5830	  5830#	  5831	  5832	  5853	  5853#	  5854	  5855	  5876	  5876#	  5877	  5878
	  5899	  5899#	  5900	  5901	  5922	  5922#	  5923	  5924	  5945	  5945#	  5946	  5947	  5968	  5968#
	  5969	  5970	  5991	  5991#	  5992	  5993	  6014	  6014#	  6015	  6016	  6037	  6037#	  6038	  6039
	  6060	  6060#	  6061	  6062	  6083	  6083#	  6084	  6085	  6106	  6106#	  6107	  6108	  6129	  6129#
	  6130	  6131	  6152	  6152#	  6153	  6154	  6175	  6175#	  6176	  6177	  6198	  6198#	  6199	  6200
	  6221	  6221#	  6222	  6223	  6239#	  6267	  6267#	  6268	  6268#	  6269	  6270	  6286	  6286#	  6287
	  6288	  6289	  6305	  6305#	  6306	  6307	  6308	  6324	  6324#	  6325	  6326	  6327	  6343	  6343#
	  6344	  6345	  6346	  6362	  6362#	  6363	  6364	  6365	  6381	  6381#	  6382	  6383	  6384	  6400
	  6400#	  6401	  6402	  6403	  6419	  6419#	  6420	  6421	  6422	  6438	  6438#	  6439	  6440	  6441
	  6457	  6457#	  6458	  6459	  6460	  6476	  6476#	  6477	  6478	  6479	  6495	  6495#	  6496	  6497
	  6498	  6514	  6514#	  6515	  6516	  6517	  6533	  6533#	  6534	  6535	  6536	  6552	  6552#	  6553
	  6554	  6555	  6571	  6571#	  6572	  6573	  6574	  6590	  6590#	  6591	  6592	  6593	  6609	  6609#
	  6610	  6611	  6612	  6628	  6628#	  6629	  6630	  6631	  6647	  6647#	  6648	  6649	  6650	  6666
	  6666#	  6667	  6668	  6669	  6685	  6685#	  6686	  6687	  6688	  6704	  6704#	  6705	  6706	  6707
	  6723	  6723#	  6724	  6725	  6726	  6742	  6742#	  6743	  6744	  6745	  6761	  6761#	  6762	  6763
	  6764	  6780	  6780#	  6781	  6782	  6783	  6799	  6799#	  6800	  6801	  6802	  6818	  6818#	  6819
	  6820	  6821	  6837	  6837#	  6838	  6839	  6840	  6856	  6856#	  6857	  6858	  6859	  6875	  6875#
	  6876	  6877	  6878	  6894	  6894#	  6895	  6896	  6897	  6913	  6913#	  6914	  6915	  6916	  6932
	  6932#	  6933	  6934	  6935	  6972#	  7001	  7001#	  7002	  7002#	  7004	  7021	  7021#	  7022	  7024
	  7041	  7041#	  7042	  7044	  7061	  7061#	  7062	  7064	  7081	  7081#	  7082	  7084	  7101	  7101#
	  7102	  7104	  7121	  7121#	  7122	  7124	  7141	  7141#	  7142	  7144	  7161	  7161#	  7162	  7164
	  7181	  7181#	  7182	  7184	  7201	  7201#	  7202	  7204	  7221	  7221#	  7222	  7224	  7241	  7241#
	  7242	  7244	  7261	  7261#	  7262	  7264	  7281	  7281#	  7282	  7284	  7301	  7301#	  7302	  7304
	  7321	  7321#	  7322	  7324	  7341	  7341#	  7342	  7344	  7354#	  7383	  7383#	  7384	  7384#	  7386
	  7403	  7403#	  7404	  7406	  7423	  7423#	  7424	  7426	  7443	  7443#	  7444	  7446	  7463	  7463#
	  7464	  7466	  7483	  7483#	  7484	  7486	  7503	  7503#	  7504	  7506	  7523	  7523#	  7524	  7526
	  7543	  7543#	  7544	  7546	  7563	  7563#	  7564	  7566	  7583	  7583#	  7584	  7586	  7603	  7603#
	  7604	  7606	  7623	  7623#	  7624	  7626	  7643	  7643#	  7644	  7646	  7663	  7663#	  7664	  7666
	  7683	  7683#	  7684	  7686	  7703	  7703#	  7704	  7706	  7723	  7723#	  7724	  7726	  7771#	  7803
	  7803#	  7804	  7804#	  7805	  7806	  7807	  7825	  7825#	  7826	  7827	  7828	  7829	  7847	  7847#
	  7848	  7849	  7850	  7851	  7869	  7869#	  7870	  7871	  7872	  7873	  7891	  7891#	  7892	  7893
	  7894	  7895	  7913	  7913#	  7914	  7915	  7916	  7917	  7935	  7935#	  7936	  7937	  7938	  7939
	  7957	  7957#	  7958	  7959	  7960	  7961	  7979	  7979#	  7980	  7981	  7982	  7983	  8001	  8001#
	  8002	  8003	  8004	  8005	  8023	  8023#	  8024	  8025	  8026	  8027	  8045	  8045#	  8046	  8047
	  8048	  8049	  8067	  8067#	  8068	  8069	  8070	  8071	  8089	  8089#	  8090	  8091	  8092	  8093
	  8111	  8111#	  8112	  8113	  8114	  8115	  8133	  8133#	  8134	  8135	  8136	  8137	  8155	  8155#
	  8156	  8157	  8158	  8159	  8177	  8177#	  8178	  8179	  8180	  8181	  8199	  8199#	  8200	  8201     SEQ 0192
	  8202	  8203	  8221	  8221#	  8222	  8223	  8224	  8225	  8243	  8243#	  8244	  8245	  8246	  8247
	  8265	  8265#	  8266	  8267	  8268	  8269	  8287	  8287#	  8288	  8289	  8290	  8291	  8309	  8309#
	  8310	  8311	  8312	  8313	  8331	  8331#	  8332	  8333	  8334	  8335	  8353	  8353#	  8354	  8355
	  8356	  8357	  8375	  8375#	  8376	  8377	  8378	  8379	  8397	  8397#	  8398	  8399	  8400	  8401
	  8419	  8419#	  8420	  8421	  8422	  8423	  8441	  8441#	  8442	  8443	  8444	  8445	  8463	  8463#
	  8464	  8465	  8466	  8467	  8485	  8485#	  8486	  8487	  8488	  8489	  8507	  8507#	  8508	  8509
	  8510	  8511	  8529	  8529#	  8530	  8531	  8532	  8533	  8551	  8551#	  8552	  8553	  8554	  8555
	  8573	  8573#	  8574	  8575	  8576	  8577
$$420	   730#
$$421	   731#
$$422	   732#
$$423	   733#
$$424	   734#
$$425	   735#
$$426	   736#
$$427	   737#
$$430	   738#
$$431	   739#
$$432	   740#
$$433	   741#
$$434	   742#
$$435	   743#
$$436	   744#
$$437	   745#
$$500	   748#
$$501	   749#
$$502	   750#
$$503	   751#
$$BEGI	   716#
$$DTE0	   782	   821#
$$DTE1	   783	   823#
$$DTE2	   784	   837#
$$DTE3	   785	   839#
$$LOC	   713#	   752
$$MUUO	   636#
$$OUTE	   642#
$$STAR	   716	   717	   756#
$$TAX1	   654#
$$TAX2	   655#
$$TOGG	   648#
$$UUO	   625#
$ACC0	   463#
$BEGEN	   725#
$BEND1	   433#
$BEND2	   434#
$CHRIN	   524#
$CRLF	   526#
$DDT	   694#
$DEVCH	   350#
$DSKUP	   403#
$DTCHR	   706#
$DTCI	   700#
$DTCLK	   699#	   780                                                                                                     SEQ 0193
$DTCMD	   703#	   818	   834
$DTF11	   702#
$DTFLG	   698#	   779	   819	   824	   835	   840
$DTMTD	   707#
$DTMTI	   708#
$DTOPR	   705#	   781
$DTSEQ	   704#
$DTSWR	   710#
$DTT11	   701#
$DVCH1	   350#
$DVOFF	   520#
$EMODE	   401#
$ENDFX	   670#	   671
$FFF	   528#
$IBUF	   576#
$INEXT	   578#
$INNM	   577#
$ITRHL	   444#
$ITRX1	   445#
$LPAPE	  8592
$MMAP	   404#
$MODVL	   399#
$MODVU	   400#
$OBUF	   567#
$ONETM	   427#
$OUTEX	   569#
$OUTNM	   568#
$PAPER	   350
$PARER	   451#
$PNAME	   397#
$PSHER	   455#
$PVER	   398#
$RSRTX	   447#
$RSRTY	   448#
$SPAG1	   467#
$SPB1	   790	   796#
$SPBEN	   725	   794#
$SPBEX	   797	   805#
$SPBKL	   806	   812#
$SPBUS	   799#
$SPEC	   722	   789#
$SPKLD	   813	   830#
$START	   364#
$STD	   693#	   720#
$STKIL	   765#
$STKL	   774#
$STL	   695#
$STM	   696#	   722#
$SVAPR	   465#
$SVPAG	   466#
$SVPI	   464#
$SVUPC	   470#
$SVUUO	   469#                                                                                                            SEQ 0194
$TABF	   527#
$TTCHR	   523#
$TWCNT	   519#
$TYPNB	   525#
$UMODE	   402#
$UORTX	   442#
$USRHL	   446#
$UUOER	   443#	   484
$VTF	   529#
%ACTFL	   476#
%ACTUL	   477#
%COREC	   475#
%CORFL	   474#
%DISCR	   478#
%ERHI1	   617#
%ERHI2	   618#
%ERHI3	   619#
.JB41	   350#
.JBAPR	   350#
.JBCNI	   350#
.JBDDT	   350#
.JBFF	   350#
.JBOPC	   350#
.JBREL	   350#
.JBREN	   350#
.JBSA	   350#
.JBSYM	   350#
.JBTPC	   350#
.JBUSY	   350#
.JBUUO	   350#
.JBVER	   350#

CFLUSH	   267#
CINVAL	   266#                                                                                                            SEQ 0195
CLOKOP	   261#
CWRTBI	   268#
DROPDV	   228#
ENDUUO	   274#	   432
EOPUUO	   275#	   434
ERLOOP	   319#
ERLP1	   320#
ERLP2	   321#
ERRHLT	   163#
ERROR	   328#
ERROR1	   340#
ERUUO	   318#
EXIT	   802
FATAL	   162#
FRD36	   303#
FRD8	   304#
FREAD	   302#
FSELEC	   301#
GET	   146#
GO	   143#
HALT	   148#	   453	   730	   732	   733	   737	   751	   842	   888	   904	   915	   925	   932	   944
	   955	   967	   982	   995	  1012	  1024	  1036	  1048	  1060	  1072	  1083	  1095	  1108	  1120
	  1131	  1143	  1155	  1166	  1178	  1190	  1201	  1213	  1225	  1260	  1277	  1294	  1311	  1328
	  1345	  1362	  1379	  1396	  1413	  1430	  1447	  1464	  1481	  1498	  1515	  1532	  1549	  1566
	  1583	  1600	  1617	  1634	  1651	  1668	  1685	  1702	  1719	  1736	  1753	  1770	  1787	  1804
	  1821	  1838	  1855	  1868	  1884	  1897	  1911	  1934	  1950	  1966	  1977	  1989	  2012	  2057
	  2061	  2082	  2086	  2107	  2111	  2132	  2136	  2152	  2169	  2185	  2201	  2215	  2229	  2242
	  2257	  2275	  2310	  2327	  2344	  2361	  2378	  2395	  2412	  2429	  2446	  2463	  2480	  2497
	  2514	  2531	  2548	  2565	  2582	  2599	  2634	  2651	  2668	  2685	  2702	  2719	  2736	  2753
	  2770	  2787	  2804	  2821	  2838	  2855	  2872	  2889	  2906	  2923	  2938	  2952	  2970	  2986
	  3005	  3051	  3055	  3076	  3080	  3101	  3105	  3126	  3130	  3151	  3155	  3176	  3180	  3201
	  3205	  3226	  3230	  3251	  3255	  3276	  3280	  3301	  3305	  3326	  3330	  3351	  3355	  3376
	  3380	  3401	  3405	  3426	  3430	  3451	  3455	  3476	  3480	  3501	  3505	  3526	  3530	  3551
	  3555	  3576	  3580	  3601	  3605	  3626	  3630	  3651	  3655	  3676	  3680	  3701	  3705	  3726
	  3730	  3751	  3755	  3776	  3780	  3801	  3805	  3826	  3830	  3851	  3855	  3876	  3880	  3901
	  3905	  3926	  3930	  3969	  3988	  4007	  4026	  4045	  4064	  4083	  4102	  4121	  4140	  4159
	  4178	  4197	  4216	  4235	  4254	  4273	  4292	  4311	  4330	  4349	  4368	  4387	  4406	  4425
	  4444	  4463	  4482	  4501	  4520	  4539	  4558	  4577	  4596	  4615	  4634	  4650	  4665	  4683
	  4699	  4713	  4750	  4768	  4786	  4804	  4822	  4840	  4858	  4876	  4894	  4912	  4930	  4948
	  4966	  4984	  5002	  5020	  5038	  5056	  5074	  5092	  5110	  5128	  5146	  5164	  5182	  5200
	  5218	  5236	  5254	  5272	  5290	  5308	  5326	  5344	  5362	  5380	  5423	  5446	  5469	  5492
	  5515	  5538	  5561	  5584	  5607	  5630	  5653	  5676	  5699	  5722	  5745	  5768	  5791	  5814
	  5837	  5860	  5883	  5906	  5929	  5952	  5975	  5998	  6021	  6044	  6067	  6090	  6113	  6136
	  6159	  6182	  6205	  6228	  6273	  6292	  6311	  6330	  6349	  6368	  6387	  6406	  6425	  6444
	  6463	  6482	  6501	  6520	  6539	  6558	  6577	  6596	  6615	  6634	  6653	  6672	  6691	  6710
	  6729	  6748	  6767	  6786	  6805	  6824	  6843	  6862	  6881	  6900	  6919	  6938	  6951	  6967
	  7008	  7028	  7048	  7068	  7088	  7108	  7128	  7148	  7168	  7188	  7208	  7228	  7248	  7268
	  7288	  7308	  7328	  7348	  7390	  7410	  7430	  7450	  7470	  7490	  7510	  7530	  7550	  7570
	  7590	  7610	  7630	  7650	  7670	  7690	  7710	  7730	  7748	  7766	  7811	  7833	  7855	  7877
	  7899	  7921	  7943	  7965	  7987	  8009	  8031	  8053	  8075	  8097	  8119	  8141	  8163	  8185
	  8207	  8229	  8251	  8273	  8295	  8317	  8339	  8361	  8383	  8405	  8427	  8449	  8471	  8493
	  8515	  8537	  8559	  8581
JEN	   150#                                                                                                            SEQ 0196
JRSTF	   149#
MAPADR	   284#
MAPCNK	   285#
MAPMEM	   281#
MAPPNT	   287#
MAPSET	   286#
MEMSEG	   283#
MEMZRO	   282#
MODPCP	   294#
MODPCU	   293#
MTROP	   262#
NAME	    13#	    14
PBELL	   237#
PCRL	   231#
PCRL2	   235#
PCRL2F	   236#
PCRLF	   232#
PFORCE	   239#
PGMINT	   156#
PJRST	   147#
PMSG	   241#
PMSGF	   244#
PNT1	   197#
PNT11	   211#
PNT11F	   212#
PNT1F	   198#
PNT2	   199#
PNT2F	   200#
PNT3	   201#
PNT3F	   202#
PNT4	   203#
PNT4F	   204#
PNT5	   205#
PNT5F	   206#
PNT6	   207#
PNT6F	   208#
PNT7	   209#
PNT7F	   210#
PNTA	   183#
PNTADF	   214#
PNTADR	   213#
PNTAF	   184#
PNTAL	   185#
PNTALF	   186#
PNTCHF	   196#
PNTCHR	   195#
PNTCI	   193#
PNTCIF	   194#
PNTCW	   229#
PNTCWF	   230#
PNTDCF	   222#
PNTDEC	   221#
PNTDS	   223#                                                                                                            SEQ 0197
PNTDSF	   224#
PNTHW	   217#
PNTHWF	   218#
PNTMGN	   308#
PNTMSF	   190#
PNTMSG	   189#
PNTNM	   225#
PNTOCF	   220#
PNTOCS	   219#
PNTOCT	   215#
PNTOTF	   216#
PNTSIX	   226#
PNTSXF	   227#
PSIXL	   187#
PSIXLF	   188#
PSIXM	   191#
PSIXMF	   192#
PSP	   233#
PSPF	   234#
PUT	   145#
REPTUO	   322#
RTN	   144#	   440
S	    74#	    76	    80	   109	   111	   120	   123	   138	   139	   141	   152	   154	   158	   160
	   165	   169	   314	   316	   350	   355	   361	   388	   390	   408	   410	   428	   430	   459
	   461	   479	   481	   499	   501	   509	   511	   532	   537	   563	   565	   572	   574	   580
	   582	   588	   590	   594	   596	   601	   603	   607	   609	   613	   615	   621	   623	   626
	   628	   632	   634	   638	   640	   644	   646	   650	   652	   657	   662	   666	   668
SIXBTZ	   250#
STOP	    42#	   943	   954	   966	   981	   994	  1011	  1023	  1035	  1047	  1059	  1071	  1082	  1094
	  1107	  1119	  1130	  1142	  1154	  1165	  1177	  1189	  1200	  1212	  1224	  1259	  1276	  1293
	  1310	  1327	  1344	  1361	  1378	  1395	  1412	  1429	  1446	  1463	  1480	  1497	  1514	  1531
	  1548	  1565	  1582	  1599	  1616	  1633	  1650	  1667	  1684	  1701	  1718	  1735	  1752	  1769
	  1786	  1803	  1820	  1837	  1854	  1867	  1883	  1896	  1910	  1933	  1949	  1965	  1976	  1988
	  2011	  2056	  2060	  2081	  2085	  2106	  2110	  2131	  2135	  2151	  2168	  2184	  2200	  2214
	  2228	  2241	  2256	  2274	  2309	  2326	  2343	  2360	  2377	  2394	  2411	  2428	  2445	  2462
	  2479	  2496	  2513	  2530	  2547	  2564	  2581	  2598	  2633	  2650	  2667	  2684	  2701	  2718
	  2735	  2752	  2769	  2786	  2803	  2820	  2837	  2854	  2871	  2888	  2905	  2922	  2937	  2951
	  2969	  2985	  3004	  3050	  3054	  3075	  3079	  3100	  3104	  3125	  3129	  3150	  3154	  3175
	  3179	  3200	  3204	  3225	  3229	  3250	  3254	  3275	  3279	  3300	  3304	  3325	  3329	  3350
	  3354	  3375	  3379	  3400	  3404	  3425	  3429	  3450	  3454	  3475	  3479	  3500	  3504	  3525
	  3529	  3550	  3554	  3575	  3579	  3600	  3604	  3625	  3629	  3650	  3654	  3675	  3679	  3700
	  3704	  3725	  3729	  3750	  3754	  3775	  3779	  3800	  3804	  3825	  3829	  3850	  3854	  3875
	  3879	  3900	  3904	  3925	  3929	  3968	  3987	  4006	  4025	  4044	  4063	  4082	  4101	  4120
	  4139	  4158	  4177	  4196	  4215	  4234	  4253	  4272	  4291	  4310	  4329	  4348	  4367	  4386
	  4405	  4424	  4443	  4462	  4481	  4500	  4519	  4538	  4557	  4576	  4595	  4614	  4633	  4649
	  4664	  4682	  4698	  4712	  4749	  4767	  4785	  4803	  4821	  4839	  4857	  4875	  4893	  4911
	  4929	  4947	  4965	  4983	  5001	  5019	  5037	  5055	  5073	  5091	  5109	  5127	  5145	  5163
	  5181	  5199	  5217	  5235	  5253	  5271	  5289	  5307	  5325	  5343	  5361	  5379	  5422	  5445
	  5468	  5491	  5514	  5537	  5560	  5583	  5606	  5629	  5652	  5675	  5698	  5721	  5744	  5767
	  5790	  5813	  5836	  5859	  5882	  5905	  5928	  5951	  5974	  5997	  6020	  6043	  6066	  6089
	  6112	  6135	  6158	  6181	  6204	  6227	  6272	  6291	  6310	  6329	  6348	  6367	  6386	  6405
	  6424	  6443	  6462	  6481	  6500	  6519	  6538	  6557	  6576	  6595	  6614	  6633	  6652	  6671
	  6690	  6709	  6728	  6747	  6766	  6785	  6804	  6823	  6842	  6861	  6880	  6899	  6918	  6937     SEQ 0198
	  6950	  6966	  7007	  7027	  7047	  7067	  7087	  7107	  7127	  7147	  7167	  7187	  7207	  7227
	  7247	  7267	  7287	  7307	  7327	  7347	  7389	  7409	  7429	  7449	  7469	  7489	  7509	  7529
	  7549	  7569	  7589	  7609	  7629	  7649	  7669	  7689	  7709	  7729	  7747	  7765	  7810	  7832
	  7854	  7876	  7898	  7920	  7942	  7964	  7986	  8008	  8030	  8052	  8074	  8096	  8118	  8140
	  8162	  8184	  8206	  8228	  8250	  8272	  8294	  8316	  8338	  8360	  8382	  8404	  8426	  8448
	  8470	  8492	  8514	  8536	  8558	  8580
SWITCH	   256#
TTALTM	   178#
TTICHR	   171#
TTICNV	   176#
TTIDEC	   175#
TTINO	   173#
TTIOCT	   174#
TTIYES	   172#
TTLOOK	   177#
TTSIXB	   179#
TTYINP	   180#
PROGRAM	   SWITCHES        MASK           INSTR      CNTLPC  UPRPC                                                         SEQ 0199
DBKAA	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 0200
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 0201
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 200040035060 *            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,035060

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030614 030614 030614 200040035060 777777777777 0                000000030602 010000000000 0            0   0   777 
IT1	*      *      035060 *            200040035060 0                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000035060     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 0202
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,035060

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030616 030616 030616 316040035060 777777777777 000000030615     000001000001 777777000001 777777777777 0   0   777 
IT1	*      *      035060 *            316040035060 *                *            *            *            0   0   *   
MEMST	*      *      *      *            *            000000035060     *            *            000000000000 0   0   *   
FT6	*      035060 *      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 0203
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 0204
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,030741

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

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

*030741  JRST	0,030742

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030741 030741 030741 254000030742 254000030741 000000030722     000000030714 254000030741 0            0   0   777 
IT1	*      *      030742 *            254000030742 *                *            *            0            0   0   *   
ET2	030742 030742 *      334000000000 777777777777 254000030742     *            *            0            0   0   *   

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

*030742  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030742 030742 030742 334000000000 254000030742 000000030742     000000030714 254000030742 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000030714     *            *            0            0   0   *   
ET0	*      0      030743 *            000000030714 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	030743 0      030744 *            777777777777 *                *            *            0            0   0   *   

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

*030744  JUMP 	0,030745
                                                                                                                           SEQ 0205
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030744 030744 030744 320000030745 777777777777 000000030714     000000030714 254000030742 0            0   0   777 
IT1	*      *      030745 *            320000030745 *                *            *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000030745     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      030745 *            000000030745 000000030714     *            000000030745 0            0   0   *   

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

*030745  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030745 030745 030745 334000000000 777777777777 000000030714     000000030714 000000030745 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000030714     *            *            0            0   0   *   
ET0	*      0      030746 *            000000030714 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	030746 0      030747 *            777777777777 *                *            *            0            0   0   *   

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

*030747  JUMP 	0,030751

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030747 030747 030747 320000030751 777777777777 000000030714     000000030714 000000030745 0            0   0   777 
IT1	*      *      030751 *            320000030751 *                *            *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000030751     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      030750 *            000000030751 000000030714     *            000000030751 0            0   0   *   

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

*030750  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030750 030750 030750 334000000000 777777777777 000000030714     000000030714 000000030751 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000030714     *            *            0            0   0   *   
ET0	*      0      030751 *            000000030714 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	030751 0      030752 *            777777777777 *                *            *            0            0   0   *   

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

*030752  JUMPA	0,030753

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030752 030752 030752 324000030753 777777777777 000000030714     000000030714 000000030751 0            0   0   777 
IT1	*      *      030753 *            324000030753 *                *            *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000030753     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      030753 *            000000030753 000000030714     *            000000030753 0            0   0   *   

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

*030753  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030753 030753 030753 334000000000 777777777777 000000030714     000000030714 000000030753 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000030714     *            *            0            0   0   *   
ET0	*      0      030754 *            000000030714 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	030754 0      030755 *            777777777777 *                *            *            0            0   0   *   

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

*030755  JUMPA	0,030757

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030755 030755 030755 324000030757 777777777777 000000030714     000000030714 000000030753 0            0   0   777 
IT1	*      *      030757 *            324000030757 *                *            *            0            0   0   *   
ET0	*      *      030714 *            000000030714 000000030757     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      030757 *            000000030757 000000030714     *            000000030757 0            0   0   *   

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

*030757  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030757 030757 030757 200000035062 777777777777 000000030714     000000030714 000000030757 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	030760 030760 030760 334000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000030714 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*030760  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030760 030760 030760 334000000000 777777777777 0                0            000000030757 0            0   0   777 
IT1	*      *      000000 *            334000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      030761 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	030761 0      030762 *            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 
----------

*030762  JUMPA	0,030763

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030762 030762 030762 324000030763 777777777777 0                0            000000030757 0            0   0   777 
IT1	*      *      030763 *            324000030763 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000030763     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      030763 *            000000030763 000000000000     0            000000030763 0            0   0   *   

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

*030763  MOVE 	0,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030763 030763 030763 200000035063 777777777777 0                0            000000030763 0            0   0   777 
IT1	*      *      035063 *            200000035063 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     0            *            0            0   0   *   
FT6	030764 030764 030764 334000000000 777777777777 777777777777     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777777 *            0            0   0   *   

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

*030764  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030764 030764 030764 334000000000 777777777777 777777777777     777777777777 000000030763 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   SEQ 0208
FT6	*      000000 0      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      0      030765 *            *            *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	030765 0      030766 *            *            *                *            *            0            0   0   *   

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

*030766  JUMPA	0,030767

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030766 030766 030766 324000030767 777777777777 777777777777     777777777777 000000030763 0            0   0   777 
IT1	*      *      030767 *            324000030767 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000030767     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      030767 *            000000030767 777777777777     *            000000030767 0            0   0   *   

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

*030767  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030767 030767 030767 200000035062 777777777777 777777777777     777777777777 000000030767 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	030770 030770 030770 335000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            0                *            *            0            0   0   *   
ST1	*      *      *      *            *            0                000000000000 *            0            0   0   *   

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

*030770  SKIPGE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030770 030770 030770 335000000000 777777777777 0                0            000000030767 0            0   0   777 
IT1	*      *      000000 *            335000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      030771 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	030771 0      030772 *            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 
----------                                                                                                                 SEQ 0209

*030772  JUMPA	0,030773

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

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

*030773  MOVE 	0,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030773 030773 030773 200000035063 777777777777 0                0            000000030773 0            0   0   777 
IT1	*      *      035063 *            200000035063 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     0            *            0            0   0   *   
FT6	030774 030774 030774 330000000000 777777777777 777777777777     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777777 *            0            0   0   *   

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

*030774  SKIP 	0,000000

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

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

*030775  SKIPA	0,000000

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

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

*030777  JUMPA	0,031000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	030777 030777 030777 324000031000 777777777777 777777777777     777777777777 000000030773 0            0   0   777 
IT1	*      *      031000 *            324000031000 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031000 *            000000031000 777777777777     *            000000031000 0            0   0   *   

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

*031000  MOVE 	0,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031000 031000 031000 200000035063 777777777777 777777777777     777777777777 000000031000 0            0   0   777 
IT1	*      *      035063 *            200000035063 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     *            *            0            0   0   *   
FT6	031001 031001 031001 335000000000 777777777777 777777777777     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   

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

*031001  SKIPGE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031001 031001 031001 335000000000 777777777777 777777777777     777777777777 000000031000 0            0   0   777 
IT1	*      *      000000 *            335000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      0      031002 *            *            *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	*      0      *      *            *            *                *            *            0            0   0   *   

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

*031002  SKIPA	0,000000
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0211
IT0	031002 031002 031002 334000000000 777777777777 777777777777     777777777777 000000031000 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      0      031003 *            *            *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031003 0      031004 *            *            *                *            *            0            0   0   *   

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

*031004  JUMPA	0,031005

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031004 031004 031004 324000031005 777777777777 777777777777     777777777777 000000031000 0            0   0   777 
IT1	*      *      031005 *            324000031005 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031005     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031005 *            000000031005 777777777777     *            000000031005 0            0   0   *   

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

*031005  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031005 031005 031005 200000035062 777777777777 777777777777     777777777777 000000031005 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031006 031006 031006 336000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            0                *            *            0            0   0   *   
ST1	*      *      *      *            *            0                000000000000 *            0            0   0   *   

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

*031006  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031006 031006 031006 336000000000 777777777777 0                0            000000031005 0            0   0   777 
IT1	*      *      000000 *            336000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031007 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	*      0      *      *            777777777777 0                0            *            0            0   0   *   

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

*031007  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031007 031007 031007 334000000000 777777777777 0                0            000000031005 0            0   0   777 
IT1	*      *      000000 *            334000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031010 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031010 0      031011 *            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 
----------

*031011  JUMPA	0,031012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031011 031011 031011 324000031012 777777777777 0                0            000000031005 0            0   0   777 
IT1	*      *      031012 *            324000031012 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031012     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031012 *            000000031012 000000000000     0            000000031012 0            0   0   *   

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

*031012  MOVE 	0,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031012 031012 031012 200000035063 777777777777 0                0            000000031012 0            0   0   777 
IT1	*      *      035063 *            200000035063 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     0            *            0            0   0   *   
FT6	031013 031013 031013 336000000000 777777777777 777777777777     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777777 *            0            0   0   *   

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

*031013  SKIPN	0,000000

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

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

*031015  JUMPA	0,031016

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

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

*031016  MOVE 	0,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031016 031016 031016 200000035063 777777777777 777777777777     777777777777 000000031016 0            0   0   777 
IT1	*      *      035063 *            200000035063 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     *            *            0            0   0   *   
FT6	031017 031017 031017 332000000000 777777777777 777777777777     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   

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

*031017  SKIPE	0,000000

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

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777777 777777 C(E) =777777 777777 
FINAL
C(AC)=777777 777777 
----------
                                                                                                                           SEQ 0214
*031020  SKIPA	0,000000

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

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

*031022  JUMPA	0,031023

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031022 031022 031022 324000031023 777777777777 777777777777     777777777777 000000031016 0            0   0   777 
IT1	*      *      031023 *            324000031023 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031023     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031023 *            000000031023 777777777777     *            000000031023 0            0   0   *   

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

*031023  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031023 031023 031023 200000035062 777777777777 777777777777     777777777777 000000031023 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031024 031024 031024 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            0                *            *            0            0   0   *   
ST1	*      *      *      *            *            0                000000000000 *            0            0   0   *   

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

*031024  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031024 031024 031024 332000000000 777777777777 0                0            000000031023 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      031025 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031025 0      031026 *            777777777777 0                0            *            0            0   0   *   
                                                                                                                           SEQ 0215
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031026  JUMPA	0,031027

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031026 031026 031026 324000031027 777777777777 0                0            000000031023 0            0   0   777 
IT1	*      *      031027 *            324000031027 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031027     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031027 *            000000031027 000000000000     0            000000031027 0            0   0   *   

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

*031027  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031027 031027 031027 200000035062 777777777777 0                0            000000031027 0            0   0   777 
IT1	*      *      035062 *            200000035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031030 031030 031030 330000000000 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 
----------

*031030  SKIP 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031030 031030 031030 330000000000 777777777777 0                0            000000031027 0            0   0   777 
IT1	*      *      000000 *            330000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031031 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	*      0      *      *            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 
----------

*031031  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031031 031031 031031 334000000000 777777777777 0                0            000000031027 0            0   0   77  SEQ 0216
IT1	*      *      000000 *            334000000000 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            000000031027 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,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031034 031034 031034 200000035062 777777777777 0                0            000000031034 0            0   0   777 
IT1	*      *      035062 *            200000035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031035 031035 031035 331000000000 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 
----------

*031035  SKIPL	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031035 031035 031035 331000000000 777777777777 0                0            000000031034 0            0   0   777 
IT1	*      *      000000 *            331000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031036 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	*      0      *      *            777777777777 0                0            *            0            0   0   *   

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

*031036  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031036 031036 031036 334000000000 777777777777 0                0            000000031034 0            0   0   777 
IT1	*      *      000000 *            334000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031037 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031037 0      031040 *            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 
----------

*031040  JUMPA	0,031041

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031040 031040 031040 324000031041 777777777777 0                0            000000031034 0            0   0   777 
IT1	*      *      031041 *            324000031041 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031041     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031041 *            000000031041 000000000000     0            000000031041 0            0   0   *   

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

*031041  MOVE 	0,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031041 031041 031041 200000035063 777777777777 0                0            000000031041 0            0   0   777 
IT1	*      *      035063 *            200000035063 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     0            *            0            0   0   *   
FT6	031042 031042 031042 331000000000 777777777777 777777777777     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777777 *            0            0   0   *   

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

*031042  SKIPL	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031042 031042 031042 331000000000 777777777777 777777777777     777777777777 000000031041 0            0   0   777 
IT1	*      *      000000 *            331000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      0      031043 *            *            *                *            *            0            0   0   *   SEQ 0218
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031043 0      031044 *            *            *                *            *            0            0   0   *   

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

*031044  JUMPA	0,031045

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031044 031044 031044 324000031045 777777777777 777777777777     777777777777 000000031041 0            0   0   777 
IT1	*      *      031045 *            324000031045 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031045     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031045 *            000000031045 777777777777     *            000000031045 0            0   0   *   

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

*031045  MOVE 	0,035064

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031045 031045 031045 200000035064 777777777777 777777777777     777777777777 000000031045 0            0   0   777 
IT1	*      *      035064 *            200000035064 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035064     *            *            0            0   0   *   
FT6	031046 031046 031046 337000000000 777777777777 377777777777     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                377777777777 *            0            0   0   *   

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

*031046  SKIPG	0,000000

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

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=377777 777777 C(E) =377777 777777 
FINAL
C(AC)=377777 777777 
----------
*031050  JUMPA	0,031051                                                                                                   SEQ 0219

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031050 031050 031050 324000031051 777777777777 377777777777     377777777777 000000031045 0            0   0   777 
IT1	*      *      031051 *            324000031051 *                *            *            0            0   0   *   
ET0	*      *      777777 *            377777777777 000000031051     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031051 *            000000031051 377777777777     *            000000031051 0            0   0   *   

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

*031051  MOVE 	0,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031051 031051 031051 200000035063 777777777777 377777777777     377777777777 000000031051 0            0   0   777 
IT1	*      *      035063 *            200000035063 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     *            *            0            0   0   *   
FT6	031052 031052 031052 337000000000 777777777777 777777777777     *            *            0            0   0   *   
ET2	*      *      *      *            377777777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777777 *            0            0   0   *   

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

*031052  SKIPG	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031052 031052 031052 337000000000 777777777777 777777777777     777777777777 000000031051 0            0   0   777 
IT1	*      *      000000 *            337000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      0      031053 *            *            *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	*      0      *      *            *            *                *            *            0            0   0   *   

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

*031053  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031053 031053 031053 334000000000 777777777777 777777777777     777777777777 000000031051 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      0      031054 *            *            *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031054 0      031055 *            *            *                *            *            0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0220
INITIAL
C(AC)=777777 777777 C(E) =777777 777777 
FINAL
C(AC)=777777 777777 
----------

*031055  JUMPA	0,031056

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031055 031055 031055 324000031056 777777777777 777777777777     777777777777 000000031051 0            0   0   777 
IT1	*      *      031056 *            324000031056 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000031056     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031056 *            000000031056 777777777777     *            000000031056 0            0   0   *   

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

*031056  MOVE 	0,035064

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031056 031056 031056 200000035064 777777777777 777777777777     777777777777 000000031056 0            0   0   777 
IT1	*      *      035064 *            200000035064 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035064     *            *            0            0   0   *   
FT6	031057 031057 031057 331000000000 777777777777 377777777777     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                377777777777 *            0            0   0   *   

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

*031057  SKIPL	0,000000

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

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

*031060  SKIPA	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031060 031060 031060 334000000000 777777777777 377777777777     377777777777 000000031056 0            0   0   777 
IT1	*      *      000000 *            334000000000 *                *            *            0            0   0   *   SEQ 0221
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 377777777777     *            *            0            0   0   *   
ET0	*      0      031061 *            377777777777 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031061 0      031062 *            777777777777 *                *            *            0            0   0   *   

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

*031062  JUMPA	0,031063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031062 031062 031062 324000031063 777777777777 377777777777     377777777777 000000031056 0            0   0   777 
IT1	*      *      031063 *            324000031063 *                *            *            0            0   0   *   
ET0	*      *      777777 *            377777777777 000000031063     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031063 *            000000031063 377777777777     *            000000031063 0            0   0   *   

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

*031063  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031063 031063 031063 200000035062 777777777777 377777777777     377777777777 000000031063 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031064 031064 031064 333000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            377777777777 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031064  SKIPLE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031064 031064 031064 333000000000 777777777777 0                0            000000031063 0            0   0   777 
IT1	*      *      000000 *            333000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031065 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031065 0      031066 *            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                                                                                                        SEQ 0222
----------

*031066  JUMPA	0,031067

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031066 031066 031066 324000031067 777777777777 0                0            000000031063 0            0   0   777 
IT1	*      *      031067 *            324000031067 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031067     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031067 *            000000031067 000000000000     0            000000031067 0            0   0   *   

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

*031067  MOVE 	0,035065

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031067 031067 031067 200000035065 777777777777 0                0            000000031067 0            0   0   777 
IT1	*      *      035065 *            200000035065 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035065     0            *            0            0   0   *   
FT6	031070 031070 031070 333000000000 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 
----------

*031070  SKIPLE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031070 031070 031070 333000000000 777777777777 400000000000     400000000000 000000031067 0            0   0   777 
IT1	*      *      000000 *            333000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 400000000000     *            *            0            0   0   *   
ET0	*      0      031071 *            400000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031071 0      031072 *            777777777777 *                *            *            0            0   0   *   

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

*031072  JUMPA	0,031073

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031072 031072 031072 324000031073 777777777777 400000000000     400000000000 000000031067 0            0   0   777 
IT1	*      *      031073 *            324000031073 *                *            *            0            0   0   *   
ET0	*      *      000000 *            400000000000 000000031073     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031073 *            000000031073 400000000000     *            000000031073 0            0   0   *   
                                                                                                                           SEQ 0223
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=400000 000000 E    =000000 031073 
----------

*031073  MOVE 	0,035064

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031073 031073 031073 200000035064 777777777777 400000000000     400000000000 000000031073 0            0   0   777 
IT1	*      *      035064 *            200000035064 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035064     *            *            0            0   0   *   
FT6	031074 031074 031074 333000000000 777777777777 377777777777     *            *            0            0   0   *   
ET2	*      *      *      *            400000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                377777777777 *            0            0   0   *   

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

*031074  SKIPLE	0,000000

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

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

*031075  SKIPA	0,000000

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

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

*031077  JUMPA	0,031100
                                                                                                                           SEQ 0224
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031077 031077 031077 324000031100 777777777777 377777777777     377777777777 000000031073 0            0   0   777 
IT1	*      *      031100 *            324000031100 *                *            *            0            0   0   *   
ET0	*      *      777777 *            377777777777 000000031100     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031100 *            000000031100 377777777777     *            000000031100 0            0   0   *   

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

*031100  MOVE 	0,035066

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031100 031100 031100 200000035066 777777777777 377777777777     377777777777 000000031100 0            0   0   777 
IT1	*      *      035066 *            200000035066 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035066     *            *            0            0   0   *   
FT6	031101 031101 031101 336000000000 777777777777 777000000000     *            *            0            0   0   *   
ET2	*      *      *      *            377777777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777000000000 *            0            0   0   *   

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

*031101  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031101 031101 031101 336000000000 777777777777 777000000000     777000000000 000000031100 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 777000000000     *            *            0            0   0   *   
ET0	*      0      031102 *            777000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031102 0      031103 *            777777777777 *                *            *            0            0   0   *   

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

*031103  JUMPA	0,031104

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031103 031103 031103 324000031104 777777777777 777000000000     777000000000 000000031100 0            0   0   777 
IT1	*      *      031104 *            324000031104 *                *            *            0            0   0   *   
ET0	*      *      000000 *            777000000000 000000031104     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031104 *            000000031104 777000000000     *            000000031104 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=777000 000000 E    =000000 031104 
----------                                                                                                                 SEQ 0225

*031104  MOVE 	0,035067

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031104 031104 031104 200000035067 777777777777 777000000000     777000000000 000000031104 0            0   0   777 
IT1	*      *      035067 *            200000035067 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035067     *            *            0            0   0   *   
FT6	031105 031105 031105 336000000000 777777777777 000377000000     *            *            0            0   0   *   
ET2	*      *      *      *            777000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000377000000 *            0            0   0   *   

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

*031105  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031105 031105 031105 336000000000 777777777777 000377000000     000377000000 000000031104 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000377000000     *            *            0            0   0   *   
ET0	*      0      031106 *            000377000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031106 0      031107 *            777777777777 *                *            *            0            0   0   *   

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

*031107  JUMPA	0,031110

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031107 031107 031107 324000031110 777777777777 000377000000     000377000000 000000031104 0            0   0   777 
IT1	*      *      031110 *            324000031110 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000377000000 000000031110     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031110 *            000000031110 000377000000     *            000000031110 0            0   0   *   

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

*031110  MOVE 	0,035070

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031110 031110 031110 200000035070 777777777777 000377000000     000377000000 000000031110 0            0   0   777 
IT1	*      *      035070 *            200000035070 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035070     *            *            0            0   0   *   
FT6	031111 031111 031111 336000000000 777777777777 000000177000     *            *            0            0   0   *   
ET2	*      *      *      *            000377000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000177000 *            0            0   0   *   
                                                                                                                           SEQ 0226
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000377 000000 C(E) =000000 177000 
FINAL
C(AC)=000000 177000 
----------

*031111  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031111 031111 031111 336000000000 777777777777 000000177000     000000177000 000000031110 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000177000     *            *            0            0   0   *   
ET0	*      0      031112 *            000000177000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031112 0      031113 *            777777777777 *                *            *            0            0   0   *   

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

*031113  JUMPA	0,031114

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031113 031113 031113 324000031114 777777777777 000000177000     000000177000 000000031110 0            0   0   777 
IT1	*      *      031114 *            324000031114 *                *            *            0            0   0   *   
ET0	*      *      177000 *            000000177000 000000031114     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031114 *            000000031114 000000177000     *            000000031114 0            0   0   *   

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

*031114  MOVE 	0,035071

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031114 031114 031114 200000035071 777777777777 000000177000     000000177000 000000031114 0            0   0   777 
IT1	*      *      035071 *            200000035071 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035071     *            *            0            0   0   *   
FT6	031115 031115 031115 336000000000 777777777777 000000000777     *            *            0            0   0   *   
ET2	*      *      *      *            000000177000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000777 *            0            0   0   *   

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

*031115  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031115 031115 031115 336000000000 777777777777 000000000777     000000000777 000000031114 0            0   0   77  SEQ 0227
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000000777     *            *            0            0   0   *   
ET0	*      0      031116 *            000000000777 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031116 0      031117 *            777777777777 *                *            *            0            0   0   *   

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

*031117  JUMPA	0,031120

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031117 031117 031117 324000031120 777777777777 000000000777     000000000777 000000031114 0            0   0   777 
IT1	*      *      031120 *            324000031120 *                *            *            0            0   0   *   
ET0	*      *      000777 *            000000000777 000000031120     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031120 *            000000031120 000000000777     *            000000031120 0            0   0   *   

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

*031120  MOVE 	0,035072

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031120 031120 031120 200000035072 777777777777 000000000777     000000000777 000000031120 0            0   0   777 
IT1	*      *      035072 *            200000035072 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035072     *            *            0            0   0   *   
FT6	031121 031121 031121 336000000000 777777777777 000000600000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000600000 *            0            0   0   *   

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

*031121  SKIPN	0,000000

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

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

*031123  JUMPA	0,031124

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031123 031123 031123 324000031124 777777777777 000000600000     000000600000 000000031120 0            0   0   777 
IT1	*      *      031124 *            324000031124 *                *            *            0            0   0   *   
ET0	*      *      600000 *            000000600000 000000031124     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031124 *            000000031124 000000600000     *            000000031124 0            0   0   *   

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

*031124  MOVE 	0,035073

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031124 031124 031124 200000035073 777777777777 000000600000     000000600000 000000031124 0            0   0   777 
IT1	*      *      035073 *            200000035073 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035073     *            *            0            0   0   *   
FT6	031125 031125 031125 336000000000 777777777777 000400000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000600000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000400000000 *            0            0   0   *   

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

*031125  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031125 031125 031125 336000000000 777777777777 000400000000     000400000000 000000031124 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000400000000     *            *            0            0   0   *   
ET0	*      0      031126 *            000400000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031126 0      031127 *            777777777777 *                *            *            0            0   0   *   

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

*031127  JUMPA	0,031130

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031127 031127 031127 324000031130 777777777777 000400000000     000400000000 000000031124 0            0   0   777 
IT1	*      *      031130 *            324000031130 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000400000000 000000031130     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031130 *            000000031130 000400000000     *            000000031130 0            0   0   *   SEQ 0229

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

*031130  MOVE 	0,035074

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031130 031130 031130 200000035074 777777777777 000400000000     000400000000 000000031130 0            0   0   777 
IT1	*      *      035074 *            200000035074 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035074     *            *            0            0   0   *   
FT6	031131 031131 031131 336000000000 777777777777 000000000001     *            *            0            0   0   *   
ET2	*      *      *      *            000400000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000001 *            0            0   0   *   

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

*031131  SKIPN	0,000000

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

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

*031133  JUMPA	0,031134

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031133 031133 031133 324000031134 777777777777 000000000001     000000000001 000000031130 0            0   0   777 
IT1	*      *      031134 *            324000031134 *                *            *            0            0   0   *   
ET0	*      *      000001 *            000000000001 000000031134     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031134 *            000000031134 000000000001     *            000000031134 0            0   0   *   

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

*031134  MOVE 	0,035075

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031134 031134 031134 200000035075 777777777777 000000000001     000000000001 000000031134 0            0   0   777 
IT1	*      *      035075 *            200000035075 *                *            *            0            0   0   *   SEQ 0230
MEMST	*      *      *      *            *            000000035075     *            *            0            0   0   *   
FT6	031135 031135 031135 336000000000 777777777777 000000000002     *            *            0            0   0   *   
ET2	*      *      *      *            000000000001 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000002 *            0            0   0   *   

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

*031135  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031135 031135 031135 336000000000 777777777777 000000000002     000000000002 000000031134 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000000002     *            *            0            0   0   *   
ET0	*      0      031136 *            000000000002 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031136 0      031137 *            777777777777 *                *            *            0            0   0   *   

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

*031137  JUMPA	0,031140

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031137 031137 031137 324000031140 777777777777 000000000002     000000000002 000000031134 0            0   0   777 
IT1	*      *      031140 *            324000031140 *                *            *            0            0   0   *   
ET0	*      *      000002 *            000000000002 000000031140     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031140 *            000000031140 000000000002     *            000000031140 0            0   0   *   

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

*031140  MOVE 	0,035076

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031140 031140 031140 200000035076 777777777777 000000000002     000000000002 000000031140 0            0   0   777 
IT1	*      *      035076 *            200000035076 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035076     *            *            0            0   0   *   
FT6	031141 031141 031141 336000000000 777777777777 000000000004     *            *            0            0   0   *   
ET2	*      *      *      *            000000000002 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000004 *            0            0   0   *   

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

*031141  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031141 031141 031141 336000000000 777777777777 000000000004     000000000004 000000031140 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000000004     *            *            0            0   0   *   
ET0	*      0      031142 *            000000000004 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031142 0      031143 *            777777777777 *                *            *            0            0   0   *   

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

*031143  JUMPA	0,031144

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031143 031143 031143 324000031144 777777777777 000000000004     000000000004 000000031140 0            0   0   777 
IT1	*      *      031144 *            324000031144 *                *            *            0            0   0   *   
ET0	*      *      000004 *            000000000004 000000031144     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031144 *            000000031144 000000000004     *            000000031144 0            0   0   *   

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

*031144  MOVE 	0,035077

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031144 031144 031144 200000035077 777777777777 000000000004     000000000004 000000031144 0            0   0   777 
IT1	*      *      035077 *            200000035077 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035077     *            *            0            0   0   *   
FT6	031145 031145 031145 336000000000 777777777777 000000000010     *            *            0            0   0   *   
ET2	*      *      *      *            000000000004 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000010 *            0            0   0   *   

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

*031145  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031145 031145 031145 336000000000 777777777777 000000000010     000000000010 000000031144 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000000010     *            *            0            0   0   *   
ET0	*      0      031146 *            000000000010 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031146 0      031147 *            777777777777 *                *            *            0            0   0   *   SEQ 0232

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

*031147  JUMPA	0,031150

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031147 031147 031147 324000031150 777777777777 000000000010     000000000010 000000031144 0            0   0   777 
IT1	*      *      031150 *            324000031150 *                *            *            0            0   0   *   
ET0	*      *      000010 *            000000000010 000000031150     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031150 *            000000031150 000000000010     *            000000031150 0            0   0   *   

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

*031150  MOVE 	0,035100

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031150 031150 031150 200000035100 777777777777 000000000010     000000000010 000000031150 0            0   0   777 
IT1	*      *      035100 *            200000035100 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035100     *            *            0            0   0   *   
FT6	031151 031151 031151 336000000000 777777777777 000000000020     *            *            0            0   0   *   
ET2	*      *      *      *            000000000010 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000020 *            0            0   0   *   

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

*031151  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031151 031151 031151 336000000000 777777777777 000000000020     000000000020 000000031150 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000000020     *            *            0            0   0   *   
ET0	*      0      031152 *            000000000020 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031152 0      031153 *            777777777777 *                *            *            0            0   0   *   

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

*031153  JUMPA	0,031154
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0233
IT0	031153 031153 031153 324000031154 777777777777 000000000020     000000000020 000000031150 0            0   0   777 
IT1	*      *      031154 *            324000031154 *                *            *            0            0   0   *   
ET0	*      *      000020 *            000000000020 000000031154     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031154 *            000000031154 000000000020     *            000000031154 0            0   0   *   

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

*031154  MOVE 	0,035101

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031154 031154 031154 200000035101 777777777777 000000000020     000000000020 000000031154 0            0   0   777 
IT1	*      *      035101 *            200000035101 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035101     *            *            0            0   0   *   
FT6	031155 031155 031155 336000000000 777777777777 000000000040     *            *            0            0   0   *   
ET2	*      *      *      *            000000000020 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000040 *            0            0   0   *   

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

*031155  SKIPN	0,000000

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

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

*031157  JUMPA	0,031160

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

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 000040 E    =000000 031160 
----------
                                                                                                                           SEQ 0234
*031160  MOVE 	0,035102

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031160 031160 031160 200000035102 777777777777 000000000040     000000000040 000000031160 0            0   0   777 
IT1	*      *      035102 *            200000035102 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035102     *            *            0            0   0   *   
FT6	031161 031161 031161 336000000000 777777777777 000000000100     *            *            0            0   0   *   
ET2	*      *      *      *            000000000040 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000100 *            0            0   0   *   

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

*031161  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031161 031161 031161 336000000000 777777777777 000000000100     000000000100 000000031160 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000000100     *            *            0            0   0   *   
ET0	*      0      031162 *            000000000100 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031162 0      031163 *            777777777777 *                *            *            0            0   0   *   

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

*031163  JUMPA	0,031164

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031163 031163 031163 324000031164 777777777777 000000000100     000000000100 000000031160 0            0   0   777 
IT1	*      *      031164 *            324000031164 *                *            *            0            0   0   *   
ET0	*      *      000100 *            000000000100 000000031164     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031164 *            000000031164 000000000100     *            000000031164 0            0   0   *   

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

*031164  MOVE 	0,035103

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031164 031164 031164 200000035103 777777777777 000000000100     000000000100 000000031164 0            0   0   777 
IT1	*      *      035103 *            200000035103 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035103     *            *            0            0   0   *   
FT6	031165 031165 031165 336000000000 777777777777 000000000200     *            *            0            0   0   *   
ET2	*      *      *      *            000000000100 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000200 *            0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0235
INITIAL
C(AC)=000000 000100 C(E) =000000 000200 
FINAL
C(AC)=000000 000200 
----------

*031165  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031165 031165 031165 336000000000 777777777777 000000000200     000000000200 000000031164 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000000200     *            *            0            0   0   *   
ET0	*      0      031166 *            000000000200 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031166 0      031167 *            777777777777 *                *            *            0            0   0   *   

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

*031167  JUMPA	0,031170

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031167 031167 031167 324000031170 777777777777 000000000200     000000000200 000000031164 0            0   0   777 
IT1	*      *      031170 *            324000031170 *                *            *            0            0   0   *   
ET0	*      *      000200 *            000000000200 000000031170     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031170 *            000000031170 000000000200     *            000000031170 0            0   0   *   

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

*031170  MOVE 	0,035104

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031170 031170 031170 200000035104 777777777777 000000000200     000000000200 000000031170 0            0   0   777 
IT1	*      *      035104 *            200000035104 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035104     *            *            0            0   0   *   
FT6	031171 031171 031171 336000000000 777777777777 000000000400     *            *            0            0   0   *   
ET2	*      *      *      *            000000000200 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000000400 *            0            0   0   *   

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

*031171  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031171 031171 031171 336000000000 777777777777 000000000400     000000000400 000000031170 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   SEQ 0236
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000000400     *            *            0            0   0   *   
ET0	*      0      031172 *            000000000400 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031172 0      031173 *            777777777777 *                *            *            0            0   0   *   

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

*031173  JUMPA	0,031174

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031173 031173 031173 324000031174 777777777777 000000000400     000000000400 000000031170 0            0   0   777 
IT1	*      *      031174 *            324000031174 *                *            *            0            0   0   *   
ET0	*      *      000400 *            000000000400 000000031174     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031174 *            000000031174 000000000400     *            000000031174 0            0   0   *   

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

*031174  MOVE 	0,035105

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031174 031174 031174 200000035105 777777777777 000000000400     000000000400 000000031174 0            0   0   777 
IT1	*      *      035105 *            200000035105 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035105     *            *            0            0   0   *   
FT6	031175 031175 031175 336000000000 777777777777 000000001000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000400 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000001000 *            0            0   0   *   

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

*031175  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031175 031175 031175 336000000000 777777777777 000000001000     000000001000 000000031174 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000001000     *            *            0            0   0   *   
ET0	*      0      031176 *            000000001000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031176 0      031177 *            777777777777 *                *            *            0            0   0   *   

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

*031177  JUMPA	0,031200

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031177 031177 031177 324000031200 777777777777 000000001000     000000001000 000000031174 0            0   0   777 
IT1	*      *      031200 *            324000031200 *                *            *            0            0   0   *   
ET0	*      *      001000 *            000000001000 000000031200     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031200 *            000000031200 000000001000     *            000000031200 0            0   0   *   

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

*031200  MOVE 	0,035106

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031200 031200 031200 200000035106 777777777777 000000001000     000000001000 000000031200 0            0   0   777 
IT1	*      *      035106 *            200000035106 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035106     *            *            0            0   0   *   
FT6	031201 031201 031201 336000000000 777777777777 000000002000     *            *            0            0   0   *   
ET2	*      *      *      *            000000001000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000002000 *            0            0   0   *   

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

*031201  SKIPN	0,000000

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

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

*031203  JUMPA	0,031204

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031203 031203 031203 324000031204 777777777777 000000002000     000000002000 000000031200 0            0   0   777 
IT1	*      *      031204 *            324000031204 *                *            *            0            0   0   *   
ET0	*      *      002000 *            000000002000 000000031204     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031204 *            000000031204 000000002000     *            000000031204 0            0   0   *   
                                                                                                                           SEQ 0238
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 002000 E    =000000 031204 
----------

*031204  MOVE 	0,035107

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031204 031204 031204 200000035107 777777777777 000000002000     000000002000 000000031204 0            0   0   777 
IT1	*      *      035107 *            200000035107 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035107     *            *            0            0   0   *   
FT6	031205 031205 031205 336000000000 777777777777 000000004000     *            *            0            0   0   *   
ET2	*      *      *      *            000000002000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000004000 *            0            0   0   *   

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

*031205  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031205 031205 031205 336000000000 777777777777 000000004000     000000004000 000000031204 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000004000     *            *            0            0   0   *   
ET0	*      0      031206 *            000000004000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031206 0      031207 *            777777777777 *                *            *            0            0   0   *   

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

*031207  JUMPA	0,031210

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031207 031207 031207 324000031210 777777777777 000000004000     000000004000 000000031204 0            0   0   777 
IT1	*      *      031210 *            324000031210 *                *            *            0            0   0   *   
ET0	*      *      004000 *            000000004000 000000031210     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031210 *            000000031210 000000004000     *            000000031210 0            0   0   *   

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

*031210  MOVE 	0,035110

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031210 031210 031210 200000035110 777777777777 000000004000     000000004000 000000031210 0            0   0   777 
IT1	*      *      035110 *            200000035110 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035110     *            *            0            0   0   *   SEQ 0239
FT6	031211 031211 031211 336000000000 777777777777 000000010000     *            *            0            0   0   *   
ET2	*      *      *      *            000000004000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000010000 *            0            0   0   *   

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

*031211  SKIPN	0,000000

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

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

*031213  JUMPA	0,031214

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

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

*031214  MOVE 	0,035111

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031214 031214 031214 200000035111 777777777777 000000010000     000000010000 000000031214 0            0   0   777 
IT1	*      *      035111 *            200000035111 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035111     *            *            0            0   0   *   
FT6	031215 031215 031215 336000000000 777777777777 000000020000     *            *            0            0   0   *   
ET2	*      *      *      *            000000010000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000020000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 010000 C(E) =000000 020000 
FINAL
C(AC)=000000 020000 
----------
                                                                                                                           SEQ 0240
*031215  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031215 031215 031215 336000000000 777777777777 000000020000     000000020000 000000031214 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000020000     *            *            0            0   0   *   
ET0	*      0      031216 *            000000020000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031216 0      031217 *            777777777777 *                *            *            0            0   0   *   

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

*031217  JUMPA	0,031220

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031217 031217 031217 324000031220 777777777777 000000020000     000000020000 000000031214 0            0   0   777 
IT1	*      *      031220 *            324000031220 *                *            *            0            0   0   *   
ET0	*      *      020000 *            000000020000 000000031220     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031220 *            000000031220 000000020000     *            000000031220 0            0   0   *   

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

*031220  MOVE 	0,035112

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031220 031220 031220 200000035112 777777777777 000000020000     000000020000 000000031220 0            0   0   777 
IT1	*      *      035112 *            200000035112 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035112     *            *            0            0   0   *   
FT6	031221 031221 031221 336000000000 777777777777 000000040000     *            *            0            0   0   *   
ET2	*      *      *      *            000000020000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000040000 *            0            0   0   *   

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

*031221  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031221 031221 031221 336000000000 777777777777 000000040000     000000040000 000000031220 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000040000     *            *            0            0   0   *   
ET0	*      0      031222 *            000000040000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031222 0      031223 *            777777777777 *                *            *            0            0   0   *   
                                                                                                                           SEQ 0241
FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 040000 C(E) =000000 040000 
FINAL
C(AC)=000000 040000 
----------

*031223  JUMPA	0,031224

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031223 031223 031223 324000031224 777777777777 000000040000     000000040000 000000031220 0            0   0   777 
IT1	*      *      031224 *            324000031224 *                *            *            0            0   0   *   
ET0	*      *      040000 *            000000040000 000000031224     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031224 *            000000031224 000000040000     *            000000031224 0            0   0   *   

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

*031224  MOVE 	0,035113

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031224 031224 031224 200000035113 777777777777 000000040000     000000040000 000000031224 0            0   0   777 
IT1	*      *      035113 *            200000035113 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035113     *            *            0            0   0   *   
FT6	031225 031225 031225 336000000000 777777777777 000000100000     *            *            0            0   0   *   
ET2	*      *      *      *            000000040000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000100000 *            0            0   0   *   

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

*031225  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031225 031225 031225 336000000000 777777777777 000000100000     000000100000 000000031224 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000100000     *            *            0            0   0   *   
ET0	*      0      031226 *            000000100000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031226 0      031227 *            777777777777 *                *            *            0            0   0   *   

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

*031227  JUMPA	0,031230

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031227 031227 031227 324000031230 777777777777 000000100000     000000100000 000000031224 0            0   0   77  SEQ 0242
IT1	*      *      031230 *            324000031230 *                *            *            0            0   0   *   
ET0	*      *      100000 *            000000100000 000000031230     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031230 *            000000031230 000000100000     *            000000031230 0            0   0   *   

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

*031230  MOVE 	0,035114

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031230 031230 031230 200000035114 777777777777 000000100000     000000100000 000000031230 0            0   0   777 
IT1	*      *      035114 *            200000035114 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035114     *            *            0            0   0   *   
FT6	031231 031231 031231 336000000000 777777777777 000000200000     *            *            0            0   0   *   
ET2	*      *      *      *            000000100000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000200000 *            0            0   0   *   

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

*031231  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031231 031231 031231 336000000000 777777777777 000000200000     000000200000 000000031230 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000200000     *            *            0            0   0   *   
ET0	*      0      031232 *            000000200000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031232 0      031233 *            777777777777 *                *            *            0            0   0   *   

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

*031233  JUMPA	0,031234

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031233 031233 031233 324000031234 777777777777 000000200000     000000200000 000000031230 0            0   0   777 
IT1	*      *      031234 *            324000031234 *                *            *            0            0   0   *   
ET0	*      *      200000 *            000000200000 000000031234     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031234 *            000000031234 000000200000     *            000000031234 0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000000 200000 E    =000000 031234 
----------
*031234  MOVE 	0,035115                                                                                                   SEQ 0243

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031234 031234 031234 200000035115 777777777777 000000200000     000000200000 000000031234 0            0   0   777 
IT1	*      *      035115 *            200000035115 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035115     *            *            0            0   0   *   
FT6	031235 031235 031235 336000000000 777777777777 000000400000     *            *            0            0   0   *   
ET2	*      *      *      *            000000200000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000400000 *            0            0   0   *   

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

*031235  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031235 031235 031235 336000000000 777777777777 000000400000     000000400000 000000031234 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000400000     *            *            0            0   0   *   
ET0	*      0      031236 *            000000400000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031236 0      031237 *            777777777777 *                *            *            0            0   0   *   

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

*031237  JUMPA	0,031240

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031237 031237 031237 324000031240 777777777777 000000400000     000000400000 000000031234 0            0   0   777 
IT1	*      *      031240 *            324000031240 *                *            *            0            0   0   *   
ET0	*      *      400000 *            000000400000 000000031240     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031240 *            000000031240 000000400000     *            000000031240 0            0   0   *   

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

*031240  MOVE 	0,035116

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031240 031240 031240 200000035116 777777777777 000000400000     000000400000 000000031240 0            0   0   777 
IT1	*      *      035116 *            200000035116 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035116     *            *            0            0   0   *   
FT6	031241 031241 031241 336000000000 777777777777 000001000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000400000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000001000000 *            0            0   0   *   

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

*031241  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031241 031241 031241 336000000000 777777777777 000001000000     000001000000 000000031240 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000001000000     *            *            0            0   0   *   
ET0	*      0      031242 *            000001000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031242 0      031243 *            777777777777 *                *            *            0            0   0   *   

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

*031243  JUMPA	0,031244

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031243 031243 031243 324000031244 777777777777 000001000000     000001000000 000000031240 0            0   0   777 
IT1	*      *      031244 *            324000031244 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000001000000 000000031244     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031244 *            000000031244 000001000000     *            000000031244 0            0   0   *   

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

*031244  MOVE 	0,035117

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031244 031244 031244 200000035117 777777777777 000001000000     000001000000 000000031244 0            0   0   777 
IT1	*      *      035117 *            200000035117 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035117     *            *            0            0   0   *   
FT6	031245 031245 031245 336000000000 777777777777 000002000000     *            *            0            0   0   *   
ET2	*      *      *      *            000001000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000002000000 *            0            0   0   *   

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

*031245  SKIPN	0,000000

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

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

*031247  JUMPA	0,031250

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031247 031247 031247 324000031250 777777777777 000002000000     000002000000 000000031244 0            0   0   777 
IT1	*      *      031250 *            324000031250 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000002000000 000000031250     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031250 *            000000031250 000002000000     *            000000031250 0            0   0   *   

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

*031250  MOVE 	0,035120

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031250 031250 031250 200000035120 777777777777 000002000000     000002000000 000000031250 0            0   0   777 
IT1	*      *      035120 *            200000035120 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035120     *            *            0            0   0   *   
FT6	031251 031251 031251 336000000000 777777777777 000004000000     *            *            0            0   0   *   
ET2	*      *      *      *            000002000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000004000000 *            0            0   0   *   

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

*031251  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031251 031251 031251 336000000000 777777777777 000004000000     000004000000 000000031250 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000004000000     *            *            0            0   0   *   
ET0	*      0      031252 *            000004000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031252 0      031253 *            777777777777 *                *            *            0            0   0   *   

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

*031253  JUMPA	0,031254

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031253 031253 031253 324000031254 777777777777 000004000000     000004000000 000000031250 0            0   0   777 
IT1	*      *      031254 *            324000031254 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000004000000 000000031254     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031254 *            000000031254 000004000000     *            000000031254 0            0   0   *   

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

*031254  MOVE 	0,035121

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031254 031254 031254 200000035121 777777777777 000004000000     000004000000 000000031254 0            0   0   777 
IT1	*      *      035121 *            200000035121 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035121     *            *            0            0   0   *   
FT6	031255 031255 031255 336000000000 777777777777 000010000000     *            *            0            0   0   *   
ET2	*      *      *      *            000004000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000010000000 *            0            0   0   *   

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

*031255  SKIPN	0,000000

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

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

*031257  JUMPA	0,031260

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031257 031257 031257 324000031260 777777777777 000010000000     000010000000 000000031254 0            0   0   777 
IT1	*      *      031260 *            324000031260 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000010000000 000000031260     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031260 *            000000031260 000010000000     *            000000031260 0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0247
INITIAL
C(AC)=000010 000000 E    =000000 031260 
----------

*031260  MOVE 	0,035122

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031260 031260 031260 200000035122 777777777777 000010000000     000010000000 000000031260 0            0   0   777 
IT1	*      *      035122 *            200000035122 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035122     *            *            0            0   0   *   
FT6	031261 031261 031261 336000000000 777777777777 000020000000     *            *            0            0   0   *   
ET2	*      *      *      *            000010000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000020000000 *            0            0   0   *   

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

*031261  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031261 031261 031261 336000000000 777777777777 000020000000     000020000000 000000031260 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000020000000     *            *            0            0   0   *   
ET0	*      0      031262 *            000020000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031262 0      031263 *            777777777777 *                *            *            0            0   0   *   

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

*031263  JUMPA	0,031264

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031263 031263 031263 324000031264 777777777777 000020000000     000020000000 000000031260 0            0   0   777 
IT1	*      *      031264 *            324000031264 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000020000000 000000031264     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031264 *            000000031264 000020000000     *            000000031264 0            0   0   *   

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

*031264  MOVE 	0,035123

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031264 031264 031264 200000035123 777777777777 000020000000     000020000000 000000031264 0            0   0   777 
IT1	*      *      035123 *            200000035123 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035123     *            *            0            0   0   *   
FT6	031265 031265 031265 336000000000 777777777777 000040000000     *            *            0            0   0   *   SEQ 0248
ET2	*      *      *      *            000020000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000040000000 *            0            0   0   *   

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

*031265  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031265 031265 031265 336000000000 777777777777 000040000000     000040000000 000000031264 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000040000000     *            *            0            0   0   *   
ET0	*      0      031266 *            000040000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031266 0      031267 *            777777777777 *                *            *            0            0   0   *   

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

*031267  JUMPA	0,031270

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031267 031267 031267 324000031270 777777777777 000040000000     000040000000 000000031264 0            0   0   777 
IT1	*      *      031270 *            324000031270 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000040000000 000000031270     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031270 *            000000031270 000040000000     *            000000031270 0            0   0   *   

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

*031270  MOVE 	0,035124

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031270 031270 031270 200000035124 777777777777 000040000000     000040000000 000000031270 0            0   0   777 
IT1	*      *      035124 *            200000035124 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035124     *            *            0            0   0   *   
FT6	031271 031271 031271 336000000000 777777777777 000100000000     *            *            0            0   0   *   
ET2	*      *      *      *            000040000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000100000000 *            0            0   0   *   

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=000040 000000 C(E) =000100 000000 
FINAL
C(AC)=000100 000000 
----------
*031271  SKIPN	0,000000                                                                                                   SEQ 0249

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

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

*031273  JUMPA	0,031274

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031273 031273 031273 324000031274 777777777777 000100000000     000100000000 000000031270 0            0   0   777 
IT1	*      *      031274 *            324000031274 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000100000000 000000031274     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031274 *            000000031274 000100000000     *            000000031274 0            0   0   *   

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

*031274  MOVE 	0,035125

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031274 031274 031274 200000035125 777777777777 000100000000     000100000000 000000031274 0            0   0   777 
IT1	*      *      035125 *            200000035125 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035125     *            *            0            0   0   *   
FT6	031275 031275 031275 336000000000 777777777777 000200000000     *            *            0            0   0   *   
ET2	*      *      *      *            000100000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000200000000 *            0            0   0   *   

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

*031275  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031275 031275 031275 336000000000 777777777777 000200000000     000200000000 000000031274 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000200000000     *            *            0            0   0   *   
ET0	*      0      031276 *            000200000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031276 0      031277 *            777777777777 *                *            *            0            0   0   *   
FLAGS - INT/FINAL   000000 000000                                                                                          SEQ 0250
INITIAL
C(AC)=000200 000000 C(E) =000200 000000 
FINAL
C(AC)=000200 000000 
----------

*031277  JUMPA	0,031300

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031277 031277 031277 324000031300 777777777777 000200000000     000200000000 000000031274 0            0   0   777 
IT1	*      *      031300 *            324000031300 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000200000000 000000031300     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031300 *            000000031300 000200000000     *            000000031300 0            0   0   *   

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

*031300  MOVE 	0,035073

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031300 031300 031300 200000035073 777777777777 000200000000     000200000000 000000031300 0            0   0   777 
IT1	*      *      035073 *            200000035073 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035073     *            *            0            0   0   *   
FT6	031301 031301 031301 336000000000 777777777777 000400000000     *            *            0            0   0   *   
ET2	*      *      *      *            000200000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000400000000 *            0            0   0   *   

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

*031301  SKIPN	0,000000

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

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

*031303  JUMPA	0,031304

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

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

*031304  MOVE 	0,035126

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031304 031304 031304 200000035126 777777777777 000400000000     000400000000 000000031304 0            0   0   777 
IT1	*      *      035126 *            200000035126 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035126     *            *            0            0   0   *   
FT6	031305 031305 031305 336000000000 777777777777 001000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000400000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                001000000000 *            0            0   0   *   

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

*031305  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031305 031305 031305 336000000000 777777777777 001000000000     001000000000 000000031304 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 001000000000     *            *            0            0   0   *   
ET0	*      0      031306 *            001000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031306 0      031307 *            777777777777 *                *            *            0            0   0   *   

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

*031307  JUMPA	0,031310

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031307 031307 031307 324000031310 777777777777 001000000000     001000000000 000000031304 0            0   0   777 
IT1	*      *      031310 *            324000031310 *                *            *            0            0   0   *   
ET0	*      *      000000 *            001000000000 000000031310     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031310 *            000000031310 001000000000     *            000000031310 0            0   0   *   

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

*031310  MOVE 	0,035127
                                                                                                                           SEQ 0252
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031310 031310 031310 200000035127 777777777777 001000000000     001000000000 000000031310 0            0   0   777 
IT1	*      *      035127 *            200000035127 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035127     *            *            0            0   0   *   
FT6	031311 031311 031311 336000000000 777777777777 002000000000     *            *            0            0   0   *   
ET2	*      *      *      *            001000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                002000000000 *            0            0   0   *   

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

*031311  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031311 031311 031311 336000000000 777777777777 002000000000     002000000000 000000031310 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 002000000000     *            *            0            0   0   *   
ET0	*      0      031312 *            002000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031312 0      031313 *            777777777777 *                *            *            0            0   0   *   

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

*031313  JUMPA	0,031314

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031313 031313 031313 324000031314 777777777777 002000000000     002000000000 000000031310 0            0   0   777 
IT1	*      *      031314 *            324000031314 *                *            *            0            0   0   *   
ET0	*      *      000000 *            002000000000 000000031314     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031314 *            000000031314 002000000000     *            000000031314 0            0   0   *   

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

*031314  MOVE 	0,035130

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031314 031314 031314 200000035130 777777777777 002000000000     002000000000 000000031314 0            0   0   777 
IT1	*      *      035130 *            200000035130 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035130     *            *            0            0   0   *   
FT6	031315 031315 031315 336000000000 777777777777 004000000000     *            *            0            0   0   *   
ET2	*      *      *      *            002000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                004000000000 *            0            0   0   *   

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

*031315  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031315 031315 031315 336000000000 777777777777 004000000000     004000000000 000000031314 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 004000000000     *            *            0            0   0   *   
ET0	*      0      031316 *            004000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031316 0      031317 *            777777777777 *                *            *            0            0   0   *   

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

*031317  JUMPA	0,031320

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031317 031317 031317 324000031320 777777777777 004000000000     004000000000 000000031314 0            0   0   777 
IT1	*      *      031320 *            324000031320 *                *            *            0            0   0   *   
ET0	*      *      000000 *            004000000000 000000031320     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031320 *            000000031320 004000000000     *            000000031320 0            0   0   *   

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

*031320  MOVE 	0,035131

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031320 031320 031320 200000035131 777777777777 004000000000     004000000000 000000031320 0            0   0   777 
IT1	*      *      035131 *            200000035131 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035131     *            *            0            0   0   *   
FT6	031321 031321 031321 336000000000 777777777777 010000000000     *            *            0            0   0   *   
ET2	*      *      *      *            004000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                010000000000 *            0            0   0   *   

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

*031321  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031321 031321 031321 336000000000 777777777777 010000000000     010000000000 000000031320 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 010000000000     *            *            0            0   0   *   SEQ 0254
ET0	*      0      031322 *            010000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031322 0      031323 *            777777777777 *                *            *            0            0   0   *   

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

*031323  JUMPA	0,031324

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031323 031323 031323 324000031324 777777777777 010000000000     010000000000 000000031320 0            0   0   777 
IT1	*      *      031324 *            324000031324 *                *            *            0            0   0   *   
ET0	*      *      000000 *            010000000000 000000031324     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031324 *            000000031324 010000000000     *            000000031324 0            0   0   *   

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

*031324  MOVE 	0,035132

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031324 031324 031324 200000035132 777777777777 010000000000     010000000000 000000031324 0            0   0   777 
IT1	*      *      035132 *            200000035132 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035132     *            *            0            0   0   *   
FT6	031325 031325 031325 336000000000 777777777777 020000000000     *            *            0            0   0   *   
ET2	*      *      *      *            010000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                020000000000 *            0            0   0   *   

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

*031325  SKIPN	0,000000

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

FLAGS - INT/FINAL   000000 000000 
INITIAL
C(AC)=020000 000000 C(E) =020000 000000 
FINAL
C(AC)=020000 000000 
----------
                                                                                                                           SEQ 0255
*031327  JUMPA	0,031330

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031327 031327 031327 324000031330 777777777777 020000000000     020000000000 000000031324 0            0   0   777 
IT1	*      *      031330 *            324000031330 *                *            *            0            0   0   *   
ET0	*      *      000000 *            020000000000 000000031330     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031330 *            000000031330 020000000000     *            000000031330 0            0   0   *   

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

*031330  MOVE 	0,035133

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031330 031330 031330 200000035133 777777777777 020000000000     020000000000 000000031330 0            0   0   777 
IT1	*      *      035133 *            200000035133 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035133     *            *            0            0   0   *   
FT6	031331 031331 031331 336000000000 777777777777 040000000000     *            *            0            0   0   *   
ET2	*      *      *      *            020000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                040000000000 *            0            0   0   *   

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

*031331  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031331 031331 031331 336000000000 777777777777 040000000000     040000000000 000000031330 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 040000000000     *            *            0            0   0   *   
ET0	*      0      031332 *            040000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031332 0      031333 *            777777777777 *                *            *            0            0   0   *   

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

*031333  JUMPA	0,031334

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031333 031333 031333 324000031334 777777777777 040000000000     040000000000 000000031330 0            0   0   777 
IT1	*      *      031334 *            324000031334 *                *            *            0            0   0   *   
ET0	*      *      000000 *            040000000000 000000031334     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031334 *            000000031334 040000000000     *            000000031334 0            0   0   *   

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

*031334  MOVE 	0,035134

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031334 031334 031334 200000035134 777777777777 040000000000     040000000000 000000031334 0            0   0   777 
IT1	*      *      035134 *            200000035134 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035134     *            *            0            0   0   *   
FT6	031335 031335 031335 336000000000 777777777777 100000000000     *            *            0            0   0   *   
ET2	*      *      *      *            040000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                100000000000 *            0            0   0   *   

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

*031335  SKIPN	0,000000

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

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

*031337  JUMPA	0,031340

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

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

*031340  MOVE 	0,035135

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031340 031340 031340 200000035135 777777777777 100000000000     100000000000 000000031340 0            0   0   777 
IT1	*      *      035135 *            200000035135 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035135     *            *            0            0   0   *   
FT6	031341 031341 031341 336000000000 777777777777 200000000000     *            *            0            0   0   *   
ET2	*      *      *      *            100000000000 *                *            *            0            0   0   *   SEQ 0257
ST1	*      *      *      *            777777777777 *                200000000000 *            0            0   0   *   

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

*031341  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031341 031341 031341 336000000000 777777777777 200000000000     200000000000 000000031340 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 200000000000     *            *            0            0   0   *   
ET0	*      0      031342 *            200000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031342 0      031343 *            777777777777 *                *            *            0            0   0   *   

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

*031343  JUMPA	0,031344

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031343 031343 031343 324000031344 777777777777 200000000000     200000000000 000000031340 0            0   0   777 
IT1	*      *      031344 *            324000031344 *                *            *            0            0   0   *   
ET0	*      *      000000 *            200000000000 000000031344     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031344 *            000000031344 200000000000     *            000000031344 0            0   0   *   

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

*031344  MOVE 	0,035065

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031344 031344 031344 200000035065 777777777777 200000000000     200000000000 000000031344 0            0   0   777 
IT1	*      *      035065 *            200000035065 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035065     *            *            0            0   0   *   
FT6	031345 031345 031345 336000000000 777777777777 400000000000     *            *            0            0   0   *   
ET2	*      *      *      *            200000000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                400000000000 *            0            0   0   *   

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

*031345  SKIPN	0,000000
                                                                                                                           SEQ 0258
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031345 031345 031345 336000000000 777777777777 400000000000     400000000000 000000031344 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 400000000000     *            *            0            0   0   *   
ET0	*      0      031346 *            400000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031346 0      031347 *            777777777777 *                *            *            0            0   0   *   

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

*031347  JUMPA	0,031350

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031347 031347 031347 324000031350 777777777777 400000000000     400000000000 000000031344 0            0   0   777 
IT1	*      *      031350 *            324000031350 *                *            *            0            0   0   *   
ET0	*      *      000000 *            400000000000 000000031350     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031350 *            000000031350 400000000000     *            000000031350 0            0   0   *   

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

*031350  MOVEI	0,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031350 031350 031350 201000035063 777777777777 400000000000     400000000000 000000031350 0            0   0   777 
IT1	*      *      035063 *            201000035063 *                *            *            0            0   0   *   
ET2	*      *      031351 *            400000000000 000000035063     *            *            0            0   0   *   
ST1	031351 031351 *      337000000000 777777777777 *                000000035063 *            0            0   0   *   

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

*031351  SKIPG	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031351 031351 031351 337000000000 777777777777 000000035063     000000035063 000000031350 0            0   0   777 
IT1	*      *      000000 *            337000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000035063     *            *            0            0   0   *   
ET0	*      0      031352 *            000000035063 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031352 0      031353 *            777777777777 *                *            *            0            0   0   *   

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

*031353  JUMPA	0,031354

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031353 031353 031353 324000031354 777777777777 000000035063     000000035063 000000031350 0            0   0   777 
IT1	*      *      031354 *            324000031354 *                *            *            0            0   0   *   
ET0	*      *      035063 *            000000035063 000000031354     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031354 *            000000031354 000000035063     *            000000031354 0            0   0   *   

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

*031354  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031354 031354 031354 200000035062 777777777777 000000035063     000000035063 000000031354 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031355 031355 031355 331000035063 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000035063 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031355  SKIPL	0,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031355 031355 031355 331000035063 777777777777 0                0            000000031354 0            0   0   777 
IT1	*      *      035063 *            331000035063 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     0            *            0            0   0   *   
FT6	*      035063 *      777777777777 777777777777 777777777777     0            *            0            0   0   *   
ET0	*      *      031356 *            *            *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	031356 *      031357 *            *            *                0            *            0            0   0   *   

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

*031357  JUMPA	0,031360

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031357 031357 031357 324000031360 777777777777 777777777777     0            000000031354 0            0   0   777 
IT1	*      *      031360 *            324000031360 *                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031360     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031360 *            000000031360 000000000000     0            000000031360 0            0   0   *   SEQ 0260

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

*031360  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031360 031360 031360 200000035062 777777777777 0                0            000000031360 0            0   0   777 
IT1	*      *      035062 *            200000035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031361 031361 031361 331000035065 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 
----------

*031361  SKIPL	0,035065

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031361 031361 031361 331000035065 777777777777 0                0            000000031360 0            0   0   777 
IT1	*      *      035065 *            331000035065 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035065     0            *            0            0   0   *   
FT6	*      035065 *      400000000000 777777777777 400000000000     0            *            0            0   0   *   
ET0	*      *      031362 *            400000000000 *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	031362 *      031363 *            777777777777 *                0            *            0            0   0   *   

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

*031363  JUMPA	0,031364

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031363 031363 031363 324000031364 777777777777 400000000000     0            000000031360 0            0   0   777 
IT1	*      *      031364 *            324000031364 *                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031364     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031364 *            000000031364 000000000000     0            000000031364 0            0   0   *   

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

*031364  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031364 031364 031364 200000035062 777777777777 0                0            000000031364 0            0   0   777 
IT1	*      *      035062 *            200000035062 0                0            *            0            0   0   *   SEQ 0261
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031365 031365 031365 310000035136 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 
----------

*031365  CAM 	0,035136

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031365 031365 031365 310000035136 777777777777 0                0            000000031364 0            0   0   777 
IT1	*      *      035136 *            310000035136 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035136     0            *            0            0   0   *   
FT6	*      035136 *      000000001234 777777777777 000000001234     0            *            0            0   0   *   
ET0	*      *      031366 *            777777776544 *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                0            *            0            0   0   *   

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

*031366  MOVE 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031366 031366 031366 200000000000 777777777777 000000001234     0            000000031364 0            0   0   777 
IT1	*      *      000000 *            200000000000 *                0            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	031367 031367 031367 332000000000 777777777777 0                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 
----------

*031367  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031367 031367 031367 332000000000 777777777777 0                0            000000031364 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      031370 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031370 0      031371 *            777777777777 0                0            *            0            0   0   *   

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

*031371  JUMPA	0,031372

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031371 031371 031371 324000031372 777777777777 0                0            000000031364 0            0   0   777 
IT1	*      *      031372 *            324000031372 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031372     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031372 *            000000031372 000000000000     0            000000031372 0            0   0   *   

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

*031372  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031372 031372 031372 200000035062 777777777777 0                0            000000031372 0            0   0   777 
IT1	*      *      035062 *            200000035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031373 031373 031373 300000035136 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 
----------

*031373  CAI 	0,035136

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031373 031373 031373 300000035136 777777777777 0                0            000000031372 0            0   0   777 
IT1	*      *      035136 *            300000035136 0                0            *            0            0   0   *   
ET0	*      *      031374 *            777777742642 000000035136     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                0            *            0            0   0   *   

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

*031374  MOVE 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031374 031374 031374 200000000000 777777777777 000000035136     0            000000031372 0            0   0   777 
IT1	*      *      000000 *            200000000000 *                0            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	031375 031375 031375 332000000000 777777777777 0                0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

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

*031375  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031375 031375 031375 332000000000 777777777777 0                0            000000031372 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      031376 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031376 0      031377 *            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 
----------

*031377  JUMPA	0,031400

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031377 031377 031377 324000031400 777777777777 0                0            000000031372 0            0   0   777 
IT1	*      *      031400 *            324000031400 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031400     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031400 *            000000031400 000000000000     0            000000031400 0            0   0   *   

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

*031400  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031400 031400 031400 200000035062 777777777777 0                0            000000031400 0            0   0   777 
IT1	*      *      035062 *            200000035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031401 031401 031401 300740035136 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 
----------

*031401  CAI 	17,035136

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031401 031401 031401 300740035136 777777777777 0                0            000000031400 0            0   0   777 
IT1	*      *      035136 *            300740035136 0                0            *            0            0   0   *   
ET0	*      *      031402 *            777777742642 000000035136     0            *            0            0   0   *   SEQ 0264
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                0            *            0            0   0   *   

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

*031402  MOVE 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031402 031402 031402 200000000000 777777777777 000000035136     0            000000031400 0            0   0   777 
IT1	*      *      000000 *            200000000000 *                0            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	031403 031403 031403 332000000000 777777777777 0                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 
----------

*031403  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031403 031403 031403 332000000000 777777777777 0                0            000000031400 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      031404 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031404 0      031405 *            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 
----------

*031405  JUMPA	0,031406

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031405 031405 031405 324000031406 777777777777 0                0            000000031400 0            0   0   777 
IT1	*      *      031406 *            324000031406 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031406     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031406 *            000000031406 000000000000     0            000000031406 0            0   0   *   

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

*031406  MOVE 	0,035062
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0265
IT0	031406 031406 031406 200000035062 777777777777 0                0            000000031406 0            0   0   777 
IT1	*      *      035062 *            200000035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031407 031407 031407 310740035136 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 
----------

*031407  CAM 	17,035136

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031407 031407 031407 310740035136 777777777777 0                0            000000031406 0            0   0   777 
IT1	*      *      035136 *            310740035136 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035136     0            *            0            0   0   *   
FT6	*      035136 *      000000001234 777777777777 000000001234     0            *            0            0   0   *   
ET0	*      *      031410 *            777777776544 *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                0            *            0            0   0   *   

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

*031410  MOVE 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031410 031410 031410 200000000000 777777777777 000000001234     0            000000031406 0            0   0   777 
IT1	*      *      000000 *            200000000000 *                0            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	031411 031411 031411 332000000000 777777777777 0                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 
----------

*031411  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031411 031411 031411 332000000000 777777777777 0                0            000000031406 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      031412 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031412 0      031413 *            777777777777 0                0            *            0            0   0   *   

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

*031413  JUMPA	0,031414

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031413 031413 031413 324000031414 777777777777 0                0            000000031406 0            0   0   777 
IT1	*      *      031414 *            324000031414 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031414     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031414 *            000000031414 000000000000     0            000000031414 0            0   0   *   

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

*031414  MOVE 	1,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031414 031414 031414 200040035062 777777777777 0                0            000000031414 0            0   0   777 
IT1	*      *      035062 *            200040035062 0                000001000001 *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031415 031415 031415 200040035063 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000001000001 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031415  MOVE 	1,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031415 031415 031415 200040035063 777777777777 0                0            000000031414 0            0   0   777 
IT1	*      *      035063 *            200040035063 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     0            *            0            0   0   *   
FT6	031416 031416 031416 336000000001 777777777777 777777777777     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777777 *            0            0   0   *   

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

*031416  SKIPN	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031416 031416 031416 336000000001 777777777777 777777777777     777777777777 000000031414 0            0   0   777 
IT1	*      *      000001 *            336000000001 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     0            *            0            0   0   *   
FT6	*      000001 *      *            777777777777 777777777777     0            *            0            0   0   *   SEQ 0267
ET0	*      *      031417 *            *            *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	031417 *      031420 *            *            *                0            *            0            0   0   *   

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

*031420  JUMPA	0,031421

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031420 031420 031420 324000031421 777777777777 777777777777     0            000000031414 0            0   0   777 
IT1	*      *      031421 *            324000031421 *                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031421     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031421 *            000000031421 000000000000     0            000000031421 0            0   0   *   

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

*031421  MOVE 	1,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031421 031421 031421 200040035062 777777777777 0                0            000000031421 0            0   0   777 
IT1	*      *      035062 *            200040035062 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031422 031422 031422 332000000001 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            *            0                *            *            0            0   0   *   
ST1	*      *      *      *            *            0                000000000000 *            0            0   0   *   

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

*031422  SKIPE	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031422 031422 031422 332000000001 777777777777 0                0            000000031421 0            0   0   777 
IT1	*      *      000001 *            332000000001 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     0            *            0            0   0   *   
FT6	*      000001 *      *            777777777777 000000000000     0            *            0            0   0   *   
ET0	*      *      031423 *            000000000000 0                0            *            0            0   0   *   
ET2	*      *      *      *            0            0                0            *            0            0   0   *   
ST1	031423 *      031424 *            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 
----------
                                                                                                                           SEQ 0268
*031424  JUMPA	0,031425

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031424 031424 031424 324000031425 777777777777 0                0            000000031421 0            0   0   777 
IT1	*      *      031425 *            324000031425 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031425     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031425 *            000000031425 000000000000     0            000000031425 0            0   0   *   

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

*031425  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031425 031425 031425 200000035062 777777777777 0                0            000000031425 0            0   0   777 
IT1	*      *      035062 *            200000035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031426 031426 031426 200340035136 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 
----------

*031426  MOVE 	7,035136

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031426 031426 031426 200340035136 777777777777 0                0            000000031425 0            0   0   777 
IT1	*      *      035136 *            200340035136 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035136     0            *            0            0   0   *   
FT6	031427 031427 031427 370000000007 777777777777 000000001234     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000001234 *            0            0   0   *   

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

*031427  SOS 	0,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031427 031427 031427 370000000007 777777777777 000000001234     000000001234 000000031425 0            0   0   777 
IT1	*      *      000007 *            370000000007 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     0            *            0            0   0   *   
FT6	*      000007 *      *            777777777777 000000001234     0            *            0            0   0   *   
ET0	*      *      031430 *            000000001233 *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	031427 *      *      *            777777777777 000000001233     0            *            0            0   0   *   
ST2	*      *      *      000000001233 *            *                000000001234 *            0            0   0   *   
ST5	031430 031430 *      200000000000 *            *                000000000000 *            0            0   0   *   SEQ 0269

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

*031430  MOVE 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031430 031430 031430 200000000000 777777777777 000000001233     0            000000031425 0            0   0   777 
IT1	*      *      000000 *            200000000000 *                0            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	031431 031431 031431 332000000000 777777777777 0                0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

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

*031431  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031431 031431 031431 332000000000 777777777777 0                0            000000031425 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      031432 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031432 0      031433 *            777777777777 0                0            *            0            0   0   *   

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

*031433  JUMPA	0,031434

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031433 031433 031433 324000031434 777777777777 0                0            000000031425 0            0   0   777 
IT1	*      *      031434 *            324000031434 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031434     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031434 *            000000031434 000000000000     0            000000031434 0            0   0   *   

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

*031434  MOVE 	0,035062
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0270
IT0	031434 031434 031434 200000035062 777777777777 0                0            000000031434 0            0   0   777 
IT1	*      *      035062 *            200000035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031435 031435 031435 200040035062 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

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

*031435  MOVE 	1,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031435 031435 031435 200040035062 777777777777 0                0            000000031434 0            0   0   777 
IT1	*      *      035062 *            200040035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031436 031436 031436 330040035063 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

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

*031436  SKIP 	1,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031436 031436 031436 330040035063 777777777777 0                0            000000031434 0            0   0   777 
IT1	*      *      035063 *            330040035063 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     0            *            0            0   0   *   
FT6	*      035063 *      777777777777 777777777777 777777777777     0            *            0            0   0   *   
ET0	*      *      031437 *            *            *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            *                777777777777 *            0            0   0   *   

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

*031437  SKIPN	0,000001

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031437 031437 031437 336000000001 777777777777 777777777777     777777777777 000000031434 0            0   0   777 
IT1	*      *      000001 *            336000000001 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000001     0            *            0            0   0   *   
FT6	*      000001 *      *            777777777777 777777777777     0            *            0            0   0   *   
ET0	*      *      031440 *            *            *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	031440 *      031441 *            *            *                0            *            0            0   0   *   
                                                                                                                           SEQ 0271
FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000000 C(E) =777777 777777 
FINAL
C(AC)=000000 000000 
----------

*031441  JUMPA	0,031442

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031441 031441 031441 324000031442 777777777777 777777777777     0            000000031434 0            0   0   777 
IT1	*      *      031442 *            324000031442 *                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031442     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031442 *            000000031442 000000000000     0            000000031442 0            0   0   *   

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

*031442  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031442 031442 031442 332000000000 777777777777 0                0            000000031442 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      031443 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031443 0      031444 *            777777777777 0                0            *            0            0   0   *   

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

*031444  JUMPA	0,031445

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031444 031444 031444 324000031445 777777777777 0                0            000000031442 0            0   0   777 
IT1	*      *      031445 *            324000031445 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031445     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031445 *            000000031445 000000000000     0            000000031445 0            0   0   *   

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

*031445  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031445 031445 031445 200000035062 777777777777 0                0            000000031445 0            0   0   777 
IT1	*      *      035062 *            200000035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031446 031446 031446 200100035062 777777777777 000000000000     0            *            0            0   0   *   SEQ 0272
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

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

*031446  MOVE 	2,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031446 031446 031446 200100035062 777777777777 0                0            000000031445 0            0   0   777 
IT1	*      *      035062 *            200100035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031447 031447 031447 330100035063 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

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

*031447  SKIP 	2,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031447 031447 031447 330100035063 777777777777 0                0            000000031445 0            0   0   777 
IT1	*      *      035063 *            330100035063 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     0            *            0            0   0   *   
FT6	*      035063 *      777777777777 777777777777 777777777777     0            *            0            0   0   *   
ET0	*      *      031450 *            *            *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            *                777777777777 *            0            0   0   *   

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

*031450  SKIPN	0,000002

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031450 031450 031450 336000000002 777777777777 777777777777     777777777777 000000031445 0            0   0   777 
IT1	*      *      000002 *            336000000002 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000002     0            *            0            0   0   *   
FT6	*      000002 *      *            777777777777 777777777777     0            *            0            0   0   *   
ET0	*      *      031451 *            *            *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	031451 *      031452 *            *            *                0            *            0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000000 C(E) =777777 777777 
FINAL                                                                                                                      SEQ 0273
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 777777777777     0            000000031445 0            0   0   777 
IT1	*      *      031453 *            324000031453 *                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   300000 300000 
INITIAL
C(AC)=000000 000000 E    =000000 031453 
----------

*031453  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031453 031453 031453 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      031454 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031454 0      031455 *            777777777777 0                0            *            0            0   0   *   

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

*031455  JUMPA	0,031456

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031455 031455 031455 324000031456 777777777777 0                0            000000031453 0            0   0   777 
IT1	*      *      031456 *            324000031456 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031456     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031456 *            000000031456 000000000000     0            000000031456 0            0   0   *   

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

*031456  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031456 031456 031456 200000035062 777777777777 0                0            000000031456 0            0   0   777 
IT1	*      *      035062 *            200000035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031457 031457 031457 200200035062 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   
FLAGS - INT/FINAL   300000 300000                                                                                          SEQ 0274
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------

*031457  MOVE 	4,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031457 031457 031457 200200035062 777777777777 0                0            000000031456 0            0   0   777 
IT1	*      *      035062 *            200200035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031460 031460 031460 330200035063 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

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

*031460  SKIP 	4,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031460 031460 031460 330200035063 777777777777 0                0            000000031456 0            0   0   777 
IT1	*      *      035063 *            330200035063 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     0            *            0            0   0   *   
FT6	*      035063 *      777777777777 777777777777 777777777777     0            *            0            0   0   *   
ET0	*      *      031461 *            *            *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            *                777777777777 *            0            0   0   *   

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

*031461  SKIPN	0,000004

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031461 031461 031461 336000000004 777777777777 777777777777     777777777777 000000031456 0            0   0   777 
IT1	*      *      000004 *            336000000004 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000004     0            *            0            0   0   *   
FT6	*      000004 *      *            777777777777 777777777777     0            *            0            0   0   *   
ET0	*      *      031462 *            *            *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	031462 *      031463 *            *            *                0            *            0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000000 C(E) =777777 777777 
FINAL
C(AC)=000000 000000 
----------
*031463  JUMPA	0,031464                                                                                                   SEQ 0275

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031463 031463 031463 324000031464 777777777777 777777777777     0            000000031456 0            0   0   777 
IT1	*      *      031464 *            324000031464 *                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031464     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031464 *            000000031464 000000000000     0            000000031464 0            0   0   *   

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

*031464  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031464 031464 031464 332000000000 777777777777 0                0            000000031464 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      031465 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031465 0      031466 *            777777777777 0                0            *            0            0   0   *   

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

*031466  JUMPA	0,031467

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031466 031466 031466 324000031467 777777777777 0                0            000000031464 0            0   0   777 
IT1	*      *      031467 *            324000031467 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031467     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031467 *            000000031467 000000000000     0            000000031467 0            0   0   *   

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

*031467  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031467 031467 031467 200000035062 777777777777 0                0            000000031467 0            0   0   777 
IT1	*      *      035062 *            200000035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031470 031470 031470 200400035062 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

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

*031470  MOVE 	10,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031470 031470 031470 200400035062 777777777777 0                0            000000031467 0            0   0   777 
IT1	*      *      035062 *            200400035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031471 031471 031471 330400035063 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

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

*031471  SKIP 	10,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031471 031471 031471 330400035063 777777777777 0                0            000000031467 0            0   0   777 
IT1	*      *      035063 *            330400035063 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     0            *            0            0   0   *   
FT6	*      035063 *      777777777777 777777777777 777777777777     0            *            0            0   0   *   
ET0	*      *      031472 *            *            *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            *                777777777777 *            0            0   0   *   

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

*031472  SKIPN	0,000010

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031472 031472 031472 336000000010 777777777777 777777777777     777777777777 000000031467 0            0   0   777 
IT1	*      *      000010 *            336000000010 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000000010     0            *            0            0   0   *   
FT6	*      000010 *      *            777777777777 777777777777     0            *            0            0   0   *   
ET0	*      *      031473 *            *            *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	031473 *      031474 *            *            *                0            *            0            0   0   *   

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

*031474  JUMPA	0,031475

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031474 031474 031474 324000031475 777777777777 777777777777     0            000000031467 0            0   0   777 
IT1	*      *      031475 *            324000031475 *                0            *            0            0   0   *   SEQ 0277
ET0	*      *      000000 *            000000000000 000000031475     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031475 *            000000031475 000000000000     0            000000031475 0            0   0   *   

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

*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            000000031475 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   300000 300000 
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            000000031475 0            0   0   777 
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   300000 300000 
INITIAL
C(AC)=000000 000000 E    =000000 031500 
----------

*031500  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031500 031500 031500 200000035062 777777777777 0                0            000000031500 0            0   0   777 
IT1	*      *      035062 *            200000035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031501 031501 031501 330000035063 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

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

*031501  SKIP 	0,035063
                                                                                                                           SEQ 0278
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031501 031501 031501 330000035063 777777777777 0                0            000000031500 0            0   0   777 
IT1	*      *      035063 *            330000035063 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     0            *            0            0   0   *   
FT6	*      035063 *      777777777777 777777777777 777777777777     0            *            0            0   0   *   
ET0	*      *      031502 *            *            *                0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            *                0            *            0            0   0   *   

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

*031502  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031502 031502 031502 332000000000 777777777777 777777777777     0            000000031500 0            0   0   777 
IT1	*      *      000000 *            332000000000 *                0            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031503 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031503 0      031504 *            777777777777 0                0            *            0            0   0   *   

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

*031504  JUMPA	0,031505

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031504 031504 031504 324000031505 777777777777 0                0            000000031500 0            0   0   777 
IT1	*      *      031505 *            324000031505 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031505     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031505 *            000000031505 000000000000     0            000000031505 0            0   0   *   

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

*031505  MOVE 	7,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031505 031505 031505 200340035063 777777777777 0                0            000000031505 0            0   0   777 
IT1	*      *      035063 *            200340035063 0                000000001233 *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     *            *            0            0   0   *   
FT6	031506 031506 031506 200000035062 777777777777 777777777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000001233 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777777777 *            0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL                                                                                                                    SEQ 0279
C(AC)=000000 001233 C(E) =777777 777777 
FINAL
C(AC)=777777 777777 
----------

*031506  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031506 031506 031506 200000035062 777777777777 777777777777     777777777777 000000031505 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031507 031507 031507 207000000007 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

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

*031507  MOVSS	0,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031507 031507 031507 207000000007 777777777777 0                0            000000031505 0            0   0   777 
IT1	*      *      000007 *            207000000007 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     0            *            0            0   0   *   
FT6	*      000007 031510 *            777777777777 777777777777     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                0            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                777777777777 *            0            0   0   *   
ST5	031510 031510 *      332000000000 *            *                000000000000 *            0            0   0   *   

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

*031510  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031510 031510 031510 332000000000 777777777777 777777777777     0            000000031505 0            0   0   777 
IT1	*      *      000000 *            332000000000 *                0            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031511 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031511 0      031512 *            777777777777 0                0            *            0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000000 C(E) =000000 000000 
FINAL
C(AC)=000000 000000 
----------
*031512  JUMPA	0,031513                                                                                                   SEQ 0280

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031512 031512 031512 324000031513 777777777777 0                0            000000031505 0            0   0   777 
IT1	*      *      031513 *            324000031513 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031513     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031513 *            000000031513 000000000000     0            000000031513 0            0   0   *   

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

*031513  MOVE 	7,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031513 031513 031513 200340035063 777777777777 0                0            000000031513 0            0   0   777 
IT1	*      *      035063 *            200340035063 0                777777777777 *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     *            *            0            0   0   *   
FT6	031514 031514 031514 200000035062 777777777777 777777777777     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   

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

*031514  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031514 031514 031514 200000035062 777777777777 777777777777     777777777777 000000031513 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                000000000000 *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031515 031515 031515 543000000007 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

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

*031515  HRRS	0,000007

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031515 031515 031515 543000000007 777777777777 0                0            000000031513 0            0   0   777 
IT1	*      *      000007 *            543000000007 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000000007     0            *            0            0   0   *   
FT6	*      000007 031516 *            777777777777 777777777777     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            *                0            *            0            0   0   *   
ST2	*      *      *      777777777777 *            *                777777777777 *            0            0   0   *   
ST5	031516 031516 *      332000000000 *            *                000000000000 *            0            0   0   *   
FLAGS - INT/FINAL   300000 300000                                                                                          SEQ 0281
INITIAL
C(AC)=000000 000000 C(E) =777777 777777 
FINAL
C(AC)=000000 000000 C(E) =777777 777777 
----------

*031516  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031516 031516 031516 332000000000 777777777777 777777777777     0            000000031513 0            0   0   777 
IT1	*      *      000000 *            332000000000 *                0            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     0            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 0                0            *            0            0   0   *   
ET0	*      0      031517 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031517 0      031520 *            777777777777 0                0            *            0            0   0   *   

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

*031520  JUMPA	0,031521

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031520 031520 031520 324000031521 777777777777 0                0            000000031513 0            0   0   777 
IT1	*      *      031521 *            324000031521 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031521     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031521 *            000000031521 000000000000     0            000000031521 0            0   0   *   

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

*031521  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031521 031521 031521 200000035062 777777777777 0                0            000000031521 0            0   0   777 
IT1	*      *      035062 *            200000035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031522 031522 031522 320000031523 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

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

*031522  JUMP 	0,031523

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031522 031522 031522 320000031523 777777777777 0                0            000000031521 0            0   0   777 
IT1	*      *      031523 *            320000031523 0                0            *            0            0   0   *   SEQ 0282
ET0	*      *      000000 *            000000000000 000000031523     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031523 *            000000031523 000000000000     0            000000031523 0            0   0   *   

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

*031523  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031523 031523 031523 332000000000 777777777777 0                0            000000031523 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      031524 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031524 0      031525 *            777777777777 0                0            *            0            0   0   *   

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

*031525  JUMPA	0,031526

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031525 031525 031525 324000031526 777777777777 0                0            000000031523 0            0   0   777 
IT1	*      *      031526 *            324000031526 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031526     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031526 *            000000031526 000000000000     0            000000031526 0            0   0   *   

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

*031526  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031526 031526 031526 200000035062 777777777777 0                0            000000031526 0            0   0   777 
IT1	*      *      035062 *            200000035062 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     0            *            0            0   0   *   
FT6	031527 031527 031527 204000000000 777777777777 000000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

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

*031527  MOVS 	0,000000
                                                                                                                           SEQ 0283
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031527 031527 031527 204000000000 777777777777 0                0            000000031526 0            0   0   777 
IT1	*      *      000000 *            204000000000 0                0            *            0            0   0   *   
MEMST	*      *      0      *            *            0                0            *            0            0   0   *   
FT6	031530 031530 031530 332000000000 777777777777 0                0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                0            *            0            0   0   *   

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

*031530  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031530 031530 031530 332000000000 777777777777 0                0            000000031526 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      031531 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	031531 0      031532 *            777777777777 0                0            *            0            0   0   *   

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

*031532  JUMPA	0,031533

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031532 031532 031532 324000031533 777777777777 0                0            000000031526 0            0   0   777 
IT1	*      *      031533 *            324000031533 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000031533     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      031533 *            000000031533 000000000000     0            000000031533 0            0   0   *   

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

*031533  MOVE 	0,035137

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031533 031533 031533 200000035137 777777777777 0                0            000000031533 0            0   0   777 
IT1	*      *      035137 *            200000035137 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035137     0            *            0            0   0   *   
FT6	031534 031534 031534 204000000000 777777777777 000000777777     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                000000777777 *            0            0   0   *   

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

*031534  MOVS 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031534 031534 031534 204000000000 777777777777 000000777777     000000777777 000000031533 0            0   0   777 
IT1	*      *      000000 *            204000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	031535 031535 031535 336000000000 777777777777 000000777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 777777000000     777777000000 *            0            0   0   *   

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

*031535  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031535 031535 031535 336000000000 777777777777 777777000000     777777000000 000000031533 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 777777000000     *            *            0            0   0   *   
ET0	*      0      031536 *            777777000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031536 0      031537 *            777777777777 *                *            *            0            0   0   *   

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

*031537  JUMPA	0,031540

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031537 031537 031537 324000031540 777777777777 777777000000     777777000000 000000031533 0            0   0   777 
IT1	*      *      031540 *            324000031540 *                *            *            0            0   0   *   
ET0	*      *      000000 *            777777000000 000000031540     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031540 *            000000031540 777777000000     *            000000031540 0            0   0   *   

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

*031540  MOVE 	0,035140

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031540 031540 031540 200000035140 777777777777 777777000000     777777000000 000000031540 0            0   0   777 
IT1	*      *      035140 *            200000035140 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035140     *            *            0            0   0   *   
FT6	031541 031541 031541 204000000000 777777777777 777777000000     *            *            0            0   0   *   SEQ 0285
ET2	*      *      *      *            777777000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*031541  MOVS 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031541 031541 031541 204000000000 777777777777 777777000000     777777000000 000000031540 0            0   0   777 
IT1	*      *      000000 *            204000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	031542 031542 031542 336000000000 777777777777 777777000000     *            *            0            0   0   *   
ET2	*      *      *      *            777777000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000777777     000000777777 *            0            0   0   *   

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

*031542  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031542 031542 031542 336000000000 777777777777 000000777777     000000777777 000000031540 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000777777     *            *            0            0   0   *   
ET0	*      0      031543 *            000000777777 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031543 0      031544 *            777777777777 *                *            *            0            0   0   *   

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

*031544  JUMPA	0,031545

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031544 031544 031544 324000031545 777777777777 000000777777     000000777777 000000031540 0            0   0   777 
IT1	*      *      031545 *            324000031545 *                *            *            0            0   0   *   
ET0	*      *      777777 *            000000777777 000000031545     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031545 *            000000031545 000000777777     *            000000031545 0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 777777 E    =000000 031545 
----------
*031545  MOVE 	0,035140                                                                                                   SEQ 0286

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031545 031545 031545 200000035140 777777777777 000000777777     000000777777 000000031545 0            0   0   777 
IT1	*      *      035140 *            200000035140 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035140     *            *            0            0   0   *   
FT6	031546 031546 031546 204000000000 777777777777 777777000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                777777000000 *            0            0   0   *   

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

*031546  MOVS 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031546 031546 031546 204000000000 777777777777 777777000000     777777000000 000000031545 0            0   0   777 
IT1	*      *      000000 *            204000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	031547 031547 031547 337000000000 777777777777 777777000000     *            *            0            0   0   *   
ET2	*      *      *      *            777777000000 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000777777     000000777777 *            0            0   0   *   

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

*031547  SKIPG	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031547 031547 031547 337000000000 777777777777 000000777777     000000777777 000000031545 0            0   0   777 
IT1	*      *      000000 *            337000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000777777     *            *            0            0   0   *   
ET0	*      0      031550 *            000000777777 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031550 0      031551 *            777777777777 *                *            *            0            0   0   *   

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

*031551  JUMPA	0,031552

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031551 031551 031551 324000031552 777777777777 000000777777     000000777777 000000031545 0            0   0   777 
IT1	*      *      031552 *            324000031552 *                *            *            0            0   0   *   
ET0	*      *      777777 *            000000777777 000000031552     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031552 *            000000031552 000000777777     *            000000031552 0            0   0   *   
                                                                                                                           SEQ 0287
FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 777777 E    =000000 031552 
----------

*031552  MOVE 	0,035137

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031552 031552 031552 200000035137 777777777777 000000777777     000000777777 000000031552 0            0   0   777 
IT1	*      *      035137 *            200000035137 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035137     *            *            0            0   0   *   
FT6	031553 031553 031553 204000000000 777777777777 000000777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 *                *            *            0            0   0   *   

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

*031553  MOVS 	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031553 031553 031553 204000000000 777777777777 000000777777     000000777777 000000031552 0            0   0   777 
IT1	*      *      000000 *            204000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	031554 031554 031554 331000000000 777777777777 000000777777     *            *            0            0   0   *   
ET2	*      *      *      *            000000777777 *                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 777777000000     777777000000 *            0            0   0   *   

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

*031554  SKIPL	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031554 031554 031554 331000000000 777777777777 777777000000     777777000000 000000031552 0            0   0   777 
IT1	*      *      000000 *            331000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 777777000000     *            *            0            0   0   *   
ET0	*      0      031555 *            777777000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031555 0      031556 *            777777777777 *                *            *            0            0   0   *   

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

*031556  JUMPA	0,031557
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0288
IT0	031556 031556 031556 324000031557 777777777777 777777000000     777777000000 000000031552 0            0   0   777 
IT1	*      *      031557 *            324000031557 *                *            *            0            0   0   *   
ET0	*      *      000000 *            777777000000 000000031557     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031557 *            000000031557 777777000000     *            000000031557 0            0   0   *   

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

*031557  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031557 031557 031557 200000035062 777777777777 777777000000     777777000000 000000031557 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031560 031560 031560 204000035074 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            777777000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031560  MOVS 	0,035074

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031560 031560 031560 204000035074 777777777777 0                0            000000031557 0            0   0   777 
IT1	*      *      035074 *            204000035074 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035074     0            *            0            0   0   *   
FT6	031561 031561 031561 336000000000 777777777777 000000000001     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000001000000     000001000000 *            0            0   0   *   

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

*031561  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031561 031561 031561 336000000000 777777777777 000001000000     000001000000 000000031557 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000001000000     *            *            0            0   0   *   
ET0	*      0      031562 *            000001000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031562 0      031563 *            777777777777 *                *            *            0            0   0   *   

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

*031563  JUMPA	0,031564

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031563 031563 031563 324000031564 777777777777 000001000000     000001000000 000000031557 0            0   0   777 
IT1	*      *      031564 *            324000031564 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000001000000 000000031564     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031564 *            000000031564 000001000000     *            000000031564 0            0   0   *   

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

*031564  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031564 031564 031564 200000035062 777777777777 000001000000     000001000000 000000031564 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031565 031565 031565 204000035075 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000001000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031565  MOVS 	0,035075

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031565 031565 031565 204000035075 777777777777 0                0            000000031564 0            0   0   777 
IT1	*      *      035075 *            204000035075 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035075     0            *            0            0   0   *   
FT6	031566 031566 031566 336000000000 777777777777 000000000002     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000002000000     000002000000 *            0            0   0   *   

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

*031566  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031566 031566 031566 336000000000 777777777777 000002000000     000002000000 000000031564 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000002000000     *            *            0            0   0   *   
ET0	*      0      031567 *            000002000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   SEQ 0290
ST1	031567 0      031570 *            777777777777 *                *            *            0            0   0   *   

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

*031570  JUMPA	0,031571

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031570 031570 031570 324000031571 777777777777 000002000000     000002000000 000000031564 0            0   0   777 
IT1	*      *      031571 *            324000031571 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000002000000 000000031571     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031571 *            000000031571 000002000000     *            000000031571 0            0   0   *   

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

*031571  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031571 031571 031571 200000035062 777777777777 000002000000     000002000000 000000031571 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031572 031572 031572 204000035076 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000002000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031572  MOVS 	0,035076

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031572 031572 031572 204000035076 777777777777 0                0            000000031571 0            0   0   777 
IT1	*      *      035076 *            204000035076 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035076     0            *            0            0   0   *   
FT6	031573 031573 031573 336000000000 777777777777 000000000004     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000004000000     000004000000 *            0            0   0   *   

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

*031573  SKIPN	0,000000
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0291
IT0	031573 031573 031573 336000000000 777777777777 000004000000     000004000000 000000031571 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000004000000     *            *            0            0   0   *   
ET0	*      0      031574 *            000004000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031574 0      031575 *            777777777777 *                *            *            0            0   0   *   

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

*031575  JUMPA	0,031576

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031575 031575 031575 324000031576 777777777777 000004000000     000004000000 000000031571 0            0   0   777 
IT1	*      *      031576 *            324000031576 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000004000000 000000031576     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031576 *            000000031576 000004000000     *            000000031576 0            0   0   *   

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

*031576  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031576 031576 031576 200000035062 777777777777 000004000000     000004000000 000000031576 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031577 031577 031577 204000035077 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000004000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031577  MOVS 	0,035077

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031577 031577 031577 204000035077 777777777777 0                0            000000031576 0            0   0   777 
IT1	*      *      035077 *            204000035077 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035077     0            *            0            0   0   *   
FT6	031600 031600 031600 336000000000 777777777777 000000000010     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000010000000     000010000000 *            0            0   0   *   

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

*031600  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031600 031600 031600 336000000000 777777777777 000010000000     000010000000 000000031576 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000010000000     *            *            0            0   0   *   
ET0	*      0      031601 *            000010000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031601 0      031602 *            777777777777 *                *            *            0            0   0   *   

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

*031602  JUMPA	0,031603

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031602 031602 031602 324000031603 777777777777 000010000000     000010000000 000000031576 0            0   0   777 
IT1	*      *      031603 *            324000031603 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000010000000 000000031603     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031603 *            000000031603 000010000000     *            000000031603 0            0   0   *   

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

*031603  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031603 031603 031603 200000035062 777777777777 000010000000     000010000000 000000031603 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031604 031604 031604 204000035100 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000010000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031604  MOVS 	0,035100

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031604 031604 031604 204000035100 777777777777 0                0            000000031603 0            0   0   777 
IT1	*      *      035100 *            204000035100 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035100     0            *            0            0   0   *   
FT6	031605 031605 031605 336000000000 777777777777 000000000020     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   SEQ 0293
ST1	*      *      *      *            777777777777 000020000000     000020000000 *            0            0   0   *   

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

*031605  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031605 031605 031605 336000000000 777777777777 000020000000     000020000000 000000031603 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000020000000     *            *            0            0   0   *   
ET0	*      0      031606 *            000020000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031606 0      031607 *            777777777777 *                *            *            0            0   0   *   

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

*031607  JUMPA	0,031610

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031607 031607 031607 324000031610 777777777777 000020000000     000020000000 000000031603 0            0   0   777 
IT1	*      *      031610 *            324000031610 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000020000000 000000031610     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031610 *            000000031610 000020000000     *            000000031610 0            0   0   *   

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

*031610  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031610 031610 031610 200000035062 777777777777 000020000000     000020000000 000000031610 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031611 031611 031611 204000035101 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000020000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031611  MOVS 	0,035101
                                                                                                                           SEQ 0294
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031611 031611 031611 204000035101 777777777777 0                0            000000031610 0            0   0   777 
IT1	*      *      035101 *            204000035101 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035101     0            *            0            0   0   *   
FT6	031612 031612 031612 336000000000 777777777777 000000000040     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000040000000     000040000000 *            0            0   0   *   

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

*031612  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031612 031612 031612 336000000000 777777777777 000040000000     000040000000 000000031610 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000040000000     *            *            0            0   0   *   
ET0	*      0      031613 *            000040000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031613 0      031614 *            777777777777 *                *            *            0            0   0   *   

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

*031614  JUMPA	0,031615

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031614 031614 031614 324000031615 777777777777 000040000000     000040000000 000000031610 0            0   0   777 
IT1	*      *      031615 *            324000031615 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000040000000 000000031615     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031615 *            000000031615 000040000000     *            000000031615 0            0   0   *   

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

*031615  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031615 031615 031615 200000035062 777777777777 000040000000     000040000000 000000031615 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031616 031616 031616 204000035102 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000040000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031616  MOVS 	0,035102

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031616 031616 031616 204000035102 777777777777 0                0            000000031615 0            0   0   777 
IT1	*      *      035102 *            204000035102 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035102     0            *            0            0   0   *   
FT6	031617 031617 031617 336000000000 777777777777 000000000100     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000100000000     000100000000 *            0            0   0   *   

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

*031617  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031617 031617 031617 336000000000 777777777777 000100000000     000100000000 000000031615 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000100000000     *            *            0            0   0   *   
ET0	*      0      031620 *            000100000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031620 0      031621 *            777777777777 *                *            *            0            0   0   *   

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

*031621  JUMPA	0,031622

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031621 031621 031621 324000031622 777777777777 000100000000     000100000000 000000031615 0            0   0   777 
IT1	*      *      031622 *            324000031622 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000100000000 000000031622     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031622 *            000000031622 000100000000     *            000000031622 0            0   0   *   

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

*031622  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031622 031622 031622 200000035062 777777777777 000100000000     000100000000 000000031622 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031623 031623 031623 204000035103 777777777777 000000000000     *            *            0            0   0   *   SEQ 0296
ET2	*      *      *      *            000100000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031623  MOVS 	0,035103

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031623 031623 031623 204000035103 777777777777 0                0            000000031622 0            0   0   777 
IT1	*      *      035103 *            204000035103 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035103     0            *            0            0   0   *   
FT6	031624 031624 031624 336000000000 777777777777 000000000200     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000200000000     000200000000 *            0            0   0   *   

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

*031624  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031624 031624 031624 336000000000 777777777777 000200000000     000200000000 000000031622 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000200000000     *            *            0            0   0   *   
ET0	*      0      031625 *            000200000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031625 0      031626 *            777777777777 *                *            *            0            0   0   *   

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

*031626  JUMPA	0,031627

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031626 031626 031626 324000031627 777777777777 000200000000     000200000000 000000031622 0            0   0   777 
IT1	*      *      031627 *            324000031627 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000200000000 000000031627     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031627 *            000000031627 000200000000     *            000000031627 0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000200 000000 E    =000000 031627 
----------
*031627  MOVE 	0,035062                                                                                                   SEQ 0297

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031627 031627 031627 200000035062 777777777777 000200000000     000200000000 000000031627 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031630 031630 031630 204000035104 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000200000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031630  MOVS 	0,035104

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031630 031630 031630 204000035104 777777777777 0                0            000000031627 0            0   0   777 
IT1	*      *      035104 *            204000035104 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035104     0            *            0            0   0   *   
FT6	031631 031631 031631 336000000000 777777777777 000000000400     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000400000000     000400000000 *            0            0   0   *   

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

*031631  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031631 031631 031631 336000000000 777777777777 000400000000     000400000000 000000031627 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000400000000     *            *            0            0   0   *   
ET0	*      0      031632 *            000400000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031632 0      031633 *            777777777777 *                *            *            0            0   0   *   

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

*031633  JUMPA	0,031634

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031633 031633 031633 324000031634 777777777777 000400000000     000400000000 000000031627 0            0   0   777 
IT1	*      *      031634 *            324000031634 *                *            *            0            0   0   *   
ET0	*      *      000000 *            000400000000 000000031634     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031634 *            000000031634 000400000000     *            000000031634 0            0   0   *   
                                                                                                                           SEQ 0298
FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000400 000000 E    =000000 031634 
----------

*031634  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031634 031634 031634 200000035062 777777777777 000400000000     000400000000 000000031634 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031635 031635 031635 204000035105 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000400000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031635  MOVS 	0,035105

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031635 031635 031635 204000035105 777777777777 0                0            000000031634 0            0   0   777 
IT1	*      *      035105 *            204000035105 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035105     0            *            0            0   0   *   
FT6	031636 031636 031636 336000000000 777777777777 000000001000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 001000000000     001000000000 *            0            0   0   *   

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

*031636  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031636 031636 031636 336000000000 777777777777 001000000000     001000000000 000000031634 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 001000000000     *            *            0            0   0   *   
ET0	*      0      031637 *            001000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031637 0      031640 *            777777777777 *                *            *            0            0   0   *   

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

*031640  JUMPA	0,031641
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0299
IT0	031640 031640 031640 324000031641 777777777777 001000000000     001000000000 000000031634 0            0   0   777 
IT1	*      *      031641 *            324000031641 *                *            *            0            0   0   *   
ET0	*      *      000000 *            001000000000 000000031641     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031641 *            000000031641 001000000000     *            000000031641 0            0   0   *   

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

*031641  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031641 031641 031641 200000035062 777777777777 001000000000     001000000000 000000031641 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031642 031642 031642 204000035106 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            001000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031642  MOVS 	0,035106

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031642 031642 031642 204000035106 777777777777 0                0            000000031641 0            0   0   777 
IT1	*      *      035106 *            204000035106 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035106     0            *            0            0   0   *   
FT6	031643 031643 031643 336000000000 777777777777 000000002000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 002000000000     002000000000 *            0            0   0   *   

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

*031643  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031643 031643 031643 336000000000 777777777777 002000000000     002000000000 000000031641 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 002000000000     *            *            0            0   0   *   
ET0	*      0      031644 *            002000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031644 0      031645 *            777777777777 *                *            *            0            0   0   *   

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

*031645  JUMPA	0,031646

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031645 031645 031645 324000031646 777777777777 002000000000     002000000000 000000031641 0            0   0   777 
IT1	*      *      031646 *            324000031646 *                *            *            0            0   0   *   
ET0	*      *      000000 *            002000000000 000000031646     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031646 *            000000031646 002000000000     *            000000031646 0            0   0   *   

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

*031646  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031646 031646 031646 200000035062 777777777777 002000000000     002000000000 000000031646 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031647 031647 031647 204000035107 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            002000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031647  MOVS 	0,035107

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031647 031647 031647 204000035107 777777777777 0                0            000000031646 0            0   0   777 
IT1	*      *      035107 *            204000035107 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035107     0            *            0            0   0   *   
FT6	031650 031650 031650 336000000000 777777777777 000000004000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 004000000000     004000000000 *            0            0   0   *   

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

*031650  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031650 031650 031650 336000000000 777777777777 004000000000     004000000000 000000031646 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 004000000000     *            *            0            0   0   *   
ET0	*      0      031651 *            004000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   SEQ 0301
ST1	031651 0      031652 *            777777777777 *                *            *            0            0   0   *   

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

*031652  JUMPA	0,031653

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031652 031652 031652 324000031653 777777777777 004000000000     004000000000 000000031646 0            0   0   777 
IT1	*      *      031653 *            324000031653 *                *            *            0            0   0   *   
ET0	*      *      000000 *            004000000000 000000031653     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031653 *            000000031653 004000000000     *            000000031653 0            0   0   *   

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

*031653  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031653 031653 031653 200000035062 777777777777 004000000000     004000000000 000000031653 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031654 031654 031654 204000035110 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            004000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031654  MOVS 	0,035110

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031654 031654 031654 204000035110 777777777777 0                0            000000031653 0            0   0   777 
IT1	*      *      035110 *            204000035110 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035110     0            *            0            0   0   *   
FT6	031655 031655 031655 336000000000 777777777777 000000010000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 010000000000     010000000000 *            0            0   0   *   

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

*031655  SKIPN	0,000000
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0302
IT0	031655 031655 031655 336000000000 777777777777 010000000000     010000000000 000000031653 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 010000000000     *            *            0            0   0   *   
ET0	*      0      031656 *            010000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031656 0      031657 *            777777777777 *                *            *            0            0   0   *   

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

*031657  JUMPA	0,031660

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031657 031657 031657 324000031660 777777777777 010000000000     010000000000 000000031653 0            0   0   777 
IT1	*      *      031660 *            324000031660 *                *            *            0            0   0   *   
ET0	*      *      000000 *            010000000000 000000031660     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031660 *            000000031660 010000000000     *            000000031660 0            0   0   *   

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

*031660  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031660 031660 031660 200000035062 777777777777 010000000000     010000000000 000000031660 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031661 031661 031661 204000035111 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            010000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031661  MOVS 	0,035111

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031661 031661 031661 204000035111 777777777777 0                0            000000031660 0            0   0   777 
IT1	*      *      035111 *            204000035111 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035111     0            *            0            0   0   *   
FT6	031662 031662 031662 336000000000 777777777777 000000020000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 020000000000     020000000000 *            0            0   0   *   

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

*031662  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031662 031662 031662 336000000000 777777777777 020000000000     020000000000 000000031660 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 020000000000     *            *            0            0   0   *   
ET0	*      0      031663 *            020000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031663 0      031664 *            777777777777 *                *            *            0            0   0   *   

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

*031664  JUMPA	0,031665

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031664 031664 031664 324000031665 777777777777 020000000000     020000000000 000000031660 0            0   0   777 
IT1	*      *      031665 *            324000031665 *                *            *            0            0   0   *   
ET0	*      *      000000 *            020000000000 000000031665     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031665 *            000000031665 020000000000     *            000000031665 0            0   0   *   

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

*031665  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031665 031665 031665 200000035062 777777777777 020000000000     020000000000 000000031665 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031666 031666 031666 204000035112 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            020000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031666  MOVS 	0,035112

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031666 031666 031666 204000035112 777777777777 0                0            000000031665 0            0   0   777 
IT1	*      *      035112 *            204000035112 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035112     0            *            0            0   0   *   
FT6	031667 031667 031667 336000000000 777777777777 000000040000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   SEQ 0304
ST1	*      *      *      *            777777777777 040000000000     040000000000 *            0            0   0   *   

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

*031667  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031667 031667 031667 336000000000 777777777777 040000000000     040000000000 000000031665 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 040000000000     *            *            0            0   0   *   
ET0	*      0      031670 *            040000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031670 0      031671 *            777777777777 *                *            *            0            0   0   *   

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

*031671  JUMPA	0,031672

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031671 031671 031671 324000031672 777777777777 040000000000     040000000000 000000031665 0            0   0   777 
IT1	*      *      031672 *            324000031672 *                *            *            0            0   0   *   
ET0	*      *      000000 *            040000000000 000000031672     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031672 *            000000031672 040000000000     *            000000031672 0            0   0   *   

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

*031672  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031672 031672 031672 200000035062 777777777777 040000000000     040000000000 000000031672 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031673 031673 031673 204000035113 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            040000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031673  MOVS 	0,035113
                                                                                                                           SEQ 0305
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031673 031673 031673 204000035113 777777777777 0                0            000000031672 0            0   0   777 
IT1	*      *      035113 *            204000035113 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035113     0            *            0            0   0   *   
FT6	031674 031674 031674 336000000000 777777777777 000000100000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 100000000000     100000000000 *            0            0   0   *   

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

*031674  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031674 031674 031674 336000000000 777777777777 100000000000     100000000000 000000031672 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 100000000000     *            *            0            0   0   *   
ET0	*      0      031675 *            100000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031675 0      031676 *            777777777777 *                *            *            0            0   0   *   

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

*031676  JUMPA	0,031677

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031676 031676 031676 324000031677 777777777777 100000000000     100000000000 000000031672 0            0   0   777 
IT1	*      *      031677 *            324000031677 *                *            *            0            0   0   *   
ET0	*      *      000000 *            100000000000 000000031677     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031677 *            000000031677 100000000000     *            000000031677 0            0   0   *   

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

*031677  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031677 031677 031677 200000035062 777777777777 100000000000     100000000000 000000031677 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031700 031700 031700 204000035114 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            100000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031700  MOVS 	0,035114

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031700 031700 031700 204000035114 777777777777 0                0            000000031677 0            0   0   777 
IT1	*      *      035114 *            204000035114 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035114     0            *            0            0   0   *   
FT6	031701 031701 031701 336000000000 777777777777 000000200000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 200000000000     200000000000 *            0            0   0   *   

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

*031701  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031701 031701 031701 336000000000 777777777777 200000000000     200000000000 000000031677 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 200000000000     *            *            0            0   0   *   
ET0	*      0      031702 *            200000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031702 0      031703 *            777777777777 *                *            *            0            0   0   *   

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

*031703  JUMPA	0,031704

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031703 031703 031703 324000031704 777777777777 200000000000     200000000000 000000031677 0            0   0   777 
IT1	*      *      031704 *            324000031704 *                *            *            0            0   0   *   
ET0	*      *      000000 *            200000000000 000000031704     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031704 *            000000031704 200000000000     *            000000031704 0            0   0   *   

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

*031704  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031704 031704 031704 200000035062 777777777777 200000000000     200000000000 000000031704 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031705 031705 031705 204000035115 777777777777 000000000000     *            *            0            0   0   *   SEQ 0307
ET2	*      *      *      *            200000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031705  MOVS 	0,035115

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031705 031705 031705 204000035115 777777777777 0                0            000000031704 0            0   0   777 
IT1	*      *      035115 *            204000035115 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035115     0            *            0            0   0   *   
FT6	031706 031706 031706 336000000000 777777777777 000000400000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 400000000000     400000000000 *            0            0   0   *   

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

*031706  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031706 031706 031706 336000000000 777777777777 400000000000     400000000000 000000031704 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 400000000000     *            *            0            0   0   *   
ET0	*      0      031707 *            400000000000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031707 0      031710 *            777777777777 *                *            *            0            0   0   *   

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

*031710  JUMPA	0,031711

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031710 031710 031710 324000031711 777777777777 400000000000     400000000000 000000031704 0            0   0   777 
IT1	*      *      031711 *            324000031711 *                *            *            0            0   0   *   
ET0	*      *      000000 *            400000000000 000000031711     *            *            0            0   0   *   
ET2	*      *      0      *            *            *                *            *            0            0   0   *   
ST1	*      *      031711 *            000000031711 400000000000     *            000000031711 0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=400000 000000 E    =000000 031711 
----------
*031711  MOVE 	0,035062                                                                                                   SEQ 0308

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031711 031711 031711 200000035062 777777777777 400000000000     400000000000 000000031711 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031712 031712 031712 204000035116 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            400000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031712  MOVS 	0,035116

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031712 031712 031712 204000035116 777777777777 0                0            000000031711 0            0   0   777 
IT1	*      *      035116 *            204000035116 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035116     0            *            0            0   0   *   
FT6	031713 031713 031713 336000000000 777777777777 000001000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000001     000000000001 *            0            0   0   *   

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

*031713  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031713 031713 031713 336000000000 777777777777 000000000001     000000000001 000000031711 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000000001     *            *            0            0   0   *   
ET0	*      0      031714 *            000000000001 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031714 0      031715 *            777777777777 *                *            *            0            0   0   *   

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

*031715  JUMPA	0,031716

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031715 031715 031715 324000031716 777777777777 000000000001     000000000001 000000031711 0            0   0   777 
IT1	*      *      031716 *            324000031716 *                *            *            0            0   0   *   
ET0	*      *      000001 *            000000000001 000000031716     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031716 *            000000031716 000000000001     *            000000031716 0            0   0   *   
                                                                                                                           SEQ 0309
FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000001 E    =000000 031716 
----------

*031716  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031716 031716 031716 200000035062 777777777777 000000000001     000000000001 000000031716 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031717 031717 031717 204000035117 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000001 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031717  MOVS 	0,035117

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031717 031717 031717 204000035117 777777777777 0                0            000000031716 0            0   0   777 
IT1	*      *      035117 *            204000035117 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035117     0            *            0            0   0   *   
FT6	031720 031720 031720 336000000000 777777777777 000002000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000002     000000000002 *            0            0   0   *   

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

*031720  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031720 031720 031720 336000000000 777777777777 000000000002     000000000002 000000031716 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000000002     *            *            0            0   0   *   
ET0	*      0      031721 *            000000000002 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031721 0      031722 *            777777777777 *                *            *            0            0   0   *   

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

*031722  JUMPA	0,031723
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0310
IT0	031722 031722 031722 324000031723 777777777777 000000000002     000000000002 000000031716 0            0   0   777 
IT1	*      *      031723 *            324000031723 *                *            *            0            0   0   *   
ET0	*      *      000002 *            000000000002 000000031723     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031723 *            000000031723 000000000002     *            000000031723 0            0   0   *   

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

*031723  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031723 031723 031723 200000035062 777777777777 000000000002     000000000002 000000031723 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031724 031724 031724 204000035120 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000002 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031724  MOVS 	0,035120

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031724 031724 031724 204000035120 777777777777 0                0            000000031723 0            0   0   777 
IT1	*      *      035120 *            204000035120 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035120     0            *            0            0   0   *   
FT6	031725 031725 031725 336000000000 777777777777 000004000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000004     000000000004 *            0            0   0   *   

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

*031725  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031725 031725 031725 336000000000 777777777777 000000000004     000000000004 000000031723 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000000004     *            *            0            0   0   *   
ET0	*      0      031726 *            000000000004 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031726 0      031727 *            777777777777 *                *            *            0            0   0   *   

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

*031727  JUMPA	0,031730

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031727 031727 031727 324000031730 777777777777 000000000004     000000000004 000000031723 0            0   0   777 
IT1	*      *      031730 *            324000031730 *                *            *            0            0   0   *   
ET0	*      *      000004 *            000000000004 000000031730     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031730 *            000000031730 000000000004     *            000000031730 0            0   0   *   

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

*031730  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031730 031730 031730 200000035062 777777777777 000000000004     000000000004 000000031730 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031731 031731 031731 204000035121 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000004 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031731  MOVS 	0,035121

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031731 031731 031731 204000035121 777777777777 0                0            000000031730 0            0   0   777 
IT1	*      *      035121 *            204000035121 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035121     0            *            0            0   0   *   
FT6	031732 031732 031732 336000000000 777777777777 000010000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000010     000000000010 *            0            0   0   *   

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

*031732  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031732 031732 031732 336000000000 777777777777 000000000010     000000000010 000000031730 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000000010     *            *            0            0   0   *   
ET0	*      0      031733 *            000000000010 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   SEQ 0312
ST1	031733 0      031734 *            777777777777 *                *            *            0            0   0   *   

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

*031734  JUMPA	0,031735

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031734 031734 031734 324000031735 777777777777 000000000010     000000000010 000000031730 0            0   0   777 
IT1	*      *      031735 *            324000031735 *                *            *            0            0   0   *   
ET0	*      *      000010 *            000000000010 000000031735     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031735 *            000000031735 000000000010     *            000000031735 0            0   0   *   

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

*031735  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031735 031735 031735 200000035062 777777777777 000000000010     000000000010 000000031735 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031736 031736 031736 204000035122 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000010 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031736  MOVS 	0,035122

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031736 031736 031736 204000035122 777777777777 0                0            000000031735 0            0   0   777 
IT1	*      *      035122 *            204000035122 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035122     0            *            0            0   0   *   
FT6	031737 031737 031737 336000000000 777777777777 000020000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000020     000000000020 *            0            0   0   *   

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

*031737  SKIPN	0,000000
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0313
IT0	031737 031737 031737 336000000000 777777777777 000000000020     000000000020 000000031735 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000000020     *            *            0            0   0   *   
ET0	*      0      031740 *            000000000020 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031740 0      031741 *            777777777777 *                *            *            0            0   0   *   

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

*031741  JUMPA	0,031742

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031741 031741 031741 324000031742 777777777777 000000000020     000000000020 000000031735 0            0   0   777 
IT1	*      *      031742 *            324000031742 *                *            *            0            0   0   *   
ET0	*      *      000020 *            000000000020 000000031742     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031742 *            000000031742 000000000020     *            000000031742 0            0   0   *   

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

*031742  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031742 031742 031742 200000035062 777777777777 000000000020     000000000020 000000031742 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031743 031743 031743 204000035123 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000020 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031743  MOVS 	0,035123

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031743 031743 031743 204000035123 777777777777 0                0            000000031742 0            0   0   777 
IT1	*      *      035123 *            204000035123 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035123     0            *            0            0   0   *   
FT6	031744 031744 031744 336000000000 777777777777 000040000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000040     000000000040 *            0            0   0   *   

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

*031744  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031744 031744 031744 336000000000 777777777777 000000000040     000000000040 000000031742 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000000040     *            *            0            0   0   *   
ET0	*      0      031745 *            000000000040 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031745 0      031746 *            777777777777 *                *            *            0            0   0   *   

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

*031746  JUMPA	0,031747

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031746 031746 031746 324000031747 777777777777 000000000040     000000000040 000000031742 0            0   0   777 
IT1	*      *      031747 *            324000031747 *                *            *            0            0   0   *   
ET0	*      *      000040 *            000000000040 000000031747     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031747 *            000000031747 000000000040     *            000000031747 0            0   0   *   

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

*031747  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031747 031747 031747 200000035062 777777777777 000000000040     000000000040 000000031747 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031750 031750 031750 204000035124 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000040 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031750  MOVS 	0,035124

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031750 031750 031750 204000035124 777777777777 0                0            000000031747 0            0   0   777 
IT1	*      *      035124 *            204000035124 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035124     0            *            0            0   0   *   
FT6	031751 031751 031751 336000000000 777777777777 000100000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   SEQ 0315
ST1	*      *      *      *            777777777777 000000000100     000000000100 *            0            0   0   *   

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

*031751  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031751 031751 031751 336000000000 777777777777 000000000100     000000000100 000000031747 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000000100     *            *            0            0   0   *   
ET0	*      0      031752 *            000000000100 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031752 0      031753 *            777777777777 *                *            *            0            0   0   *   

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

*031753  JUMPA	0,031754

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031753 031753 031753 324000031754 777777777777 000000000100     000000000100 000000031747 0            0   0   777 
IT1	*      *      031754 *            324000031754 *                *            *            0            0   0   *   
ET0	*      *      000100 *            000000000100 000000031754     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031754 *            000000031754 000000000100     *            000000031754 0            0   0   *   

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

*031754  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031754 031754 031754 200000035062 777777777777 000000000100     000000000100 000000031754 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031755 031755 031755 204000035125 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000100 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031755  MOVS 	0,035125
                                                                                                                           SEQ 0316
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031755 031755 031755 204000035125 777777777777 0                0            000000031754 0            0   0   777 
IT1	*      *      035125 *            204000035125 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035125     0            *            0            0   0   *   
FT6	031756 031756 031756 336000000000 777777777777 000200000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000200     000000000200 *            0            0   0   *   

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

*031756  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031756 031756 031756 336000000000 777777777777 000000000200     000000000200 000000031754 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000000200     *            *            0            0   0   *   
ET0	*      0      031757 *            000000000200 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031757 0      031760 *            777777777777 *                *            *            0            0   0   *   

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

*031760  JUMPA	0,031761

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031760 031760 031760 324000031761 777777777777 000000000200     000000000200 000000031754 0            0   0   777 
IT1	*      *      031761 *            324000031761 *                *            *            0            0   0   *   
ET0	*      *      000200 *            000000000200 000000031761     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031761 *            000000031761 000000000200     *            000000031761 0            0   0   *   

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

*031761  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031761 031761 031761 200000035062 777777777777 000000000200     000000000200 000000031761 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031762 031762 031762 204000035073 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000200 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031762  MOVS 	0,035073

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031762 031762 031762 204000035073 777777777777 0                0            000000031761 0            0   0   777 
IT1	*      *      035073 *            204000035073 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035073     0            *            0            0   0   *   
FT6	031763 031763 031763 336000000000 777777777777 000400000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000000400     000000000400 *            0            0   0   *   

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

*031763  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031763 031763 031763 336000000000 777777777777 000000000400     000000000400 000000031761 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000000400     *            *            0            0   0   *   
ET0	*      0      031764 *            000000000400 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031764 0      031765 *            777777777777 *                *            *            0            0   0   *   

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

*031765  JUMPA	0,031766

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031765 031765 031765 324000031766 777777777777 000000000400     000000000400 000000031761 0            0   0   777 
IT1	*      *      031766 *            324000031766 *                *            *            0            0   0   *   
ET0	*      *      000400 *            000000000400 000000031766     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031766 *            000000031766 000000000400     *            000000031766 0            0   0   *   

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

*031766  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031766 031766 031766 200000035062 777777777777 000000000400     000000000400 000000031766 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031767 031767 031767 204000035126 777777777777 000000000000     *            *            0            0   0   *   SEQ 0318
ET2	*      *      *      *            000000000400 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031767  MOVS 	0,035126

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031767 031767 031767 204000035126 777777777777 0                0            000000031766 0            0   0   777 
IT1	*      *      035126 *            204000035126 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035126     0            *            0            0   0   *   
FT6	031770 031770 031770 336000000000 777777777777 001000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000001000     000000001000 *            0            0   0   *   

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

*031770  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031770 031770 031770 336000000000 777777777777 000000001000     000000001000 000000031766 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000001000     *            *            0            0   0   *   
ET0	*      0      031771 *            000000001000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031771 0      031772 *            777777777777 *                *            *            0            0   0   *   

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

*031772  JUMPA	0,031773

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031772 031772 031772 324000031773 777777777777 000000001000     000000001000 000000031766 0            0   0   777 
IT1	*      *      031773 *            324000031773 *                *            *            0            0   0   *   
ET0	*      *      001000 *            000000001000 000000031773     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      031773 *            000000031773 000000001000     *            000000031773 0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 001000 E    =000000 031773 
----------
*031773  MOVE 	0,035062                                                                                                   SEQ 0319

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031773 031773 031773 200000035062 777777777777 000000001000     000000001000 000000031773 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	031774 031774 031774 204000035127 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000001000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*031774  MOVS 	0,035127

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031774 031774 031774 204000035127 777777777777 0                0            000000031773 0            0   0   777 
IT1	*      *      035127 *            204000035127 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035127     0            *            0            0   0   *   
FT6	031775 031775 031775 336000000000 777777777777 002000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000002000     000000002000 *            0            0   0   *   

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

*031775  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031775 031775 031775 336000000000 777777777777 000000002000     000000002000 000000031773 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000002000     *            *            0            0   0   *   
ET0	*      0      031776 *            000000002000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	031776 0      031777 *            777777777777 *                *            *            0            0   0   *   

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

*031777  JUMPA	0,032000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	031777 031777 031777 324000032000 777777777777 000000002000     000000002000 000000031773 0            0   0   777 
IT1	*      *      032000 *            324000032000 *                *            *            0            0   0   *   
ET0	*      *      002000 *            000000002000 000000032000     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032000 *            000000032000 000000002000     *            000000032000 0            0   0   *   
                                                                                                                           SEQ 0320
FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 002000 E    =000000 032000 
----------

*032000  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032000 032000 032000 200000035062 777777777777 000000002000     000000002000 000000032000 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	032001 032001 032001 204000035130 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000002000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*032001  MOVS 	0,035130

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032001 032001 032001 204000035130 777777777777 0                0            000000032000 0            0   0   777 
IT1	*      *      035130 *            204000035130 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035130     0            *            0            0   0   *   
FT6	032002 032002 032002 336000000000 777777777777 004000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000004000     000000004000 *            0            0   0   *   

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

*032002  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032002 032002 032002 336000000000 777777777777 000000004000     000000004000 000000032000 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000004000     *            *            0            0   0   *   
ET0	*      0      032003 *            000000004000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032003 0      032004 *            777777777777 *                *            *            0            0   0   *   

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

*032004  JUMPA	0,032005
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0321
IT0	032004 032004 032004 324000032005 777777777777 000000004000     000000004000 000000032000 0            0   0   777 
IT1	*      *      032005 *            324000032005 *                *            *            0            0   0   *   
ET0	*      *      004000 *            000000004000 000000032005     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032005 *            000000032005 000000004000     *            000000032005 0            0   0   *   

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

*032005  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032005 032005 032005 200000035062 777777777777 000000004000     000000004000 000000032005 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	032006 032006 032006 204000035131 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000004000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*032006  MOVS 	0,035131

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032006 032006 032006 204000035131 777777777777 0                0            000000032005 0            0   0   777 
IT1	*      *      035131 *            204000035131 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035131     0            *            0            0   0   *   
FT6	032007 032007 032007 336000000000 777777777777 010000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000010000     000000010000 *            0            0   0   *   

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

*032007  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032007 032007 032007 336000000000 777777777777 000000010000     000000010000 000000032005 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000010000     *            *            0            0   0   *   
ET0	*      0      032010 *            000000010000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032010 0      032011 *            777777777777 *                *            *            0            0   0   *   

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

*032011  JUMPA	0,032012

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032011 032011 032011 324000032012 777777777777 000000010000     000000010000 000000032005 0            0   0   777 
IT1	*      *      032012 *            324000032012 *                *            *            0            0   0   *   
ET0	*      *      010000 *            000000010000 000000032012     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032012 *            000000032012 000000010000     *            000000032012 0            0   0   *   

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

*032012  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032012 032012 032012 200000035062 777777777777 000000010000     000000010000 000000032012 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	032013 032013 032013 204000035132 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000010000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*032013  MOVS 	0,035132

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032013 032013 032013 204000035132 777777777777 0                0            000000032012 0            0   0   777 
IT1	*      *      035132 *            204000035132 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035132     0            *            0            0   0   *   
FT6	032014 032014 032014 336000000000 777777777777 020000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000020000     000000020000 *            0            0   0   *   

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

*032014  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032014 032014 032014 336000000000 777777777777 000000020000     000000020000 000000032012 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000020000     *            *            0            0   0   *   
ET0	*      0      032015 *            000000020000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   SEQ 0323
ST1	032015 0      032016 *            777777777777 *                *            *            0            0   0   *   

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

*032016  JUMPA	0,032017

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032016 032016 032016 324000032017 777777777777 000000020000     000000020000 000000032012 0            0   0   777 
IT1	*      *      032017 *            324000032017 *                *            *            0            0   0   *   
ET0	*      *      020000 *            000000020000 000000032017     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032017 *            000000032017 000000020000     *            000000032017 0            0   0   *   

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

*032017  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032017 032017 032017 200000035062 777777777777 000000020000     000000020000 000000032017 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	032020 032020 032020 204000035133 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000020000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*032020  MOVS 	0,035133

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032020 032020 032020 204000035133 777777777777 0                0            000000032017 0            0   0   777 
IT1	*      *      035133 *            204000035133 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035133     0            *            0            0   0   *   
FT6	032021 032021 032021 336000000000 777777777777 040000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000040000     000000040000 *            0            0   0   *   

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

*032021  SKIPN	0,000000
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA  SEQ 0324
IT0	032021 032021 032021 336000000000 777777777777 000000040000     000000040000 000000032017 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000040000     *            *            0            0   0   *   
ET0	*      0      032022 *            000000040000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032022 0      032023 *            777777777777 *                *            *            0            0   0   *   

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

*032023  JUMPA	0,032024

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032023 032023 032023 324000032024 777777777777 000000040000     000000040000 000000032017 0            0   0   777 
IT1	*      *      032024 *            324000032024 *                *            *            0            0   0   *   
ET0	*      *      040000 *            000000040000 000000032024     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032024 *            000000032024 000000040000     *            000000032024 0            0   0   *   

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

*032024  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032024 032024 032024 200000035062 777777777777 000000040000     000000040000 000000032024 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	032025 032025 032025 204000035134 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000040000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*032025  MOVS 	0,035134

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032025 032025 032025 204000035134 777777777777 0                0            000000032024 0            0   0   777 
IT1	*      *      035134 *            204000035134 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035134     0            *            0            0   0   *   
FT6	032026 032026 032026 336000000000 777777777777 100000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000100000     000000100000 *            0            0   0   *   

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

*032026  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032026 032026 032026 336000000000 777777777777 000000100000     000000100000 000000032024 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000100000     *            *            0            0   0   *   
ET0	*      0      032027 *            000000100000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032027 0      032030 *            777777777777 *                *            *            0            0   0   *   

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

*032030  JUMPA	0,032031

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032030 032030 032030 324000032031 777777777777 000000100000     000000100000 000000032024 0            0   0   777 
IT1	*      *      032031 *            324000032031 *                *            *            0            0   0   *   
ET0	*      *      100000 *            000000100000 000000032031     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032031 *            000000032031 000000100000     *            000000032031 0            0   0   *   

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

*032031  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032031 032031 032031 200000035062 777777777777 000000100000     000000100000 000000032031 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	032032 032032 032032 204000035135 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000100000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*032032  MOVS 	0,035135

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032032 032032 032032 204000035135 777777777777 0                0            000000032031 0            0   0   777 
IT1	*      *      035135 *            204000035135 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035135     0            *            0            0   0   *   
FT6	032033 032033 032033 336000000000 777777777777 200000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   SEQ 0326
ST1	*      *      *      *            777777777777 000000200000     000000200000 *            0            0   0   *   

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

*032033  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032033 032033 032033 336000000000 777777777777 000000200000     000000200000 000000032031 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000200000     *            *            0            0   0   *   
ET0	*      0      032034 *            000000200000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032034 0      032035 *            777777777777 *                *            *            0            0   0   *   

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

*032035  JUMPA	0,032036

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032035 032035 032035 324000032036 777777777777 000000200000     000000200000 000000032031 0            0   0   777 
IT1	*      *      032036 *            324000032036 *                *            *            0            0   0   *   
ET0	*      *      200000 *            000000200000 000000032036     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032036 *            000000032036 000000200000     *            000000032036 0            0   0   *   

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

*032036  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032036 032036 032036 200000035062 777777777777 000000200000     000000200000 000000032036 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	032037 032037 032037 204000035065 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000200000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*032037  MOVS 	0,035065
                                                                                                                           SEQ 0327
STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032037 032037 032037 204000035065 777777777777 0                0            000000032036 0            0   0   777 
IT1	*      *      035065 *            204000035065 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035065     0            *            0            0   0   *   
FT6	032040 032040 032040 336000000000 777777777777 400000000000     0            *            0            0   0   *   
ET2	*      *      *      *            000000000000 *                0            *            0            0   0   *   
ST1	*      *      *      *            777777777777 000000400000     000000400000 *            0            0   0   *   

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

*032040  SKIPN	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032040 032040 032040 336000000000 777777777777 000000400000     000000400000 000000032036 0            0   0   777 
IT1	*      *      000000 *            336000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 000000400000     *            *            0            0   0   *   
ET0	*      0      032041 *            000000400000 *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032041 0      032042 *            777777777777 *                *            *            0            0   0   *   

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

*032042  JUMPA	0,032043

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032042 032042 032042 324000032043 777777777777 000000400000     000000400000 000000032036 0            0   0   777 
IT1	*      *      032043 *            324000032043 *                *            *            0            0   0   *   
ET0	*      *      400000 *            000000400000 000000032043     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032043 *            000000032043 000000400000     *            000000032043 0            0   0   *   

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

*032043  MOVE 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032043 032043 032043 200000035062 777777777777 000000400000     000000400000 000000032043 0            0   0   777 
IT1	*      *      035062 *            200000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	032044 032044 032044 414000035063 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000400000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*032044  SETM 	0,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032044 032044 032044 414000035063 777777777777 0                0            000000032043 0            0   0   777 
IT1	*      *      035063 *            414000035063 0                0            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     0            *            0            0   0   *   
FT6	032045 032045 032045 331000000000 777777777777 777777777777     0            *            0            0   0   *   
ET2	*      *      *      *            *            *                0            *            0            0   0   *   
ST1	*      *      *      *            *            *                777777777777 *            0            0   0   *   

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

*032045  SKIPL	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032045 032045 032045 331000000000 777777777777 777777777777     777777777777 000000032043 0            0   0   777 
IT1	*      *      000000 *            331000000000 *                *            *            0            0   0   *   
MEMST	*      *      0      *            *            000000000000     *            *            0            0   0   *   
FT6	*      000000 0      *            777777777777 777777777777     *            *            0            0   0   *   
ET0	*      0      032046 *            *            *                *            *            0            0   0   *   
ET2	*      0      *      *            *            *                *            *            0            0   0   *   
ST1	032046 0      032047 *            *            *                *            *            0            0   0   *   

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

*032047  JUMPA	0,032050

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032047 032047 032047 324000032050 777777777777 777777777777     777777777777 000000032043 0            0   0   777 
IT1	*      *      032050 *            324000032050 *                *            *            0            0   0   *   
ET0	*      *      777777 *            777777777777 000000032050     *            *            0            0   0   *   
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      032050 *            000000032050 777777777777     *            000000032050 0            0   0   *   

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

*032050  MOVE 	0,035063

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032050 032050 032050 200000035063 777777777777 777777777777     777777777777 000000032050 0            0   0   777 
IT1	*      *      035063 *            200000035063 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035063     *            *            0            0   0   *   
FT6	032051 032051 032051 414000035062 777777777777 777777777777     *            *            0            0   0   *   SEQ 0329
ET2	*      *      *      *            *            *                *            *            0            0   0   *   
ST1	*      *      *      *            *            *                *            *            0            0   0   *   

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

*032051  SETM 	0,035062

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032051 032051 032051 414000035062 777777777777 777777777777     777777777777 000000032050 0            0   0   777 
IT1	*      *      035062 *            414000035062 *                *            *            0            0   0   *   
MEMST	*      *      *      *            *            000000035062     *            *            0            0   0   *   
FT6	032052 032052 032052 332000000000 777777777777 000000000000     *            *            0            0   0   *   
ET2	*      *      *      *            000000000000 0                *            *            0            0   0   *   
ST1	*      *      *      *            777777777777 0                000000000000 *            0            0   0   *   

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

*032052  SKIPE	0,000000

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032052 032052 032052 332000000000 777777777777 0                0            000000032050 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      032053 *            000000000000 0                0            *            0            0   0   *   
ET2	*      0      *      *            0            0                0            *            0            0   0   *   
ST1	032053 0      032054 *            777777777777 0                0            *            0            0   0   *   

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

*032054  JUMPA	0,032055

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ           SC  FE  SA
IT0	032054 032054 032054 324000032055 777777777777 0                0            000000032050 0            0   0   777 
IT1	*      *      032055 *            324000032055 0                0            *            0            0   0   *   
ET0	*      *      000000 *            000000000000 000000032055     0            *            0            0   0   *   
ET2	*      *      0      *            0            *                0            *            0            0   0   *   
ST1	*      *      032055 *            000000032055 000000000000     0            000000032055 0            0   0   *   

FLAGS - INT/FINAL   300000 300000 
INITIAL
C(AC)=000000 000000 E    =000000 032055 
----------
*032055  MOVE 	0,035062                                                                                                   SEQ 0330

STATE   PC     MA     AB     MB           AD           AR               FM           BR           MQ